摆个擂 - VB6论坛 - 编程论坛

ease1000

等　级：新手上路
帖　子：4
专家分：0
注　册：2013-5-11

第 21 楼

得分:0

为什么我不能发帖？发了2次都无效,违规了吗？请大家帮我看看

用WebBrowser登录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").Click                    '密码框需要手动点击一下,这句没有效果？

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

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

直接按登录键不能正确登录 , 会出现验证码的提示框
如果手动点击密码框一下 , 再按登录键则可正常登录
求高手指点

2013-05-14 18:21

zhengang1026

等　级：侠之大者
威　望：1
帖　子：136
专家分：409
注　册：2013-2-6

第 23 楼

得分:0

以下是引用ease1000在2013-5-14 18:13:57的发言：

看了前面几位的代码都感觉有点复杂,可读性不强
为什么不用简单点的呢：
Private Sub Command1_Click()
    For i = 12 To 98
        For j = 123 To 987
            If i * j < 10000 Then
                n = i & j & i * j
                For k = 1 To 9
                    If InStr(n, k) = 0 Then Exit For
                Next k
                If k > 9 Then Print i & "*" & j & "=" & i * j
            End If
        Next j
    Next i
End Sub

真是独辟蹊径！非常好的算法，既易懂且运算速度又快（我测试了下，比以上几个版主的代码都要快！）

2014-06-06 20:22