QQ2009还能强制聊天吗？用VB来编写QQ强制聊天工具

打开VB，加一个Text文本控件和一个Button按钮控件，然后复制下面的代码即可运行进行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
Private Sub Form_load()
Text1.Text = ""
End Sub
Private Sub Command1_Click()
qq = "tencent://message/?uin=" & Text1.Text
ShellExecute Me.hWnd, "open", qq, vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

代码很简单，其实就是运用了腾讯的在线互动功能。那能支持最新的QQ2009吗？很遗憾，经测试，QQ2009并不适用，也就是说它只支持QQ2008及之前的版本。