VB中使用ShellExecute如何隐藏打开IE

Question

如题，也就是后台打开，加什么参数啊，能隐藏起来，高手请举例说明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 LongPrivate Sub Command1_Click()
ShellExecute 0, "open", "http://www.baidu.com, "", "", 1
End Sub怎样修改能让IE后台运行

Answer 1

ShellExecute 0, "open", "http://www.baidu.com, "", "", 0

Answer 2

ShellExecute 函数
最后的那个参数，为窗口指定可视性方面的一个命令。 
请用下述任何一个常数 
SW_HIDE 隐藏窗口，活动状态给另一个窗口 
SW_MINIMIZE 最小化窗口，活动状态给另一个窗口 
SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态 
SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态 
SW_SHOWMAXIMIZED 最大化窗口，并将其激活 
SW_SHOWMINIMIZED 最小化窗口，并将其激活 
SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口 
SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口 
SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口 
SW_SHOWNORMAL 与SW_RESTORE相同

Answer 3

'以下代码仅供参考Option ExplicitPrivate Const URL = "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 Const SW_SHOWNORMAL = 1Private Sub Command1_Click()
        Dim Success As Long
        Success = ShellExecute(0&, vbNullString, URL, vbNullString, "C:\", SW_HIDE)
End Sub

Answer 4

一般来说SW_HIDE即可。但假设你调用A，而A的设计是启动就最大化窗口且置顶……

Answer 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 Sub title_ie_Click()
ShellExecute Me.hwnd, "open", "IEXPLORE.EXE", "", App.Path, 1
End Sub

Answer 6

dim objIE as object
set objIE=createobject("InternetExplorer.Application")

Answer 7

可以 直接用 shell  调用 explorer.exe 打开http://..  后面跟着个参数即可 0-5 自己试验