游戏登陆脚本问题[已经解决感谢大家]

lsq726 · 发表于 2008-8-4 15:41:17

登陆游戏的源码：
Opt("MouseCoordMode", 0)
WinWait("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿]", "")
If Not WinActive("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿]", "") Then WinActivate("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿]", "")
WinWaitActive("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿]", "")
MouseMove(373, 257)
MouseDown("left")
MouseUp("left")
Sleep(50)
Send("a441816468{TAB}13597555653{ENTER}")
Sleep(800)
MouseMove(329, 353)
MouseClick("left", 329, 353, 2)
Sleep(500)
WinWait("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿] [鼓浪屿十三线]", "")
If Not WinActive("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿] [鼓浪屿十三线]", "") Then WinActivate("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿] [鼓浪屿十三线]", "")
WinWaitActive("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿] [鼓浪屿十三线]", "")
MouseMove(139, 177)
MouseClick("left", 139, 177, 2)
Sleep(1000)

界面源码：
#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf
$Form1_1 = GUICreate("鼓浪自动登陆器", 274, 191, 366, 363)
$Label1 = GUICtrlCreateLabel("帐号", 24, 24, 47, 21)
GUICtrlSetFont(-1, 13, 400, 0, "黑体")
GUICtrlCreateInput("", 88, 24, 153, 28)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("登陆", 24, 128, 89, 49, 0)
GUICtrlSetFont(-1, 13, 800, 0, "黑体")
GUICtrlCreateInput("", 88, 80, 153, 28)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("密码", 24, 80, 47, 21)
GUICtrlSetFont(-1, 13, 400, 0, "黑体")
$Button2 = GUICtrlCreateButton("取消", 160, 128, 89, 49, 0)
GUICtrlSetFont(-1, 13, 800, 0, "黑体")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

请问在界面里输入帐号密码，怎么替换源码里的帐号密码？然后点击登陆按钮就执行登陆！
万分感谢

本人Q 2391697

[ 本帖最后由 lsq726 于 2008-8-11 19:07 编辑 ]

bob · 发表于 2008-8-4 16:38:17

用变量即可！

lsq726 · 发表于 2008-8-4 17:50:21

具体的怎么做啊？能把源码全写出来吗万分感谢

lsq726 · 发表于 2008-8-4 18:03:43

autoin 里人的高手呢？哪去了！

lsq726 · 发表于 2008-8-5 03:07:50

管理人呢？？？？

lsq726 · 发表于 2008-8-5 11:21:00

对这个论坛算是失望透顶！在线等了2天没一人帮助，此板块为名为“提问交流”，呵呵贴切的很，只有人提问，没人解答！

sanhen · 发表于 2008-8-5 12:00:25

失望比绝望好。。。

脚本本身就是在不同的环境下工作的，大家的兴趣也不尽相同。
脚本有什么问题，你描述清楚了吗？只说一句有问题，难道所有人就要马上帮你解决？

像我现在的环境没有你的这个游戏，怎么调试？难道为了帮你解决一个脚本，而下载一个游戏安装调试吗？所以说，这是不大切合实际的。你只能等有兴趣，有环境的朋友来帮你解决了。

zhang0121 · 发表于 2008-8-5 12:20:45

[au3]Opt("MouseCoordMode", 0)
WinWait("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿]", "")
If Not WinActive("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿]", "") Then WinActivate("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿]", "")
WinWaitActive("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿]", "")
MouseMove(373, 257)
MouseDown("left")
MouseUp("left")
Sleep(50)
Send("a441816468{TAB}13597555653{ENTER}");帐号密码应该是这一行吧
;用了{TAB}进行了输入框切换回车是确定登陆
Sleep(800)
MouseMove(329, 353)
MouseClick("left", 329, 353, 2)
Sleep(500)
WinWait("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿] [鼓浪屿十三线]", "")
If Not WinActive("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿] [鼓浪屿十三线]", "") Then WinActivate("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿] [鼓浪屿十三线]", "")
WinWaitActive("问道(1.391.0711) Jul 31 14:16:23 2008 [鼓浪屿] [鼓浪屿十三线]", "")
MouseMove(139, 177)
MouseClick("left", 139, 177, 2)
Sleep(1000)
[/au3]

lsq726 · 发表于 2008-8-5 15:24:40

原帖由 sanhen 于 2008-8-5 12:00 发表
失望比绝望好。。。

脚本本身就是在不同的环境下工作的，大家的兴趣也不尽相同。
脚本有什么问题，你描述清楚了吗？只说一句有问题，难道所有人就要马上帮你解决？

像我现在的环境没有你的这个游戏，怎么调试 ...

这么说远程帮我弄下应该是可以的吧？恳求叁恨居士我Q2391697

ghost9999cn · 发表于 2008-8-5 19:16:33


#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf
$Form1_1 = GUICreate("鼓浪 自动登陆器", 274, 191, 366, 363)
$Label1 = GUICtrlCreateLabel("帐 号", 24, 24, 47, 21)
GUICtrlSetFont(-1, 13, 400, 0, "黑体")
$id_input = GUICtrlCreateInput("", 88, 24, 153, 28)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("登 陆", 24, 128, 89, 49, 0)
GUICtrlSetFont(-1, 13, 800, 0, "黑体")
$password_input = GUICtrlCreateInput("", 88, 80, 153, 28)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("密 码", 24, 80, 47, 21)
GUICtrlSetFont(-1, 13, 400, 0, "黑体")
$Button2 = GUICtrlCreateButton("取 消", 160, 128, 89, 49, 0)
GUICtrlSetFont(-1, 13, 800, 0, "黑体")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
        case $Button1
                $id = GUICtrlRead($id_input)
                $password = GUICtrlRead($password_input)
                login($id,$password) 
                ExitLoop
        Case  $Button2
                Exit

EndSwitch
WEnd

func login($id,$password)
Opt("MouseCoordMode", 0)
WinWait("问道(1.391.0711) Jul 31 14:16:23 2008   [鼓浪屿]", "")
If Not WinActive("问道(1.391.0711) Jul 31 14:16:23 2008   [鼓浪屿]", "") Then WinActivate("问道(1.391.0711) Jul 31 14:16:23 2008   [鼓浪屿]", "")
WinWaitActive("问道(1.391.0711) Jul 31 14:16:23 2008   [鼓浪屿]", "")
MouseMove(373, 257)
MouseDown("left")
MouseUp("left")
Sleep(50)
Send($id&"{TAB}"&$password&"{ENTER}")
Sleep(800)
MouseMove(329, 353)
MouseClick("left", 329, 353, 2)
Sleep(500)
WinWait("问道(1.391.0711) Jul 31 14:16:23 2008   [鼓浪屿] [鼓浪屿十三线]", "")
If Not WinActive("问道(1.391.0711) Jul 31 14:16:23 2008   [鼓浪屿] [鼓浪屿十三线]", "") Then WinActivate("问道(1.391.0711) Jul 31 14:16:23 2008   [鼓浪屿] [鼓浪屿十三线]", "")
WinWaitActive("问道(1.391.0711) Jul 31 14:16:23 2008   [鼓浪屿] [鼓浪屿十三线]", "")
MouseMove(139, 177)
MouseClick("left", 139, 177, 2)
Sleep(1000)
endfunc

这样应该可以了,如果原来的代码没问题的话
不行我也不知道为什么,手上没这个游戏

这个脚本原本不是你的吧,如果是你的,何至于guictrlread都不会呢

lsq726 · 发表于 2008-8-5 20:51:13

原帖由 ghost9999cn 于 2008-8-5 19:16 发表
[au3]
#include

#Region ### START Koda GUI section ### Form=c:\documents and settings\administrator\桌面\form1.kxf
$Form1_1 = GUICreate("鼓浪自动登陆器", 274, 191, 366, 363)
$Label1 = GUICtrlCr ...

啥也不说了。

真的太感谢你了。我是新手所以不会guictrlread语句，这上面发的2个源码确实是我自己写的。我在论坛问了3天，只有你。。。哎不说了再说都是眼泪了

[ 本帖最后由 lsq726 于 2008-8-5 20:52 编辑 ]

snakehack · 发表于 2009-9-10 15:11:30

学习一下！！！

hollandmfq · 发表于 2014-5-6 16:38:09

雷锋精神传天下！谢谢分享！

		自动登录	找回密码
密码			加入