以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动打开QQ对话框的群聊窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104487)

--  作者:magus1123
--  发布时间:2017/7/30 13:55:00
--  [求助]自动打开QQ对话框的群聊窗口

老师好,想请教一下如果实现点击按钮打开对应的QQ群聊窗口?

目前用代码
Dim Proc As New Process
Proc.File = "tencent://message/?uin=个人QQ号"
Proc.Start
System.Threading.Thread.Sleep(1500)   \'等候几秒,让窗口打开
Sendkeys.SendWait("信息内容123")
Sendkeys.Send("%s")   \'回车

可以实现点击按钮之后打开个人QQ的窗口,自动发送信息,但是现在工作要在群里汇报,这个代码要怎么改才能打开群窗口呢?

--  作者:magus1123
--  发布时间:2017/7/30 15:20:00
--  
有办法吗?
--  作者:有点甜
--  发布时间:2017/7/30 15:28:00
--  
 没办法呢......