Any ideas?
Code: Select all
#SingleInstance, Force
#Persistent
Data := "companyName=&address1=1600+Pennsylvania+Ave+NW&address2=&city=DC&state=WA&zip=20500"
WebRequest := ComObjCreate("WinHttp.WinHttpRequest.5.1")
WebRequest.Open("POST", "http://tools.usps.com/tools/app/ziplookup/zipByAddress")
WebRequest.SetRequestHeader("Host", "tools.usps.com")
WebRequest.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:62.0) Gecko/20100101 Firefox/62.0")
WebRequest.SetRequestHeader("Accept", "application/json, text/javascript, */*; q=0.01")
WebRequest.SetRequestHeader("Accept-Language", "en-US,en;q=0.5")
WebRequest.SetRequestHeader("Accept-Encoding", "gzip, deflate, br")
WebRequest.SetRequestHeader("Referer", "https://tools.usps.com/zip-code-lookup.htm?byaddress")
WebRequest.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8")
WebRequest.SetRequestHeader("X-Requested-With", "XMLHttpRequest")
WebRequest.SetRequestHeader("Content-Length", StrLen(Data))
WebRequest.SetRequestHeader("DNT", "1")
WebRequest.SetRequestHeader("Connection", "keep-alive")
WebRequest.SetRequestHeader("Pragma", "no-cache")
WebRequest.SetRequestHeader("Cache-Control", "no-cache")
StrPut(Data, &Data, "", "UTF-8")
WebRequest.Send(Data)
Result := WebRequest.ResponseText
MsgBox, % Result
Code: Select all
---------------------------
New AutoHotkey Script.ahk
---------------------------
Error: 0x80072F7D -
Source: WinHttp.WinHttpRequest
Description: An error occurred in the secure channel support
HelpFile: (null)
HelpContext: 0
Specifically: Send
Line#
015: WebRequest.SetRequestHeader("X-Requested-With", "XMLHttpRequest")
016: WebRequest.SetRequestHeader("Content-Length", StrLen(Data))
017: WebRequest.SetRequestHeader("DNT", "1")
018: WebRequest.SetRequestHeader("Connection", "keep-alive")
019: WebRequest.SetRequestHeader("Pragma", "no-cache")
020: WebRequest.SetRequestHeader("Cache-Control", "no-cache")
022: StrPut(Data, &Data, "", "UTF-8")
---> 024: WebRequest.Send(Data)
026: Result := WebRequest.ResponseText
028: MsgBox,Result
029: Exit
030: Exit
030: Exit
Continue running the script?
---------------------------
Yes No
---------------------------