- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我很难过为什么这不起作用似乎找不到任何问题。
这是代码。
Public Const MULTIPART_BOUNDARY = "speed"
Function getBalance() As String
Dim sEntityBody As String
Dim postBody() As Byte
Dim username As String
Dim password As String
username = CStr(frmMain.txtUser.text)
password = CStr(frmMain.txtPass.text)
sEntityBody = "--" & MULTIPART_BOUNDARY & vbCrLf
sEntityBody = sEntityBody & "Content-Disposition: form-data; name=""function""" & vbCrLf & vbCrLf & "balance" & vbCrLf
sEntityBody = sEntityBody & "--" & MULTIPART_BOUNDARY & vbCrLf
sEntityBody = sEntityBody & "Content-Disposition: form-data; name=""username""" & vbCrLf & vbCrLf & username & vbCrLf
sEntityBody = sEntityBody & "--" & MULTIPART_BOUNDARY & vbCrLf
sEntityBody = sEntityBody & "Content-Disposition: form-data; name=""password""" & vbCrLf & vbCrLf & password & vbCrLf
sEntityBody = sEntityBody & "--" & MULTIPART_BOUNDARY & "--" & vbCrLf
postBody = StrConv(sEntityBody, vbFromUnicode)
Dim xhr As Object
Set xhr = CreateObject("WinHttp.WinHttpRequest.5.1")
xhr.Option(WinHttpRequestOption_EnableRedirects) = False
If xhr Is Nothing Then Set xhr = CreateObject("WinHttp.WinHttpRequest")
If xhr Is Nothing Then Set xhr = CreateObject("MSXML2.ServerXMLHTTP")
If xhr Is Nothing Then Set xhr = CreateObject("Microsoft.XMLHTTP")
xhr.open "POST", "http://poster.example.com", False
xhr.setRequestHeader "User-Agent", "Alalala"
xhr.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & MULTIPART_BOUNDARY
xhr.setRequestHeader "Content-Length", Len(sEntityBody)
xhr.send "" + sEntityBody 'postBody 'URLEncode(sEntityBody)
If xhr.Status = 200 Then
getBalance = xhr.responseText
Else
frmMain.addToChatbox "Failed at getting response from blah ErrCode:" & xhr.Status
End If
End Function
<form
method="post"
action="http://poster.example.com/"
enctype="multipart/form-data">
<input type="hidden" name="function" value="balance">
<input type="text" name="username" value="blah">
<input type="text" name="password" value="blah">
<input type="submit" value="Send">
</form>
POST / HTTP/1.1..User-Agent: Alalala..Content-Type: multipart/form-data; boundary=speed..Content-Length: 233..Accept: /..Host: poster.example.com..Connection: Keep-Alive....--speed..Content-Dispostion: form-data; name="function"....balance..--speed..Content-Dispostion: form-data; name="username"....blah..--speed..Content-Dispostion: form-data; name="password"....blah..--speed--..
HTTP/1.1 200 OK..Date: Thu, 07 Oct 2010 20:31:20 GMT..Server: Apache..Content-Length: 0..Connection: close..Content-Type: text/html; charset=UTF-8....
最佳答案
拼写错误 内容配置必须是 内容配置是的,多亏了我已经受苦了 6?也许7个小时。
终于解决了
关于vb6 - Post 方法 + WinHttpRequest + multipart/form-data,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3885703/
我在 VB6 中使用 WebRequest 并且我将超时设置为“5000”(5 秒),但即使在 5 秒后它也没有超时,任何帮助表示赞赏。 x: Dim objWinHTTP Set objWinHTT
下面的代码在一个文件中完美运行,但是当我尝试在另一个文件中使用它时,我收到错误“未定义用户定义的类型”并且“http As New WinHttpRequest”被突出显示。这可能是什么原因突然不起作
我正在尝试使用 VBA 中的 WinHttpRequest 从在线 mySQL 服务器读取数据。 Dim objHTTP As New WinHttp.WinHttpRequest With objH
我正在使用 AHK 脚本发送一些 POST 请求。 我正在尝试获得超时响应,以便向用户弹出一些消息。 我不知道如何使用“SetTimeouts”方法和“WaitForResponse” 见下面的代码
我正在尝试使用 vba WinHttp.WinHttpRequest 向 kigo 的 api 发出请求, 我能够发送请求,但 WinHttpRequest 更改了内容类型添加 Charset=UTF
我试图使LINK FINDER和面临2个问题 问题1(已解决)::无法获取重定向页面的URL 通过使用 WinHttp.WinHttpRequest.5.1 解决了REFERNCE LINK 问题2(
我使用的程序运行 .VBS 脚本 那么,在 VBScript 中,如何处理 WinHttpRequest 对象的 OnResponseFinished 事件? Set oHTTP = CreateOb
如果使用 VBA 和 Excel 发生此事件,我想设置超时值并捕获它。到目前为止,我尝试使用 XMLHTTP60 和 WinHttpRequest: Set XMLHTTP = CreateO
是否有内置的 .NET 类可以替代 WinHttp.WinHttpRequest 或像 WinHttp.WinHttpRequest 一样工作? 谢谢! 最佳答案 有System.Net.HttpRe
我希望使用网页上的 API,目前有一个可以在 VBA 中运行的 VB 示例,并且希望可以在 Javascript 中创建等效的方法 Set http = CreateObject("WinHttp.W
你可以看到很多人在网站上使用鼠标点击和键盘模拟在浏览器窗口或使用 IE COM 来自动化,但对于某些应用程序,你不希望你的应用程序占用数百兆字节的 RAM 并使用大量 CPU呈现网站等的权力 所以问题
我想通过 VBA 和 WinHttp 库将时间序列的多行(测量值)发布到 InfluxDB,精度以秒为单位(精度 = s)。 当发布一个测量值时,一切正常,并且可以在数据库中找到测量值。 当使用\n
代码: var WinHttpReq: OleVariant; procedure TForm1.Button1Click(Sender: TObject); begin WinHttp
我正在运行一个调用函数以从服务器检索信息的宏。我正在使用“WinHttp.WinHttpRequest.5.1”进行连接。对于我 95% 的请求返回有效结果,该宏工作正常。但另外 5% 导致了以下错误
paypalfunctions.asp and expresscheckout.asp files 我希望得到帮助,如果没有帮助,那么可以雇用精通经典 ASP 和 PayPal 的开发人员来帮助我解决
这个问题在这里已经有了答案: WinHttpRequest gzip response parsing (1 个回答) 去年关闭。 我正在使用 Excel 2007 (12.0.4518.1014)
就在我终于明白 Msxml2.XMLHTTP 和 Msxml2.ServerXMLHTTP 的区别的时候 http://support.microsoft.com/kb/290761 XMLHTTP
我很难过为什么这不起作用似乎找不到任何问题。 这是代码。 Public Const MULTIPART_BOUNDARY = "speed" Function getBalance() As Stri
如果我发送超过 12 个 VIN,我会遇到一个问题(HTTP STATUS 400 Bad Request)使用代码解码 VIN,但如果我通过粘贴到网站发送超过 100 个的列表,我会得到结果。 我正
我正在使用 WinHttpRequest.5.1 对象在 excel 365 (16.0.11328.20562) vba 脚本上发出一些 https 请求。 我知道来自服务器的证书会发生错误,因为
我是一名优秀的程序员,十分优秀!