![[Release] Advanced Port Scanner + Source-Code](https://www.elitepvpers.com/forum/iconimages/coding-releases/release-advanced-port-scanner-source-code_ltr.gif){kind=small}
Wie funktioniert er?
1.) Tool Öffnen.
2.) Port eingeben.
3.) auf Port Checken klicken.
4.) Alles andere müsst ihr selber wissen.
Screen:
Virustotal.com
Source:Quote:
Download im Anhang!Quote:
Imports System.Net.Sockets
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label1.Hide()
Button4.Hide()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
TextBox1.Text = TextBox1.Text + 1
Dim Range As TcpClient = New TcpClient("127.0.0.1", TextBox1.Text)
If Range.Connected = True Then
ListBox1.Items.Add(TextBox1.Text & " Port is Open")
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End If
Catch ex As Exception
ListBox1.Items.Add(TextBox1.Text & " Port is Closed")
ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = True
End Sub
Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
Application.Exit()
End Sub
Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Label1.Show()
Button4.Show()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Label1.Hide()
Button4.Hide()
End Sub
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
End Sub
End Class
