急呀！VB中怎么可以打开QQ？

如果需要与某QQ会话的话陵瞎，只要

在通用中声明：滑汪耐

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

然后在需要的信春地方，例如按钮的Click事件中，添加代码

ShellExecute 0&, vbNullString, "tencent://message/?uin=QQ号码", vbNullString, vbNullString, vbNormalFocus

我曾经见到有同事的电脑中过一种木马，它的行为是把QQ的所有快捷方式改了，改为启动自己，图标用的是QQ.EXE上的图标，段段这样看上去还是原来的QQ图标。但是启动的是另一个程序，这个程序就在QQ的目录下面放着，启动后，纳祥它会再去启动QQ.EXE。

办法很简单。

但是我劝你还是不要去这样做比较好。你虽然现在觉得很有意思，可能也觉得没有什么。

但是中招的人换成你自己呢？你可能会说，没事我自己会注意这些问题，会小心使用的。

呵呵，这个可不好说，万一哪天你自己也中了，那时可能会很洞燃搏火大，就算你知道怎么去除也一样如此。如果大家都这样做。那我们还是不要用电脑为好。好好的环境，为什么总有人想着要去搞破坏，不要说别人都做了。那别人都去偷了，你也去？别人不懂事，不要自己也不懂。

不过你是看完想骂也好，还是如何，事实就是这样，越是反感，就越证明事实如此。

Private Sub Command1_Click()

'要打烂明开qq，先要凯磨知道它在什么位置，一般电脑上都装在默认目录

Shell "C:\Program Files\Tencent\QQ\Bin\盯历斗qq.exe"

End Sub

---