| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2414 人关注过本帖
标题:用WebBrowser1登录QQ的问题
取消只看楼主 加入收藏
ease1000
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2013-5-11
收藏
 问题点数:0 回复次数:0 
用WebBrowser1登录QQ的问题
Private Sub Command1_Click()
    WebBrowser1.Navigate2 "http://ui.ptlogin2.
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
    'On Error Resume Next
    If InStr(Url, "ui.ptlogin2.) <> 0 Then '登录页面
        pDisp.Document.getElementById("u").Value = "392354601"      '账号
        pDisp.Document.getElementById("p").Value = "a123456"        '密码
        
        pDisp.Document.getElementById("p").onchange
        pDisp.Document.getElementById("p").Click


        'pDisp.Document.getElementById("verifycode").Value = "xmsz" '验证码
        'pDisp.Document.getElementById("login_button").Click         '登录
    End If
End Sub
'源码如下
Private Sub Command1_Click()
    WebBrowser1.Navigate2 "http://ui.ptlogin2.
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
    On Error Resume Next
    If InStr(Url, "ui.ptlogin2.) <> 0 Then '登录页面
        pDisp.Document.getElementById("u").Value = "392354601"      '账号

        pDisp.Document.getElementById("p").Value = "a123456"        '密码
        pDisp.Document.getElementById("p").Click                    '密码框需要手动点击一下,这句没有效果?

        'pDisp.Document.getElementById("verifycode").Value = "xmsz" '验证码

        'pDisp.Document.getElementById("login_button").Click         '登录
    End If
End Sub

直接按登录键不能正确登录 , 会出现验证码的提示框
如果手动点击密码框一下 , 再按登录键则可正常登录
求高手指点
搜索更多相关主题的帖子: Object 登录QQ 
2013-05-14 12:54
快速回复:用WebBrowser1登录QQ的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017933 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved