- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- QQ自动给存储的QQ号发送指定文件 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62701)
-- 发布时间：2015/1/6 17:24:00
-- 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(3000) \'等候几秒,让窗口打开 Sendkeys.SendWait(e.Row("信息内容")) Sendkeys.Send("%s") \'回车 e.Cancel = True End If 我想做个能自动发送文件的。sendkeys能否实现这个功能呢 或者发送截图。 |
[此贴子已经被作者于2015-1-6 17:26:43编辑过]
-- 发布时间：2015/1/6 17:25:00
--
你的问题是什么?
-- 发布时间：2015/1/6 17:25:00
--
只能只能，无法更多的控制的。
-- 发布时间：2015/1/6 17:28:00
--
还没编辑完成，手太快按了个enter键
-- 发布时间：2015/1/6 17:29:00
--
不行,只能发送信息.