- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何给QQ自动发送信息？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=25079)
-- 发布时间：2012/10/30 18:49:00
-- 如何给QQ自动发送信息？
受http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=25027&page=2这个例子启发，
想做一个自动发信息的功能，我设置了这样一个表格，这样以后要激活软件就可以偷电懒了。
此主题相关图片如下：未命名.jpg
-- 发布时间：2012/10/30 18:50:00
--
这样有直接用QQ快么
-- 发布时间：2012/10/30 18:56:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:qq信息.table |
做了个例子 大家一起来完善
-- 发布时间：2012/10/30 20:33:00
--
哈哈，楼主，和你一样无聊了一把……
此主题相关图片如下：test.gif
-- 发布时间：2012/10/30 20:33:00
--
直接上代码……
If not e.Row.IsNull("qq") Then
Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & e.Row("QQ")
Proc.Start
System.Threading.Thread.Sleep(5000) \'等候几秒,让窗口打开
Sendkeys.SendWait(e.Row("信息内容"))
Sendkeys.Send("^~") \'回车
e.Cancel = True
End If
-- 发布时间：2012/10/30 20:38:00
--
早些日子被问及的给QQ发消息的，这么快就出具体应用了啊
-- 发布时间：2012/10/30 23:06:00
--
顶起，正考虑这个功能
-- 发布时间：2012/10/30 23:53:00
--
If not e.Row.IsNull("qq") Then
Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & e.Row("QQ")
Proc.Start
System.Threading.Thread.Sleep(3000) \'等候几秒,让窗口打开
Sendkeys.SendWait(e.Row("信息内容"))
Sendkeys.Send("%s") \'回车
e.Cancel = True
End If
改了一个Alt s 自动发送出去
-- 发布时间：2012/10/30 23:59:00
--
还有3处不完美地方：
1、一开始应判断qq是否启动
2、发送消息字符前，最好有一个方法判断是消息窗口是否打开
3、发送多行文本还有点问题，第一个给foxtable的只能发出最后两句
[此贴子已经被作者于2012-10-31 8:52:24编辑过]
-- 发布时间：2012/10/31 1:35:00
--
你好
如果QQ列,有多个QQ号,并且以\',\'号隔开.如何才能针对多个QQ同时发信息呢?