强制打开QQ对话框不弹出IE的方法

时　间:2009-07-21 08:50:25
作　者:cuxun   ID：274  城市：肇庆
摘　要:强制打开QQ对话框
正　文:

''放在模块顶部.

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 = 1

''调用

        Dim Result
        Result = ShellExecute(0, vbNullString, "tencent://Message/?websiteName=qzone.qq.com&Menu=yes&Uin=" & Me.QQ, vbNullString, vbNullString, SW_SHOWNORMAL)
        If Result <= 32 Then Waiting "调用浏览器错误！"