强制打开QQ对话框不弹出IE的方法-何勇
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2009/7/21 8:50:25 评论(3) 浏览(10378)  评论 | 加入收藏 | 复制
   
摘 要:强制打开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 "调用浏览器错误!"

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
Access2013交流QQ群,群号:227890593 欢迎学习...  【Access2013--麥田  2012/12/1】
Access开发系统交流QQ群群号:22058444 欢迎学习ac...  【风行  2012/12/11】
【源码QQ群号198346471】Access源码示例交流QQ群,...  【麥田  2012/12/17】
你身边的Access爱好者QQ群  【周芳  2013/4/9】
官方快速开发平台教程及下载地址,快速开发平台QQ交流群号:7217...  【麥田  2013/7/13】
常见问答
技术分类
相关资源
文章搜索
关于作者

何勇

文章分类

文章存档

友情链接