1

2

3

4

5

6

7

8

Function KillProc(strProcName)

On Error Resume Next

 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

 Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )

 For Each proccess In arrProcesses

 proccess.Terminate 0

 Next

End Function

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

//檢測進程

進程名 = "qq.exe"

返回值 = IsProcess(進程名)

If 返回值 = True Then

MessageBox "發現進程"

ElseIf 返回值 = False Then

MessageBox "沒有發現進程"

End If

//檢測進程 優化后的代碼

If IsProcess("qq.exe") = True Then

MessageBox "發現進程"

Else

MessageBox "沒有發現進程"

End If

//檢測進程組

進程組 = "qq.exe|notepad.exe"

返回值 = IsProcessEx(進程組)

If 返回值 = True Then

MessageBox "發現進程"

ElseIf 返回值 = False Then

MessageBox "沒有發現進程"

End If

//檢測進程組 優化后的代碼

If IsProcessEx("qq.exe|notepad.exe") = True Then

MessageBox "發現進程"

Else

MessageBox "沒有發現進程"

End If

//結束進程 前臺執行

進程名 = "qq.exe"

Call CloseProcess(進程名, 1)

//結束進程 后臺執行

進程名 = "qq.exe"

Call CloseProcess(進程名, 0)

//結束進程組 前臺執行

進程組 = "qq.exe|notepad.exe"

Call CloseProcessEx(進程組, 1)

//結束進程組 后臺執行

進程組 = "qq.exe|notepad.exe"

Call CloseProcessEx(進程組, 0)

//實例應用 結束進程 前臺執行 10秒超時

進程名 = "qq.exe"

For 10

Call CloseProcess(進程名,1)

Delay 1000

返回值 = IsProcess(進程名)

If 返回值 = False Then

Exit For

End If

Next

If 返回值=True Then

MessageBox "結束進程失敗"

Else

MessageBox "結束進程成功"

End If

//實例應用 結束進程 前臺執行 優化后的代碼(直到型循環) 有些進程VBS檢測不到 所以先關閉后檢測

Do

Call CloseProcess("qq.exe",1)

Delay 1000

Loop While IsProcess("qq.exe")=True

MessageBox "結束進程成功"

//實例應用 結束進程組 后臺執行 10秒超時

進程組 = "qq.exe|notepad.exe"

For 10

Call CloseProcessEx(進程組,0)

Delay 1000

返回值 = IsProcessEx(進程組)

If 返回值 = False Then

Exit For

End If

Next

If 返回值=True Then

MessageBox "結束進程失敗"

Else

MessageBox "結束進程成功"

End If

//實例應用 結束進程組 后臺執行 優化后的代碼(直到型循環) 有些進程VBS檢測不到 所以先關閉后檢測

Do

Call CloseProcessEx( "qq.exe|notepad.exe",0)

Delay 1000

Loop While IsProcessEx( "qq.exe|notepad.exe")=True

MessageBox "結束進程成功"

//函數 子程序部分代碼

//檢測進程

Function IsProcess(ExeName)

Dim WMI, Obj, Objs,i

IsProcess = False

Set WMI = GetObject("WinMgmts:")

Set Objs = WMI.InstancesOf("Win32_Process")

For Each Obj In Objs

If InStr(UCase(ExeName),UCase(Obj.Description)) <> 0 Then

IsProcess = True

Exit For

End If

Next

Set Objs = Nothing

Set WMI = Nothing

End Function

//結束進程

Sub CloseProcess(ExeName,RunMode)

dim ws

Set ws = createobject("Wscript.Shell")

ws.run "cmd.exe /C Taskkill /f /im " & ExeName,RunMode

Set ws = Nothing

End Sub

//檢測進程組

Function IsProcessEx(ExeName)

Dim WMI, Obj, Objs,ProcessName,i

IsProcessEx = False

Set WMI = GetObject("WinMgmts:")

Set Objs = WMI.InstancesOf("Win32_Process")

ProcessName=Split(ExeName,"|")

For Each Obj In Objs

For i=0 to UBound(ProcessName)

If InStr(UCase(ProcessName(i)),UCase(Obj.Description)) <> 0 Then

IsProcessEx = True

Exit For

End If

Next

Next

Set Objs = Nothing

Set WMI = Nothing

End Function

//結束進程組

Sub CloseProcessEx(ExeName,RunMode)

dim ws,ProcessName,CmdCode,i

ProcessName = Split(ExeName, "|")

For i=0 to UBound(ProcessName)

CmdCode=CmdCode & " /im " & ProcessName(i)

Next

Set ws = createobject("Wscript.Shell")

ws.run "cmd.exe /C Taskkill /f" & CmdCode,RunMode

Set ws = Nothing

End Sub