如何同vb脚本来打开指定网页

Shell "cmd.exe /c start " & url, 0
VBS
~~~~~~~~~~~~~
Set Wshell=WScript.CreateObject("WScript.Shell")
Set ie=WScript.CreateObject("InternetExplorer.Application")
ie.visible=True
ie.navigate "http://www.baidu.com/"
=================

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 Me.hwnd, "open", "www.baidu.com", "", "", 5

End Sub

亲自测试可以用

Private Declare Function ShellExecute Lib "shell32.dll" Alias &qu