|
在excel中写了一段vb脚本,提取excel数据,并发送到web服务器,等待返回结果
现在想测试一下性能,请问一下,如何录制这个脚本,谢谢!
Dim xmlhttp As New xmlhttp
Dim errorText As String
'xmlhttp.Open "POST", "http://10.30.99.119/fmsweb/sie/boe/web/botreceiver.aspx", False
xmlhttp.Open "POST", "http://localhost/fmsweb/sie/boe/web/botreceiver.aspx", False
xmlhttp.setRequestHeader "content-length", Len(str)
xmlhttp.setRequestHeader "Content-Type", "application/zip"
xmlhttp.send str
errorText = xmlhttp.responseText
If Left(errorText, 1) = "Y" Then
MsgBox "提单成功!单据号:" + Right(errorText, Len(errorText) - 1)
Else
MsgBox Right(errorText, Len(errorText) - 1)
End If |
|