| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 575 人关注过本帖
标题:WebBrowser问题求教
只看楼主 加入收藏
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
 问题点数:0 回复次数:8 
WebBrowser问题求教
WebBrowser能不能读出文本文档中的网址一个一个的轮流打开
例如我的 c:\temp.txt 文件里有10个网址,每个网址各放在一行里,如

www.yinsha.com
www.163.com
www.tom.com
www.163.net
www.baidu.com
.....

能不能在用WebBrowser每一秒钟打开c:\temp.txt 文件里的一个网址,第一秒打开第一行的网址 www.yinsha.com ,第二秒打开第二行的网址 www.163.com 替换掉第一行的www.yinsha.com网页,如此类推。

搜索更多相关主题的帖子: WebBrowser 
2007-01-10 23:48
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 

做个时间记时然后分别读取对应的行也就是网址字符串,再用WebBrowser1.Navigate方法来打开这个网址即可


不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2007-01-10 23:58
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
得分:0 
我知道啊,你能不能把源码贴出来让我参考一下,谢谢。。
2007-01-10 23:59
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 

Option Explicit
Dim N As Integer

Private Sub Form_Load()
N = 0
End Sub

Private Sub Timer1_Timer()
Dim nline As String
Dim i As Integer
i = 0
N = N + 1
If N > 5 Then
Timer1.Enabled = False
Exit Sub
End If
Open "g:\temp.txt" For Input As #1
Do Until EOF(1)
i = i + 1
Line Input #1, nline
If i = N Then
Exit Do
End If
Loop
Close #1
Text1.Text = nline
Me.WebBrowser1.Navigate nline
End Sub

这些代码就是代上面要实现的功能


不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2007-01-11 08:38
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
得分:0 
非常感谢,代码测试成功,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,
2007-01-11 17:24
清澂居士
Rank: 6Rank: 6
等 级:贵宾
威 望:28
帖 子:1237
专家分:7
注 册:2006-12-19
收藏
得分:0 
以下是引用pkdos在2007-1-11 17:24:57的发言:
非常感谢,代码测试成功,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,顶,

這樣的內容不怕被刪除麼?


佛曰:\"前世的500次回眸才换来今生的一次擦肩而过\".我宁愿用来世的一次擦肩而过来换得今生的500次回眸.
2007-01-11 17:29
zsolong
Rank: 1
等 级:新手上路
威 望:1
帖 子:193
专家分:0
注 册:2006-12-15
收藏
得分:0 
人家表达一下激动的心情还是情有可原的,呵呵,版主也不能太苛刻了

2007-01-11 19:05
wyfandy
Rank: 1
来 自:深圳
等 级:新手上路
帖 子:376
专家分:0
注 册:2006-12-11
收藏
得分:0 
也太激动了吧  

不论什么事,只要认准了一个目标,然后朝之不懈地努力,就一定实现。编程爱好者QQ群:21318556
2007-01-11 20:35
pkdos
Rank: 1
等 级:新手上路
帖 子:91
专家分:0
注 册:2006-11-14
收藏
得分:0 
晕,有点激动。。
2007-01-12 02:01
快速回复:WebBrowser问题求教
数据加载中...
 
   



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

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