forward global type n_cst_wininet from nonvisualobject end type end forward
type FileTime from structure ulong LowDateTime ulong HighDateTime end type
type WIN32_FIND_DATA from structure unsignedlong fileattributes filetime creationtime filetime lastaccesstime filetime lastwritetime unsignedlong filesizehigh unsignedlong filesizelow unsignedlong reserved0 unsignedlong reserved1 character filename[260] character alternatefilename[14] end type
global type n_cst_wininet from nonvisualobject autoinstantiate end type
type prototypes Function boolean InternetAutodial (ulong dwFlags, ulong hWndParent) Library "WININET.DLL" Function boolean InternetAutodialHangup (ulong dwReserved) Library "WININET.DLL" Function boolean InternetCloseHandle (ulong hInternet) Library "WININET.DLL" Function ulong InternetConnect (ulong hInternet, ref string lpszServerName, long nServerPort, ref string lpszUserName, ref string lpszPassword, ulong dwService, ulong dwFlags, ref ulong dwContext) Library "WININET.DLL" Alias for "InternetConnectA" Function ulong InternetDial (ulong hWndParent, ref string lpszConnectoid, ulong dwFlags, ref ulong lpdwConnection, ulong dwReserved) Library "WININET.DLL" Function ulong InternetGetConnectedState (ref ulong lpdwFlags, ulong dwReserved) Library "WININET.DLL" Function ulong InternetGetLastResponseInfo (ref ulong lpdwError, ref string lpszBuffer, ref ulong lpdwBufferLength) Library "WININET.DLL" Alias for "InternetGetLastResponseInfoA" Function ulong InternetHangUp (ulong dwConnection, ulong dwReserved) Library "WININET.DLL" Function ulong InternetOpen (ref string lpszAgent, ulong dwAccessType, ref string lpszProxy, ref string lpszProxyBypass, ulong dwFlags) Library "WININET.DLL" Alias for "InternetOpenA" Function ulong InternetQueryDataAvailable (ulong hFile, ref ulong lpdwNumberOfBytesAvailable, ulong dwFlags, ulong dwContext) Library "WININET.DLL" Function boolean InternetSetOption (ulong hInternet, ulong dwOption,ref string lpBuffer, ulong dwBufferLength) Library "WININET.DLL" Alias for "InternetSetOptionA" Function ulong InternetOpenUrl (ulong hInternet, ref string lpszUrl, ref string lpszHeaders, ulong dwHeadersLength, ulong dwFlags, ref ulong dwContext) Library "WININET.DLL" Alias for "InternetOpenUrlA" Function ulong InternetReadFile (ulong hFile, ref string lpBuffer, ulong dwNumberOfBytesToRead, ref ulong lpdwNumberOfBytesRead) Library "WININET.DLL" Function ulong FtpFindFirstFile (ulong hConnect, ref string lpszSearchFile, ref WIN32_FIND_DATA lpFindFileData, ulong dwFlags, ref ulong dwContext) Library "WININET.DLL" Alias for "FtpFindFirstFileA" Function boolean FtpGetFile (ulong hConnect, ref string lpszRemoteFile, ref string lpszNewFile, boolean fFailIfExists, ulong dwFlagsAndAttributes, ulong dwFlags, ref ulong dwContext) Library "WININET.DLL" Alias for "FtpGetFileA" Function boolean FtpPutFile (ulong hConnect, ref string lpszLocalFile, ref string lpszNewRemoteFile, ulong dwFlags, ref ulong dwContext) Library "WININET.DLL" Alias for "FtpPutFileA" Function boolean FtpDeleteFile (ulong hConnect, ref string lpszFileName) Library "WININET.DLL" Alias for "FtpDeleteFileA" Function boolean FtpRenameFile (ulong hConnect, ref string lpszExisting, ref string lpszNew) Library "WININET.DLL" Alias for "FtpRenameFileA" Function ulong FtpOpenFile (ulong hConnect, ref string lpszFileName, ulong dwAccess, ulong dwFlags, ref ulong dwContext) Library "WININET.DLL" Alias for "FtpOpenFileA" Function boolean FtpCreateDirectory (ulong hConnect, ref string lpszDirectory) Library "WININET.DLL" Alias for "FtpCreateDirectoryA" Function boolean FtpRemoveDirectory (ulong hConnect, ref string lpszDirectory) Library "WININET.DLL" Alias for "FtpRemoveDirectoryA" Function boolean FtpSetCurrentDirectory (ulong hConnect, ref string lpszDirectory) Library "WININET.DLL" Alias for "FtpSetCurrentDirectoryA" Function boolean FtpGetCurrentDirectory (ulong hConnect, ref string lpszCurrentDirectory, ref ulong lpdwCurrentDirectory) Library "WININET.DLL" Alias for "FtpGetCurrentDirectoryA" Function boolean FtpCommand (ulong hConnect, boolean fExpectResponse, ulong dwFlags, ref string lpszCommand, ref ulong dwContex, ref ulong phFtpCommand) Library "WININET.DLL" Alias for "FtpCommandA" Function boolean InternetFindNextFile (ulong hFind, ref WIN32_FIND_DATA lpvFindData) Library "WININET.DLL" Alias for "InternetFindNextFileA" Function ulong HttpOpenRequest (ulong hConnect, ref string lpszVerb, ref string lpszObjectName, ref string lpszVersion, ref string lpszReferrer, ref string lplpszAcceptTypes[], ulong dwFlags, ref ulong dwContext) Library "WININET.DLL" Alias for "HttpOpenRequestA" Function ulong HttpSendRequest (ulong hRequest, ref string lpszHeaders, ulong dwHeadersLength, ref string lpOptional, ulong dwOptionalLength) Library "WININET.DLL" Alias for "HttpSendRequestA"