Question

VB中如何调用线程执行WebBrowser1.Navigate

帮忙实现以下代码:
'无限重复循环以下代码开始
'//////////////////////////
dim conn,rs
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open "driver={SQL Server};server=xxx;UID=sa;PWD=sa;database=Master"
rs.open "select * from OnlineUsers order by ID",conn,1,1
while rs.eof=false
'如何创建一个线程执行WebBrowser1.Navigate(rs("URL"))保证页面跳转过程中程序不假死
'延迟15秒后继续循环跳转下一个数据库URL地址
rs.movenext
wend
rs.close
conn.close
set rs=nothing
set conn=nothing
'重新获取数据库数据再次循环
'/////////////////////////////

单击按钮以后 重复执行该功能,并且保证程序不假死.可以随时关闭程序.
要求两点:1 重复执行 2 不假死

Answer 1

while rs.eof=false
if WebBrowser1.Navigate(rs("URL")) then
rs.movenext
doevents
sleep(15000)
doevents
end if
wend

Answer 2

sleep(15000)好像就挂起了，这样不行的，

CPU会站用100%的

Answer 3

同意一楼，用doevents