天芯蓝影 发表于 2008-9-18 16:13:30

求教自动登陆网页的问题

玩国服还没公测的网游,所以先去韩服了
韩服现在普遍封大陆IP,所以需要VPN代理，免费的下载地址
http://hotspotshield.com/download/hss/HSS-1.06-install-anchorfree-76-conduit.exe
韩国官网http://login.netmarble.net/login/login.asp
这个登陆页面比较清楚,另一个游戏分页面登陆鼠标右键都封了，更麻烦

参考论坛上国内油箱登陆的帖子............找到控件就可以自动舒服点击登陆,但是韩服控件名字源代码里找不到,用抓包软件只能抓到名字，密码加密

本来理想状态想写一个从记事本读取预先写好的帐号密码,然后自动登陆,记事本中1~12位为帐号,不足用空格，13~24位为密码.
现阶段只求能简单登陆一个号就OK了，预先在脚本里写入帐号密码就行.
如果叙述有什么不清楚加我Q229564803.
最后提供几个可以登陆的帐号供测试
ID:aadok       密码:5656789
ID:fuoer      密码:325651

[ 本帖最后由 天芯蓝影 于 2008-9-22 15:48 编辑 ]

天芯蓝影 发表于 2008-9-19 09:37:45

继续在线等`````````````````````````````````````````````

javarike 发表于 2008-9-19 11:57:01

我帮你试一下吧````等我`

javarike 发表于 2008-9-19 12:14:07

测试通过了，呵呵```

#include <IE.au3>

$oIE = _IECreate("http://login.netmarble.net/login/login.asp",0,1,1,0 )

_IELoadWait ($oIE)
$oInputs = _IETagNameGetCollection ($oIE, "INPUT")

For $oInput In $oInputs
if $oInput.name = "put_id" then
$oInput.value="aadok"
EndIf
Next

For $oInput In $oInputs
if $oInput.name = "put_pwd" then
$oInput.value="5656789"
EndIf
Next

_IEImgClick($oIE, "l_login_01.gif", "src")
Exit

huangke 发表于 2008-9-19 19:47:07

#include <IE.au3>

$oIE = _IECreate("http://login.netmarble.net/login/login.asp",0,1,1,0 )

_IELoadWait ($oIE)

$UserName = _IEGetObjById ($oIE, "put_id")
If IsObj($UserName) Then $UserName.value = "aadok"
$PassWord = _IEGetObjById ($oIE, "put_pwd")
If IsObj($PassWord) Then $PassWord.value = "5656789"
_IEImgClick($oIE, "l_login_01.gif", "src")
Exit

修改了再发一个精简点的..卡卡``

ollydbg 发表于 2009-12-19 14:16:07

很长啊，收藏学习！
页: [1]
查看完整版本: 求教自动登陆网页的问题