脚本编出来了却不能登陆请版主及同道指正（登陆问题）

xptool

脚本编出来了却不能登陆

#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 编辑 ]

liongodmien

错误连编了，我只写了其中的ＩＥ部分，其它ＬＺ自己多看一下帮助．．．

$oIE = _IECreate($URL)
$oForm = _IEFormGetObjByName($oIE,"gaia_loginform")
$Login = _IEFormElementGetObjByName($oForm,"user")
_IEFormElementSetValue($Login,"")
$Login = _IEFormElementGetObjByName($oForm,"password")
_IEFormElementSetValue($Login,"")
_IEFormSubmit($oForm)