level 6
cchcfei
楼主
WebBrowser1.Document.GetElementById("username").Value = "000"这句用了提示错误
Public Sub WriteToForm(ByVal Obj As Object, ByVal sTagName As String, ByVal sName As String, ByVal Submit As Boolean, Optional sType As String = "", Optional sValue As String = "", Optional sSelect As Boolean)
Dim i As Integer
Dim vDoc, vTag
sTagName = UCase(sTagName)
sType = UCase(sType)
sName = UCase(sName)
Set vDoc = Obj.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = sTagName Then
Set vTag = vDoc.All(i)
If sTagName = "SELECT" Or sTagName = "TEXTAREA" Then
If UCase(vTag.Name) = sName Then vTag.Value = sValue
Else
If sType = "RADIO" Or sType = "CHECKBOX" Then
sValue = UCase(sValue)
If UCase(vTag.Name) = sName And UCase(vTag.Value) = sValue Then
If sSelect Then
vTag.Checked = True
Else
vTag.Checked = False
End If
End If
Else
If Submit Then
If UCase(vTag.Type) = sType And UCase(vTag.Name) = sName Then vTag.Click
Else
If UCase(vTag.Type) = sType And UCase(vTag.Name) = sName Then vTag.Value = sValue
End If
End If
End If
End If
Next i
End Sub
Private Sub Command2_Click()
'应用举例=================================================
WriteToForm WebBrowser1, "input", "username", False, "username", "文本框" '输入文本
WriteToForm WebBrowser1, "input", "checkbox3", False, "checkbox", "3", True '复选框打钩
WriteToForm WebBrowser1, "input", "checkbox5", False, "checkbox", "5", False '复选框不打钩
WriteToForm WebBrowser1, "input", "pass", False, "password", "123456" '密码框
WriteToForm WebBrowser1, "select", "select", False, "select", "4" '列表框
WriteToForm WebBrowser1, "input", "radiobutton", False, "radio", "4", True '单选框
WriteToForm WebBrowser1, "input", "submit", True, "submit" '提交按钮
End Sub
这个用了没反应
请问怎么办？
