Foxtable(狐表)用户栏目专家坐堂 → 调QQ对话框


  共有9522人关注过本帖树形打印复制链接

主题:调QQ对话框

帅哥哟,离线,有人找我吗?
zhaohj611718
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:3778 威望:0 精华:0 注册:2012/10/29 15:51:00
调QQ对话框  发帖心情 Post By:2012/10/29 17:03:00 [只看该作者]

怎样调QQ对话框

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13810 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By: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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By: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()


 

 回到顶部
帅哥哟,离线,有人找我吗?
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:732 积分:5491 威望:0 精华:14 注册:2011/8/28 12:49:00
  发帖心情 Post By: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
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13810 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/10/29 18:08:00 [只看该作者]

难怪我觉得小林的地址怪怪的,应该是很久以前的了


 回到顶部
帅哥哟,离线,有人找我吗?
zhaohj611718
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:3778 威望:0 精华:0 注册:2012/10/29 15:51:00
  发帖心情 Post By:2012/10/29 18:14:00 [只看该作者]

多谢啦!!!


 回到顶部
帅哥哟,离线,有人找我吗?
zhaohj611718
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:314 积分:3778 威望:0 精华:0 注册:2012/10/29 15:51:00
  发帖心情 Post By:2012/10/29 18:29:00 [只看该作者]

我是在一个表上有一列是客户的qq号,怎样实现点击此qq号自动弹出qq对话框,请给我个详细的步骤,谢谢各位!

 回到顶部
帅哥哟,离线,有人找我吗?
布莱克朱
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:623 积分:3897 威望:0 精华:0 注册:2011/8/3 22:13:00
  发帖心情 Post By:2012/10/29 18:57:00 [只看该作者]

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



 回到顶部