Question

VB 当达到某一条件后，对QQ好友自动发送消息，怎么写？

我想写一个小程序，但碰到了一个问题，像这样：
If text1.text = "" then
'打开某一QQ好友对话框，并自动发送一段消息给他（事先已登录QQ）
End if
像这样的一段程序要怎么写啊？请大侠帮忙~

之前的那个问题忘记设定分值了，不好意思~
2楼的朋友，你的方法只能打开QQ对话框，没有办法发送消息噢。。

Answer 1

如果你已经开启QQ就可以
这样写
Shell Environ("PROGRAMFILES") & "\Internet Explorer\iexplore.exe " & "Tencent://Message/?Menu=YES&Exe=&Uin=" & Text1.Text, vbNormalFocus
Text1.Text就是你输入想要聊天的对象的QQ号
不需要加对方为好友就可以聊天
如果没有就回谈出无效网页

Answer 2

lylaad8637884 正解 不过这些都是歪门邪道了 你应该去查找QQ有没有对发送QQ消息提供有WebService接口 或者 更绝的方法就是 收购腾讯 用它的代码来改~！

Answer 3

shell到qq。exe