[英]VB.NET http response
我正在嘗試將2個變量發布到php腳本中,然后返回網站上顯示的文本。
我是VB6,我是通過以下方式完成的,它工作得很好。 有人可以告訴我如何在VB.NET中執行此操作嗎?
Public Function GetHTTPResponse() As String
Dim sPost$
sPost$ = "http://www.somedomain.com/somescript.php"
sPost$ = sPost$ & "?variable1=MYVAR1"
sPost$ = sPost$ & "&variable2=MYVAR2"
'=======================================================
'"?" Prefix 1st Variable, "&" prefix for subsequent vars
'=======================================================
Dim iPos&
iPos = InStr(sPost, "?")
If (iPos = 0) Then
Exit Function
End If
Dim sDomain$
sDomain$ = Left$(sPost, (iPos - 1))
'====================================
'Pack the post data into a byte array
'====================================
Dim sPostData As String
sPostData = Right$(sPost, Len(sPost) - iPos)
Debug.Print sPostData
Dim bytpostdata() As Byte
pBuildPostData bytpostdata(), sPostData
'=============================
'Write the byte into a variant
'=============================
Dim varPostData As Variant
varPostData = bytpostdata
'=================
'Create the Header
'=================
Dim sHeader$
sHeader = "application/x-www-form-urlencoded" + Chr(10) + Chr(13)
'=============
'Post the data
'=============
Dim xmlhttp As Object
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST", sDomain, False
xmlhttp.setRequestHeader "Content-Type", sHeader
xmlhttp.sEnd varPostData
Dim sRet$
sRet = xmlhttp.responseText
GetHTTPResponse = sRet
End Function
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.