Private Declare Sub InitCommonControls Lib "comctl32" () Private sQQ As StringPrivate 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 longprivate sub cmdcopy_click () clipboard.settext sqqme.caption = "Copy" End Sub
Private Sub cmdSend_Click () 'Dim IECtl As Object'Set IECtl = GetObject ( "", "INTERNETEXPLORER.APPLICATION")' IECtl.Navigate sQQ'IECtl.Visible = 1x = ShellExecute (0 &, vbNullString, sQQ, vbNullString, vbNullString, vbNormalFocus ) End Sub
Private Sub Form_initialize () Call InitcommonControlsend Sub
Private sub txtnumber_change () sqq = "http://wpa.qq.com/msgrd?v=1&uin=" & txtnumber & "& site = qq.com & menu = yes" End Sub
