主题：[原创]qq校友自动登录
hank2611
[专家分：0] 发布于 2009-10-27 12:44:00
qq校友地址 http://xiaoyou.qq.com/
我想做一个自动登录qq校友的小程序,可是无法用 WebBrowser 找到网页的输入框名称.
文件已经做好.缺少部分代码.
望高手指点.
最后更新于：2009-10-27 18:22:00
回复列表 （共5个回复）
沙发
tanchuhan [专家分：15140] 发布于 2009-10-27 14:29:00
getElementById(xx)
xx = {"u", "p", "verifycode"}
板凳
hank2611 [专家分：0] 发布于 2009-10-27 17:25:00
{}显示的是无效字符哦..能给个具体的代码吗.
校友登陆地址好像和一般的邮箱登陆不一样的,
麻烦了.
3 楼
tanchuhan [专家分：15140] 发布于 2009-10-27 19:23:00
[quote]
{}显示的是无效字符哦..能给个具体的代码吗.
校友登陆地址好像和一般的邮箱登陆不一样的,
麻烦了.[/quote]
[url]http://www.google.cn/search?hl=zh-CN&newwindow=1&q=vb+webbrowser+GetElementById&aq=f&oq=[/url]
WebBrowser1.Document.GetElementById("u").value = "hello DOM"
4 楼
hank2611 [专家分：0] 发布于 2009-10-27 21:22:00
本人愚钝.看了半天.还是没有找到解决办法.能帮忙写出吗.
不胜感激啊
5 楼
tanchuhan [专家分：15140] 发布于 2009-10-27 23:29:00
引用里添加"Microsoft HTML Object Library"
Option Explicit
Private Const URL_LOGON As String = "http://ui.ptlogin2.qq.com/cgi-bin/login?appid=15000102&hide_title_bar=1&qlogin_jumpname=xiaoyou_qlogin&s_url=http://xiaoyou.qq.com/index.php%3Fmod%3Dlogin%26adtag%3Dfrom_index&css=http://imgcache.qq.com/campus/login/login.css&self_regurl=http://xiaoyou.qq.com/emailreg.html"
Private Sub Form_Load()
WebBrowser1.Navigate URL_LOGON
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc As HTMLDocument
Set doc = WebBrowser1.document
If URL = URL_LOGON Then
doc.GetElementById("u").Value = "name_here"
doc.GetElementById("p").Value = "password_here"
End If
End Sub
我来回复
您所在位置：