Private Sub close()
Dim pProcess() As Process pProcess = Process.GetProcesses() '获取当前所有进程 Dim All As Integer Dim myArray() As String = _ {"Assembly View", "Anakrino", "Borg", "PEBrowse", "ProcessDasm", "VirtualCode", "Dasm", "IDA", _ "FrogsICE", "DriverWorkbench", "OllyDbg", "twx", "TRW", "SoftICE", "NTICE", "SICE", _ "API Monitor", "ApiHooks", "APIS", "API-Log", "APISpy", "ExeSpy", "File Monitor", "RegistryMonitor", "MemoryMonitor", "Regmon", "Regshot", "RegSnap", "RegSpy", "Res Spy", _ "crack", "破解", "sn", "SN"}
For All = 0 To pProcess.Length() - 1 For Kill As Integer = 0 To myArray.Length - 1 If InStr(pProcess(All).MainWindowTitle, myArray(Kill).ToString) Then pProcess(All).Kill() '杀死Crack相关进程 End '退出软件。这里你还可以加上其他措施 'MsgBox(pProcess(All).MainWindowTitle) End If Next Next |