Port check

[yellowpixel]

Hallo,

Ich habe auf einem anderen PC ein paar Server-Programme laufen und ich wollte eigentlich mittels einem VB-Prog testen, ob diese auch laufen.

Soweit mein Code:

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.1.37"
Winsock1.RemotePort = "8000"
Winsock1.Connect

Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    Status = Winsock1.State
    Label1.Caption = Winsock1.State
If Status = 7 Then
    Picture1.BackColor = &HC000&
    Winsock1.Close
    Timer1.Interval = 0
ElseIf Status = 9 Then
    Picture1.BackColor = &HFF&
    Winsock1.Close
    Timer1.Interval = 0
Else
    Picture1.BackColor = &H80FF&
End If
End Sub

Mein Problem; das ganze funktioniert nur beim apache bzw. Port 80 und 8080 (WWWinamp). Bei den Restlichen gibt er mir den Fehler "9" vom winsock1.state aus. Was mach ich falsch bzw. wie gehts einfacher?!

Danke

 

[yellowpixel]

Hat keiner eine Idee?!

 

[Shakie]

Nein, keiner hat eine Idee...