portscanner.vbs

chris cross

hey leutz

ich habe ein kleines problem bei einem meiner scripts

versteht jemand was von vbscript?


ich schreibe gerade einen portscanner, keine bange, nicht zum cracken oder so,
sondern um sicherheitslücken zu entdecken usw.

das ist mein bisheriger script:



Dim i As Integer
Private Sub Command1_Click()
For i = 1 To 65535
Winsock1.RemotePort = i
Text1.Text = i
Winsock1.Connect
Next i

Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1"
End Sub

Private Sub Winsock1_Connect()
Winsock1.Close
MsgBox "Port :" & i
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Text1.Text = "Error"
End Sub

aber er beinhaltet fehler
kann mir jemand sagen was ich falsch gemacht habe


Danke im voraus

C-C