谁有Gmail的自动登陆代码？（像登陆163邮箱一样的）

sark

谁有Gmail的自动登陆代码？
（像登陆163邮箱一样的）

[ 本帖最后由 sark 于 2008-8-28 13:41 编辑 ]

真会走路的废柴

#include <IE.au3>
$oIE = _IECreate("http://mail.google.com")
$oForm = _IEGetObjById($oIE,"gaia_loginform")
$Login = _IEFormElementGetObjByName($oForm,"Email")
$Pass = _IEFormElementGetObjByName($oForm,"Passwd")
_IEFormElementSetValue($Login,"用户名")
_IEFormElementSetValue($Pass,"密码")
_IEFormSubmit($oForm)

以上...

sark

感谢楼上！谢谢！
请问在源代码中找gaia_loginform、Email、Passwd有什么技巧！
能否告诉我！
例如：id=....
          name=.......

[ 本帖最后由 sark 于 2008-8-27 20:17 编辑 ]

nightbb

你懂 html 就明白

huangke

真的很简洁,呵呵,用上了

寒星

有没有Gmail注册机的源码？

芳廷升

支持楼主  我顶顶顶。是哈哈
















........................................................................................................
武林外传外挂      http://www.zixzi.cn/html/youxijingmeijietu/2009/0519/67.html
诛仙外挂             http://www.riwori.cn/html/xinshouyouxizhinan/2009/0722/91.html

爱与和平

谢谢，收藏，我改改看看能不能注册gmail

455901394

真是简洁啊

smking0204

威啊威啊威啊威啊威啊

fqvip1

Global $host, $port, $delay, $user, $pass, $sk, $ack
$host = "192.168.203.11";交换机IP
$port = 23;telnet默认端口
$delay = 500 ; 等待时间/毫秒
$user = "username";用户名
$pass = "password";密码

TCPStartup()
$sk = TCPConnect($host, $port)

If $sk = -1 Then
MsgBox(0, "", "Cannot connect")
Exit
EndIf

Sleep($delay)
$ack = TCPRecv($sk, 150)
TrayTip("", $ack, 10)

If StringInStr($ack, "ruijie") >= 1 Then ;如果连接成功，设备返回有关信息
;下面将发送用户名
Sleep($delay)
TCPSend($sk, $user & @CRLF)
Sleep($delay)
$ack = TCPRecv($sk, 80)
TrayTip("", $ack, 10)
; 和密码
Sleep($delay)
TCPSend($sk, $pass & @CRLF)
Sleep($delay)
$ack = TCPRecv($sk, 80)
TrayTip("", $ack, 10)
Else
MsgBox(0, "", "Cannot connect")
Exit
EndIf

If StringInStr($ack, "config>") = 0 Then ; 登陆成功后设备返回的信息
MsgBox(0, "Error", "Access denied")
Exit
EndIf

; 下面你可以发送一些命令给设备，比如重启
Sleep($delay)
TCPSend($sk, "reload" & @CRLF)
Sleep($delay)
$ack = TCPRecv($sk, 2000)
MsgBox(0,"Running processes", $ack)

TCPCloseSocket($sk)
TCPShutdown()
Exit

leibin0121

学习了  呵呵

changwang

回复 3# sark
可以试试火狐浏览器，那个找这些很方便的