UC知道VB的webbrowser的浏览器怎向网页上的文本框写入数据
来源：百度知道 编辑：UC知道 时间：2024/05/29 04:01:43
如题...我是新手来的！最好有例子！谢谢！
我用这个能写入数据了 但是又有个问题，如何能指定一个文本框写入数据.现在全部写的都一样
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
我用这个能写入数据了 但是又有个问题，如何能指定一个文本框写入数据.现在全部写的都一样
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
都这么多废话啊。。
webbrowser1.document.all("textname").value="写点什么？"
这个不是一句两句所能说明白的
定义函数:
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<