如何用vba打开QQ好友聊天对话窗口?

如何用vba打开QQ好友聊天对话窗口?

2017年1月13日作者：水星Excel

5,486 次浏览暂无评论

使用vba控制QQ聊天窗口是复杂的。

由于QQ聊天窗口是腾讯自绘的，所以无法通过api函数获取QQ聊天窗口的具体控件。

不过腾讯为我们预留了一个接口，可以通过命令行的方式来打开QQ聊天窗口。

以下为命令行代码：

cmd /c start tencent://Message/?Uin=+QQ号码

通过以上的命令行代码可以直接打开QQ好友的聊天窗口，为此，可以用Shell函数来运行这个命令行，就能够实现用vba代码打开QQ好友的聊天窗口。

代码如下：

Sub QQ1722187970()
    Dim sQQ
    sQQ = "1722187970"
    sCmd = "cmd /c start tencent://Message/?Uin=" & sQQ
    Shell sCmd
End Sub

声明: 本站文章均属原创，未经作者同意必须保留此段声明，且在文章页面明显位置给出原文链接，否则视为侵权。如果想要每天都收到本站的技术文章推送，可以微信搜索公众号：水星Excel或者Excel_Office关注。其它事宜请加QQ：1722187970 或微信号：xycgenius 联系。