以文本方式查看主题

-  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=48753)
--  作者：飞天
--  发布时间：2014/4/4 12:02:00
--  当发起QQ聊天时,如何自动发送指定的内容?

If not e.Row.Isnull("qq") Then
Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & e.Row("QQ")
Proc.Start()

\'如何将需要发送的内容自动发送出去?
e.cancel = True
End If
--  作者：Bin
--  发布时间：2014/4/4 12:05:00
--  
利用SendKeys
--  作者：飞天
--  发布时间：2014/4/4 12:18:00
--  

好像不行呀,
--  作者：有点甜
--  发布时间：2014/4/4 14:24:00
--  

 说一个简单的方法。

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=25079&skin=0