Dim ObjIE As New Windows.Forms.WebBrowser
ObjIE.Navigate("tencent://message/?uin=QQ号码")
ObjIE.Dispose()
'可以用以上代码打开与某个人的QQ会话窗口,将里面的QQ号码替换为实际的QQ号就可以了,但是不能自动发消息的
我在这里用过这个东西
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=16302
都没有测试就直接把百度来的代码发上来了,还有胡说的
这个是VB6的代码,我测试过,新版的QQ可以找到QQ的聊天窗口,也可以把文件粘贴进下面的输入框,但是快捷键它是发不出去的