|
|
|
|
DEF FNlastresponseinfo LOCAL bufferlength%, buffer%, wininet%, iglri%, dwerror% bufferlength% = 255 DIM buffer% LOCAL bufferlength% SYS "LoadLibrary", "WININET.DLL" TO wininet% SYS "GetProcAddress", wininet%, "InternetGetLastResponseInfoA" TO iglri% SYS iglri%, ^dwerror%, buffer%, ^bufferlength% SYS "FreeLibrary", wininet% = $$buffer%
|
|
|
SYS `InternetConnect`, hOpen%, "ServerName", FTP_PORT, \ \ "Username", "Password", SERVICE_FTP, _INTERNET_FLAG_PASSIVE, 0 \ \ TO hConnection%