Question

vb中如何设置每10秒自动刷新一下页面

我不知道怎么做 想做个论坛挂机的程序 但是没有自动刷新 系统挂了也不认啊 所以做个程序出来 但是不知道自动刷新的代码!
说清楚下 刷新代码怎么写的不知道别说话 ID:雪0中0飘 GUN!

最好把代码写出来啊.

Answer 1

vb间隔一定时间刷新页面，具体步骤如下：
1、窗体中首先加入WebBrowser控件。点击窗体顶部菜单--工程--部件，在弹出的部件窗口选择Microsoft Internet Controls，勾选然后确定
2、部件添加成功后，窗体左侧出现WebBrowser控件，点击控件添加到窗体上。
3、窗体启动时加入如下代码：
Private Sub Form_Load()
WebBrowser1.Navigate2 "要打开的网站网址"
End Sub
4、窗体加入一个Timer控件，控件属性Interval根据自己需要设置好时间，注意timer单位是毫秒，10秒就是10000毫秒。
5、窗体加入一下代码：就是间隔多少秒自动刷新WebBrowser中的网页。
Private Sub Timer1_Timer()
WebBrowser1.Refresh '或者重新 写 WebBrowser1.Navigate2 "要打开的网站网址"
End Sub

Answer 2

在vb中你有调用MS的browser核心吧，可以使用个Timer，然后调用此browser的refresh函数。
--------------------------------------
当然如果是外调的IE的话可以发送一个F5的键盘消息。

----------------------------------------
timer 的interval为30000.
WebBrowser1为调用的ie核心，如果是bbs的话，你可以先在ie中登陆并操作为保存密码自动登陆cookies，然后在vb中的url设置为bbs的键接。

此方法最简单最有效 :-)

WebBrowser1.Navigate2 "http://www.test.com/bbs"
Private Sub Timer1_Timer()

WebBrowser1.Refresh

End Sub

Answer 3

部件中引用microsoft internet controls控件
然后拖动一个到窗体
Private Sub Form_Load()
'页面窗口
WebBrowser1.Navigate2 "http://www.baidu.com/"

End Sub

Private Sub Timer1_Timer()
'刷新页面
WebBrowser1.Refresh
End Sub

Answer 4

嗯 调用 WebBrowser1.Refresh
曾经写过一个刷QQ空间文章数的
刷了3万多浏览量

Answer 5

应该是使用timer控件吧。。