Question

VB模拟点击这个按钮 代码怎么写 添加web控件的 <input value="提交" class="button" type="submit

VB模拟点击这个按钮 代码怎么写 添加web控件的
<input value="提交" class="button" type="submit

Answer 1

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 '用UCase函数转换为大写，找到input标签
Set vTag = vDoc.All(i)
if vTag.Value = "提交" then
vTag.Click '点击提交
End If
End If
Next i

http://ishare.iask.sina.com.cn/f/19703452.html 这里是一些网络编程资料

Answer 2

路过 高科技啊