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 = TrueEnd If
这个是给某个QQ号发信息,我想问下,现在QQ有一个功能就是给自己的设备发信息和文件或图片,手机和自己的QQ发信息,也可以电脑QQ给自己的手机QQ发信息和发文件
现在想一键把项目里自动生成的一个代码发送到手机QQ上,这个功能能实现吗