下拉框怎么选择固定的回答问题？？？

feixiang737

谢谢斑竹提醒，刚刚才起来标题乱写的，不太懂哦- -
以下是代码，下拉框那怎么固定一个问题？假如我想写，您孩子的生日是什么，怎么选择？（在这里谢谢海哥和个位群友给的帮助，3Q

$oIE = _IECreate("http://account.changyou.com/newReg/register.jsp?game=TL2", 0, 1, 1, 1) ;登陆页面
;~ 找已经存在的的ie窗口,显示ie,等待网页载入完全然后返回,激活此ie窗口
WinSetState("畅游帐号系统 - 注册账号 - 填写信息 - Microsoft Internet Explorer", "",@SW_MAXIMIZE);

$PassWord = _IEGetObjById($oIE, "cn") ;用户名

If IsObj($PassWord) Then $PassWord.value = Random(11111111, 99999999, 1);用户名输入

$PassWord = _IEGetObjById($oIE, "passwd") ;password为密码表格
If IsObj($PassWord) Then $PassWord.value = "qq0000" ;这里是输入的密码

$PassWord = _IEGetObjById($oIE, "passwdverify") ;passwd为游戏密码
If IsObj($PassWord) Then $PassWord.value = "qq0000";这里是重复输入密码


$PassWord = _IEGetObjById($oIE, "modcode") ;设置超级密码
If IsObj($PassWord) Then $PassWord.value = "feixiang737";这里是输入超级密码

$PassWord = _IEGetObjById($oIE, "email") ;邮箱表格名字
If IsObj($PassWord) Then $PassWord.value = Random(11111111, 99999999, 1) & "@126.com"

$PassWord = _IEGetObjById($oIE, "sn") ;真实名字
If IsObj($PassWord) Then $PassWord.value = "苏岚翠"
$PassWord = _IEGetObjById($oIE, "certnumber") ;身份证
If IsObj($PassWord) Then $PassWord.value = "130502198109254967"

$PassWord = _IEGetObjById($oIE, "answer") ;密保答案
If IsObj($PassWord) Then $PassWord.value = "19900706"


$oIE.document.parentWindow.execScript("annexcode_focus();showCheckCode();")

$sui = Random(1, 22, 1) ;0是输入1，8是看有几个下拉框
$oQuery = _IEGetObjByName($oIE, "question") ; 评论
_IEFormElementOptionSelect($oQuery, $sui, 1, "byIndex")



$PassWord = _IEGetObjById($oIE, "cn") ;用户名

$rnd = Random(11111111, 99999999, 1)
If IsObj($PassWord) Then ;用户名输入
        $PassWord.value = $rnd
        FileWriteLine("账号.ini", $rnd & " " & "qq0000")
EndIf

netegg

楼主把代码整理下也许会有人关注的

feixiang737

嘎嘎，这个就是我新写的全部代码了，咱菜鸟，还不怎么会了，写的不好希望个位大哥大姐指教

netegg

回复 3# feixiang737
整理脚本没那么麻烦,在scite编辑器里有这个功能,工具菜单项下有整理源代码

feixiang737

回复 4# netegg
是这样么？对了，还有个问题，我不是写的是注册机么？怎么把随机输入的帐号复制出来，保存在某个文件夹里呢？这问题我也不会，希望大家多多帮忙

#include <IE.au3>
;ProcessClose ("iexplore.exe")
$oIE = _IECreate("http://account.changyou.com/newReg/register.jsp?game=TL2", 0, 1, 1, 1) ;登陆页面
;~ 找已经存在的的ie窗口,显示ie,等待网页载入完全然后返回,激活此ie窗口
WinSetState("畅游帐号系统 - 注册账号 - 填写信息 - Microsoft Internet Explorer", "", @SW_MAXIMIZE);

$PassWord = _IEGetObjById($oIE, "cn") ;用户名

If IsObj($PassWord) Then $PassWord.value = Random(11111111, 99999999, 1);用户名输入

$PassWord = _IEGetObjById($oIE, "passwd") ;password为密码表格
If IsObj($PassWord) Then $PassWord.value = "qq0000" ;这里是输入的密码

$PassWord = _IEGetObjById($oIE, "passwdverify") ;passwd为游戏密码
If IsObj($PassWord) Then $PassWord.value = "qq0000";这里是重复输入密码

;        $PassWord = _IEGetObjById ($oIE, "passwdverify") ;重复密码
;        If IsObj($PassWord) Then $PassWord.value = "qq0000";这里是重复密码

$PassWord = _IEGetObjById($oIE, "modcode") ;设置超级密码
If IsObj($PassWord) Then $PassWord.value = "feixiang737";这里是输入超级密码

$PassWord = _IEGetObjById($oIE, "email") ;邮箱表格名字
If IsObj($PassWord) Then $PassWord.value = Random(11111111, 99999999, 1) & "@126.com"

$PassWord = _IEGetObjById($oIE, "sn") ;真实名字
If IsObj($PassWord) Then $PassWord.value = "苏岚翠"
$PassWord = _IEGetObjById($oIE, "certnumber") ;身份证
If IsObj($PassWord) Then $PassWord.value = "130502198109254967"

;        $oSelect = _IEFormElementGetObjByName ($oForm, "question")
; _IEFormElementOptionSelect ($oSelect, "您配偶的生日？", 1, "byText")

$PassWord = _IEGetObjById($oIE, "answer") ;密保答案
If IsObj($PassWord) Then $PassWord.value = "19900706"

netegg

你不是已经获取到值了吗,写个ini文件就是了

feixiang737

回复 6# netegg


    大哥，咱菜啊，最近刚完的，能把代码发出来，我研究下么，3Q

netegg

你到源码区找个类似的脚本看看如何处理ini文件就行了,我不太折腾外部文件,也不是很熟

feixiang737

那 那个验证码那里怎么办呢？要按一下那个显示验证码，才能显示出来验证码，怎么实现他自动点机那个按钮，显示出验证码来呢？还有那个下拉框，怎么处理？

www378660084

显示验证码的:

$oIE.document.parentWindow.execScript("annexcode_focus();showCheckCode();")

hzxymkb

标题违规，请速改标题，否则锁帖！

user3000

标题违规，请速改标题，否则锁帖！
hzxymkb 发表于 2011-7-15 23:56

    同意！要不这类帖子会泛滥

hzxymkb

还不改，锁帖！
请更改标题后PM管理人员打开！

hzxymkb

已经解锁！下面继续！

feixiang737

现在就剩个问题：
问题，下拉条那里，怎么固定输入一个指定的回答问题呢？例：下拉框里有个回答问题为“您孩子的生日是？ ”  怎么选择这个问题？我上面的代码写的是随机选择一个回答问题，但是我不会固定问题 - -