AU3热血江湖群医辅助工具

AU3热血江湖群医辅助工具

Submitted by hopol on 2008, June 15, 10:07 AM. 網管相關

#NoTrayIcon

$g_szVersion = "My Script 1.1" ;;;本段防止重复打开
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

HotKeySet("{F10}", "ToggleStart") ;;;定义热键
HotKeySet("{F11}", "TogglePause")
HotKeySet("^q", "ToggleExit")

$PAUSE = 0

#include <GuiConstants.au3> ;;;下面是创建那个GUI界面

GUICreate ("热血江湖医生聊疗辅助工具",210,100,-1,-1,$WS_EX_APPWINDOW)

GuiCtrlCreateLabel("生命保护", 10, 6) ;;;标签
$Combo_1 = GUICtrlCreateCombo ("", 60,0,40,15,$CBS_DROPDOWNlist) ;;;;;;;;下拉列表
GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F1") ;;列表的项

GuiCtrlCreateLabel("自动补蓝", 115, 6)
$Combo_2 = GUICtrlCreateCombo ("", 163,0,40,15,$CBS_DROPDOWNlist)
GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F2")

GuiCtrlCreateLabel("间隔", 10, 27)
$input1 = GuiCtrlCreateInput(750, 38, 20, 47, 20,$ES_READONLY)
GuiCtrlCreateUpDown(-1,$UDS_NOTHOUSANDS+$UDS_ARROWKEYS)
GUICtrlSetLimit(-1,2000,500)

GuiCtrlCreateLabel("毫秒自动群疗", 91, 27)
$Combo_3 = GUICtrlCreateCombo ("", 163,20,40,15,$CBS_DROPDOWNlist)
GUICtrlSetData(-1,"F1|F2|F3|F4|F5|F6|F7|F8|F9","F3")

GuiCtrlCreateLabel("启动 F10 暂停 F11 退出 CTRL+Q", 10, 46)
GuiCtrlCreateLabel("注:1秒=1000毫秒制作: 冰心痴", 10, 65)

GUISetState ()

ToolTip('已就绪',200,0)

WHILE 1

$msg = GUIGetMsg()
SELECT
CASE $PAUSE = 0 ;;这段是管程序退出的，都懂吧
If $msg = $GUI_EVENT_CLOSE Then ExitLoop

CASE $PAUSE = 1 ;;;左上角的标签
ToolTip('已启动',200,0)

$msg = GUIGetMsg() ;;;;这段是读那几个下拉列表的值存到变量
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$SHM = GUICtrlRead($Combo_1)
$MF = GUICtrlRead($Combo_2)
$QE = GUICtrlRead($Combo_3)
$time = GUICtrlRead($input1) - 500

;WinWaitActive("YB_OnlineClient")
sleep ($time)
send ('{' & $QE & '}')
sleep (250)
$color = PixelGetColor( 65 , 5 )
IF $color = 7557450 Then
send ('{' & $SHM & '}')
EndIf
sleep (250)
$color = PixelGetColor( 65 , 18 )
IF $color = 4869491 Then
send ('{' & $MF & '}')
EndIf
ENDSELECT
WEND

Func ToggleStart()
ToolTip('已启动',200,0)
WinSetState("热血江湖医生聊疗辅助工具","",@SW_MINIMIZE)
$PAUSE = 1
RETURN
EndFunc

Func TogglePause()
ToolTip('已暂停',200,0)
$PAUSE = 0
RETURN
EndFunc

Func ToggleExit()
ToolTip("")
exit
EndFunc