以文本方式查看主题

-  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=25022)
--  作者：zhaohj611718
--  发布时间：2012/10/29 17:03:00
--  调QQ对话框
怎样调QQ对话框
--  作者：lin_hailun
--  发布时间：2012/10/29 17:09:00
--  
  http://sighttp.qq.com/msgrd?v=1&uin=800014337&site=qq&menu=yes
[此贴子已经被作者于2012-10-29 17:09:48编辑过]
--  作者：sloyy
--  发布时间：2012/10/29 17:31:00
--  

小林呀,你又和人开玩笑了 呵呵

人家应该问的是这个答案吧

Process

Process用于执行外部程序。

 

例子:

Dim Proc As New Process \'定义一个新的Process
Proc.File = "C:\\Program Files\\Tencent\\QQ\\Bin\\QQ.exe" \'指定要打开的文件
Proc.Start()
--  作者：lin_hailun
--  发布时间：2012/10/29 17:46:00
--  
 呵呵，其实没有。我很认真的。

Dim Proc As New Process \'定义一个新的Process
Proc.File = " http://sighttp.qq.com/msgrd?v=1&uin=765427475&site=qq&menu=yes" \'指定要打开的文件
Proc.Start()


 
--  作者：飞
--  发布时间：2012/10/29 17:52:00
--  
以下是引用lin_hailun在2012-10-29 17:46:00的发言：
 呵呵，其实没有。我很认真的。

Dim Proc As New Process \'定义一个新的Process
Proc.File = " http://sighttp.qq.com/msgrd?v=1&uin=765427475&site=qq&menu=yes" \'指定要打开的文件
Proc.Start()

\'小林,你的太长了,用这个吧,好记

Dim Proc As New Process
Proc.File = "tencent://message/?uin=800014337" \'把后面的号码换成QQ号就成
Proc.Start()

[此贴子已经被作者于2012-10-29 17:51:57编辑过]
--  作者：sloyy
--  发布时间：2012/10/29 18:08:00
--  

难怪我觉得小林的地址怪怪的,应该是很久以前的了
--  作者：zhaohj611718
--  发布时间：2012/10/29 18:14:00
--  

多谢啦！！！
--  作者：zhaohj611718
--  发布时间：2012/10/29 18:29:00
--  
我是在一个表上有一列是客户的qq号，怎样实现点击此qq号自动弹出qq对话框，请给我个详细的步骤，谢谢各位！
--  作者：布莱克朱
--  发布时间：2012/10/29 18:57:00
--  

Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & tables("表名").current("QQ列")
Proc.Start()