Local lnSession, lnFTPSession Local lcHost, lnPort, lcUserName, lcPassword lcHost = "validftp.com" lnPort = 21 lcUserName = "validusername" lcPassword = "validpassword" Store 0 To lnSession, lnFTPSession Declare Integer InternetOpen In WinINet.Dll ; String cAgent, ; Integer nType, ; String cProxy, ; String cBypass, ; Integer nFlags Declare Integer InternetConnect In WinINet.Dll ; Integer nInternetSession, ; String cServer, ; Integer nPort, ; String cUserName, ; String cPassword, ; Integer nService, ; Integer nFlags, ; Integer nContext Declare Integer InternetCloseHandle In WinINet.Dll ; Integer nInternetHandle lnSession = InternetOpen("Wininet",0,.Null.,.Null.,0) If Not lnSession = 0 Then lnFTPSession = InternetConnect(lnSession, ; lcHost, ; lnPort, ; lcUserName, ; lcPassword, ; 1, 0x08000000, 0) Endif If lnFTPSession = 0 Then Messagebox("Error while Connecting to Host...", 16, "Connect") Else Messagebox("Connected to Host...", 48, "Connect") InternetCloseHandle(lnFTPSession) Endif If Not lnSession = 0 Then InternetCloseHandle(lnSession) Endif Clear Dlls "InternetOpen" Clear Dlls "InternetConnect" Clear Dlls "InternetCloseHandle"