想用AU3寫使用HTTP協(xié)議發(fā)送POST,google后在autoit的論壇找到了不錯(cuò)的方法。
有人說(shuō)用xmlhttp,調(diào)用ie,用winhttp等等,還是這個(gè)obj操作com的方法簡(jiǎn)單實(shí)用。autoit上的大神寫了個(gè)庫(kù),他命名為WinHttp2.au3。
庫(kù):
- #include-once
- Global Const $HTTP_STATUS_OK = 200
- Func HttpPost($sURL, $sData = "")
- Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
- $oHTTP.Open("POST", $sURL, False)
- If (@error) Then Return SetError(1, 0, 0)
- $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
- $oHTTP.Send($sData)
- If (@error) Then Return SetError(2, 0, 0)
- If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)
- Return SetError(0, 0, $oHTTP.ResponseText)
- EndFunc
- Func HttpGet($sURL, $sData = "")
- Local $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1")
- $oHTTP.Open("GET", $sURL & "?" & $sData, False)
- If (@error) Then Return SetError(1, 0, 0)
- $oHTTP.Send()
- If (@error) Then Return SetError(2, 0, 0)
- If ($oHTTP.Status <> $HTTP_STATUS_OK) Then Return SetError(3, 0, 0)
- Return SetError(0, 0, $oHTTP.ResponseText)
- EndFunc
POST方法:
- #include "WinHttp2.au3"
- Global $MD5 = HttpPost("http://www.afk-manager.ir/test/post.php", "password=WeWantThisAsMd5")
- MsgBox(64, "MD5", $MD5)
GET方法:
- #include "WinHttp.au3"
- Global $sGet = HttpGet("http://www.google.com/")
- FileWrite("Google.txt", $sGet)
更多相關(guān)文章
版權(quán)聲明:文章圖片資源來(lái)源于網(wǎng)絡(luò),如有侵權(quán),請(qǐng)留言刪除!!!
評(píng)論