看了自动登陆多个邮箱的启发

岳修志

看了自动登录多个邮箱，自己想写个即可直接登陆邮箱又可登陆网页qq的软件只是本人刚接触au3不知如何修改.想请教高手
我把源码附上希望高手可以把我修改修改
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>

#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("多功能登陆器", 413, 436, 279, 170)
GUISetCursor (2)
$Group1 = GUICtrlCreateGroup("webqq", 112, 16, 161, 57)
$Label1 = GUICtrlCreateLabel("web.qq.com", 160, 40, 62, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("163", 112, 96, 161, 49)
$Label2 = GUICtrlCreateLabel("mail.163.com", 160, 112, 66, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("网页qq登陆", 112, 176, 161, 57, $WS_GROUP)
$Button2 = GUICtrlCreateButton("163邮箱登陆", 112, 256, 161, 57, $WS_GROUP)
$Button3 = GUICtrlCreateButton("退出", 112, 352, 169, 65, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                case $button1
                     $q="您的用户名"
                     $e="您的密码"
                     dzx($q,$e)
               Case $Button2
                $q="您的用户名"
                $e="您的密码"
            dzx($q,$e)
          case $button3
          exit
        EndSwitch
WEnd
Func dzx($m, $n)
#include <IE.au3>

$oIE = _IECreate("http://mail.163.com/",0,1,1,1 )
$oIE = _IECreate("http://web.qq.com/",0,1,1,1 )
_IELoadWait ($oIE)
_IELoadWait ($oIE)

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

For $oInput In $oInputs
if $oInput.name = "username" then
       $oInput.value=$m
EndIf
Next

For $oInput In $oInputs
if $oInput.name = "password" then
       $oInput.value=$n
EndIf
Next


For $oInput In $oInputs
if $oInput.name = "登录邮箱" then
       _IEAction ($oInput, "click")

EndIf
Next

EndFunc

岳修志

只是想实现打开各自连接的网页呀
欢迎高手指导

心照不宣

不错，支持一下，谢谢。