我想在hta里做一个post
如下:
Function sendpost(Url,user,psw,sendtext)
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "Post", Url, False, user, psw
http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
http.Send sendtext
sendpost = http.responseText
Set http= Nothing
End Function
但是运行时在 http.Open 一行报错。不知道怎么解决。
如下:
Function sendpost(Url,user,psw,sendtext)
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "Post", Url, False, user, psw
http.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"
http.Send sendtext
sendpost = http.responseText
Set http= Nothing
End Function
但是运行时在 http.Open 一行报错。不知道怎么解决。