脚本编出来了却不能登陆请版主及同道指正（登陆问题）
脚本编出来了却不能登陆#include <GUIConstants.au3>
#include <IE.au3>
$Form1 = GUICreate("脚本", 336, 225, 266, 170)
$Label1 = GUICtrlCreateLabel("邮箱", 40, 56, 42, 23)
GUICtrlSetFont(-1, 14, 400, 0, "宋体")
$Input1 = GUICtrlCreateInput("请输入邮箱", 88, 56, 129, 21)
$OK = GUICtrlCreateButton("确认", 88, 128, 113, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $OK
Send ("")
_ImageX()
$oIE = _IECreate("")
$oForm = _IEGetObjById($oIE,"gaia_loginform")
$Login = _IEFormElementGetObjByName($oForm,"")
_IEFormElementSetValue($Login,"")
_IEFormSubmit($oForm)
EndSwitch
WEnd
Exit
Func _ImageX()
$file = FileOpen ("123.txt",0);按行循环读取文本
If $file <> -1 Then
While 1
$line_txt = FileReadLine($file)
If @error = -1 Then ExitLoop
if $line_txt <> "" Then
_IECreate($line_txt,0,1,0,-1)
EndIf
Wend
EndIf
FileClose($file)
EndFunc
如果你测试的话 请建个123.txt的记事本
请加3个链接 http://www.fasteuro.nl/pages/confirm.php
http://www.8euromail.nl/pages/confirm.php
http://www.moneyplace.nl/pages/confirm.php
没有病毒的 请放心
我测试的时候只是打开了网站 但是不能输入名字 也不能确定提交
请问 可不可以没隔2秒注册一个网页
头有点晕 不得不睡了 朋友们帮个忙呀
[ 本帖最后由 xptool 于 2008-11-15 05:25 编辑 ] 错误连编了，我只写了其中的ＩＥ部分，其它ＬＺ自己多看一下帮助．．．
$oIE = _IECreate($URL)
$oForm = _IEFormGetObjByName($oIE,"gaia_loginform")
$Login = _IEFormElementGetObjByName($oForm,"user")
_IEFormElementSetValue($Login,"")
$Login = _IEFormElementGetObjByName($oForm,"password")
_IEFormElementSetValue($Login,"")
_IEFormSubmit($oForm)
页:
[1]