自动安装到填写账户名不能写入

lszconan · 发表于 2009-12-31 15:06:35

本帖最后由 lszconan 于 2010-1-13 14:56 编辑

我改怎么把账户名写进去
我用工具查了下- -，是来自网页的，，能给点提示不。。该怎么弄呢？

sanmoking · 发表于 2009-12-31 17:26:18

ie.au3 那个udf

先获取内嵌ie窗口句柄
#include <IE.au3>
$oie=_IEAttach ("《传奇归来》",Embedded)

然后用
clipput(_IEDocReadHTML ( $oie ))
来把源码复制到剪贴板，你自己保存个记事本分析一下源代码的内容，

最后用
_IEFormElementSetValue ( ByRef $o_object, $s_newvalue [, $f_fireEvent = 1] )
这个函数去设定那三个账户输入表单的值。。。。只能说这么多了，不懂情仔细研究ie.au3的帮助。。。。。
传送门：【闲来无事,开始汉化udf】

lszconan · 发表于 2009-12-31 18:53:50

回复 2# sanmoking

请sanmoking大哥能说的详细点不，我昨天刚刚接触这个，不太明白。

sanmoking · 发表于 2009-12-31 19:14:19

你把下面的代码保存成au3文件，然后把你安装的那个游戏到一楼显示的步骤，运行下面这段代码，然后把打开的记事本里的东西贴到本帖子里、。。。。。。

#include <IE.au3>
$oie=_IEAttach ("《传奇归来》",Embedded)
FileWrite ( @DesktopDir&"\txt.txt", _IEDocReadHTML ( $oie ))
ShellExecute (@DesktopDir&"\txt.txt","" , @DesktopDir)

sanmoking · 发表于 2009-12-31 19:15:56

本帖最后由 sanmoking 于 2009-12-31 19:17 编辑

我出去有点事，回来再帮你看。。。。。

上边的代码是获取那个内嵌ie页面源代码的，，，
如果上面的代码获取不到内容，我在帮你想办法。。。。

sanmoking · 发表于 2009-12-31 19:16:28

哪位路过的，看看我用的方法对不？？？？

lszconan · 发表于 2009-12-31 21:48:19

回复 6# sanmoking

sanmoking大哥我直接查看IE源代码- -，，得下面那个，后面那个你的embedded打错了。。漏了引号了，，我添加上引号也得下面那个IE源代码了

<HTML lang=zh xml:lang="zh" xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>传奇归来推荐点安装页</TITLE>
<META content=zh-cn http-equiv=Content-Language>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content=no-cache http-equiv=Pragma><LINK rel=stylesheet type=text/css href="common/style.css"><LINK rel=stylesheet type=text/css href="http://pic.static.sdo.com/mymir/mymir_act/template/skins/demo/innerStyle.css"></HEAD>
<BODY id=install>
<DIV class=fst_wrap>
<FORM id=commendForm method=post name=commendForm action=/setup/newinstall.asp?GameID=106 key="106">
<H1>请输入推荐您安装客户端的玩家资料</H1>
<P>邀请人账号： <INPUT onblur="if(this.value==''){this.value=this.defaultValue;this.style.color='#999';document.getElementById('ReAccount').value=document.getElementById('ReAccount').defaultValue;document.getElementById('ReAccount').style.color='#999'}" style="COLOR: #999" id=Account class=input1 onfocus="if(this.value==this.defaultValue){this.value='';document.getElementById('ReAccount').value='';this.style.color='#000'}" value=(没有可不填) maxLength=50 size=15 name=Account> </P>
<P>请重复一次账号： <INPUT onblur="if(this.value==''){this.value=this.defaultValue;this.style.color='#999'}" style="COLOR: #999" id=ReAccount class=input1 onfocus="if(this.value==this.defaultValue){this.value='';}this.style.color='#000'" value=(没有可不填) maxLength=50 size=15 name=ReAccount> </P>
<P>您的通行证账号： <INPUT onblur="if(this.value==''){this.value=this.defaultValue;this.style.color='#999'}" style="COLOR: #999" id=ByAccount class=input1 onfocus="if(this.value==this.defaultValue){this.value='';}this.style.color='#000'" value=(没有可不填) maxLength=50 size=15 name=ByAccount> <A class=reglink href="http://register1.sdo.com/index.aspx?from=106&zone=web" target=_blank>注册盛大通行证</A> </P></FORM>
<P style="DISPLAY: none" class="center alert">(没有可不填)</P>
<P class=desc>推荐点奖励： <BR>灵符5张、钻石VIP每日1小时双倍特权 <BR><BR>推荐点获得规则： <BR>1、每成功推荐一位朋友安装完成《传奇归来》游戏客户端，推荐者就可获得1点推荐点； <BR>2、每台电脑只能给予推荐人1次推荐奖励； <BR>3、推荐点可以累积，推荐点达到10点，就可以领取一份奖励。 <BR>4、每个通行证每天只能推荐2次。 <BR><BR>奖励说明： <BR>达到10点推荐点，即可同时兑换到以下奖励： <BR>1、免费领取：灵符5张 <BR>2、升级钻石VIP：每天可领取一小时双倍经验。 <BR>成为钻石VIP后，您的角色名上还将有镶钻显示，彰显您账号的尊贵。 <BR><BR>奖励获得流程： <BR>在页面上完成奖励兑换后，登陆《传奇归来》可在盟重“贵宾特使”处领取奖励。 <BR><BR>注：奖励兑换页面及奖励领取，将在《传奇归来》公测后开放。 </P>
<UL class=prizelist_1>
<LI><IMG class=awardImage src="upfile/2009101937892329.gif">
<DIV class=alert>灵符5张、钻石VIP每日1小时双倍特权</DIV></LI></UL>
<DIV class=clearboth></DIV>
<P style="CLEAR: left" class="center alert"><A href="default.asp?gameid=106" target=_blank>点击进入领奖页面>></A> </P></DIV></BODY></HTML>

sanmoking · 发表于 2009-12-31 22:02:54

本帖最后由 sanmoking 于 2010-1-1 01:42 编辑

你试试看

#include <IE.au3>

$oie=_IEAttach ("《传奇归来》","Embedded")
$yourfriend="aaaaaaaaaa" ;你的推荐人账号
$yourname="bbbbbbbbbbb" ;你自己的账号
$oForm = _IEFormGetObjByName ($oIE, "commendForm")
$oQuery1 = _IEFormElementGetObjByName ($oForm, "Account")
_IEFormElementSetValue ($oQuery1,$yourfriend)
$oQuery2 = _IEFormElementGetObjByName ($oForm, "ReAccount")
_IEFormElementSetValue ($oQuery2,$yourfriend)
$oQuery3 = _IEFormElementGetObjByName ($oForm, "ByAccount")
_IEFormElementSetValue ($oQuery3,$yourname)
~~_IEFormSubmit ($oForm,0);这一句是au3帮你提交所填的三个输入栏的内容，如果你只是填写上账号就不用这句了~~
我刚测试了一下，不能要上面那句，安装程序提示缺少参数。。。。。

sanmoking · 发表于 2010-1-1 01:43:20

上面只是填写账号的部分，其余窗口检测的相关部分楼主自己搞定吧。。。。

lszconan · 发表于 2010-1-1 11:43:14

本帖最后由 lszconan 于 2010-1-1 12:31 编辑

回复 8# sanmoking

sanmoking大哥- -还是不行，，我把代码发给您看看，，还是卡主在那地方

run("g:\传奇归来.exe")
winwait("《传奇归来》公测版安装","欢迎使用《传奇归来》公测版安装向导")
ControlClick("《传奇归来》公测版安装","欢迎使用《传奇归来》公测版安装向导","Button 5")
send("!n")
winwait("《传奇归来》公测版安装","在安装《传奇归来》公测版之前")
ControlClick("《传奇归来》公测版安装","在安装《传奇归来》公测版之前","Button 5")
send("!i")
winwait("《传奇归来》公测版安装","选择《传奇归来》公测版要安装的文件夹")
ControlClick("《传奇归来》公测版安装","选择《传奇归来》公测版要安装的文件夹","Button 5")
send("!i")
winwait("《传奇归来》公测版安装请输入推荐用户通行证","安装程序已经运行")
#include <IE.au3>
$oie=_IEAttach ("《传奇归来》公测版安装请输入推荐用户通行证","Embedded")
$yourfriend="xxd.2008"
$oForm = _IEFormGetObjByName ($oIE, "commendForm")
$oQuery1 = _IEFormElementGetObjByName ($oForm, "Account")
_IEFormElementSetValue ($oQuery1,$yourfriend)
$oQuery2 = _IEFormElementGetObjByName ($oForm, "ReAccount")
_IEFormElementSetValue ($oQuery2,$yourfriend)
ControlClick("《传奇归来》公测版安装","安装程序已经成功","Button 5")
send("!n")
winwait("《传奇归来》公测版安装","《传奇归来公测版安装完成")
send("!c")

不知道是不是和复制有关，填入账户名那地方只能右键+P复制，，或者要先点击才能输入。。
网页没有提交的控件，只有安装程序才有~~

lszconan · 发表于 2010-1-1 13:10:36

哈哈，非常谢谢sanmoking大哥，问题解决了，我自己后面程序没弄好！再次感谢sanmoking大哥！！

sanmoking · 发表于 2010-1-1 14:25:18

我测试的时候可以填进去的。。。解决就好。。。

adasir · 发表于 2010-1-7 02:49:09

我也有遇到过，已经解决了

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

自动安装到填写账户名不能写入

本帖子中包含更多资源

评分

评分

本帖子中包含更多资源