Question

vb怎么反复弹出网页？

就是点一个按钮，就会不断弹出网页

Answer 1

private sub command1_click()
for i=1 to 1000
shell "iexplore www.baidu.com"
next
end sub

Answer 2

新建一个工程（假设工程名称为“工程1”），然后添加一个窗体文件（假设窗体名称为“Form1”，再将以下代码复制粘贴到窗体的代码部分里面去，即可实现：当你运行程序时就自动弹出（或者打开）一个网页地址（以下代码打开的是百度首页，即http://www.baidu.com/）

Option Explicit '强制显式声明变量

'以下是一个API函数（ShellExecute()函数)，用于打开你想要弹出的网页
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 Form_Load() '窗体的加载事件
ShellExecute Me.hwnd, "open", "http://www.baidu.com/", "", App.Path, 1 '打开百度首页
End Sub

你只需要将对应位置的网址名称改成你想要弹出的网页地址即可……不知道我的回答是否让你满意呢？

shell "iexplore www.baidu.com" 用shell也可以，但是一般用户有默认浏览器，用shell iexplore 就不好了！

Answer 3

private sub command1_click()
for i=1 to 1000
shell "iexplore www.baidu.com" '要是没装ie呢？
next
end sub

Answer 4

依次弹出三个网页：
Private Sub Command1_Click()
arr = Split("http://www.baidu.com/,http://www.sohu.com/,http://www.163.com/", ",")
For i = 0 To UBound(arr)
Set Web1 = CreateObject("InternetExplorer.Application")
Web1.Visible = True
Web1.Navigate arr(i)
Next
End Sub

循环弹出网页，加上变量i，是为了退出。去掉变量i，将不断弹出，直至机器资源耗尽而死机：
Private Sub Command2_Click()
arr = Split("http://www.baidu.com/,http://www.sohu.com/,http://www.163.com/", ",")
i = 1
Do While 1
DoEvents
Set Web1 = CreateObject("InternetExplorer.Application")
Web1.Visible = True
Web1.Navigate arr(CInt(Rnd * 2))
t = Timer
Do While Timer - t < 3'延时3秒
DoEvents
Loop
i = i + 1
If i > 10 Then Exit Do
Loop
End Sub