以文本方式查看主题

-  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=129524)
--  作者：lihe60
--  发布时间：2018/12/30 14:42:00
--  QQ发送信息
在狐表中，可以给一个指定的QQ号发送信息，如何获取发送信息人的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(5000)   \'等候几秒,让窗口打开
    Sendkeys.SendWait(e.Row("信息内容"))
    Sendkeys.Send("^~")   \'回车
    e.Cancel = True
End If

[此贴子已经被作者于2018/12/30 14:44:54编辑过]
--  作者：有点甜
--  发布时间：2018/12/30 17:54:00
--  
这个无法获取的。你当前电脑登陆的是谁，就是谁。
--  作者：lihe60
--  发布时间：2018/12/30 18:48:00
--  
在PC端，每个人都可以登录的，想知道是谁在发信息。
--  作者：有点甜
--  发布时间：2018/12/30 18:52:00
--  
以下是引用lihe60在2018/12/30 18:48:00的发言：
在PC端，每个人都可以登录的，想知道是谁在发信息。

 

操作的是你现在pc电脑上已经登陆的那个QQ。

 

而且这个发送，是模拟发送，意思是调出聊天窗口，然后发信息。
--  作者：有点甜
--  发布时间：2018/12/30 18:53:00
--  
qq没有开放的发送信息的接口。