给Visual Basic 6 的代码你,你自己看着编:
'新建一个标准工程,然后添加一个Timer控件,时间为10就可
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
Private Sub Timer1_Timer()
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(VBNullString, "腾讯迷你首页")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
End If
End Sub