[table]
[TR]
[TR]
[TD]User ID[/TD]
[TD][I][/TD]
[/TR]
[TR]
[TD]Password[/TD]
[TD][I][/TD]
[/TR]
[TR]
[TD]
[I]
[/TD]
[/TR]
===================================================
上边是我想要填写的网页表单 网页是PHP的
我写的程序咋就死活填不上呢 高手看看 解决了给追高分!
===================================================
Private Sub Command1_Click()
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" Then
Select Case vTag.Name
Case "userid"
vTag.Value = "taodxw"
End Select
If vTag.Type = "PASSWORD" Then
Select Case vTag.Name
Case "password"
vTag.Value = "taoking"
End Select
If vTag.Type = "submit" And vTag.Value = "login" Then
vTag.Select
vTag.Click
End If
End If
End If
End If
Next i
End Sub
呃~ 网页好像是PHP的 不一定 不知道这个跟填不上有没有关系
1、新建工程2、加入控件WebBrowser1和按钮command13、在command1的click事件中加入如下代码 Private Sub Command1_Click() Dim vDoc, vTag Dim i As Integer Set vDoc = webBrowser1.DocumentFor i = 0 To vDoc.All.length - 1 '检测所有标签If UCase(vDoc.All(i).tagName) = "INPUT" Then '找到input标签Set vTag = vDoc.All(i)If vTag.Type = "text" Then '看看是不是我们需...
Private Sub Command1_Click()Dim vDoc, vTag, mType As String, mTagName As StringDim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
...