vb调用winInetAPI接口post数据到指定的url

" VB调用winInet API接口向指定的url发送数据"

&急性；这个模块称为modWinInet.bas。使用SplitAddr()函数获取PostInfo的正确格式的地址。

选项显式

&急性；作者:萨姆·休吉尔
& acute；电子邮件:sam@vbsquare.com

私有声明函数internet open Lib " wininet . dll " _
Alias " internet open a " _
(ByVal lpszCallerName为String，_
ByVal dwAccessType为Long，_
ByVal lpszProxyName为String，_
ByVal lpszProxyBypass为String，_
ByVal dwFlags为Long)

私有声明函数internet connect Lib " wininet . dll " _
Alias " internet connecta " _
(ByVal hInternetSession为Long，_
ByVal lpszServerName为String，_
ByVal nProxyPort为Integer，_
ByVal lpszUsername为String，_
ByVal lpszPassword为String，_
ByVal dwService为Long，_
ByVal dwFlags为Long，

私有声明函数InternetReadFile Lib " wininet . dll " _
(ByVal hFile为Long，_
ByVal sBuffer为String，_
ByVal lNumBytesToRead为Long，_
lnumbrofbytseread为Long)为Integer

private Declare Function HttpOpenRequest Lib " wininet . dll " _
Alias " HttpOpenRequestA " _
(ByVal hInternetSession为Long，_
ByVal lpszVerb为String，_
ByVal lpszObjectName为String，_
ByVal lpszVersion为String，_
ByVal lpszReferer为String，_
ByVal lpsaccepttypes为Long，_

private Declare Function HttpSendRequest Lib " wininet . dll " _
Alias " HttpSendRequest " _
(ByVal hHttpRequest为Long，_
ByVal headers为String，_
ByVal lHeadersLength为Long，_
ByVal可选为String，_
ByVal loportionlength为Boolean

私有声明函数InternetCloseHandle Lib " wininet . dll " _
(ByVal hInternetHandle As Long)为布尔值

私有声明函数HttpAddRequestHeaders Lib " wininet . dll " _
Alias " HttpAddRequestHeadersA " _
(ByVal hHttpRequest为长整型，_
ByVal headers为字符串，_
ByVal lHeadersLength为长整型，_
ByVal lModifiers为长整型)

公共函数PostInfo$(srv$，port$，script$，postdat$)

Dim hInternetOpen As Long
Dim hInternetConnect As Long
Dim hHttpOpenRequest As Long
Dim bRet As Boolean

hInternetOpen = 0
hInternetConnect = 0
hHttpOpenRequest = 0

& acute；使用注册表访问设置。
Const INTERNET _ OPEN _ TYPE _ PRECONFIG = 0
hInternetOpen = INTERNET OPEN(" http generic "，_
INTERNET _ OPEN _ TYPE _ PRECONFIG，_
vbNullString，_
vbNullString，_
0)