lluxury 发表于 2011-4-15 00:28:13

前台鼠标挂

本帖最后由 lluxury 于 2011-4-15 00:33 编辑

最近在外网页游戏,点的烦,就简单写了个前台挂,放虚拟机上跑,注释了不少,发上来让大家看看
我虽然知道后台取色的方法,取不知道后台怎么发送鼠标,求告知...


#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=..\桌面\05_13_30a.exe
#AutoIt3Wrapper_Add_Constants=n
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
Global $Title="xxxx - Microsoft Internet Explorer" ;1
If Not WinExists($Title) Then Exit MsgBox(16,0,"游戏未运行")
Global $FormPos=WinGetPos($Title) ;程序运行时获取窗体信息
WinActivate($Title) ;激活
Sleep(2000)
While 1 ;2挂机，建死循环
        WinActivate($Title);3发送前先激活游戏窗口
        Sleep(1000)
        $FormPos=WinGetPos($Title);获取游戏窗口信息
        checkGWAlive();5检测血
        MouseClick("left", 855, 356) ;全是鼠标点的地方
        Sleep(2000)
        ;a
        MouseClick("left", 839, 278)
        ;MouseClick("left", 863, 323)
        Send("{Enter}")
        Sleep(1000)
        MouseClick("left", 856, 260)
        sleep(1000)
        checkHF()
        checkMP()
WEnd
               
Func checkHF() ;改检测耐
        If PixelGetColor($FormPos+485,$FormPos+324)<>0xFFFF00 Then
                MouseClick("left", 926, 268)
                Sleep(2000)
                MouseClick("left", 902, 313)
                MouseClick("left", 965, 266)
                Sleep(60000)
                MouseClick("left", 868, 255)
                Sleep(2000)
        EndIf
EndFunc
Func checkMP() ;改检测内力
        If PixelGetColor($FormPos+557,$FormPos+345)<>0xFFFF00 Then
                MouseClick("left", 926, 268)
                Sleep(1000)
                MouseClick("left", 884, 302)
                MouseClick("left", 965, 266)
                Sleep(120000)
                MouseClick("left", 868, 255)
                Sleep(2000)
        EndIf
EndFunc
Func checkGWAlive() ;改检血
        If PixelGetColor($FormPos+444,$FormPos+345)<>0xFFFF00 Then
                MouseClick("left", 926, 268)
                Sleep(1000)
                MouseClick("left", 884, 302)
                MouseClick("left", 965, 266)
                Sleep(300000)
                MouseClick("left", 868, 255)
                ;Sleep(2000)
                EndIf
EndFunc

creativewwz 发表于 2011-4-15 17:47:46

有深度，学习一下，不知道楼主解决了没有？

creativewwz 发表于 2011-4-15 17:49:56

楼主的意思，可以虚拟机上让鼠标自动点击吗？在主机上不耽误做其它的事情？

creativewwz 发表于 2011-4-15 17:51:22

楼主的意思，可以虚拟机上让鼠标自动点击吗？在主机上不耽误做其它的事情？
那样我的就不用开3台电脑，斗地主啦？

ynkmdcs 发表于 2011-4-15 19:41:59

新手学习学习

lluxury 发表于 2011-4-15 19:47:05

是啊,虚机的事,和本地电脑无关

creativewwz 发表于 2011-4-16 09:35:39

本帖最后由 creativewwz 于 2011-4-16 09:36 编辑

成功了吗？成功了吗？ 虚拟机可以了吗？ 正需要。

lizhu83 发表于 2011-4-16 13:57:55

用沙盘多开不好么

lizhu83 发表于 2011-4-16 13:59:34

后台取色怎么搞？可以说下吗
页: [1]
查看完整版本: 前台鼠标挂