[交流] 【求助】VB 编写辅助小软件(我是菜鸟.呵呵,请教了)

[ Type: image ] (提交是转到另外一个提示成功的web页,提交type是image的)


我知道是用webbrowser控件,但是到提交那就转不上去了.

我的vb代码如下,
Dim WBDocument As Variant

Private Sub Command1_Click()
     WebBrowser1.Navigate "http://labs.chinamobile.com/members/register.php?action=inviteRegister&mailId=70015&salt=lbydv"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
     Dim vDoc, vTag
     Dim i As Integer
    Set vDoc = WebBrowser1.Document
     
     For i = 0 To vDoc.All.length - 1
         If UCase(vDoc.All(i).tagName) = "INPUT" Then
             Set vTag = vDoc.All(i)
             If vTag.Type = "text" Or vTag.Type = "image" Then
            
                 Select Case vTag.Name
                     Case "email"
                         vTag.Value = "xxx@www.com"
                     Case "password"
                         vTag.Value = "12a1122"
                      Case "password2"
                         vTag.Value = "12a1122"

                 End Select
             ElseIf vTag.Type = "image" Then
                 vTag.Click (点击就转到成功注册提示的页面)
             End If
         End If
     Next i
End Sub

[ Last edited by 波不动 on 2010-1-13 at 21:02 ]