通过QQ小秘书与任意好友聊天的源程序

Private Declare Sub InitCommonControls Lib "comctl32" ()
Private sQQ As String
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 cmdCopy_Click()
Clipboard.SetText sQQ
Me.Caption = "已经复制"
End Sub

Private Sub cmdSend_Click()
'Dim IECtl As Object
'Set IECtl = GetObject("", "INTERNETEXPLORER.APPLICATION")
'IECtl.Navigate sQQ
'IECtl.Visible = 1
x = ShellExecute(0&, vbNullString, sQQ, vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub Form_Initialize()
    Call InitCommonControls
End Sub

Private Sub txtNumber_Change()
sQQ = "http://wpa.qq.com/msgrd?V=1&Uin=" & txtNumber & "&Site=QQ.COM&Menu=yes"
End Sub