主题：当发起QQ聊天时,如何自动发送指定的内容?

If not e.Row.Isnull("qq") Then
Dim Proc As New Process
Proc.File = "tencent://message/?uin=" & e.Row("QQ")
Proc.Start()

'如何将需要发送的内容自动发送出去?
e.cancel = True
End If