苦命的矿工啊，多开密码输入器---不负责输入验证码 - 珈蓝神殿

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $name,$password
HotKeySet("{F1}", "_b1");快捷键
HotKeySet("{F2}", "_b2")
HotKeySet("{F3}", "_b3")
HotKeySet("{F4}", "_b4")
HotKeySet("{`}", "_exit")
_gui()
Func _gui()
local $msg,$button1,$button2,$button3,$button4,$button5
GUICreate("EVE懒人",400,300) ; will create a dialog box that when displayed is centered
GUISetState(@SW_SHOW) ; will display an empty dialog box
GUICtrlCreateLabel("Hello world! ", 10, 10)
$button1=GUICtrlCreateButton("1",30, 40, 70,25)
GUICtrlCreateLabel("用户名1", 10, 70);输入名字，方便识别要启动的帐号
$button2=GUICtrlCreateButton("2",30, 90, 70,25)
GUICtrlCreateLabel("用户名2", 10, 120)
$button3=GUICtrlCreateButton("3",30,140,70,25)
GUICtrlCreateLabel("用户名3", 10, 170)
$button4=GUICtrlCreateButton("4",30,190,70,25)
GUICtrlCreateLabel("用户名4", 10, 220)
$button5=GUICtrlCreateButton("START",30,240,70,25)
GUICtrlCreateLabel("启动器", 10, 270)
While 1
$msg=GUIGetMsg()
Select
Case $msg=$GUI_event_close
ExitLoop
Case $msg=$button1
_p("用户名1","密码");调用函数_p，请修改用户名和密码
Case $msg=$button2
_p("用户名2","密码");调用函数_p，请修改用户名和密码
Case $msg=$button3
_p("用户名3","密码");调用函数_p，请修改用户名和密码
Case $msg=$button4
_p("用户名4","密码");调用函数_p，请修改用户名和密码
Case $msg=$button5
ShellExecute("EVE Online Launcher.lnk","",@DesktopDir)
Endselect
Wend
Endfunc
Func _p($name,$password);没事别动这部分
WinActivate("EVE Online")
WinActivate("Login");二级窗口一旦点开，即使关闭也是隐藏，so只有重开启动器时没有二级窗口
Send("{ESC}");使用时，务必保证存着二级窗口（自己可见，不存在时手动点运行）
Sleep(100)
ControlFocus("[Class:wxWindowClassNR]","","");激活主窗口
Send("{ENTER}");点“运行”
controlfocus("Login","","");定位焦点
sleep(2000)
Controlsend("Login","","",$name);用户名
sleep(100)
ControlSend("Login","","","{TAB}");变换焦点
sleep(100)
ControlSend("Login","","",$password);密码
sleep(100)
ControlSend("Login","","","{TAB}")
Endfunc
Func _b1()
_p("用户名1","密码");快捷键调用的func，请自行修改用户名和密码
EndFunc
Func _b2()
_p("用户名2","密码");快捷键调用的func，请自行修改用户名和密码
EndFunc
Func _b3()
_p("用户名3","密码");快捷键调用的func，请自行修改用户名和密码
EndFunc
Func _b4()
_p("用户名4","密码");快捷键调用的func，请自行修改用户名和密码
EndFunc
Func _exit()
local $f=ProcessExists("launcher.exe")
ConsoleWrite($f)
If $f<>0 Then
If ProcessClose($f)=0 Then
MsgBox(0,"ERROR","Failed to close EVE launcher, code: "&@error)
EndIf
EndIf
Exit 0
EndFunc

复制代码