VB的webbrowser的浏览器怎向网页上的文本框写入数据
我用这个能写入数据了 但是又有个问题，如何能指定一个文本框写入数据.现在全部写的都一样
Dim vdoc, vtag
Set vdoc = WebBrowser1.Document
For mm = 0 To vdoc.All.length - 1
If UCase(vdoc.All(mm).tagName) = "INPUT" Then
Set vtag = vdoc.All(mm)
If vtag.Name = "SMONEY" Then vtag(0).Value = "1"
'点击提交按钮
If vtag.Type = "checkbox" Then vtag.Checked = True
'If vtag.Type = "submit" Then vtag.Click
End If
ee = ee + 1
Next mm
最新回答
为你唱起小乌龟
2024-09-18 00:49:10
Sub ReferForm(ByVal Webbrowser$, ByVal FormType%, Optional FormName$, Optional Value$ = "")
'
http://www.jcwcn.com/html/CSSHTML/10_43_45_931.htm
'Text = 0; password = 1; textarea = 2; Hidden = 3; CheckBox = 4; submit = 8; button = 9
'//
If FormType < 0 Or FormType > 9 Then
Exit Sub
End If
Dim objDoc, objTag
Set objDoc = Me.Controls(Webbrowser).Document
For i = 0 To objDoc.All.length - 1
Select Case UCase$(objDoc.All(i).tagName)
Case "INPUT"
Set objTag = objDoc.All(i)
Select Case FormType
Case 0, 1
If objTag.name = FormName Then
objTag.Value = Value
End If
Case 3
Case 4
If objTag.name = FormName Then
objTag.Click
End If
Case 8
If objTag.Type = FormName Then
objTag.Click
End If
Case 9
MsgBox 9
If objTag.Type = FormName Then
objTag.Click
End If
'.Document.All(FormName).Value = uValue
'.Document.All(FormName).Click
End Select
Case "TEXTAREA"
Set objTag = objDoc.All(i)
Select Case FormType
Case 2
objTag.Value = Value
End Select
End Select
Next
End Sub
函数试用:
ReferForm "WebBrowser1", 0, "username", Text1.Text
ReferForm "WebBrowser1", 0, "username", name1
ReferForm "WebBrowser1", 0, "password", Passwdbox2.GetPwd
ReferForm "WebBrowser1", 8, "submit"
必须先把页面打开
键盘书生
2024-09-18 01:15:00
webbrowser1.document.all("textname").value="写点什么？"
别闹~乖
2024-09-18 02:05:35
热门标签
