AU3-热血江湖群医辅助工具

似水年华

1. 
   
2. #NoTrayIcon
   
3. $g_szVersion = "My Script 1.1"   ;;;本段防止重复打开
   
4. If WinExists($g_szVersion) Then Exit
   
5. AutoItWinSetTitle($g_szVersion)
   
6. HotKeySet("{F10}", "ToggleStart")    ;;;定义热键
   
7. HotKeySet("{F11}", "TogglePause")
   
8. HotKeySet("^q", "ToggleExit")
   
9. $PAUSE = 0
   
10. #include <GuiConstants.au3>           ;;;下面是创建那个GUI界面
    
11. GUICreate ("热血江湖医生聊疗辅助工具",210,100,-1,-1,$WS_EX_APPWINDOW)
    
12. 
    
13. GuiCtrlCreateLabel("生命保护", 10, 6)              ;;;标签
    
14. $Combo_1 = GUICtrlCreateCombo ("", 60,0,40,15,$CBS_DROPDOWNlist)              ;;;;;;;;下拉列表
    
15. GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F1")          ;;列表的项
    
16. GuiCtrlCreateLabel("自动补蓝", 115, 6)
    
17. $Combo_2 = GUICtrlCreateCombo ("", 163,0,40,15,$CBS_DROPDOWNlist)
    
18. GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F2")
    
19. GuiCtrlCreateLabel("间隔", 10, 27)
    
20. $input1 = GuiCtrlCreateInput(750, 38, 20, 47, 20,$ES_READONLY)
    
21. GuiCtrlCreateUpDown(-1,$UDS_NOTHOUSANDS+$UDS_ARROWKEYS)
    
22. GUICtrlSetLimit(-1,2000,500)
    
23. 
    
24. GuiCtrlCreateLabel("毫秒自动群疗", 91, 27)
    
25. $Combo_3 = GUICtrlCreateCombo ("", 163,20,40,15,$CBS_DROPDOWNlist)
    
26. GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F3")
    
27. 
    
28. GuiCtrlCreateLabel("启动 F10  暂停 F11  退出 CTRL+Q", 10, 46)
    
29. GuiCtrlCreateLabel("注:1秒=1000毫秒     制作: 冰心痴", 10, 65)
    
30. GUISetState ()
    
31. ToolTip('已就绪',200,0)
    
32. WHILE 1
    
33. $msg = GUIGetMsg()
    
34. SELECT
    
35.   CASE $PAUSE = 0      ;;这段是管程序退出的，都懂吧
    
36.    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    
37.   CASE $PAUSE = 1           ;;;左上角的标签
    
38.    ToolTip('已启动',200,0)
    
39.    
    
40.    $msg = GUIGetMsg()              ;;;;这段是读那几个下拉列表的值存到变量
    
41.    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    
42.    $SHM = GUICtrlRead($Combo_1)
    
43.    $MF = GUICtrlRead($Combo_2)
    
44.    $QE = GUICtrlRead($Combo_3)
    
45.    $time = GUICtrlRead($input1) - 500
    
46.    ;WinWaitActive("YB_OnlineClient")
    
47.    sleep ($time)
    
48.    send ('{' & $QE & '}')
    
49.    sleep (250)
    
50.    $color = PixelGetColor( 65 , 5 )
    
51.    IF $color = 7557450 Then
    
52.    send ('{' & $SHM & '}')
    
53.    EndIf
    
54.    sleep (250)
    
55.    $color = PixelGetColor( 65 , 18 )
    
56.    IF $color = 4869491 Then
    
57.    send ('{' & $MF & '}')
    
58.    EndIf
    
59. ENDSELECT
    
60. WEND
    
61. Func ToggleStart()
    
62. ToolTip('已启动',200,0)
    
63. WinSetState("热血江湖医生聊疗辅助工具","",@SW_MINIMIZE)
    
64. $PAUSE = 1
    
65. RETURN
    
66. EndFunc
    
67. Func TogglePause()
    
68. ToolTip('已暂停',200,0)
    
69. $PAUSE = 0
    
70. RETURN
    
71. EndFunc
    
72. Func ToggleExit()
    
73. ToolTip("")
    
74. exit
    
75. EndFunc

复制代码