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