VBS监控带计时器的网页并完成自动计时

最新推荐文章于 2021-07-27 11:03:17 发布

qffhq

最新推荐文章于 2021-07-27 11:03:17 发布

阅读量1.4k

点赞数

分类专栏：开发语言类文章标签： ie button 图形 url

本文链接：https://blog.csdn.net/qffhq/article/details/5751762

版权

开发语言类专栏收录该内容

31 篇文章 0 订阅

订阅专栏

原始网页

运行VBS以后的效果．

Dim ie, strVal, intKey1, intKey2, bChk
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True

''登录URL
ie.navigate "http://xxxxxxxxxxxx.com.cn/Login/Login.aspx"
If Not ie Is Nothing Then
    Do While ie.readystate <> 4
      If ie Is Nothing Then Exit Do
    Loop
End If

'On Error Resume Next

If Not ie Is Nothing Then
  '自动登录,由于有图形检验码不能自动完成，
    If ie.document.location = "http://xxxxxxxxxxxx.com.cn/Login/Login.aspx" Then
        ie.document.All("txtUserName").Value = "username"
        ie.document.All("txtPassWord").Value = "password" '密码
        ie.document.All("txtCode").Focus '检验码
    End If
End If

If Not ie Is Nothing Then
  '等待打开带计时器的URL
    Do While Left(ie.document.location, 61) <> "http:///xxxxx.xxxxxx.com.cn/xxxxxxxxxxx/xxxxxfrm.aspx?BookID="
        If Left(ie.document.location, 61) = "http:///xxxxx.xxxxxx.com.cn/xxxxxxxxxxx/xxxxxfrm.aspx?BookID=" Then
                Exit Do
        End If
        WScript.Sleep 500
        If ie Is Nothing Then Exit Do
    Loop
End If

'ie.Visible = False

'初始随机值
intKey1 = Int(Second(Now()) / 10) + 10
intKey2 = Second(Now())

bChk = True

Do While Not ie Is Nothing
    If Not ie Is Nothing And ie.document.Frames.length > 0 Then
    On Error Resume Next
        '找到计时器的Frame对应的页面
        If Left(ie.document.Frames(0).Frames.document.location, 55) = "http://xxxxx.xxxxxx.com.cn/xxxxxxxxxxx/xxxxxxTime.aspx" Then

            On Error GoTo 0

            '找到计时页面上的当时时间
            strVal = ie.document.Frames(0).Frames.document.All("thzt").Value
            If bChk Then
              '修改按钮文本，原来是'更新计时'
                ie.document.Frames(0).Frames.document.All("update").Value = "监视时长：" & intKey1 & "分" & intKey2 & "秒"
                bChk = False
                WScript.Sleep 1000*60*intKey1
            End If

            'If Not ie Is Nothing And Not button Is Nothing And Not ie.document.Frames(0).Frames.document.All("update").disabled Then
                If strVal <> "" Then

'时间到
If Left(Trim(strVal),2) > intKey1 Or Trim(strVal) = intKey1 & "分" & intKey2 & "秒" Or _

                             Trim(strVal) = intKey1 & "分" & intKey2+1 & "秒" Or Trim(strVal) = intKey1 & "分" & intKey2+2 & "秒" Then

                        '随机值
                        intKey1 = Int(Rnd(Second(Now())) * 10) + 10
                        intKey2 = Int(Rnd(Second(Now())) * 60)

                        '自动点计时按钮
                        ie.document.Frames(0).Frames.document.All("update").disabled=False
                        ie.document.Frames(0).Frames.document.All("update").Click
                        bChk = True

                        'MsgBox "监视时长：" & intKey1 & "分" & intKey2 & "秒"
                    End If
                End If

            'End If
        End If
    End If
    WScript.Sleep 1200
    If ie Is Nothing Then Exit Do
Loop