看了自动登陆多个邮箱的启发
看了自动登录多个邮箱，自己想写个即可直接登陆邮箱又可登陆网页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 只是想实现打开各自连接的网页呀
欢迎高手指导:face (29): 不错，支持一下，谢谢。
页:
[1]