Private Sub Command1_Click()
Dim QQNum As String
QQNum = "328191852"
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe tencent://message/?uin=" + QQNum + ""
'shell是函数..
End Sub

哦 程序中不是有个“Q我”的按钮吗？当单击“Q我”按钮时就会弹出QQ聊天窗口（前提条件是：你必须先打开你的QQ），这是我从QQ强聊器代码那里得来的思路，这样使用这个软件的用户就能随时和我交流并给我留些意见，
Private Sub Command1_Click() '单击按钮一，就是“Q我”那个按钮
Dim QQNum As String '定义QQNuM为字符串变量
QQNum = "328191852" '把我的QQ号的值赋给QQNum
Shell "C:\\Program Files\\Internet Explorer\\IEXPLORE.exe tencent://message/?uin=" + QQNum + ""
'用Shell函数打开IE并在地址栏里边输入 tencent://message/?uin=" + QQNum + "" 而=" + QQNum + ""里面的QQNum就是328191852 这一切都有“Q我”按钮自动完成！
其实你只要打开IE并在地址栏里面输入tencent://message/?uin=“任意人的QQ号码”（不带引号）
就能实现强行聊天拉！在这里我只不过用编程的手法来完成罢了

[此贴子已经被作者于2007-10-28 10:57:12编辑过]

XP和2003都有Shutdown.exe而2K中的确没有,不过,
可以把Shutdown.exe和你做的程序放在一块,这样就可以
在2K中实现了.

恩 这倒是个好办法谢谢啦

好像是和他QQ聊天的命令吧。 。。。。。。。。。。。QQ强制聊天器就是这种代码。

我有一个问题
机房都对注册表有重起后还原的，你注册的自启动会被还原的
该功能是不可能实现的
大家有没有解决的办法啊？

Iexplore 的地址栏输入的字符我看不太懂
那位大侠帮哥们分析一下
例如tencent://message/?uin=328191852
tencent://什么意思
message/?什么意思，为什么要问号
结尾又啥意思？
谢谢了

不完全注解：
tencent---腾讯
message---消息、信息
呵呵 这个我也是在别人的代码中找到的，我自己都不知道是什么意思，汗不好意思啊。