24小时热门版块排行榜

返回列表

当前主题已经存档。

cclost

应助: (幼儿园)
在线:
虫号: 925904

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

关于web页面自动提交表单的问题,(我很菜)
我是刚入vb门,所以不会的很对,就边学边试,我写是一个简单注册小程序
,结果问题很多啊.
不多说了,请教各位了.
问题:

web上的表单代码简化为:

（

）

[ Type: text ] [ Name: email ] [ Value: 请输入email ]

输入email地址

（

）

[ Type: password ] [ Name: password ]

请用6-32位长的密码

确认密码

[ Type: password ] [ Name: password2 ]

.......

[ 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 ]