以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  给QQ自动发信息,的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61464)

--  作者：xjc620 --  发布时间：2014/12/12 19:41:00 --  给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 这个是给某个QQ号发信息,我想问下,现在QQ有一个功能就是给自己的设备发信息和文件或图片,手机和自己的QQ发信息,也可以电脑QQ给自己的手机QQ发信息和发文件 现在想一键把项目里自动生成的一个代码发送到手机QQ上,这个功能能实现吗

--  作者：Bin --  发布时间：2014/12/13 8:59:00 --   设置为自己的QQ号码看看吧

--  作者：xjc620 --  发布时间：2014/12/13 10:21:00 --   不行，不能自己给自qq发，我想实现，能过自己qq给自己设备发

--  作者：xjc620 --  发布时间：2014/12/15 22:13:00 --   甜版帮忙看下

--  作者：有点甜 --  发布时间：2014/12/15 22:16:00 --   代码就是这样写了。不能再扩展了。功能是受限的