怎么获取webbrowser登录的网页中的textbox的ID - 编程论坛

#2

风吹过b2022-04-23 18:15

1、查看网页源代码
2、抓包，检查post数据也能发现的。这个应该是最准确的。

#3

yuma2022-04-23 18:26

获取网页元素即可。

#4

yuma2022-04-23 18:31

网页里哪有textbox？

#5

约定的童话2022-04-24 06:53

只有本站会员才能查看附件，请登录

这个也是你发的？

#6

蝈曲曲2022-04-24 18:14

回复 5楼约定的童话

不是

#7

蝈曲曲2022-04-24 18:16

回复 3楼 yuma

我现在就是不知道从哪里入手，能给个示例吗？谢谢

#8

yuma2022-04-24 18:58

回复 7楼蝈曲曲

代码好像有点问题，还在解决。

工程--部件--勾选Microsoft Internet Control--把WebBrowser1从工具箱拖到窗体。

程序代码：

Private Sub Form_Load()
WebBrowser1.Silent = True
WebBrowser1.Navigate "http://venman."
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim doc
Dim tg
Set doc = WebBrowser1.Document
For i = 0 To doc.All.length - 1

'扫描a标签元素
If (LCase(doc.All(i).tagname)) = "a" Then
        Debug.Print i & "." & "Class名称:" & doc.All(i).className & "   " & "元素id:" & doc.All(i).id & "   " & "href值:" & doc.All(i).href & "   " _
        & "target值:" & doc.All(i).Target & "   " & "标签值:" & doc.All(i).innerText
End If

'扫描Input元素
If (LCase(doc.All(i).tagname)) = "Input" Then
        Debug.Print i & "." & "Input元素名称:" & doc.All(i).id & "   " & "value值:" & doc.All(i).Value & "   " & "placeholder值:" & doc.All(i).placeholder
End If

'扫描img元素
If (LCase(doc.All(i).tagname)) = "img" Then
        Debug.Print i & "." & "img元素id:" & doc.All(i).id & "   " & "alt值:" & doc.All(i).alt
End If

'扫描textarea元素
If (LCase(doc.All(i).tagname)) = "textarea" Then
        Debug.Print i & "." & "textarea元素名称:" & doc.All(i).id & "   " & "value值:" & doc.All(i).Value & "   "
End If

'扫描form元素
If (LCase(doc.All(i).tagname)) = "form" Then
        Debug.Print i & "." & "form元素名称:" & doc.All(i).id
End If

Next i
End Sub

#9

yuma2022-04-24 18:59

操作元素即可。

#10

蝈曲曲2022-04-25 13:05

回复 8楼 yuma

运行那你上面的代码没有出现错误，但是我还是看不到结果在哪里？
我是用excel 的VBA编程