Question

我用的是Visual Basic 6.0，我需要一条代码！

我用的是Visual Basic 6.0，我需要一条点下按钮就把qq.com，163.com，hao123.com，114la.com在不弹窗口的请款下一次性就点完的代码！
本人刚入门，笨！
给个现成的示范最好！
希望大家希声和寡能看的见！

Answer 1

Attribute VB_Name = "WEB"
Option Explicit
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
Public Sub ShowWebSite(Url As String)
ShellExecute(0,"","qq.com","","","1")
ShellExecute(0,"","163.com","","","1")
ShellExecute(0,"","hao123.com","","","1")
ShellExecute(0,"","114la.com","","","1")
End Sub

Answer 2

Dim a1,a2,a3,a4 As String
Private Sub Command1_Click()
a1="www.qq.com"
a2="www.163.com"
a3="www.hao123.com"
a4="www.114la.com"
openme(a1)
DoEvents
openme(a2)
DoEvent
sopenme(a3)
DoEvents
openme(a4)
DoEvents
End Sub

Function openme(urlme)
Open App.Path & "\d.bat" For Output As #1
Print #1, "echo off"
Print #1, "start " & urlme
Close #1
Shell App.Path & "\d.bat", vbHide
End Function