AU3制作的简单FLASH游戏辅助插件

#include <GUIConstants.au3>
Global $Aimbot = 0, $found = "no"

Opt("MouseCoordMode", 0)
Opt("PixelCoordMode", 0)
Opt("MouseClickDelay", 0)
Opt("MouseClickDownDelay", 0)


While 1
$SelectionForm = GUICreate("能力证明", 298, 83, 350, 400)
GUICtrlCreateLabel("选择游戏：", 32, 8, 81, 17)
$flybutton = GUICtrlCreateButton("打 苍 蝇", 32, 40, 105, 25)
$csbutton = GUICtrlCreateButton("CS练枪版", 168, 40, 105, 25)

GUISetState()

While 1
$msg = GUIGetMsg()
Select
Case $msg = $flybutton
$gamename = "打 苍 蝇"
GUIDelete($SelectionForm)
ExitLoop
Case $msg = $csbutton
$gamename = "CS练枪版"
GUIDelete($SelectionForm)
ExitLoop
Case $msg = $GUI_EVENT_CLOSE
Exit
EndSelect
WEnd

HotKeySet("{Space}", "ToggleAimbot")
HotKeySet("{End}", "TurnoffAimbot")

$oGame = ObjCreate ("ShockwaveFlash.ShockwaveFlash.1")
$GameForm = GUICreate($gamename & " 射击游戏: 能力证明", 820, 660, -1, -1)
$GUIActiveX = GUICtrlCreateObj ($oGame, 10, 10, 800, 580)
$exitbutton = GUICtrlCreateButton("退出", 704, 624, 89, 25)
$changebutton = GUICtrlCreateButton("选择游戏", 610, 624, 89, 25)
GUICtrlCreateLabel("多次按动空格键可以切换作弊状态 按END键关闭作弊", 16, 608, 300, 17)
$status = GUICtrlCreateLabel("作弊状态: 关", 16, 624, 500, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")

If $gamename = "打 苍 蝇" Then
With $oGame
.bgcolor = "#000000"
.Movie = '/UploadFile/soft/fly.swf'
.ScaleMode = 2
.Loop = True
.wmode = "Opaque"
EndWith
$searchcolor = 0x23AC00
Else
With $oGame
.bgcolor = "#000000"
.Movie = '/UploadFile/soft/cs.swf'
.ScaleMode = 2
.Loop = True
.wmode = "Opaque"
EndWith
$headshot = 0xFF9986
$bodyshot = 0xFF7070
$searchcolor = 0xFF9986
$headradio = GUICtrlCreateRadio("ARadio1", 425, 608, 17, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$bodyradio = GUICtrlCreateRadio("ARadio2", 505, 608, 17, 17)
GUICtrlCreateLabel("头部", 443, 608, 50, 17)
GUICtrlCreateLabel("身体", 523, 608, 48, 17)
GUICtrlCreateLabel("瞄准选项:", 340, 608, 78, 17)
EndIf

GUISetState()

While 1
If $Aimbot = 1 Then; Normal Auto-Aim
$coord = PixelSearch(10, 10, 800, 580, $searchcolor)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
EndIf
EndIf
If $Aimbot = 2 Then; Auto-Aim + Autoshoot
$coord = PixelSearch(10, 10, 800, 580, $searchcolor)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
If $gamename = "CS练枪版" Then Send("r")
EndIf
EndIf
If $Aimbot = 3 Then; Snap-to
If $found = "no" Then
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor) ; initial search area 50sq'pixels
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
$found = "yes"
EndIf
EndIf
If $found = "yes" Then
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor) ; locked on search area 10sq'pixels
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
Else
$found = "no"
EndIf
EndIf
EndIf
If $Aimbot = 4 Then; Snap-to + Autoshoot
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 50) , ($pos[1] - 50) , ($pos[0] + 50) , ($pos[1] + 50), $searchcolor)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
If $gamename = "CS练枪版" Then Send("r")
EndIf
EndIf
If $Aimbot = 5 Then; Auto Lock-On the first available target on screen
If $found = "no" Then
$coord = PixelSearch(10, 10, 800, 580, $searchcolor)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
$found = "yes"
EndIf
Else
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor) ; refined locked on search area of 10sq'pixels
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
Else
$found = "no"
EndIf
EndIf
EndIf
If $Aimbot = 6 Then; Auto Lock-On the first available target + Autoshoot
If $found = "no" Then
$coord = PixelSearch(10, 10, 800, 580, $searchcolor)
If IsArray($coord) = 1 Then
MouseMove($coord[0], $coord[1], 0)
$found = "yes"
EndIf
Else
$pos = MouseGetPos()
$coord = PixelSearch(($pos[0] - 10) , ($pos[1] - 10) , ($pos[0] + 10) , ($pos[1] + 10), $searchcolor)
If IsArray($coord) = 1 Then
MouseClick('left', $coord[0], $coord[1], 1, 0)
If $gamename = "CS练枪版" Then
Send("r")
EndIf
Else
$found = "no"
EndIf
EndIf
EndIf
$msg = GUIGetMsg()
If $gamename = "打 苍 蝇" Then
Select
Case $msg = $exitbutton
ExitLoop 2
Case $msg = $changebutton
GUIDelete($GameForm)
ExitLoop 1
Case $msg = $GUI_EVENT_CLOSE
ExitLoop 2
EndSelect
EndIf
If $gamename = "CS练枪版" Then
Select
Case $msg = $exitbutton
ExitLoop 2
Case $msg = $changebutton
$oGame.Stop
GUIDelete($GameForm)
ExitLoop 1
Case $msg = $bodyradio
$searchcolor = $bodyshot
Case $msg = $headradio
$searchcolor = $headshot
Case $msg = $GUI_EVENT_CLOSE
ExitLoop 2
EndSelect
EndIf

WEnd
$oGame = 0
GUIDelete()
WEnd
Exit

Func ToggleAimbot()
If $Aimbot < 6 Then
$Aimbot = $Aimbot + 1
Else
$Aimbot = 0
EndIf
Select
Case $Aimbot = 0
GUICtrlSetData($status, "作弊状态: 关")
Case $Aimbot = 1
GUICtrlSetData($status, "作弊状态: 自动瞄准")
Case $Aimbot = 2
GUICtrlSetData($status, "作弊状态: 自动瞄准并射击")
Case $Aimbot = 3
GUICtrlSetData($status, "作弊状态: 手