| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 531 人关注过本帖
标题:自动读取网页问题
只看楼主 加入收藏
houzilin
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-3-8
收藏
 问题点数:0 回复次数:4 
自动读取网页问题

原代码如下

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com "
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
List2.Clear
Dim x As Long
Dim i As Integer
Dim n() As String
Dim s As Byte
For x = 0 To WebBrowser1.Document.Links.length - 1
List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x

For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), "html") Then
List2.AddItem List1.List(i)
End If
Next
End Sub
Private Sub Timer1_Timer()
Command1.Enabled = True
Timer1.Enabled = False
End Sub

已经在list2中列出了过滤出来的网址 如何让WebBrowser2读曲其中的网址 并停留5秒接着读取下一条呢 请帮忙

搜索更多相关主题的帖子: 网页 自动 
2006-04-02 12:46
leon2
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:731
专家分:0
注 册:2005-3-18
收藏
得分:0 

用 timer 控件啊

2006-04-02 23:23
houzilin
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-3-8
收藏
得分:0 

老大 帮我编一下 试着运行看

我弄了读取不了

要么就当机一会直接读取最后一个连接

2006-04-03 08:56
houzilin
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-3-8
收藏
得分:0 
以下是引用houzilin在2006-4-2 12:46:00的发言:

原代码如下

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.google.com "
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
List2.Clear
Dim x As Long
Dim i As Integer
Dim n() As String
Dim s As Byte
For x = 0 To WebBrowser1.Document.Links.length - 1
List1.AddItem WebBrowser1.Document.Links.Item(x)
Next x

For i = 0 To List1.ListCount - 1
If InStr(1, List1.List(i), "html") Then
List2.AddItem List1.List(i)
End If
Next
End Sub
Private Sub Timer1_Timer()
Command1.Enabled = True
Timer1.Enabled = False
End Sub

已经在list2中列出了过滤出来的网址 如何让WebBrowser2读曲其中的网址 并停留5秒接着读取下一条呢 请帮忙

原码下载

8xAwrYbM.rar (2.19 KB) 自动读取网页问题




请帮忙完善 感激不尽
2006-04-03 09:05
houzilin
Rank: 1
等 级:新手上路
帖 子:23
专家分:0
注 册:2006-3-8
收藏
得分:0 

谁来帮我 原码下载 3楼

2006-04-03 18:50
快速回复:自动读取网页问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.050755 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved