Question

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

!!各位！我说的是VB脚本，不是VB，VB我会，就是用VBS打开网页！

Answer 1

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/"
=================

Answer 2

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

亲自测试可以用

Answer 3

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
'调用ShellExecuteA函数

Private Sub OpenUrl(tUrl As String) '定义打开网址tUrl的动作

ShellExecute Me.hwnd, "Open", tUrl, 0, 0, 0

End Sub

Private Sub Command1_Click()

OpenUrl www.baidu.com

End Sub

Answer 4

Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE" & Space(1) & "www.baidu.com",vbNormalFocus