| Forum: ASP.NET |
Thema:
Re: Ports überprüfen |
Von:
G. Guest (
04.02.2004 23:03) |
Hab das ganze mal für FTp server geschrieben, tut aber nix zur Sache:
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Integer, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Integer) As Integer
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Integer, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Integer, ByVal lFlags As Integer, ByVal lContext As Integer) As Integer
Public Function check_ftp(ByVal IP As String, ByVal Port As String, ByVal User As String, ByVal pwd As String) As Boolean
Dim lngINetConn As Object
Dim lngINet As Object
lngINet = InternetOpen("MyFTP Control", 1, vbNullString, vbNullString, 0)
lngINetConn = InternetConnect(lngINet, IP, Int(Port), User, pwd, 1, 0, 0)
If lngINetConn Then
check_ftp = True
Else
check_ftp = False
End If
End Function
Ist sicher net die eleganteste Methode, funzt aber.
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
