[AHK]用HTML做ahk界面

;activex gui 2 - test  joedf - 2014/09/19
;http://ahkscript.org/boards/viewtopic.php?f=7&t=4588&p=26809#p26809
 ;~ >Read & Write> AHK
;~ AHK >> WebPage

#SingleInstance, off
OnExit,OnExit

HTML_page =
( Ltrim Join


    
        
    
    
        
Hello World
        1234567890-=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz!@#$^&*()_+|~
        

            
            
            
        
    

)

Gui Add, ActiveX, x0 y0 w640 h480 vWB, Shell.Explorer  ; The final parameter is the name of the ActiveX component.
WB.silent := true ;Surpress JS Error boxes
Display(WB,HTML_page)

;Wait for IE to load the page, before we connect the event handlers
while WB.readystate != 4 or WB.busy
    sleep 10

;Use DOM access just like javascript!
MyButton1 := wb.document.getElementById("MyButton1")
MyButton2 := wb.document.getElementById("MyButton2")
MyButton3 := wb.document.getElementById("MyButton3")
ComObjConnect(MyButton1, "MyButton1_") ;connect button events
ComObjConnect(MyButton2, "MyButton2_")
ComObjConnect(MyButton3, "MyButton3_")
Gui Show, w640 h480
return

GuiClose:
ExitApp
OnExit:
    FileDelete,%A_Temp%*.DELETEME.html ;clean tmp file
ExitApp

; Our Event Handlers
MyButton1_OnClick() {
    global wb
    MsgBox % wb.Document.getElementById("MyTextBox").Value
}
MyButton2_OnClick() {
    global wb
    FormatTime, TimeString, %A_Now%, dddd MMMM d, yyyy HH:mm:ss
    data := "AHK Version " A_AhkVersion " - " (A_IsUnicode ? "Unicode" : "Ansi") " " (A_PtrSize == 4 ? "32" : "64") "bit`nCurrent time: " TimeString
    wb.Document.getElementById("MyTextBox").value := data
}
MyButton3_OnClick() {
    MsgBox Hello world!
}
;------------------
Display(WB,html_str) {
    Count:=0
    while % FileExist(f:=A_Temp "" A_TickCount A_NowUTC "-tmp" Count ".DELETEME.html")
        Count+=1
    FileAppend,%html_str%,%f%
    WB.Navigate("file://" . f)
}

1. #NoEnv  
2. #SingleInstance focus  
3.   
4. Gui, Add, ActiveX, w700 h400 vWB, Shell.Explorer  
5. WB.Navigate(A_ScriptDir . "index.html")  
6. ; 重点来了  
7. ComObjConnect(WB, WB_events)   
8.   
9. Gui, Show  
10.   
11. Return  
12.   
13. class WB_events  
14. {  
15.     ; 处理方法, 当然也可以监听其他事件  
16.     ; 参考: http://msdn.microsoft.com/en-us/library/aa768334  
17.     NavigateComplete2(wb, url)  
18.     {  
19.         ; 用 SplitPath 简单解析一下很方便  
20.         SplitPath, url, fullCmd, DISCARD, opt, cmd  
21.   
22.         if (cmd == "test")  
23.         {  
24.             traytip, Test, This is "test" command.  
25.         }  
26.         else if (cmd == "__CLOSE__" )  
27.         {  
28.             ExitApp  
29.         }  
30.         else  
31.         {  
32.             traytip, %fullCmd%, cmd: %cmd%`, opt: %opt%  
33.         }  
34.     }  
35. }  
36.   
37. GuiEscape:  
38. GuiClose:  
39. exitapp

1. 
  
2. 
test
  
3. 
aaa.bbb
  
4. 
close
  
5. 
  
6.   
7.