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)
0条评论