以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何在按钮上实现表格中QQ扩展功能  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43167)

--  作者:tongliaozyr
--  发布时间:2013/12/1 9:14:00
--  [求助]如何在按钮上实现表格中QQ扩展功能

表格中有一QQ扩展功能,点击命令按钮,可直接与选定号码好友交谈,在窗口的按钮中如何实现该功能能哪?

还有QQ群。

[此贴子已经被作者于2013-12-1 10:24:49编辑过]

--  作者:有点酸
--  发布时间:2013/12/1 10:26:00
--  
Dim Proc As New Process
Proc.File = "tencent://Message/?menu=yes&exe=&uin=13231462"   \'红色部分为QQ号
Proc.Start()
System.Threading.Thread.Sleep(2000)   \'等候几秒
Sendkeys.Send("信息")

--  作者:tongliaozyr
--  发布时间:2013/12/2 8:21:00
--  

谢谢!