1,502
社区成员
发帖
与我相关
我的任务
分享
Dim objExplorer As Object
Dim i As Long
For i = 1 To 2
Set objExplorer = CreateObject("InternetExplorer.Application")
With objExplorer
.Navigate "http://www.CSDN.net"
.Visible = True
End With
Set objExplorer = Nothing
Next i
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 Command1_Click()
ShellExecute 0, "Open", "Http://www.CCTV.com", "", "", vbNormalFocus
ShellExecute 0, "Open", "Http://www.hao123.com", "", "", vbNormalFocus
End Sub