http发布功能 [英] http post functionality

问题描述

嗨 我已经制作了一个vb6应用程序.现在我要发布一些数据.所以请告诉我我该怎么做

解决方案

Dim __a一样长，__b一样长， __c只要长
昏暗bRet作为布尔值，lpszPostData作为字符串，sHeader作为字符串，sBuff作为字符串* 1024

__a = InternetOpen("test_post_data"，0，vbNullString，vbNullString，0)
如果__a<> 0然后
__b = InternetConnect(__ a，"domainname.com"，80，"，"，3，0，0)

如果__b<> 0然后
__c = HttpOpenRequest(__ b，"POST"，"/test.aspx"，"HTTP/1.0"，vbNullString，0，-2147483648#，0)

如果__c<> 0然后
sHeader =内容类型:应用程序/x-www-form-urlencoded"&vbCrLf
bRet = HttpAddRequestHeaders(__ c，sHeader，Len(sHeader)，-1610612736)

lpszPostData ="param1 ="¶m1&¶m2 ="¶m2
bRet = HttpSendRequest(__ c，vbNullString，0，lpszPostData，Len(lpszPostData))

如果bRet然后
如果(HttpQueryInfo(__ c，5，sBuff，1024，0)= 1)然后
"您可以在[sBuff]中获得页面的响应
如果结束
如果结束

bRet = InternetCloseHandle(__ c)
如果结束
bRet = InternetCloseHandle(__ b)
如果结束
bRet = InternetCloseHandle(__ a)
如果结束


''Yuo还必须在您的模块中包含api ...

hi i have make one vb6 application.now i want to post some data .so please tell me how can i do that

解决方案

Dim __a As Long, __b As Long, __c As Long
Dim bRet As Boolean, lpszPostData As String, sHeader As String, sBuff As String * 1024

__a = InternetOpen("test_post_data", 0, vbNullString, vbNullString, 0)
If __a <> 0 Then
__b = InternetConnect(__a, "domainname.com", 80, "", "", 3, 0, 0)

If __b <> 0 Then
__c = HttpOpenRequest(__b, "POST", "/test.aspx", "HTTP/1.0", vbNullString, 0, -2147483648#, 0)

If __c <> 0 Then
sHeader = "Content-Type: application/x-www-form-urlencoded" & vbCrLf
bRet = HttpAddRequestHeaders(__c, sHeader, Len(sHeader), -1610612736)

lpszPostData = "param1=" & param1 & "¶m2=" & param2
bRet = HttpSendRequest(__c, vbNullString, 0, lpszPostData, Len(lpszPostData))

If bRet Then
If (HttpQueryInfo(__c, 5, sBuff, 1024, 0) = 1) Then
''You can get response of page in [sBuff]
End If
End If

bRet = InternetCloseHandle(__c)
End If
bRet = InternetCloseHandle(__b)
End If
bRet = InternetCloseHandle(__a)
End If


'' Yuo must to include api in your module also...

这篇关于http发布功能的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！