vbs模拟http请求（get及post）

get请求51Testing软件测试网D9M.sJ"C7@

pA$m/L _C0模拟发送http请求到百度51Testing软件测试网F8|.Dm"O.EV'bIq0iQ
Dim http51Testing软件测试网#z E2ayKW
Set http = CreateObject("Msxml2.ServerXMLHTTP")
PT0h)GEp_s"]0http.open "GET",http://www.baidu.com, False51Testing软件测试网yT6u{h:sI{bH3o
http.send
}?]LJ#BH)w0msgbox http.status
x+s4kz6S;S:`0msgbox http.responsetext

#fU{
R%n{r8m(A0post请求51Testing软件测试网9x$GQ C#LYX u

set Http=createobject("MSXML2.XMLHTTP")
!l%m1II_z+Q0Http.Open "POST", url, False
i`
L!e0N/l0http.setRequestHeader "CONTENT-TYPE","application/x-www-form-urlencoded"51Testing软件测试网&E9IW;sX B z$H.u\
http.Send “str”51Testing软件测试网p$q2OCh%z,s;W7V
html =http.responsetext
T_e/lY:W9eBh6[2k0msobox   html51Testing软件测试网*aCPA'}$]Tn

感受到vbs的强大，有时测试时，需要提交很多有字段的表单来造数据，用vbs直接发送http post请求就可以，而且不需要依赖工具。51Testing软件测试网y4?8wK&M&M1l5C