通过腾讯临时会话代码实现：QQ强行聊天工具 QQ-Chat.vbs'/*=========================================================================
' * Intro       通过腾讯临时会话代码实现：QQ强行聊天工具
' * FileName     QQ-Chat.vbs
' * Author       yongfa365
' * Version     v1.0
' * LastModify   2007-08-31 15:11:50
' *==========================================================================*/

On Error Resume Next
num = InputBox("请输入对方QQ号码:", "强行聊天工具(单人)") '输入对方QQ号码
If num = "" Then WScript.Quit '如果输入的变量为空则结束程序
url = "tencent://message/?uin=" + num + "&Site=1&Menu=yes" '腾讯临时会话代码
Set bj = WScript.CreateObject("InternetExplorer.Application") '创建IE浏览器对象
obj.Visible = False '设置IE浏览器为不可见
obj.Navigate(url) '打开IE浏览器 ，效果为打开QQ临时会话窗口