主题：能不能复制文件到QQ的对话框

 如果是发送内容，取巧

Dim a As String = "8888888"
If a IsNot Nothing Then
    Dim Proc As New Process
    'tencent://Message/?puin=朋友的QQ&Uin=你的QQ
    Proc.File = "tencent://message/?uin=" & a
    Proc.Start()
    Dim str As String = FileSys.ReadAllText(ProjectPath & "搜狗词库.txt")
    System.Threading.Thread.Sleep(3000)
    Sendkeys.SendWait(str)
    Sendkeys.SendWait("^~")
End If