【HSP3】プロセス(全スレッド)を一時停止するモジュール | Codetter（こーどったー）

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
#include "kernel32.as"
#include "user32.as"
#define global STANDARD_RIGHTS_REQUIRED 0x000f0000
#define global SYNCHRONIZE 0x00100000
#define global THREAD_TERMINATE 0x0001
#define global THREAD_SUSPEND_RESUME 0x0002
#define global THREAD_GET_CONTEXT 0x0008
#define global THREAD_SET_CONTEXT 0x0010
#define global THREAD_SET_INFORMATION 0x0020
#define global THREAD_QUERY_INFORMATION 0x0040
#define global THREAD_SET_THREAD_TOKEN 0x0080
#define global THREAD_IMPERSONATE 0x0100
#define global THREAD_DIRECT_IMPERSONATION 0x0200
#define global THREAD_ALL_ACCESS (STANDARD_RIGHTS_REQUIRED|SYNCHRONIZE|0x3ff)
#define global TH32CS_SNAPPROCESS 0x02
#define global TH32CS_SNAPTHREAD 0x04
#module _processkill_
#deffunc _init
    Count = 0
return
#defcfunc CountCheck
return Count
#deffunc PIDPauseResume int pid,int flag
    
    CreateToolhelp32Snapshot TH32CS_SNAPTHREAD,pid
    hThreadSnap = stat
    
    // エラー発生（INVALID_HANDLE_VALUE）
    if hThreadSnap = 0xFFFFFFFF : return -1
    dim th32,7 : th32.0 = length(th32) * 4
    Thread32First hThreadSnap,varptr(th32)
    repeat
    
        if th32.3 = pid {
            OpenThread 0x0002, 0, th32.2
            hThread = stat
            if hThread!=0{
                if flag = 0{
                    // 休止
                    repeat
                        SuspendThread hThread
                        if (stat != 0){
                            break
                        }
                    loop
                }else{
                    // 再開
                    repeat
                        ResumeThread hThread
                        if ((stat = 1)| (stat = 0)){
                            break
                        }
                    loop
                }
                CloseHandle hThread
            }
            
        }
        dim th32,7 : th32.0 = length(th32) * 4
        Thread32Next hThreadSnap,varptr(th32)
        if stat = 0 : break
        
    loop
    if flag = 0 : Count++ : else : Count--
    
return Count
#deffunc ProcessPauseResume str fname,int flg
    // スナップショット作成
    CreateToolhelp32Snapshot TH32CS_SNAPPROCESS,0
    hProcessSnap = stat
    dim pe32 , 9 + (260/4) 
    pe32.0 = length(pe32) * 4
    Process32First hProcessSnap,varptr(pe32)
    ;mes "PID:"+pe32.2
    if pe32.9!=0{
        sdim filename,261
        memcpy filename,pe32.9,260,0,0
        ;mes filename
    }
    
    repeat
    
        dim pe32 , 9 + (260/4) 
        pe32.0 = length(pe32) * 4
        Process32Next hProcessSnap,varptr(pe32)
        if stat = 0 : break
    
        ;mes "PID:"+pe32.2
        if pe32.9!=0{
            sdim filename,261
            memcpy filename,pe32.9,260,0,0
            ;mes filename
            // 小文字に変換
            filename = getpath(filename,16)
            if instr(filename,0,fname)!=-1 : PIDPauseResume pe32.2,flg
        }
    
    loop
return
#global
_init
    // サンプル
    ProcessPauseResume "chrome.exe", 0
    dialog "OKを押すと復活します"
    ProcessPauseResume "chrome.exe", 1
    // PIDが分かっている場合はこっち
    ;PIDPauseResume pid, 0
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX