vbs的xmlHttp实用程序的经典函数
Set xmlHttp = CreateObject(“microsoft.xmlhttp”)
Set oShell = CreateObject(“WScript.Shell”)
sCurrDir = oShell.CurrentDirectory
Function GetPage(Method,Url,Async,PostContent,FileName)
xmlHttp.open Method,Url,Async
If Method = “POST” Then
xmlhttp.setRequestHeader “Content-Type”,”application/x-www-form-urlencoded”
xmlhttp.setRequestHeader “Content-Length”,Len(PostContent)
End If




