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

ww4155847

下面的脚本是热血传奇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 

水木子

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

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

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

ww4155847

怕被盗号所以想帮机器

水木子

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

ww4155847

Aut2Exe，转成可执行文件

水木子

Aut2Exe，转成可执行文件
ww4155847 发表于 2009-9-18 10:26

是啊！将AU3文件转换成EXE

ww4155847

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

水木子

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

ww4155847

我怕谁把这个文件考走

水木子

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

ZEROBOYS

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

316428696

高手过招，果然看不懂！

rikthhpgf2005