★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★打开网站1
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 Const SW_SHOW = 5
'声明
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 Const SW_SHOW = 5
'声明
Dim web1 As String
web1="www.hao123.com"
ShellExecute 0&, vbNullString, web1, vbNullString, vbNullString, 0
Exit Sub
'启动
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★打开网站
ShellExecute 0&, vbNullString, www.hao123.com, vbNullString, vbNullString, 0'方法二
以上方法1在打开第二个网站时会关闭之前打开的网页
方法二则打开第二个不会对之前打开的网页有影响,自已选择哦