Vb6-Simple Portscanner v1. source codes

[lycaner]

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:

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

[Zeko]

Hmm, danke dafür. Aber müsstest du nicht mal prüfen, ob der Port wirklich offen ist? Denn so wie ich das da rauslese verbindet der sich zu einem Port und fügt die Portnummer der Listbox zu. Das macht aber in meinen Augen nicht soviel Sinn. Denn es findet keine Überprüfung statt, dass die Verbindung auch erfolgreich war.

[lycaner]

doch funzt da der beweiss: