FTP Online Tester........

hmm.. parserfejl på mail adressen?

xero > Jaaa Det er eksperten der ikke kan tage så lange mail adresser :(

Hvis du har en Command button ved navn \'Go\' og en WinSock kontrol ved navn \'WSock\' på din form, tester flg. kode for om en given server er online, når du klikker på Go. Du skal bare sætte en løkke ind, så du kører koden under Command_Click flere gange, men med ændret IP, og så indsætte din egen kode under Select...Case i stedet for de MsgBox\'e jeg har lavet:


Private Declare Function GetTickCount Lib \"kernel32\" () As Long
Dim IP As String
Dim t1 As Long
Dim t2 As Long
Dim Port As Long
Dim Wait As Byte
Dim TimeOut As Long

Private Sub Go_Click()

IP = \"ftp.mobilixnet.dk\"
Port = 21
TimeOut = 2000

WSock.RemoteHost = IP
WSock.RemotePort = Port

t1 = GetTickCount
Wait = 0
WSock.Connect
While Wait = 0
    DoEvents
    t2 = GetTickCount - t1
    Debug.Print \"wait\", t2
    If t2 > TimeOut Then Wait = 2
Wend

Select Case Wait
    Case 1
        \'forbindelse er oprettet
        MsgBox \"Forbindelsen til serveren \" + IP + \", port \" + CStr(Port) _
          + \" blev oprettet på \" + CStr(t2) + \" millisekunder.\", vbInformation, \"Success!!\"
    Case 2
        \'forbindelse ej oprettet
        MsgBox \"Forbindelsen til serveren \" + IP + \", port \" + CStr(Port) + \" kunne ikke oprettes.\" _
          + vbCrLf + \"(T=\" + CStr(t2) + \" millisekunder.\", vbInformation, \"Fejl!!\"
    Case Else
        MsgBox \"Programmet er stødt på en uforudset fejl. Server status ukendt.\" + vbCrLf _
          + IP + \", port \" + CStr(Port) + \", T=\" + CStr(t2) + \" millisekunder\"
End Select

WSock.Close

End Sub

Private Sub WSock_Connect()
Wait = 1
End Sub

... og du kan selvflg. fjerne Debug.Print linien.

Kan det bruges?

Hved du hvad du er driis ?

ved even

Næhhh ?

Genial !!!!!

Du skal selv følgelig have de 300 Point :)