求助 VB6 WebBrowser怎样获取 id="J_VolCat_???"的？？？

f3981292 2014-03-28 05:26:26

求助
<div id="J_VolCat_???" class="vol-cat vol-cat3" style="top: 0px;"><i class="vol-cat-bg"></i></div>

这个 id="J_VolCat_???" 的？？？是随机数字，每次刷新都会变化，怎么获取这个随机数字？

...全文

108 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

一如既往哈 2014-03-29

打赏
举报

dim ww ww=split("J_VolCat_???" ,"_") debug.print ww(2)

对话框动态调整位置大小\Tab控件间的操作\Webbrowser简单操作（显示网页源码）

一句话获取webbrowser控句柄句。网上大部吩是用findwindowex枚举法，如果一个窗体上有多个网页控件，怎么区分哪个是Webbrowser1,Webbrowser2的句柄？我用VB6创建多线程，在线程中加载Web控件，结果控件出来了，但是显示不了网页. 正常的应该有3层句柄树（Shell Embedding》Shell DocObject View》Internet Explorer_Server），结果他只有Shell Embedding。所以WebBrowser1.Navigate "https://www.baidu.com"就显示不出来了。可能和VB6的包装技术有关。

WbMaster网页元素控制组件,vb操作webbrowser的好工具，只要几行代码即可方便操作附使用范例 http://topic.csdn.net/u/20100113/09/1212770e-4736-4b7e-adae-669d73d46858.html?421

'此代码发布后，可随意改哈，欢迎光临我的网址导航网站 http://www.97tt.org Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error Resume Next RichTextBox1.Text = "" Dim Tables As IHTMLElementCollection Set Tables = WebBrowser1.Document.getElementsByTagName("Table") Dim Table1 As HTMLTable Dim Row As HTMLTableRow, Cell As HTMLTableCell For Each Table1 In Tables 'Next For i = 1 To Table1.rows.length - 2 ' 逐行处理 Set Row = Table1.rows(i) j = 0 For Each Cell In Row.cells ' 逐列处理 RichTextBox1.Text = RichTextBox1.Text + Trim(Row.cells(j).innerText) + "," j = j + 1 Next ' 一行处理完毕后，去除行尾的逗号并加上回车 RichTextBox1.Text = Left(RichTextBox1.Text, Len(RichTextBox1.Text) - 1) + vbCrLf Next Next End Sub

VB.net webbrowser 如何实现自定义下载 IDownloadManager中介绍的控件（DLL） https://blog.csdn.net/zslefour/article/details/22204593?spm=1001.2014.3001.5502

网络编程

1,502

社区成员

18,437

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章