Msxml2.XMLHTTP发送数据函数
Function Send(url)
set xmlhttp=Createobject("Msxml2.XMLHTTP")
xmlhttp.SetTimeOuts 10000,10000,15000,15000
xmlhttp.open "Get",Url,False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.Send
if Err.number=0 then
Result=xmlhttp.responseText
else
Result="Error"
end if
set xmlhttp=nothing
Send=Result
End Function
直接调用send即可，可以采集远程网址的内容或发送数据到远程网址
精彩图集