论坛 › 『 提问交流 』 › 找高手修改1个游戏多id自动登录管理器

ww4155847 发表于 2009-9-18 09:53:05

找高手修改1个游戏多id自动登录管理器

下面的脚本是热血传奇4id自动登录，现在的问题是不能选区只是传奇上次登录哪个区就进哪个区，用模拟键盘鼠标的方法选服务器的，用延时来等待下一步输入，哪位高手能帮忙修改一下精确控制每一步（最好能选区并且绑定机器使用）我可以给适当的报酬，QQ178060993 加我注明传奇自动登录#include <GuiConstants.au3>
$width=400
$height=250
$left=30
GuiCreate("我的登录器", $width, $height,(@DesktopWidth-$width)/2, (@DesktopHeight-$height)/2)
$button1= GuiCtrlCreateButton("111区1号", $left, 30, 150, 70)
$button2= GuiCtrlCreateButton("111区2号", $left+190, 30, 150, 70)

$button3= GuiCtrlCreateButton("111区3号", $left, 140, 150, 70)
$button4= GuiCtrlCreateButton("111区4号", $left+190, 140, 150, 70)



GuiSetState()


While 1
   $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
      ExitLoop

Case $msg = $button1
_ID01()
Case $msg = $button2
_ID02()

Case $msg = $button3
_ID03()

Case $msg = $button4
_ID04()



   
EndSelect
WEnd



Func _ID01()   
run("F:\传奇\Mir.exe")
WinwaitActive("传奇加载")
MouseClick("left",287,556,1,1)
sleep(17000)
send("{enter}")
sleep(1000)
MouseClick("left",397,308,1,1)
sleep(2000)
MouseClick("left",332,192,1,1)
sleep(1000)
send("111区1号")
sleep(500)
send("{TAB}")
sleep(500)
send("******")
send("{enter}")
sleep(1000)
MouseClick("left",171,467,1,1)
sleep(1800)
MouseClick("left",405,467,1,1)
sleep(1800)
send("{enter}")
sleep(7000)
MouseClick("left",151,0,1,1)
sleep(500)
MouseClick("left",151,0,1,1)
sleep(500)
MouseClick("left",151,0,1,1)
sleep(1000)
MouseClick("left",61,140,1,1)
sleep(1100)
MouseClick("left",190,90,1,1)
sleep(2000)
MouseClick("left",541,460,1,1)
sleep(1200)
send("{enter}")
sleep(1800)
MouseClick("left",722,467,1,1)
sleep(1800)
MouseClick("left",405,467,1,1)
sleep(1800)
send("{enter}")
sleep(7000)
MouseClick("left",573,460,1,1)
sleep(1200)
send("{enter}")
sleep(1800)
ProcessClose("mir.exe")

sleep(3000)
MouseClick("left",620,390,1,1)
EndFunc

Func _ID02()   
run("F:\传奇\Mir.exe")
MouseClick("left",287,556,1,1)
sleep(17000)
send("{enter}")
sleep(1000)
MouseClick("left",397,308,1,1)
sleep(2000)
MouseClick("left",332,192,1,1)
sleep(1000)
send("111区2号")
sleep(500)
send("{TAB}")
sleep(500)
send("******")
send("{enter}")
sleep(1000)
MouseClick("left",171,467,1,1)
sleep(1800)
MouseClick("left",405,467,1,1)
sleep(1800)
send("{enter}")
sleep(180000)
MouseClick("left",573,460,1,1)
sleep(1200)
send("{enter}")
sleep(1800)
ProcessClose("mir.exe")

sleep(3000)
MouseClick("left",620,390,1,1)
EndFunc


Func _ID03()   
run("F:\传奇\Mir.exe")
WinwaitActive("传奇加载")
MouseClick("left",287,556,1,1)
sleep(17000)
send("{enter}")
sleep(1000)
MouseClick("left",397,308,1,1)
sleep(2000)
MouseClick("left",332,192,1,1)
sleep(1000)
send("111区3号")
sleep(500)
send("{TAB}")
sleep(500)
send("******")
send("{enter}")
sleep(1000)
MouseClick("left",171,467,1,1)
sleep(1800)
MouseClick("left",405,467,1,1)
sleep(1800)
send("{enter}")
sleep(180000)
MouseClick("left",573,460,1,1)
sleep(1200)
send("{enter}")
sleep(1800)
ProcessClose("mir.exe")

sleep(3000)
MouseClick("left",620,390,1,1)
EndFunc


Func _ID04()
run("F:\传奇\Mir.exe")
WinwaitActive("传奇加载")
MouseClick("left",287,556,1,1)
sleep(17000)
send("{enter}")
sleep(1000)
MouseClick("left",397,308,1,1)
sleep(2000)
MouseClick("left",332,192,1,1)
sleep(1000)
send("111区4号")
sleep(500)
send("{TAB}")
sleep(500)
send("******")
send("{enter}")
sleep(1000)
MouseClick("left",171,467,1,1)
sleep(1800)
MouseClick("left",405,467,1,1)
sleep(1800)
send("{enter}")
sleep(180000)
MouseClick("left",573,460,1,1)
sleep(1200)
send("{enter}")
sleep(1800)
ProcessClose("mir.exe")

sleep(3000)
MouseClick("left",620,390,1,1)
EndFunc

水木子 发表于 2009-9-18 09:58:52

本帖最后由 水木子 于 2009-9-18 10:07 编辑

没有安装传奇，不方便写。

你是一个按钮对应一个账号？

感觉这样不好，不方便后期维护，比如：修改密码 等等

ww4155847 发表于 2009-9-18 10:19:26

怕被盗号所以想帮机器

水木子 发表于 2009-9-18 10:23:03

这样登录也不见得就能保护账号的安全。

ww4155847 发表于 2009-9-18 10:26:17

Aut2Exe，转成可执行文件

水木子 发表于 2009-9-18 10:27:37

Aut2Exe，转成可执行文件
ww4155847 发表于 2009-9-18 10:26 http://www.autoitx.com/images/common/back.gif

是啊！将AU3文件转换成EXE

ww4155847 发表于 2009-9-18 10:31:30

呵呵，转exe也不安全，所以想绑机器

水木子 发表于 2009-9-18 10:57:41

将自己电脑系统维护好,盗号也不是那么容易的.

ww4155847 发表于 2009-9-18 11:01:38

我怕谁把这个文件考走

水木子 发表于 2009-9-18 11:04:25

呵呵!就是啊!那不成了将自己的号码拱手送人......

ZEROBOYS 发表于 2009-9-19 09:04:45

:face (13): 你這個僅要小小的改良，可以壓縮為1/2～1/3的行數，也比較好查閱

316428696 发表于 2010-2-9 23:45:50

高手过招，果然看不懂！

rikthhpgf2005 发表于 2010-2-11 19:16:56

:face (12):

查看完整版本: 找高手修改1个游戏多id自动登录管理器