主题：如何给QQ自动发送信息？

受http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=25027&page=2这个例子启发，

想做一个自动发信息的功能，我设置了这样一个表格，这样以后要激活软件就可以偷电懒了。

此主题相关图片如下：未命名.jpg

 

这样有直接用QQ快么

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:qq信息.table

做了个例子 大家一起来完善

 哈哈，楼主，和你一样无聊了一把……


此主题相关图片如下：test.gif

直接上代码……

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

早些日子被问及的给QQ发消息的，这么快就出具体应用了啊

顶起，正考虑这个功能

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 自动发送出去

还有3处不完美地方：

1、一开始应判断qq是否启动

2、发送消息字符前，最好有一个方法判断是消息窗口是否打开

3、发送多行文本还有点问题，第一个给foxtable的只能发出最后两句

你好

如果QQ列,有多个QQ号,并且以','号隔开.如何才能针对多个QQ同时发信息呢?