Simple Portscanner zum selber coden^^

Anleitung:


erstellt als erstes en normales exe Project .

in dem braucht ihr 3 Command buttons, 2X textbox,1X listbox .

nun diese beschrifted ihr mit Start ,Stop,Clear the Portlist.

als nächste en timer1,und ne winsock anwendung.

code:



Code:
Private Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = False
Text2.Text = "0"
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
Winsock1.Close
Text2.Text = Text2.Text + 1
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = Text2.Text
Winsock1.Connect
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
Text2.Text = "0"
End Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Private Sub Winsock1_Connect()
List1.AddItem Winsock1.RemotePort & " is open!"

End Sub
nuun das wars ich hoffe ich konnte euch weiter helfen

mfg

lycan