关闭程序

[留下些什么]

如何用程序关闭"任务管理器","注册表编辑器"和 msconfig?

[online]

枚举进程，找到结束

[laviewpbt]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Command1_Click()
Dim ss As Long
ss = FindWindow(vbNullString, "注册表编辑器")
SendMessage ss, WM_CLOSE, 0, 0
ss = FindWindow(vbNullString, "系统配置实用程序")
SendMessage ss, WM_CLOSE, 0, 0
ss = FindWindow(vbNullString, "任务管理器")
SendMessage ss, WM_CLOSE, 0, 0
End Sub

[starsoulxp]

学习

[ryuginka]

学习