百度红包抽奖辅助程序 VB 源码 自动填写

以下是部分源码片段：

Dim HongBao  As String

Private Sub Command1_Click()
    WebBrowser1.Navigate HongBao
End Sub

Private Sub Command2_Click()
    WebBrowser1.Document.getElementById("name").Value = Text1.Text              '填写名字
    WebBrowser1.Document.getElementById("select-year").Value = Text2.Text       '填写年份
    WebBrowser1.Document.getElementById("select-month").Value = Text3.Text      '填写月份
    WebBrowser1.Document.getElementById("select-day").Value = Text4.Text        '填写日期
    WebBrowser1.Document.All("check-1").Checked = True                          '点击同意按钮
    WebBrowser1.Document.All("bn").Click                                        '点击提交按钮
End Sub

Private Sub Form_Load()
    HongBao = "http://hongbao.app.baidu.com/hongbao/inputname"
    WebBrowser1.Navigate HongBao
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If URL = HongBao Then
        WebBrowser1.Document.getElementById("captcha").focus                    '设置验证码输入框焦点
    End If
End Sub