vb后台打开 页代码

如：

用VB做一个QQ强制聊天软件，用了下面的代码。在后台运行，不让IE打开。

首先必须声明以下函数：

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 Label1_Click() 
ShellExecute Me.hwnd, “open”, “tencent://message/n=*********”, “”, “”, SW_HIDE
End Sub
注：其中的“********”填的是对方的QQ 码
最后的那个参数，确定了窗口的可视性情况,详解如下: 

请用下述任何一个常数 

SW_HIDE 隐藏窗口，活动状态给令一个窗口 

SW_MINIMIZE 最小化窗口，活动状态给令一个窗口 

SW_RESTORE 用原来的大小和位置显示一个窗口，同时令其进入活动状态 

SW_SHOW 用当前的大小和位置显示一个窗口，同时令其进入活动状态 

SW_SHOWMAXIMIZED 最大化窗口，并将其激活 

SW_SHOWMINIMIZED 最小化窗口，并将其激活 

SW_SHOWMINNOACTIVE 最小化一个窗口，同时不改变活动窗口 

SW_SHOWNA 用当前的大小和位置显示一个窗口，不改变活动窗口 

SW_SHOWNOACTIVATE 用最近的大小和位置显示一个窗口，同时不改变活动窗口 

SW_SHOWNORMAL 与SW_RESTORE相同