找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 求助
返回列表 发新帖
查看: 1768|回复: 1

求助

[复制链接]
a84738941
发表于 2009-6-28 00:26:05 | 显示全部楼层 |阅读模式
原码
;--PostMessage User Defined Functions--
;--Written by Shynd for use with DA--

#include-once

Func _MakeLong($LoWord, $HiWord)
        Return BitOR($HiWord * 0x10000, BitAND($LoWord, 0xFFFF))
EndFunc

Func _MouseClick($hWnd, $button, $x, $y, $times=1, $delay=250)
        If $hWnd = 0 Then
                SetError(-1)
                Return
        EndIf
       
        Local $ix
        Local $lParam = _MakeLong($x, $y)
        Local $user32 = DllOpen("user32.dll")
       
        $button = StringLower($button)
       
        If $button = "left" Then
                For $ix = 1 To $times
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", $lParam)
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 1, "long", $lParam)
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", $lParam)
                       
                        If $ix < $times Then Sleep($delay)
                Next
        ElseIf $button = "right" Then
                For $ix = 1 To $times
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", $lParam)
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x204, "int", 2, "long", $lParam)
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x205, "int", 0, "long", $lParam)
                       
                        If $ix < $times Then Sleep($delay)
                Next
        Else
                SetError(-2)
                If $user32 <> -1 Then DllClose($user32)
                Return
        EndIf
        If $user32 <> -1 Then DllClose($user32)
EndFunc

Func _MouseUseSpell($hWnd, $x, $y, $selfcast=False, $sx=310, $sy=163)
        Local $user32 = DllOpen("user32.dll")
       
        ;Click the spell panel
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", _MakeLong(547, 400))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 0, "long", _MakeLong(547, 400))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", _MakeLong(547, 400))
       
        ;Double-click the spell
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", _MakeLong($x, $y))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 0, "long", _MakeLong($x, $y))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", _MakeLong($x, $y))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 0, "long", _MakeLong($x, $y))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", _MakeLong($x, $y))
       
        ;If selfcast, click on character
        If $selfcast Then
                DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", _MakeLong($sx, $sy))
                DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 0, "long", _MakeLong($sx, $sy))
                DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", _MakeLong($sx, $sy))
        EndIf
       
        If $user32 <> -1 Then DllClose($user32)
EndFunc

Func _MouseUseSkill($hWnd, $x, $y)
        Local $user32 = DllOpen("user32.dll")
       
        ;Click the skill panel
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", _MakeLong(547, 370))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 0, "long", _MakeLong(547, 370))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", _MakeLong(547, 370))
       
        ;Double-click the skill
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x200, "int", 0, "long", _MakeLong($x, $y))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 0, "long", _MakeLong($x, $y))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", _MakeLong($x, $y))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x201, "int", 0, "long", _MakeLong($x, $y))
        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x202, "int", 0, "long", _MakeLong($x, $y))
       
        If $user32 <> -1 Then DllClose($user32)
EndFunc

Func _SendKeys($hWnd, $keys)
        If $hWnd <= 0 Or StringLen($keys) = 0 Then
                SetError(-1)
                Return False
        EndIf
       
        $keys = StringUpper($keys)
       
        $keys = StringReplace($keys, "`", Chr(0xC0))
        $keys = StringReplace($keys, "~", Chr(0xC0))
        $keys = StringReplace($keys, "-", Chr(0xBD))
        $keys = StringReplace($keys, "=", Chr(0xBB))
        $keys = StringReplace($keys, "{ENTER}", Chr(0xD))
        $keys = StringReplace($keys, "{TAB}", Chr(0x9))
        $keys = StringReplace($keys, "{ESC}", Chr(0x1B))
        $keys = StringReplace($keys, "{F1}", Chr(0x70))
        $keys = StringReplace($keys, "{F2}", Chr(0x71))
        $keys = StringReplace($keys, "{F3}", Chr(0x72))
        $keys = StringReplace($keys, "{F4}", Chr(0x73))
        $keys = StringReplace($keys, "{F5}", Chr(0x74))
        $keys = StringReplace($keys, "{F6}", Chr(0x75))
        $keys = StringReplace($keys, "{F7}", Chr(0x76))
        $keys = StringReplace($keys, "{F8}", Chr(0x77))
        $keys = StringReplace($keys, "{F9}", Chr(0x78))
        $keys = StringReplace($keys, "{F10}", Chr(0x79))
        $keys = StringReplace($keys, "{F11}", Chr(0x7A))
        $keys = StringReplace($keys, "{F12}", Chr(0x7B))
        $keys = StringReplace($keys, "{SHIFT}", "+")
        $keys = StringReplace($keys, "{ALT}", "!")
       
        Local $i, $ret
        Local $shiftdown = False
        Local $user32 = DllOpen("user32.dll")
       
        For $i = 1 To StringLen($keys)
                If StringMid($keys, $i, 1) = "+" Then
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x100, "int", 0x10, "long", 0x002A0001)
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x100, "int", 0x10, "long", 0x402A0001)
                        $shiftdown = True
                        Sleep(1)
                        ContinueLoop
                Else
                        $ret = DllCall($user32, "int", "MapVirtualKey", "int", Asc(StringMid($keys, $i, 1)), "int", 0)
                        If IsArray($ret) Then
                                DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x100, "int", Asc(StringMid($keys, $i, 1)), "long", _MakeLong(1, $ret[0]))
                                Sleep(1)
                                DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x101, "int", Asc(StringMid($keys, $i, 1)), "long", _MakeLong(1, $ret[0]) + 0xC0000000)
                                Sleep(1)
                        EndIf
                EndIf
                If $shiftdown Then
                        DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x101, "int", 0x10, "long", 0xC02A0001)
                        Sleep(1)
                        $shiftdown = False
                EndIf
        Next
       
        If $user32 <> -1 Then DllClose($user32)
       
        Return True
EndFunc

Func _SendText($hWnd, $str)
        If $hWnd = 0 Or StringLen($str) = 0 Then
                SetError(-1)
                Return
        EndIf
       
        Local $user32 = DllOpen("user32.dll")
       
        For $i = 1 To StringLen($str)
                DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x102, "int", Asc(StringMid($str, $i, 1)), "long", 0)
                Sleep(1)
        Next
       
        If $user32 <> -1 Then DllClose($user32)
EndFunc

Func _SendChatMessage($hWnd, $str)
        If $hWnd = 0 Or StringLen($str) = 0 Then
                SetError(-1)
                Return
        EndIf
       
        _SendKeys($hWnd, "{ENTER}")
        Sleep(50)
        _SendText($hWNd, $str)
        Sleep(30)
        _SendKeys($hWNd, "{ENTER}")
EndFunc

Func _SendWhisper($hWnd, $name, $str)
        If $hWnd = 0 Or StringLen($str) = 0 Or StringLen($name) = 0 Then
                SetError(-1)
                Return
        EndIf
       
        _SendKeys($hWnd, "{ESC}+" & Chr(0xDE))
        Sleep(50)
        _SendText($hWnd, $name)
        Sleep(1)
        _SendKeys($hWNd, "{ENTER}")
        Sleep(30)
        _SendText($hWnd, $str)
        Sleep(30)
        _SendKeys($hWnd, "{ENTER}")
EndFunc

Func _ArrowKey($hWnd, $key)
        If $hWnd <= 0 Or ( $key <> "left" And $key <> "right" And $key <> "up" And $key <> "down" ) Then
                SetError(-1)
                Return
        EndIf
       
        Local $wParam, $lParam, $ret
       
        If $key = "left" Then
                $wParam = 0x25
                $lParam = 0x14B0001
        ElseIf $key = "right" Then
                $wParam = 0x27
                $lParam = 0x14D0001
        ElseIf $key = "down" Then
                $wParam = 0x28
                $lParam = 0x1500001
        ElseIf $key = "up" Then
                $wParam = 0x26
                $lParam = 0x1480001
        EndIf
       
        Local $user32 = DllOpen("user32.dll")
       
        $ret = DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x100, "int", $wParam, "int", $lParam)
        If $ret[0] = 0 Then
                SetError(-2)
                If $user32 <> -1 Then DllClose($user32)
                Return
        EndIf
       
        Sleep(2)
       
        $ret = DllCall($user32, "int", "PostMessage", "hwnd", $hWnd, "int", 0x101, "int", $wParam, "int", ($lParam + 0xC0000000))
        If $ret[0] = 0 Then
                SetError(-3)
                If $user32 <> -1 Then DllClose($user32)
                Return
        EndIf
       
        If $user32 <> -1 Then DllClose($user32)
EndFunc

Func _PostMessage($hWnd, $msgID, $wParam, $lParam)
        Local $ret = DllCall("user32.dll", "int", "PostMessage", "hwnd", $hWnd, "int", $msgID, "int", $wParam, "int", $lParam)
        If IsArray($ret) Then
                Return $ret[0]
        Else
                SetError(-1)
                Return False
        EndIf
EndFunc
我改的au3
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=D:\桌面\2007624111228169\Apple系列-水晶按钮篇2\Item Icon.ico
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#Include <PostMessage_UDF.au3>
#Include <Array.au3>


$flag = False
$nums=""

$hWnd1 = ""
$hWnd2 = ""
$hWnd3 = ""
$hWnd4 = ""
$hWnd5 = ""
$hWnd6 = ""
$hWnd7 = ""
$hWnd8 = ""
$hWnd9 = ""
$hWnd10= ""

$hWndS1 = ""
$hWndS2 = ""
$hWndS3 = ""
$hWndS4 = ""
$hWndS5 = ""
$hWndS6 = ""
$hWndS7 = ""
$hWndS8 = ""
$hWndS9 = ""
$hWndS10 = ''

$checksum=""
$total=0
$all=0
$now=0
$ifsmallmap =True
$x1=601
$y1=256
$x2=156
$y2=256

func setWins()
        if $hWnd1<>"" Then
                $var = WinList("开心")
                $tmp=1
                For $i = 1 to $var[0][0]
                        ;MsgBox(4096,"",$i)
                        if $hWndS1==$var[$i][1] or $hWndS10==$var[$i][1] Then
                                ;MsgBox(4096,"", "成功自动识别队长")
                        else
                                Switch $tmp
                                        case 1
                                                $hWnd2 = ControlGetHandle($var[$i][1], "", "#327701")
                                        case 2
                                                $hWnd3 = ControlGetHandle($var[$i][1], "", "#327701")
                                        case 3
                                                $hWnd4 = ControlGetHandle($var[$i][1], "", "#327701")
                                        case 4
                                                $hWnd5 = ControlGetHandle($var[$i][1], "", "#327701")
                                        case 5
                                                $hWnd6 = ControlGetHandle($var[$i][1], "", "#327701")
                                        case 6
                                                $hWnd7 = ControlGetHandle($var[$i][1], "", "#327701")
                                        case 7
                                                $hWnd8 = ControlGetHandle($var[$i][1], "", "#327701")
                                        case 8
                                                $hWnd9 = ControlGetHandle($var[$i][1], "", "#327701")
                                        ;case 9
                                                ;$hWnd10 = ControlGetHandle($var[$i][1], "", "#327701")
                                        ;case 10
                                                ;$hWnd = ControlGetHandle($var[$i][1], "", "#327701")
                                EndSwitch
                                $tmp = $tmp+1
                        EndIf
                next
                MsgBox(4096,"", "成功自动识别开心窗口")
        Else
                MsgBox(4096,"", "先按ctrl+F1/F10记录队长")
        EndIf
EndFunc

$hWndS1 = WinGetHandle("开心")
$hWnd1 = ControlGetHandle("开心", "", "#327701")

Func setRuns()
        $var = WinList("开心")
        $tmp = 1
        For $i = 1 to $var[0][0]
                ;MsgBox(4096,"",$i)
                if $hWndS1==$var[$i][1] or $hWndS10==$var[$i][1] Then
                        ;MsgBox(4096,"", "成功自动识别队长")
                else
                        Switch $tmp
                                case 1
                                        $hWndS2 = $var[$i][1]
                                case 2
                                        $hWndS3 = $var[$i][1]
                                case 3
                                        $hWndS4 = $var[$i][1]
                                case 4
                                        $hWndS5 = $var[$i][1]
                                case 5
                                        $hWndS6 = $var[$i][1]
                                case 6
                                        $hWndS7 = $var[$i][1]
                                case 7
                                        $hWndS8 = $var[$i][1]
                                case 8
                                        $hWndS9 = $var[$i][1]
                                ;case 9
                                        ;$hWnd10 = ControlGetHandle($var[$i][1], "", "#327701")
                                ;case 10
                                        ;$hWnd = ControlGetHandle($var[$i][1], "", "#327701")
                        EndSwitch
                        $tmp = $tmp+1
                EndIf
        next
EndFunc

;dim $userView[5]
;$userView[0] = 4
;$userView[1] = 180
;$userView[2] = 215
;$userView[3] = 234
;$userView[4] = 270

;_MouseClick(ControlGetHandle("开心", "", "#327701"),"left",23,$userView[4])
;Exit

;WinActivate($hWndS)
;Send("!z")
HotKeySet("{f11}", "stop")
HotKeySet("^{f12}", "clearWin")
HotKeySet("^{f11}", "setWins")
HotKeySet("!{f11}", "setRuns")

HotKeySet("^{f1}", "getHwin1")
HotKeySet("^{f2}", "getHwin2")
HotKeySet("^{f3}", "getHwin3")
HotKeySet("^{f4}", "getHwin4")
HotKeySet("^{f5}", "getHwin5")
HotKeySet("^{f6}", "getHwin6")
HotKeySet("^{f7}", "getHwin7")
HotKeySet("^{f8}", "getHwin8")
HotKeySet("^{f9}", "getHwin9")
HotKeySet("^{f10}", "getHwin10")

HotKeySet("!{f2}", "setRun2")
HotKeySet("!{f3}", "setRun3")
HotKeySet("!{f4}", "setRun4")
HotKeySet("!{f5}", "setRun5")
HotKeySet("!{f6}", "setRun6")
HotKeySet("!{f7}", "setRun7")
HotKeySet("!{f8}", "setRun8")
HotKeySet("!{f9}", "setRun9")


if StringLen($hWnd1)>0 Then
        $flags=MsgBox(4,"是否自动开始","检查到开心OL窗口,是否自动开始脚本,选否可自己按F11启动")
        if $flags=6 Then
                $var = WinList("开心")
                ;MsgBox(4096,"", $var[0][0])
                if $var[0][0]<6 Then
                        setWins()
                EndIf
                stop()
        EndIf
EndIf

$flags=MsgBox(4,"是否点击中间","是否点击中间(选否点击小地图)?")
;MsgBox(4096,"", $flags)
        if $flags==6 Then
                $ifsmallmap = false
               
                $x1=698
                $y1=176
                $x2=735
                $y2=176
        EndIf


$runTime=15
$runTime2=55
$runTime3=55
While 1
        if $flag Then
                lclickWinOther($x1,$y1)
                Sleep(920)
                lclickWinOther($x2,$y2)

                Sleep(1000)
                $runTime = $runTime+1
                $runTime2 = $runTime2+1
                $runTime3 = $runTime3+1
                if $runTime>10 Then
                        $runTime=0
                        ;点击自动战斗
                        ;lclickWin($hWnd,538, 95)
                        ;lclickWin($hWnd,522, 84)
                        lclickWin($hWnd10,522,84)
                        lclickWin($hWnd1,522, 84)
                        lclickWin($hWnd2,522, 84)
                        lclickWin($hWnd3,522, 84)
                        lclickWin($hWnd4,522, 84)       
                        lclickWin($hWnd5,522, 84)
                        lclickWin($hWnd6,522, 84)
                        lclickWin($hWnd7,522, 84)
                        lclickWin($hWnd8,522, 84)
                        lclickWin($hWnd9,522, 84)

                EndIf
                lclickWinOther(509, 148);释放牢笼
                if $runTime3>2 Then
                        $runTime3=50
                        ;队长点击离开按钮
                        lclickWinOther(364,322)
                        lclickWinOther(414, 310)
                EndIf
                if $runTime2>50 Then
                        $runTime2=0
                        ;点击离开按钮 但队长不点击
                        if $hWndS2 <>"" Then
                                lclickWin($hWnd2,364, 322)
                        EndIf
                        if $hWndS3 <>"" Then
                                lclickWin($hWnd3,364, 322)
                        EndIf
                        if $hWndS4 <>"" Then
                                lclickWin($hWnd4,364, 322)
                        EndIf
                        if $hWndS5 <>"" Then
                                lclickWin($hWnd5,364, 322)
                        EndIf
                        if $hWndS6 <>"" Then
                                lclickWin($hWnd6,364, 322)
                        EndIf
                        if $hWndS7 <>"" Then
                                lclickWin($hWnd7,364, 322)
                        EndIf
                        if $hWndS8 <>"" Then
                                lclickWin($hWnd8,364, 322)
                        EndIf
                        if $hWndS9 <>"" Then
                                lclickWin($hWnd9,364, 322)
                        EndIf
                EndIf
        EndIf
WEnd





Func clearWin()
        $flags=MsgBox(4,"清楚所有窗口记忆？","清楚所有窗口记忆？")
        if $flags=6 Then
                ;$hWnd=""
                ;$hWnd1=""
                $hWnd2=""
                $hWnd3=""
                $hWnd4=""
                $hWnd5=""
                $hWnd6=""
                $hWnd7=""
                $hWnd8=""
                $hWnd9=""
                ;$hWnd10=""
                ;$hWndS1 = ""
                $hWndS2 = ""
                $hWndS3 = ""
                $hWndS4 = ""
                $hWndS5 = ""
                $hWndS6 = ""
                $hWndS7 = ""
                $hWndS8 = ""
                $hWndS9 = ""
               
                $all = 0
        EndIf       
EndFunc

Func stop()
        $flag = Not $flag
        if $flag = False then
                MsgBox(4096,"", "已经暂停,下次按下F11启动.")
        ;Else
                ;WinMove($hWndS, "", 0, 0)
                ;$checksum = PixelChecksum(5,0, 10,50)
        EndIf
EndFunc

func lclickWin($w,$x,$y)
        if StringLen($w)>0 Then
                _MouseClick($w,"left",$x,$y)
        EndIf
EndFunc

func lclickWinOther($x,$y)
        if $hWndS1 <>"" Then
                lclickWin($hWnd1,$x,$y)
        EndIf
        if $hWndS2 <>"" Then
                lclickWin($hWnd2,$x,$y)
        EndIf
        if $hWndS3 <>"" Then
                lclickWin($hWnd3,$x,$y)
        EndIf
        if $hWndS4 <>"" Then
                lclickWin($hWnd4,$x,$y)
        EndIf
        if $hWndS5 <>"" Then
                lclickWin($hWnd5,$x,$y)
        EndIf
        if $hWndS6 <>"" Then
                lclickWin($hWnd6,$x,$y)
        EndIf
        if $hWndS7 <>"" Then
                lclickWin($hWnd7,$x,$y)
        EndIf
        if $hWndS8 <>"" Then
                lclickWin($hWnd8,$x,$y)
        EndIf
        if $hWndS9 <>"" Then
                lclickWin($hWnd9,$x,$y)
        EndIf
        ;if $hWndS <>"" Then
        ;        lclickWin($hWnd,$x,$y)
        ;EndIf
        if $hWndS10 <>"" Then
                lclickWin($hWnd10,$x,$y)
        EndIf
EndFunc



func getHwin0()
        getHwin(0)
EndFunc
func getHwin1()       
        getHwin(1)
EndFunc
func getHwin2()       
        getHwin(2)
EndFunc
func getHwin3()       
        getHwin(3)
EndFunc
func getHwin4()       
        getHwin(4)
EndFunc
func getHwin5()       
        getHwin(5)
EndFunc
func getHwin6()       
        getHwin(6)
EndFunc
func getHwin7()       
        getHwin(7)
EndFunc
func getHwin8()       
        getHwin(8)
EndFunc
func getHwin9()       
        getHwin(9)
EndFunc
func getHwin10()       
        getHwin(10)
EndFunc

func setRun1()       
        setRun(1)
EndFunc
func setRun2()       
        setRun(2)
EndFunc
func setRun3()       
        setRun(3)
EndFunc
func setRun4()       
        setRun(4)
EndFunc
func setRun5()       
        setRun(5)
EndFunc
func setRun6()       
        setRun(6)
EndFunc
func setRun7()       
        setRun(7)
EndFunc
func setRun8()       
        setRun(8)
EndFunc
func setRun9()       
        setRun(9)
EndFunc

func getHwin($user)
        Switch $user
        case 0
                $hWndS = WinGetHandle("开心")
                $hWnd = ControlGetHandle("开心", "", "#327701")
        case 10
                $hWndS10 = WinGetHandle("开心")
                $hWnd10 = ControlGetHandle("开心", "", "#327701")
        case 1
                $hWndS1 = WinGetHandle("开心")
                $hWnd1 = ControlGetHandle("开心", "", "#327701")
        case 2
                $hWnd2 = ControlGetHandle("开心", "", "#327701")
        case 3
                $hWnd3 = ControlGetHandle("开心", "", "#327701")
        case 4
                $hWnd4 = ControlGetHandle("开心", "", "#327701")
        case 5
                $hWnd5 = ControlGetHandle("开心", "", "#327701")
        case 6
                $hWnd6 = ControlGetHandle("开心", "", "#327701")
        case 7
                $hWnd7 = ControlGetHandle("开心", "", "#327701")
        case 8
                $hWnd8 = ControlGetHandle("开心", "", "#327701")
        case 9
                $hWnd9 = ControlGetHandle("开心", "", "#327701")
        EndSwitch
EndFunc

func setRun($user)
        Switch $user
        ;case 1
        ;        $hWndS1 = WinGetHandle("开心")
        case 2
                $hWndS2 = WinGetHandle("开心")
        case 3
                $hWndS3 = WinGetHandle("开心")
        case 4
                $hWndS4 = WinGetHandle("开心")
        case 5
                $hWndS5 = WinGetHandle("开心")
        case 6
                $hWndS6 = WinGetHandle("开心")
        case 7
                $hWndS7 = WinGetHandle("开心")
        case 8
                $hWndS8 = WinGetHandle("开心")
        case 9
                $hWndS9 = WinGetHandle("开心")
        EndSwitch
EndFunc

请问为什么老不执行
While 1
        if $flag Then
                lclickWinOther($x1,$y1)
                Sleep(920)
                lclickWinOther($x2,$y2)

                Sleep(1000)
                $runTime = $runTime+1
                $runTime2 = $runTime2+1
                $runTime3 = $runTime3+1
                if $runTime>10 Then
                        $runTime=0
                        ;点击自动战斗
                        ;lclickWin($hWnd,538, 95)
                        ;lclickWin($hWnd,522, 84)
                        lclickWin($hWnd10,522,84)
                        lclickWin($hWnd1,522, 84)
                        lclickWin($hWnd2,522, 84)
                        lclickWin($hWnd3,522, 84)
                        lclickWin($hWnd4,522, 84)       
                        lclickWin($hWnd5,522, 84)
                        lclickWin($hWnd6,522, 84)
                        lclickWin($hWnd7,522, 84)
                        lclickWin($hWnd8,522, 84)
                        lclickWin($hWnd9,522, 84)

                EndIf
                lclickWinOther(509, 148);释放牢笼
                if $runTime3>2 Then
                        $runTime3=50
                        ;队长点击离开按钮
                        lclickWinOther(364,322)
                        lclickWinOther(414, 310)
                EndIf
                if $runTime2>50 Then
                        $runTime2=0
                        ;点击离开按钮 但队长不点击
                        if $hWndS2 <>"" Then
                                lclickWin($hWnd2,364, 322)
                        EndIf
                        if $hWndS3 <>"" Then
                                lclickWin($hWnd3,364, 322)
                        EndIf
                        if $hWndS4 <>"" Then
                                lclickWin($hWnd4,364, 322)
                        EndIf
                        if $hWndS5 <>"" Then
                                lclickWin($hWnd5,364, 322)
                        EndIf
                        if $hWndS6 <>"" Then
                                lclickWin($hWnd6,364, 322)
                        EndIf
                        if $hWndS7 <>"" Then
                                lclickWin($hWnd7,364, 322)
                        EndIf
                        if $hWndS8 <>"" Then
                                lclickWin($hWnd8,364, 322)
                        EndIf
                        if $hWndS9 <>"" Then
                                lclickWin($hWnd9,364, 322)
                        EndIf
                EndIf
        EndIf
WEnd

请高手指点下谢谢
求助

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
kn007
发表于 2009-6-28 09:40:12 | 显示全部楼层
又是一伸手党。。。

好长啊，没时间看，能说下什么功能不？

记录窗口？
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-26 14:27 , Processed in 0.074275 second(s), 22 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表