chemthan Posted November 30, 2011 Share Posted November 30, 2011 (edited) We have the code : #include <Winhttp.au3> Global $HTTP = ObjCreate("winhttp.winhttprequest.5.1") Func _HTTPRequest($HTTP, $Method, $URL, $data = "", $Return = "", $Cookie = "") $HTTP.Open($Method, $URL, False) If $Method = "POST" Then $HTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") If $Cookie <> "" Then $HTTP.SetRequestHeader("Cookie", $Cookie) $HTTP.SetRequestHeader('Accept', 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8') $HTTP.SetRequestHeader('User-Agent', 'Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.6) Gecko/20100625 Firefox/3.6.6') $HTTP.SetRequestHeader("Referer", "http://m.me.zing.vn/login") $HTTP.SetRequestHeader("Connection", "keep-alive") $HTTP.SetRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8") $HTTP.SetRequestHeader("Accept-Language", "en-us,en;q=0.5") $HTTP.SetRequestHeader("Accept-Charset", "ISO-8859-1,utf-8;q=0.7,*;q=0.7") $HTTP.SetRequestHeader("Keep-Alive", "115") $HTTP.Send($data) Switch $Return Case 1 Return $HTTP.Responsetext Case 2 Return $HTTP.ResponseBody Case 3 Return $HTTP.Getallresponseheaders & $HTTP.Responsetext Case 4 Return $HTTP.Getallresponseheaders & $HTTP.Responsebody EndSwitch EndFunc ;==>_HTTPRequest $id = "autoit123456" $pw = "123456" $data = _HTTPRequest($HTTP, "POST", "https://sso2.zing.vn/index.php?method=login", "http://sso2.zing.vn/index.php?method=login&pid=25&u1=http%3A%2F%2Flogin.me.zing.vn%2Flogin%2Fsuccess%3Furl%3Dhttp%3A%2F%2Fme.zing.vn&fp=http%3A%2F%2Flogin.me.zing.vn%2Flogin%2Ffail%3Furl%3Dhttp%3A%2F%2Fme.zing.vn&u=" & $id & "&p=" & $pw, 3) MsgBox(0, "", $data) When run this code on Windows xp then I obtained cookie of header, but when run one on Windows 7 then error: The requested action with this object has failed. Why? Who can help me? Edited November 30, 2011 by chemthan Link to comment Share on other sites More sharing options...
frank10 Posted November 30, 2011 Share Posted November 30, 2011 I don't know if it's related with your problem, but I get the same error using the latest beta version with an object created by PacketX. While if I switch to autoit official version, with the same code, it works well. Try to see if the autoit versions in the two pc are the same, official non beta. Link to comment Share on other sites More sharing options...
chemthan Posted November 30, 2011 Author Share Posted November 30, 2011 (edited) I used version 3.3.6.1. I think it's winhttp.dll in windows 7 and windows xp. Edited November 30, 2011 by chemthan Link to comment Share on other sites More sharing options...
frank10 Posted November 30, 2011 Share Posted November 30, 2011 (edited) You can look at WinInet, you'll find similar func. I use Wininet in W7 and it works well. BTW, I have 3.3.5.6 official version. Edited November 30, 2011 by frank10 Link to comment Share on other sites More sharing options...
chemthan Posted December 1, 2011 Author Share Posted December 1, 2011 You can look at WinInet, you'll find similar func.I use Wininet in W7 and it works well.BTW, I have 3.3.5.6 official version.Thanks. I necessary that code. Please share it. Link to comment Share on other sites More sharing options...
frank10 Posted December 1, 2011 Share Posted December 1, 2011 With the search you find a thread about it: Link to comment Share on other sites More sharing options...
chemthan Posted December 1, 2011 Author Share Posted December 1, 2011 With the search you find a thread about it:Can you convert my code from winhttp to wininet? Link to comment Share on other sites More sharing options...
frank10 Posted December 1, 2011 Share Posted December 1, 2011 (edited) This is what I use to retrieve a string from a PHP server with a JSON query and it works well in W7: Local $hInternetOpen, $hInternetConnect, $hHttpOpenRequest, $hHttpSendRequest $url = YOUR URL $JSONdata = IF YOU HAVE SOME JSON DATA... _WinINet_Startup() If _WinINet_InternetAttemptConnect() Then $hInternetOpen = _WinINet_InternetOpen("Mozilla/5.0 Firefox/3.0.1", $INTERNET_OPEN_TYPE_DIRECT, 0, Default, Default) $hInternetConnect = _WinINet_InternetConnect($hInternetOpen, $INTERNET_SERVICE_HTTP, "YOUR SERVER.com", 0, 0, Default, Default, 0) $type = "Content-Type: application/x-www-form-urlencoded" & @CRLF $agent = "User-Agent: Mozilla/5.0b" & @CRLF $toSend = $type & $agent Local $hHttpOpenRequest = _WinINet_HttpOpenRequest($hInternetConnect, "POST", $url) $toSend &= 'Content-Length: ' & StringLen($JSONdata) local $hHttpSendRequest= _WinINet_HttpSendRequest($hHttpOpenRequest, $toSend, StringToBinary($JSONdata) ) $vReceived = Binary("") Do $vReceived &= _WinINet_InternetReadFile($hHttpOpenRequest, 1024) Until @error <> 0 Or Not @extended ConsoleWrite(BinaryToString($vReceived)); EndIf _WinINet_InternetCloseHandle($hInternetOpen) For other use, you must read that thread and the UDF doc. Edited December 1, 2011 by frank10 Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now