1. IF NOT A_IsAdmin
2. {
3.    Run *RunAs "%A_ScriptFullPath%"
4.    ExitApp
5. }
6.  
7. #SingleInstance Force
8.  
9.  
10. xbutton1::
11. ToolTip, loading...
12. ;We use this because wonderful COM often causes errors. Like GoBack on the first page in history gives an error.
13. ;Once you get used to this function, you will save many hours by not having to learn "the COM way" for almost everthing.
14. ;Maybe it is just me, but I would like to see a chm help file for COM. I hate pouring through 20 pages of
15. ;forum posts at every turn.
16. ;BTW: Use the site:ahkscript.org ??? or site:autohotkey.com ??? with google to have a better chance at searching.  
17. ComObjError(false)
18.  
19. ;The example myScript var can be a very very long javascript.
20. myScript =
21. (
22. var1 = document.getElementById(spanId);
23. element = document.getElementById(spanId);
24. )
25. ;<span id="inv_coins">980 coins</span>
26. /*
27. IE_InjectJS(myHwnd, "window.onbeforeunload = null;", "", "Stop", "Quit")  ;This uses the 4th and 5th parameters
28. to allow some simple COM commands to be executed on the IE webpage both before the (javascript/get vars) is called
29. and/or after the (javascript/get vars) are called.  
30. They can be used to simply call a few COM things like Stop, Quit, GoBack, etc. It moves some simple COM
31. calls out to the function call, which can be anywhere in the script. COM commands can be important too.  
32. */
33. ;This returns 3 vars and injects myScript javascript and executes 1 COM command at the end(COM_to_Call2)(5th parameter).
34. myReturnVar := IE_InjectJS(WinExist("ahk_class IEFrame"), myScript, "document.title,element,var1,message""element")
35.  
36. ;This is my favorite way to get the Title and URL of a webpage.
37. ;myReturnVar := IE_InjectJS(WinExist("ahk_class IEFrame"), myScript, "document.title,location.href", "", "")
38.  
39. ;This only excutes a COM command (GoBack)(Twice) at the end. No vars are returned.
40. ;IE_InjectJS(WinExist("ahk_class IEFrame"), "", "", "", "GoBack,GoBack")
41.  
42. ;This uses myHWND directly which can be obtained many ways.
43. ;WinGet, myHWND, ID, ahk_class IEFrame
44. ;myHWND := WinExist("A")
45. ;IE_InjectJS(myHWND, "", "", "", "GoBack,GoBack")
46.  
47. ;MsgBox, 4096,, myReturnVar is: %myReturnVar%, 5
48.  
49. ;if Vars are being returned, this will parse them out and display their values.
50. if myReturnVar
51. {
52. Loop, Parse, myReturnVar, `,
53. {
54. if A_Index = 1
55. myVar1 = %A_LoopField%
56. if A_Index = 2
57. myVar2 = %A_LoopField%
58. if A_Index = 3
59. myVar3 = %A_LoopField%
60. if A_Index = 4
61. myVar4 = %A_LoopField%
62. }
63. ToolTip,myVar1 is: %myVar1%`nmyVar2 is: %myVar2%`nmyVar3 is: %myVar3%`nmyVar4 is: %myVar4%`nmyVar5 is: %myVar5% %var1%
64. }
65.  
66. return ;End F1::
67.  
68.  
69. ;COM_to_Call[1|2] can be a [,] delimited string of simple COM commands like GoBack,GoBack etc.
70. ;VarNames_to_Return can be Vars in the webpage, or webpage contents like document.title, location.href etc.
71. ;All parameters are optional except hWnd_MainWindow. Thanks to jethrow.
72. IE_InjectJS(hWnd_MainWindow, JS_to_Inject="", VarNames_to_Return="", COM_to_Call1="", COM_to_Call2="") {
73.    
74.    window := _win(hWnd_MainWindow)
75.    
76.    wb := WBGet("ahk_id" hWnd_MainWindow)
77.    
78.    if COM_to Call1
79.    {
80.     ;MsgBox, 4096,, COM_to_Call1 is: %COM_to_Call1%, 4      
81.     Loop, Parse, COM_to_Call1, `,
82.     {
83.     ;MsgBox, 4096,, A_LoopField is: %A_LoopField%, 4
84.     wb[A_LoopField]    
85.     }    
86.    }    
87.            
88.    if JS_to_Inject
89.       window.execScript(JS_to_Inject)
90.            
91.    if VarNames_to_Return
92.       Loop, Parse, VarNames_to_Return, `,
93.       {
94.          Loop, Parse, A_LoopField, .
95.             result := (A_Index=1? window:result)[A_LoopField]
96.          Ret .= result ","
97.       }
98.  
99.    if COM_to_Call2
100.    {
101.     ;MsgBox, 4096,, COM_to_Call2 is: %COM_to_Call2%, 4                
102.     Loop, Parse, COM_to_Call2, `,
103.     {
104.     ;MsgBox, 4096,, A_LoopField is: %A_LoopField%, 4
105.     wb[A_LoopField]    
106.     }              
107.    }  
108.  
109.    return SubStr(Ret,1,-1)
110. }
111.  
112. _win(hwnd, Svr#=1) {               ;// based on ComObjQuery docs
113.  
114.    static msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
115.         , IID1 := "{0002DF05-0000-0000-C000-000000000046}"      ; IID_IWebBrowserApp
116.                 , IID2 := "{332C4427-26CB-11D0-B483-00C04FD90119}"      ; IID_IHTMLWindow2
117.  
118.    SendMessage msg, 0, 0, Internet Explorer_Server1, ahk_id %hwnd%
119.  
120.    if (ErrorLevel != "FAIL") {
121.  
122.       lResult:=ErrorLevel, VarSetCapacity(GUID,16,0)
123.  
124.       if DllCall("ole32\CLSIDFromString", "wstr","{332C4425-26CB-11D0-B483-00C04FD90119}", "ptr",&GUID) >= 0 {
125.  
126.          DllCall("oleacc\ObjectFromLresult", "ptr",lResult, "ptr",&GUID, "ptr",0, "ptr*",pdoc)
127.  
128.                         return  ComObj(9,ComObjQuery(pwb:=ComObjQuery(pdoc,IID1,IID1),IID2,IID2),1)
129.                                 ,       ObjRelease(pdoc), ObjRelease(pwb)
130.  
131.       }
132.  
133.    }
134.  
135. }
136.  
137. WBGet(WinTitle="ahk_class IEFrame", Svr#=1) {               ;// based on ComObjQuery docs
138.    static msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
139.         , IID := "{0002DF05-0000-0000-C000-000000000046}"   ;// IID_IWebBrowserApp
140. ;//     , IID := "{332C4427-26CB-11D0-B483-00C04FD90119}"   ;// IID_IHTMLWindow2
141.    SendMessage msg, 0, 0, Internet Explorer_Server%Svr#%, %WinTitle%
142.    if (ErrorLevel != "FAIL") {
143.       lResult:=ErrorLevel, VarSetCapacity(GUID,16,0)
144.       if DllCall("ole32\CLSIDFromString", "wstr","{332C4425-26CB-11D0-B483-00C04FD90119}", "ptr",&GUID) >= 0 {
145.          DllCall("oleacc\ObjectFromLresult", "ptr",lResult, "ptr",&GUID, "ptr",0, "ptr*",pdoc)
146.          return ComObj(9,ComObjQuery(pdoc,IID,IID),1), ObjRelease(pdoc)
147.       }
148.    }
149. }