sark 发表于 2008-8-27 15:58:35

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

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

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

真会走路的废柴 发表于 2008-8-27 17:00:09

#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 发表于 2008-8-27 20:12:31

万分感谢！

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

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

nightbb 发表于 2008-8-27 20:47:44

你懂 html 就明白

huangke 发表于 2009-5-13 10:50:55

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

寒星 发表于 2009-8-2 08:38:48

有没有Gmail注册机的源码？

芳廷升 发表于 2009-8-6 02:56:43

支持楼主 我顶顶顶。

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
















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

爱与和平 发表于 2011-1-7 11:21:06

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

455901394 发表于 2011-1-10 21:26:22

真是简洁啊

smking0204 发表于 2011-4-15 16:08:17

威啊威啊威啊威啊威啊

fqvip1 发表于 2011-8-10 18:49:16

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 发表于 2011-8-15 00:11:55

学习了呵呵

changwang 发表于 2012-8-18 12:40:00

回复 3# sark
可以试试火狐浏览器，那个找这些很方便的
页: [1]
查看完整版本: 谁有Gmail的自动登陆代码？（像登陆163邮箱一样的）