非常有用的操作Internet的API函數

2019-11-18 12:02:06

字體：大中小

來源：轉載

供稿：網友

　　必須安裝有Winnet.dll文件, 功能比WINSOCK強大. 但MSDN里的說明和例子都是C++的,連VB的都沒有. 我自己試探出這么一些功能.
　　先貼出來供大家參考.
　　
　　*所有函數假如運行失敗,返回 0 成功返回1或者句柄.
　　*參數大部分是用默認的,參數具體內容,查幫助文件
　　
　　1.檢查INTERNET是否連通
　　DECLARE Integer InternetGetConnectedState IN "wininet.dll" Integer,Integer
　　InternetGetConnectedState(0,0)
　　
　　2.自動撥號-使用默認的撥號連接 (IE的INTERNET連接設置里必須設置撥號連接, 另外還有個InternetDial函數,必須使用撥號連接名稱)
　　DECLARE Integer InternetAutodial IN "wininet.dll" Integer,Integer
　　InternetAutodial (0,0)
　　
　　3.自動中斷撥號或者連接
　　DECLARE Integer InternetAutodialHangup IN "wininet.dll" Integer
　　InternetAutodialHangup(0)
　　
　　4. 獲得一個連接句柄
　　Declare Integer InternetOpen IN "wininet.dll" String, Integer, String, String, Integer
　　lnOpen= internetOpen("MyFTP",1,null,null,0)
　　
　　5. 連接到FTP SERVER
　　Declare Integer InternetConnect in "wininet.dll" Integer,String,Integer,String, String, Integer, Integer, Integer
　　lnConn=InternetConnect(lnOpen, "ftp.microsoft.com",0 , "anonymous", "aaaaa@yahoo.com", 1, 0, 0)
　　
　　6. 下載一個文件. 還有不少FTP或者HTTP的操作文件或頁面的函數. 有愛好者自己去試
　　Declare Integer FtpGetFile in "wininet.dll" Integer, String, String, Integer, Integer,Integer,Integer
　　? FtpGetFile(lnConn,''/bussys/readme.txt'',''c:/Temp/msreadme.txt'',0,0,1,0)
　　
　　7. 中斷連接
　　Declare Integer InternetCloseHandle In "wininet.dll" Integer
　　InternetCloseHandle(lnConn)
　　
　　下面是WININET.DLL里大部分的API函數,是用VB格式的聲明:
　　
　　Declare Function GetPRocessHeap Lib "kernel32" () As Long
　　Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
　　Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long
　　
　　Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" ( _
　　hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
　　Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" ( _
　　hpvDest As Long, hpvSource As Any, ByVal cbCopy As Long)
　　
　　Public Const ERROR_NO_MORE_FILES = 18
　　
　　Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
　　(ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long
　　
　　Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
　　(ByVal hFtpsession As Long, ByVal lpszSearchFile As String, _
　　lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
　　
　　Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
　　(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
　　ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _
　　ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
　　
　　Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
　　(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
　　ByVal lpszRemoteFile As String, _
　　ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
　　
　　Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" _
　　(ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
　　Public Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" _
　　(ByVal hFtpSession As Long, ByVal lpszDirectory As String, ByRef lpdwCurrentDirectory As Long) As Boolean
　　'' Initializes an application''s use of the Win32 Internet functions
　　Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
　　(ByVal sAgent As String, ByVal l accessType As Long, ByVal sProxyName As String, _
　　ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
　　
　　'' Opens a HTTP session for a given site.
　　Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
　　(ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
　　ByVal sUsername As String, ByVal sPassWord As String, ByVal lService As Long, _
　　ByVal lFlags As Long, ByVal lContext As Long) As Long
　　
　　Public Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" ( _
　　lpdwError As Long, _
　　ByVal lpszBuffer As String, _
　　lpdwBufferLength As Long) As Boolean
　　
　　'' Type of service to access.
　　
　　'' Opens an HTTP request handle.
　　Public Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" _
　　(ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, _
　　ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
　　
　　'' Sends the specified request to the HTTP server.
　　Public Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" (ByVal _
　　hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal sOptional As _
　　String, ByVal lOptionalLength As Long) As Integer
　　
　　
　　'' Queries for information about an HTTP request.
　　Public Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" _
　　(ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, _
　　ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer
　　
　　'' InternetErrorDlg
　　Public Declare Function InternetErrorDlg Lib "wininet.dll" _
　　(ByVal hWnd As Long, ByVal hInternet As Long, ByVal dwError As Long, ByVal dwFlags As Long, ByVal lppvData As Long) As Long
　　
　　Public Declare Function GetDesktopWindow Lib "user32.dll" () As Long
　　
　　'' The possible values for the lInfoLevel parameter include:
　　
　　'' Reads data from a handle opened by the HttpOpenRequest function.
　　Public Declare Function InternetReadFile Lib "wininet.dll" _
　　(ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, _
　　lNumberOfBytesRead As Long) As Integer
　　
　　Public Declare Function HttpSendRequestEx Lib "wininet.dll" Alias "HttpSendRequestExA" _
　　(ByVal hHttpRequest As Long, lpBuffersIn As INTERNET_BUFFERS, ByVal lpBuffersOut As Long, _
　　ByVal dwFlags As Long, ByVal dwContext As Long) As Long
　　
　　Public Declare Function HttpEndRequest Lib "wininet.dll" Alias "HttpEndRequestA" _
　　(ByVal hHttpRequest As Long, ByVal lpBuffersOut As Long, _
　　ByVal dwFlags As Long, ByVal dwContext As Long) As Long
　　
　　Public Declare Function InternetWriteFile Lib "wininet.dll" _
　　(ByVal hFile As Long, ByVal sBuffer As String, _
　　ByVal lNumberOfBytesToRead As Long, _
　　lNumberOfBytesRead As Long) As Integer
　　
　　Public Declare Function FtpOpenFile Lib "wininet.dll" Alias _
　　"FtpOpenFileA" (ByVal hFtpSession As Long, _
　　ByVal sFileName As String, ByVal lAccess As Long, _
　　ByVal lFlags As Long, ByVal lContext As Long) As Long
　　Public Declare Function FtpDeleteFile Lib "wininet.dll" _
　　Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, _
　　ByVal lpszFileName As String) As Boolean
　　
　　Public Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" _
　　(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByVal lBufferLength As Long) As Integer
　　
　　Public Declare Function InternetSetOptionStr Lib "wininet.dll" Alias "InternetSetOptionA" _
　　(ByVal

上一篇：設計自己的printpreviewdialog

下一篇：開發技巧：Java打印程序設計全攻略