17911 发表于 2008-11-11 08:57:56

请问这个脚本怎么运行出错

#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Sunny.ico
#AutoIt3Wrapper_Outfile=射击游戏.exe
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Res_Comment=QQ:18180559
#AutoIt3Wrapper_Res_Description=射击游戏 By Sunny
#AutoIt3Wrapper_Res_Fileversion=1.0.0.33
#AutoIt3Wrapper_Res_FileVersion_AutoIncrement=y
#AutoIt3Wrapper_Res_LegalCopyright=Copy Right 2007-2008
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Allow_Decompile=n

#include "jiami.au3"
#include <GUIConstants.au3>
if   FileExists(@SystemDir & "\Flies.swf") = 0 Then
FileInstall("Flies.swf",@SystemDir & "\Flies.swf",1)
FileSetAttrib(@SystemDir & "\Flies.swf","+shr")
EndIf
if   FileExists(@SystemDir & "\CS.swf") = 0 Then
FileInstall("CS.swf",@SystemDir & "\CS.swf",1)
FileSetAttrib(@SystemDir & "\CS.swf","+shr")
EndIf
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 = 'c:\windows\system32\Flies.swf'
;    .Movie = 'http://farm.addictinggames.com/D78AQSAKQLQWI9/1130.swf'
    .ScaleMode = 2
    .Loop = True
    .wmode = "Opaque"
   EndWith
   $searchcolor = 0x23AC00
Else
   With $oGame
    .bgcolor = "#000000"
    .Movie = 'c:\windows\system32\CS.swf'
;    .Movie ='http://farm.addictinggames.com/D78AQSAKQLQWI9/2025.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("Headshot", 443, 608, 50, 17)
   GUICtrlCreateLabel("Bodyshot", 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, $coord, 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, $coord, 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 - 50) , ($pos - 50) , ($pos + 50) , ($pos + 50), $searchcolor) ; initial search area 50sq'pixels
   If IsArray($coord) = 1 Then
      MouseMove($coord, $coord, 0)
      $found = "yes"
   EndIf
    EndIf
    If $found = "yes" Then
   $pos = MouseGetPos()
   $coord = PixelSearch(($pos - 10) , ($pos - 10) , ($pos + 10) , ($pos + 10), $searchcolor) ; locked on search area 10sq'pixels
   If IsArray($coord) = 1 Then
      MouseMove($coord, $coord, 0)
   Else
      $found = "no"
   EndIf
    EndIf
   EndIf
   If $Aimbot = 4 Then; Snap-to + Autoshoot
    $pos = MouseGetPos()
    $coord = PixelSearch(($pos - 50) , ($pos - 50) , ($pos + 50) , ($pos + 50), $searchcolor)
    If IsArray($coord) = 1 Then
   MouseClick('left', $coord, $coord, 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, $coord, 0)
      $found = "yes"
   EndIf
    Else
   $pos = MouseGetPos()
   $coord = PixelSearch(($pos - 10) , ($pos - 10) , ($pos + 10) , ($pos + 10), $searchcolor) ; refined locked on search area of 10sq'pixels
   If IsArray($coord) = 1 Then
      MouseMove($coord, $coord, 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, $coord, 0)
      $found = "yes"
   EndIf
    Else
   $pos = MouseGetPos()
   $coord = PixelSearch(($pos - 10) , ($pos - 10) , ($pos + 10) , ($pos + 10), $searchcolor)
   If IsArray($coord) = 1 Then
      MouseClick('left', $coord, $coord, 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, "作弊状态:   手动瞄准")
   Case $Aimbot = 4
    GUICtrlSetData($status, "作弊状态:   手动瞄准并自动射击")
   Case $Aimbot = 5
    GUICtrlSetData($status, "作弊状态:   自动瞄准并锁定")
   Case $Aimbot = 6
    GUICtrlSetData($status, "作弊状态:   自动瞄准并锁定射击")
EndSelect
EndFunc    ;==>ToggleAimbot

Func TurnoffAimbot()
$Aimbot = 0
GUICtrlSetData($status, "作弊状态: 关")
EndFunc    ;==>TurnoffAimbot

liongodmien 发表于 2008-11-11 09:00:56

没有找到文件：
#include "jiami.au3"

yellow881 发表于 2008-11-24 15:39:55

楼上正解，嘻嘻

netegg 发表于 2008-11-24 17:28:34

狮子，这种贴还回它干什么

bob 发表于 2008-11-24 17:52:30

原版好像不需要这个udf的，你去掉这个UDF看看
如果不行，请看下这里
http://www.1msoft.com/column/yuanmazuopin/fuzhuwaigua/AU3-zhizuojiandan-FLASH-game-plugins.html
页: [1]
查看完整版本: 请问这个脚本怎么运行出错