QQ自动给存储的QQ号发送指定文件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → QQ自动给存储的QQ号发送指定文件

共有3005人关注过本帖树形打印复制链接主题：QQ自动给存储的QQ号发送指定文件

sjzsdu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：341 积分：2455 威望：0 精华：0 注册：2014/7/30 18:03:00

QQ自动给存储的QQ号发送指定文件 发帖心情

Post By：2015/1/6 17:24:00 [只看该作者]

以下代码可以实现自动发送文字。

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编辑过]