主题：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能否实现这个功能呢

或者发送截图。