【9x下进程管理】选择夹的应用

mp624183768

dll命令

  

DLL命令名	返回值类型	公开	备 注
CreateToolhelp32Snapshot	整数型
DLL库文件名:
在DLL库中对应命令名:
CreateToolhelp32Snapshot
参数名	类 型	传址	数组	备 注
dwFlags	整数型
th32ProcessID	整数型

DLL命令名	返回值类型	公开	备 注
Process32First	整数型
DLL库文件名:
在DLL库中对应命令名:
Process32First
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lppe	PROCESSENTRY32

DLL命令名	返回值类型	公开	备 注
CloseHandle
DLL库文件名:
在DLL库中对应命令名:
CloseHandle
参数名	类 型	传址	数组	备 注
ProcessHandle	整数型

DLL命令名	返回值类型	公开	备 注
Process32Next	整数型
DLL库文件名:
在DLL库中对应命令名:
Process32Next
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lppe	PROCESSENTRY32

DLL命令名	返回值类型	公开	备 注
Thread32First	整数型
DLL库文件名:
在DLL库中对应命令名:
Thread32First
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lpte	THREADENTRY32

DLL命令名	返回值类型	公开	备 注
Thread32Next	整数型
DLL库文件名:
在DLL库中对应命令名:
Thread32Next
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lpte	THREADENTRY32

DLL命令名	返回值类型	公开	备 注
Module32Next	整数型
DLL库文件名:
在DLL库中对应命令名:
Module32Next
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lpme	MODULEENTRY32

DLL命令名	返回值类型	公开	备 注
Module32First	整数型
DLL库文件名:
在DLL库中对应命令名:
Module32First
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lpme	MODULEENTRY32

DLL命令名	返回值类型	公开	备 注
Heap32ListNext	整数型
DLL库文件名:
在DLL库中对应命令名:
Heap32ListNext
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lphl	HEAPLIST32

DLL命令名	返回值类型	公开	备 注
Heap32ListFirst	整数型
DLL库文件名:
在DLL库中对应命令名:
Heap32ListFirst
参数名	类 型	传址	数组	备 注
hSnapshot	整数型
lphl	HEAPLIST32

DLL命令名	返回值类型	公开	备 注
Heap32Next	整数型
DLL库文件名:
在DLL库中对应命令名:
Heap32Next
参数名	类 型	传址	数组	备 注
lphe	HEAPENTRY32

DLL命令名	返回值类型	公开	备 注
Heap32First	整数型
DLL库文件名:
在DLL库中对应命令名:
Heap32First
参数名	类 型	传址	数组	备 注
lphe	HEAPENTRY32
th32ProcessID	整数型
th32HeapID	整数型

DLL命令名	返回值类型	公开	备 注
GetFileVersionInfoSize	整数型
DLL库文件名:
VERSION.DLL
在DLL库中对应命令名:
GetFileVersionInfoSizeA
参数名	类 型	传址	数组	备 注
File	文本型
Num	整数型

DLL命令名	返回值类型	公开	备 注
GetFileVersionInfo	整数型
DLL库文件名:
VERSION.DLL
在DLL库中对应命令名:
GetFileVersionInfoA
参数名	类 型	传址	数组	备 注
File	文本型
Num	整数型
Size	整数型
VerInfo	字节集

DLL命令名	返回值类型	公开	备 注
VerQueryValue	整数型
DLL库文件名:
VERSION.DLL
在DLL库中对应命令名:
VerQueryValueA
参数名	类 型	传址	数组	备 注
VerInfo	字节集
String	文本型
Buffer	整数型
Len	整数型

DLL命令名	返回值类型	公开	备 注
MoveMemory
DLL库文件名:
在DLL库中对应命令名:
RtlMoveMemory
参数名	类 型	传址	数组	备 注
dest	字节集
Source	整数型
length	整数型

DLL命令名	返回值类型	公开	备 注
GetModuleFileName	整数型
DLL库文件名:
在DLL库中对应命令名:
GetModuleFileNameA
参数名	类 型	传址	数组	备 注
hModule	整数型
lpFileName	文本型
nSize	整数型

DLL命令名	返回值类型	公开	备 注
OpenProcess	整数型
DLL库文件名:
在DLL库中对应命令名:
OpenProcess
参数名	类 型	传址	数组	备 注
dwDesiredAccess	整数型
bInheritHandle	逻辑型
dwProcessId	整数型

DLL命令名	返回值类型	公开	备 注
TerminateProcess	整数型
DLL库文件名:
在DLL库中对应命令名:
TerminateProcess
参数名	类 型	传址	数组	备 注
hProcess	整数型
uExitCode	整数型

.版本 2<br /> <br /> .DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"<br />     .参数 dwFlags, 整数型<br />     .参数 th32ProcessID, 整数型<br /> <br /> .DLL命令 Process32First, 整数型, , "Process32First"<br />     .参数 hSnapshot, 整数型<br />     .参数 lppe, PROCESSENTRY32<br /> <br /> .DLL命令 CloseHandle, , , "CloseHandle"<br />     .参数 ProcessHandle, 整数型<br /> <br /> .DLL命令 Process32Next, 整数型, , "Process32Next"<br />     .参数 hSnapshot, 整数型<br />     .参数 lppe, PROCESSENTRY32<br /> <br /> .DLL命令 Thread32First, 整数型, , "Thread32First"<br />     .参数 hSnapshot, 整数型<br />     .参数 lpte, THREADENTRY32<br /> <br /> .DLL命令 Thread32Next, 整数型, , "Thread32Next"<br />     .参数 hSnapshot, 整数型<br />     .参数 lpte, THREADENTRY32<br /> <br /> .DLL命令 Module32Next, 整数型, , "Module32Next"<br />     .参数 hSnapshot, 整数型<br />     .参数 lpme, MODULEENTRY32<br /> <br /> .DLL命令 Module32First, 整数型, , "Module32First"<br />     .参数 hSnapshot, 整数型<br />     .参数 lpme, MODULEENTRY32<br /> <br /> .DLL命令 Heap32ListNext, 整数型, , "Heap32ListNext"<br />     .参数 hSnapshot, 整数型<br />     .参数 lphl, HEAPLIST32<br /> <br /> .DLL命令 Heap32ListFirst, 整数型, , "Heap32ListFirst"<br />     .参数 hSnapshot, 整数型<br />     .参数 lphl, HEAPLIST32<br /> <br /> .DLL命令 Heap32Next, 整数型, , "Heap32Next"<br />     .参数 lphe, HEAPENTRY32<br /> <br /> .DLL命令 Heap32First, 整数型, , "Heap32First"<br />     .参数 lphe, HEAPENTRY32<br />     .参数 th32ProcessID, 整数型<br />     .参数 th32HeapID, 整数型<br /> <br /> .DLL命令 GetFileVersionInfoSize, 整数型, "VERSION.DLL", "GetFileVersionInfoSizeA"<br />     .参数 File, 文本型<br />     .参数 Num, 整数型<br /> <br /> .DLL命令 GetFileVersionInfo, 整数型, "VERSION.DLL", "GetFileVersionInfoA"<br />     .参数 File, 文本型<br />     .参数 Num, 整数型<br />     .参数 Size, 整数型<br />     .参数 VerInfo, 字节集, 传址<br /> <br /> .DLL命令 VerQueryValue, 整数型, "VERSION.DLL", "VerQueryValueA"<br />     .参数 VerInfo, 字节集, 传址<br />     .参数 String, 文本型, 传址<br />     .参数 Buffer, 整数型, 传址<br />     .参数 Len, 整数型, 传址<br /> <br /> .DLL命令 MoveMemory, , , "RtlMoveMemory"<br />     .参数 dest, 字节集, 传址<br />     .参数 Source, 整数型<br />     .参数 length, 整数型<br /> <br /> .DLL命令 GetModuleFileName, 整数型, , "GetModuleFileNameA"<br />     .参数 hModule, 整数型<br />     .参数 lpFileName, 文本型<br />     .参数 nSize, 整数型<br /> <br /> .DLL命令 OpenProcess, 整数型, , "OpenProcess"<br />     .参数 dwDesiredAccess, 整数型<br />     .参数 bInheritHandle, 逻辑型<br />     .参数 dwProcessId, 整数型<br /> <br /> .DLL命令 TerminateProcess, 整数型, , "TerminateProcess"<br />     .参数 hProcess, 整数型<br />     .参数 uExitCode, 整数型

自定义数据类型
.版本 2

.数据类型 PROCESSENTRY32
    .成员 dwSize, 整数型, , , 296
    .成员 cntUsage, 整数型
    .成员 th32ProcessID, 整数型
    .成员 th32DefaultHeapID, 整数型
    .成员 th32ModuleID, 整数型
    .成员 cntThreads, 整数型
    .成员 th32ParentProcessID, 整数型
    .成员 pcPriClassBase, 整数型
    .成员 dwFlags, 整数型
    .成员 szExeFile, 字节型, , "260"

.数据类型 HEAPLIST32
    .成员 dwSize, 整数型, , , 16
    .成员 th32ProcessID, 整数型
    .成员 th32HeapID, 整数型
    .成员 dwFlags, 整数型

.数据类型 HEAPENTRY32
    .成员 dwSize, 整数型, , , 36
    .成员 hHandle, 整数型
    .成员 dwAddress, 整数型
    .成员 dwBlockSize, 整数型
    .成员 dwFlags, 整数型
    .成员 dwLockCount, 整数型
    .成员 dwResvd, 整数型
    .成员 th32ProcessID, 整数型
    .成员 th32HeapID, 整数型

.数据类型 MODULEENTRY32
    .成员 dwSize, 整数型, , , 548
    .成员 th32ModuleID, 整数型
    .成员 th32ProcessID, 整数型
    .成员 GlblcntUsage, 整数型
    .成员 ProccntUsage, 整数型
    .成员 modBaseAddr, 整数型
    .成员 modBaseSize, 整数型
    .成员 hModule, 整数型
    .成员 szModule, 字节型, , "256"
    .成员 szExePath, 字节型, , "260"

.数据类型 THREADENTRY32
    .成员 dwSize, 整数型, , , 28
    .成员 cntUsage, 整数型
    .成员 th32ThreadID, 整数型
    .成员 th32OwnerProcessID, 整数型
    .成员 tpBasePri, 整数型
    .成员 tpDeltaPri, 整数型
    .成员 dwFlags, 整数型

.数据类型 VS_FIXEDFILEINFO
    .成员 Signatur, 整数型
    .成员 StrucVersion, 整数型
    .成员 FileVersionMS, 整数型
    .成员 FileVersionLS, 整数型
    .成员 ProductVersionMS, 整数型
    .成员 ProductVersionLS, 整数型
    .成员 FileFlagsMask, 整数型
    .成员 FileFlags, 整数型
    .成员 FileOS, 整数型
    .成员 FileType, 整数型
    .成员 FileSubtype, 整数型
    .成员 FileDateMS, 整数型
    .成员 FileDateLS, 整数型
源码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

New ()

子程序名	返回值类型	公开	备 注
New

变量名	类 型	静态	数组	备 注
hSnapShot	整数型
End	整数型
buffer	PROCESSENTRY32
进程名	文本型		0
进程ID	整数型		0
默认堆ID	整数型		0
模块ID	整数型		0
父进程ID	整数型		0
线程数	整数型		0
线程基本优先级	整数型		0
引用数	整数型		0

超级列表框1.全部删除 ()
hSnapShot ＝ CreateToolhelp32Snapshot (2, 0)
buffer.dwSize ＝ 296
End ＝ Process32First (hSnapShot, buffer)
判断循环首 (End ≠ 0)
加入成员 (进程名, 到文本 (buffer.szExeFile))
加入成员 (进程ID, buffer.th32ProcessID)
加入成员 (默认堆ID, buffer.th32DefaultHeapID)
加入成员 (模块ID, buffer.th32ModuleID)
加入成员 (父进程ID, buffer.th32ParentProcessID)
加入成员 (线程数, buffer.cntThreads)
加入成员 (线程基本优先级, buffer.pcPriClassBase)
加入成员 (引用数, buffer.cntUsage)
End ＝ Process32Next (hSnapShot, buffer)
判断循环尾 ()
CloseHandle (hSnapShot)
End ＝ 取数组成员数 (进程名)
_启动窗口.标题 ＝ “当前进程数：” ＋ 到文本 (End)
计次循环首 (End, hSnapShot)
超级列表框1.插入表项 (-1, 进程名 [hSnapShot], , , , 进程ID [hSnapShot])
超级列表框1.置标题 (hSnapShot － 1, 1, bw (取十六进制文本 (进程ID [hSnapShot])))
超级列表框1.置标题 (hSnapShot － 1, 2, 到文本 (线程基本优先级 [hSnapShot]))
超级列表框1.置标题 (hSnapShot － 1, 3, 到文本 (线程数 [hSnapShot]))
超级列表框1.置标题 (hSnapShot － 1, 4, 到文本 (引用数 [hSnapShot]))
超级列表框1.置标题 (hSnapShot － 1, 5, bw (取十六进制文本 (父进程ID [hSnapShot])))
超级列表框1.置标题 (hSnapShot － 1, 6, bw (取十六进制文本 (默认堆ID [hSnapShot])))
超级列表框1.置标题 (hSnapShot － 1, 7, bw (取十六进制文本 (模块ID [hSnapShot])))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
bw	文本型
参数名	类 型	参考	可空	数组	备 注
a	文本型

返回 (取重复文本 (8 － 取文本长度 (a), “0”) ＋ a)

子程序名	返回值类型	公开	备 注
模块信息

变量名	类 型	静态	数组	备 注
hSnapShot	整数型
End	整数型
buffer	MODULEENTRY32
模块路径	文本型		0
模块名	文本型		0
模块ID	整数型		0
模块句柄	整数型		0
全局引用数	整数型		0
引用数	整数型		0
模块基址	整数型		0
模块大小	整数型		0

超级列表框2.全部删除 ()
如果真 (超级列表框1.现行选中项 ≠ -1)
hSnapShot ＝ CreateToolhelp32Snapshot (8, 超级列表框1.取表项数值 (超级列表框1.现行选中项))
buffer.dwSize ＝ 548
End ＝ Module32First (hSnapShot, buffer)
判断循环首 (End ≠ 0)
加入成员 (模块名, 到文本 (buffer.szModule))
加入成员 (模块路径, 到文本 (buffer.szExePath))
加入成员 (模块ID, buffer.th32ModuleID)
加入成员 (模块句柄, buffer.hModule)
加入成员 (全局引用数, buffer.GlblcntUsage)
加入成员 (引用数, buffer.ProccntUsage)
加入成员 (模块基址, buffer.modBaseAddr)
加入成员 (模块大小, buffer.modBaseSize)
End ＝ Module32Next (hSnapShot, buffer)
判断循环尾 ()
CloseHandle (hSnapShot)
计次循环首 (取数组成员数 (模块名), hSnapShot)
超级列表框2.插入表项 (-1, 模块名 [hSnapShot], , , , 模块句柄 [hSnapShot])
超级列表框2.置标题 (hSnapShot － 1, 1, 模块路径 [hSnapShot])
超级列表框2.置标题 (hSnapShot － 1, 2, bw (取十六进制文本 (模块ID [hSnapShot])))
超级列表框2.置标题 (hSnapShot － 1, 3, bw (取十六进制文本 (模块基址 [hSnapShot])))
超级列表框2.置标题 (hSnapShot － 1, 4, 到文本 (四舍五入 (模块大小 [hSnapShot] ÷ 1024, 2)) ＋ “ KB”)
超级列表框2.置标题 (hSnapShot － 1, 5, 到文本 (引用数 [hSnapShot]))
超级列表框2.置标题 (hSnapShot － 1, 6, 到文本 (全局引用数 [hSnapShot]))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
线程信息

变量名	类 型	静态	数组	备 注
hSnapShot	整数型
End	整数型
buffer	THREADENTRY32
线程ID	整数型		0
线程基本优先级	整数型		0
线程优先级	整数型		0
引用数	整数型		0

超级列表框3.全部删除 ()
如果真 (超级列表框1.现行选中项 ≠ -1)
hSnapShot ＝ CreateToolhelp32Snapshot (4, 0)
buffer.dwSize ＝ 28
End ＝ Thread32First (hSnapShot, buffer)
判断循环首 (End ≠ 0)
如果真 (buffer.th32OwnerProcessID ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项))
加入成员 (线程ID, buffer.th32ThreadID)
加入成员 (线程基本优先级, buffer.tpBasePri)
加入成员 (线程优先级, buffer.tpDeltaPri)
加入成员 (引用数, buffer.cntUsage)
End ＝ Thread32Next (hSnapShot, buffer)
判断循环尾 ()
CloseHandle (hSnapShot)
计次循环首 (取数组成员数 (线程ID), hSnapShot)
超级列表框3.插入表项 (-1, bw (取十六进制文本 (线程ID [hSnapShot])), , , , 线程ID [hSnapShot])
超级列表框3.置标题 (hSnapShot － 1, 1, 到文本 (线程基本优先级 [hSnapShot]))
超级列表框3.置标题 (hSnapShot － 1, 2, 到文本 (线程优先级 [hSnapShot]))
超级列表框3.置标题 (hSnapShot － 1, 3, 到文本 (引用数 [hSnapShot]))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
堆信息

变量名	类 型	静态	数组	备 注
hSnapShot	整数型
End	整数型
buffer1	HEAPLIST32
buffer2	HEAPENTRY32
堆ID	整数型		0
堆标志	整数型		0
堆位置	整数型		0
PID	整数型
块句柄	整数型		0
块基址	整数型		0
块尺寸	整数型		0
块标志	整数型		0
块锁定次数	整数型		0
size	整数型
high	整数型

树型框1.清空 ()
如果真 (超级列表框1.现行选中项 ≠ -1)
PID ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项)
hSnapShot ＝ CreateToolhelp32Snapshot (1, PID)
buffer1.dwSize ＝ 16
End ＝ Heap32ListFirst (hSnapShot, buffer1)
判断循环首 (End ≠ 0)
加入成员 (堆ID, buffer1.th32HeapID)
加入成员 (堆标志, buffer1.dwFlags)
End ＝ Heap32ListNext (hSnapShot, buffer1)
判断循环尾 ()
CloseHandle (hSnapShot)
计次循环首 (取数组成员数 (堆ID), hSnapShot)
buffer2.dwSize ＝ 36
End ＝ Heap32First (buffer2, PID, 堆ID [hSnapShot])
size ＝ 0
判断循环首 (End ≠ 0)
加入成员 (块句柄, buffer2.hHandle)
加入成员 (块基址, buffer2.dwAddress)
加入成员 (块尺寸, buffer2.dwBlockSize)
size ＝ size ＋ buffer2.dwBlockSize
加入成员 (块标志, buffer2.dwFlags)
加入成员 (块锁定次数, buffer2.dwLockCount)
End ＝ Heap32Next (buffer2)
判断循环尾 ()
判断 (堆标志 [hSnapShot] ＝ 1)
high ＝ 树型框1.加入项目 (-1, “堆ID：” ＋ bw (取十六进制文本 (堆ID [hSnapShot])) ＋ “ - 尺寸：” ＋ 到文本 (size) ＋ “字节 - 标志：默认”, , , 堆标志 [hSnapShot])
判断 (堆标志 [hSnapShot] ＝ 2)
high ＝ 树型框1.加入项目 (-1, “堆ID：” ＋ bw (取十六进制文本 (堆ID [hSnapShot])) ＋ “ - 尺寸：” ＋ 到文本 (size) ＋ “字节 - 标志：共享”, , , 堆ID [hSnapShot])
high ＝ 树型框1.加入项目 (-1, “堆ID：” ＋ bw (取十六进制文本 (堆ID [hSnapShot])) ＋ “ - 尺寸：” ＋ 到文本 (size) ＋ “字节”, , , 堆ID [hSnapShot])
计次循环首 (取数组成员数 (块句柄), End)
判断 (块标志 [End] ＝ 1)
树型框1.加入项目 (high, “块句柄：” ＋ bw (取十六进制文本 (块句柄 [End])) ＋ “ - 块基址：” ＋ bw (取十六进制文本 (块基址 [End])) ＋ “ - 块尺寸：” ＋ 到文本 (块尺寸 [End]) ＋ “字节 - 标志：固定 - 块锁定次数：” ＋ 到文本 (块锁定次数 [End]), , , )
判断 (块标志 [End] ＝ 2)
树型框1.加入项目 (high, “块句柄：” ＋ bw (取十六进制文本 (块句柄 [End])) ＋ “ - 块基址：” ＋ bw (取十六进制文本 (块基址 [End])) ＋ “ - 块尺寸：” ＋ 到文本 (块尺寸 [End]) ＋ “字节 - 标志：空闲 - 块锁定次数：” ＋ 到文本 (块锁定次数 [End]), , , )
判断 (块标志 [End] ＝ 4)
树型框1.加入项目 (high, “块句柄：” ＋ bw (取十六进制文本 (块句柄 [End])) ＋ “ - 块基址：” ＋ bw (取十六进制文本 (块基址 [End])) ＋ “ - 块尺寸：” ＋ 到文本 (块尺寸 [End]) ＋ “字节 - 标志：可移动 - 块锁定次数：” ＋ 到文本 (块锁定次数 [End]), , , )
树型框1.加入项目 (high, “块句柄：” ＋ bw (取十六进制文本 (块句柄 [End])) ＋ “ - 块基址：” ＋ bw (取十六进制文本 (块基址 [End])) ＋ “ - 块尺寸：” ＋ 到文本 (块尺寸 [End]) ＋ “字节 - 块锁定次数：” ＋ 到文本 (块锁定次数 [End]), , , )

计次循环尾 ()
计次循环尾 ()

子程序名	返回值类型	公开	备 注
版本信息

变量名	类 型	静态	数组	备 注
Info	字节集
Size	整数型
VerPointer	整数型
Len	整数型
Ver	字节集
language	文本型
文件名	文本型

编辑框1.内容 ＝ “”
文件名 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
Size ＝ GetFileVersionInfoSize (文件名, 0)
如果真 (Size ＝ 0)
返回 ()
Info ＝ 取空白字节集 (Size)
GetFileVersionInfo (文件名, 0, Size, Info)
如果真 (VerQueryValue (Info, “\VarFileInfo\Translation”, VerPointer, Len) ＝ 0)
返回 ()
Ver ＝ 取空白字节集 (Len)
MoveMemory (Ver, VerPointer, Len)
language ＝ bw (取十六进制文本 (取字节集数据 (Ver, 3)))
language ＝ 取文本右边 (language, 4) ＋ 取文本左边 (language, 4)
计次循环首 (12, Size)
如果真 (VerQueryValue (Info, “\StringFileInfo\” ＋ language ＋ “\” ＋ 多项选择 (Size, “Comments”, “CompanyName”, “FileDescription”, “FileVersion”, “InternalName”, “LegalCopyright”, “LegalTrademarks”, “OriginalFilename”, “PrivateBuild”, “ProductName”, “ProductVersion”, “SpecialBuild”), VerPointer, Len) ≠ 0)
Ver ＝ 取空白字节集 (Len)
MoveMemory (Ver, VerPointer, Len)
文件名 ＝ 取字节集数据 (Ver, 10)
如果真 (文件名 ≠ “”)
编辑框1.加入文本 (多项选择 (Size, “备注”, “公司名”, “描述”, “文件版本”, “内部名称”, “版权”, “合法商标”, “原文件名”, “个人用编译版说明”, “产品名称”, “产品版本”, “特殊编译版说明”) ＋ “：” ＋ 文件名 ＋ #换行符 )


计次循环尾 ()

子程序名	返回值类型	公开	备 注
_选择夹1_子夹被改变

_超级列表框1_左键单击表项 ()

子程序名	返回值类型	公开	备 注
_刷新_被选择

New ()

子程序名	返回值类型	公开	备 注
_超级列表框1_左键单击表项

判断 (选择夹1.现行子夹 ＝ 0)
模块信息 ()
判断 (选择夹1.现行子夹 ＝ 1)
线程信息 ()
判断 (选择夹1.现行子夹 ＝ 2)
堆信息 ()
版本信息 ()

子程序名	返回值类型	公开	备 注
_终止_被选择

变量名	类 型	静态	数组	备 注
handle	整数型

如果真 (信息框 (“要强行终止吗？”, 33, ) ＝ 0)
handle ＝ OpenProcess (1, 假, 超级列表框1.取表项数值 (超级列表框1.现行选中项))
TerminateProcess (handle, 0)
CloseHandle (handle)
New ()
_超级列表框1_左键单击表项 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集1<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> New ()<br /> <br /> .子程序 New<br /> .局部变量 hSnapShot, 整数型<br /> .局部变量 End, 整数型<br /> .局部变量 buffer, PROCESSENTRY32<br /> .局部变量 进程名, 文本型, , "0"<br /> .局部变量 进程ID, 整数型, , "0"<br /> .局部变量 默认堆ID, 整数型, , "0"<br /> .局部变量 模块ID, 整数型, , "0"<br /> .局部变量 父进程ID, 整数型, , "0"<br /> .局部变量 线程数, 整数型, , "0"<br /> .局部变量 线程基本优先级, 整数型, , "0"<br /> .局部变量 引用数, 整数型, , "0"<br /> <br /> 超级列表框1.全部删除 ()<br /> hSnapShot ＝ CreateToolhelp32Snapshot (2, 0)<br /> buffer.dwSize ＝ 296<br /> End ＝ Process32First (hSnapShot, buffer)<br /> .判断循环首 (End ≠ 0)<br />     加入成员 (进程名, 到文本 (buffer.szExeFile))<br />     加入成员 (进程ID, buffer.th32ProcessID)<br />     加入成员 (默认堆ID, buffer.th32DefaultHeapID)<br />     加入成员 (模块ID, buffer.th32ModuleID)<br />     加入成员 (父进程ID, buffer.th32ParentProcessID)<br />     加入成员 (线程数, buffer.cntThreads)<br />     加入成员 (线程基本优先级, buffer.pcPriClassBase)<br />     加入成员 (引用数, buffer.cntUsage)<br />     End ＝ Process32Next (hSnapShot, buffer)<br /> .判断循环尾 ()<br /> CloseHandle (hSnapShot)<br /> End ＝ 取数组成员数 (进程名)<br /> _启动窗口.标题 ＝ “当前进程数：” ＋ 到文本 (End)<br /> .计次循环首 (End, hSnapShot)<br />     超级列表框1.插入表项 (-1, 进程名 [hSnapShot], , , , 进程ID [hSnapShot])<br />     超级列表框1.置标题 (hSnapShot － 1, 1, bw (取十六进制文本 (进程ID [hSnapShot])))<br />     超级列表框1.置标题 (hSnapShot － 1, 2, 到文本 (线程基本优先级 [hSnapShot]))<br />     超级列表框1.置标题 (hSnapShot － 1, 3, 到文本 (线程数 [hSnapShot]))<br />     超级列表框1.置标题 (hSnapShot － 1, 4, 到文本 (引用数 [hSnapShot]))<br />     超级列表框1.置标题 (hSnapShot － 1, 5, bw (取十六进制文本 (父进程ID [hSnapShot])))<br />     超级列表框1.置标题 (hSnapShot － 1, 6, bw (取十六进制文本 (默认堆ID [hSnapShot])))<br />     超级列表框1.置标题 (hSnapShot － 1, 7, bw (取十六进制文本 (模块ID [hSnapShot])))<br /> .计次循环尾 ()<br /> <br /> .子程序 bw, 文本型<br /> .参数 a, 文本型<br /> <br /> 返回 (取重复文本 (8 － 取文本长度 (a), “0”) ＋ a)<br /> <br /> .子程序 模块信息<br /> .局部变量 hSnapShot, 整数型<br /> .局部变量 End, 整数型<br /> .局部变量 buffer, MODULEENTRY32<br /> .局部变量 模块路径, 文本型, , "0"<br /> .局部变量 模块名, 文本型, , "0"<br /> .局部变量 模块ID, 整数型, , "0"<br /> .局部变量 模块句柄, 整数型, , "0"<br /> .局部变量 全局引用数, 整数型, , "0"<br /> .局部变量 引用数, 整数型, , "0"<br /> .局部变量 模块基址, 整数型, , "0"<br /> .局部变量 模块大小, 整数型, , "0"<br /> <br /> 超级列表框2.全部删除 ()<br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     hSnapShot ＝ CreateToolhelp32Snapshot (8, 超级列表框1.取表项数值 (超级列表框1.现行选中项))<br />     buffer.dwSize ＝ 548<br />     End ＝ Module32First (hSnapShot, buffer)<br />     .判断循环首 (End ≠ 0)<br />         加入成员 (模块名, 到文本 (buffer.szModule))<br />         加入成员 (模块路径, 到文本 (buffer.szExePath))<br />         加入成员 (模块ID, buffer.th32ModuleID)<br />         加入成员 (模块句柄, buffer.hModule)<br />         加入成员 (全局引用数, buffer.GlblcntUsage)<br />         加入成员 (引用数, buffer.ProccntUsage)<br />         加入成员 (模块基址, buffer.modBaseAddr)<br />         加入成员 (模块大小, buffer.modBaseSize)<br />         End ＝ Module32Next (hSnapShot, buffer)<br />     .判断循环尾 ()<br />     CloseHandle (hSnapShot)<br />     .计次循环首 (取数组成员数 (模块名), hSnapShot)<br />         超级列表框2.插入表项 (-1, 模块名 [hSnapShot], , , , 模块句柄 [hSnapShot])<br />         超级列表框2.置标题 (hSnapShot － 1, 1, 模块路径 [hSnapShot])<br />         超级列表框2.置标题 (hSnapShot － 1, 2, bw (取十六进制文本 (模块ID [hSnapShot])))<br />         超级列表框2.置标题 (hSnapShot － 1, 3, bw (取十六进制文本 (模块基址 [hSnapShot])))<br />         超级列表框2.置标题 (hSnapShot － 1, 4, 到文本 (四舍五入 (模块大小 [hSnapShot] ÷ 1024, 2)) ＋ “ KB”)<br />         超级列表框2.置标题 (hSnapShot － 1, 5, 到文本 (引用数 [hSnapShot]))<br />         超级列表框2.置标题 (hSnapShot － 1, 6, 到文本 (全局引用数 [hSnapShot]))<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 线程信息<br /> .局部变量 hSnapShot, 整数型<br /> .局部变量 End, 整数型<br /> .局部变量 buffer, THREADENTRY32<br /> .局部变量 线程ID, 整数型, , "0"<br /> .局部变量 线程基本优先级, 整数型, , "0"<br /> .局部变量 线程优先级, 整数型, , "0"<br /> .局部变量 引用数, 整数型, , "0"<br /> <br /> 超级列表框3.全部删除 ()<br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     hSnapShot ＝ CreateToolhelp32Snapshot (4, 0)<br />     buffer.dwSize ＝ 28<br />     End ＝ Thread32First (hSnapShot, buffer)<br />     .判断循环首 (End ≠ 0)<br />         .如果真 (buffer.th32OwnerProcessID ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项))<br />             加入成员 (线程ID, buffer.th32ThreadID)<br />             加入成员 (线程基本优先级, buffer.tpBasePri)<br />             加入成员 (线程优先级, buffer.tpDeltaPri)<br />             加入成员 (引用数, buffer.cntUsage)<br />         .如果真结束<br />         End ＝ Thread32Next (hSnapShot, buffer)<br />     .判断循环尾 ()<br />     CloseHandle (hSnapShot)<br />     .计次循环首 (取数组成员数 (线程ID), hSnapShot)<br />         超级列表框3.插入表项 (-1, bw (取十六进制文本 (线程ID [hSnapShot])), , , , 线程ID [hSnapShot])<br />         超级列表框3.置标题 (hSnapShot － 1, 1, 到文本 (线程基本优先级 [hSnapShot]))<br />         超级列表框3.置标题 (hSnapShot － 1, 2, 到文本 (线程优先级 [hSnapShot]))<br />         超级列表框3.置标题 (hSnapShot － 1, 3, 到文本 (引用数 [hSnapShot]))<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 堆信息<br /> .局部变量 hSnapShot, 整数型<br /> .局部变量 End, 整数型<br /> .局部变量 buffer1, HEAPLIST32<br /> .局部变量 buffer2, HEAPENTRY32<br /> .局部变量 堆ID, 整数型, , "0"<br /> .局部变量 堆标志, 整数型, , "0"<br /> .局部变量 堆位置, 整数型, , "0"<br /> .局部变量 PID, 整数型<br /> .局部变量 块句柄, 整数型, , "0"<br /> .局部变量 块基址, 整数型, , "0"<br /> .局部变量 块尺寸, 整数型, , "0"<br /> .局部变量 块标志, 整数型, , "0"<br /> .局部变量 块锁定次数, 整数型, , "0"<br /> .局部变量 size, 整数型<br /> .局部变量 high, 整数型<br /> <br /> 树型框1.清空 ()<br /> .如果真 (超级列表框1.现行选中项 ≠ -1)<br />     PID ＝ 超级列表框1.取表项数值 (超级列表框1.现行选中项)<br />     hSnapShot ＝ CreateToolhelp32Snapshot (1, PID)<br />     buffer1.dwSize ＝ 16<br />     End ＝ Heap32ListFirst (hSnapShot, buffer1)<br />     .判断循环首 (End ≠ 0)<br />         加入成员 (堆ID, buffer1.th32HeapID)<br />         加入成员 (堆标志, buffer1.dwFlags)<br />         End ＝ Heap32ListNext (hSnapShot, buffer1)<br />     .判断循环尾 ()<br />     CloseHandle (hSnapShot)<br />     .计次循环首 (取数组成员数 (堆ID), hSnapShot)<br />         buffer2.dwSize ＝ 36<br />         End ＝ Heap32First (buffer2, PID, 堆ID [hSnapShot])<br />         size ＝ 0<br />         .判断循环首 (End ≠ 0)<br />             加入成员 (块句柄, buffer2.hHandle)<br />             加入成员 (块基址, buffer2.dwAddress)<br />             加入成员 (块尺寸, buffer2.dwBlockSize)<br />             size ＝ size ＋ buffer2.dwBlockSize<br />             加入成员 (块标志, buffer2.dwFlags)<br />             加入成员 (块锁定次数, buffer2.dwLockCount)<br />             End ＝ Heap32Next (buffer2)<br />         .判断循环尾 ()<br />         .判断开始 (堆标志 [hSnapShot] ＝ 1)<br />             high ＝ 树型框1.加入项目 (-1, “堆ID：” ＋ bw (取十六进制文本 (堆ID [hSnapShot])) ＋ “ - 尺寸：” ＋ 到文本 (size) ＋ “字节 - 标志：默认”, , , 堆标志 [hSnapShot])<br />         .判断 (堆标志 [hSnapShot] ＝ 2)<br />             high ＝ 树型框1.加入项目 (-1, “堆ID：” ＋ bw (取十六进制文本 (堆ID [hSnapShot])) ＋ “ - 尺寸：” ＋ 到文本 (size) ＋ “字节 - 标志：共享”, , , 堆ID [hSnapShot])<br />         .默认<br />             high ＝ 树型框1.加入项目 (-1, “堆ID：” ＋ bw (取十六进制文本 (堆ID [hSnapShot])) ＋ “ - 尺寸：” ＋ 到文本 (size) ＋ “字节”, , , 堆ID [hSnapShot])<br />         .判断结束<br />         .计次循环首 (取数组成员数 (块句柄), End)<br />             .判断开始 (块标志 [End] ＝ 1)<br />                 树型框1.加入项目 (high, “块句柄：” ＋ bw (取十六进制文本 (块句柄 [End])) ＋ “ - 块基址：” ＋ bw (取十六进制文本 (块基址 [End])) ＋ “ - 块尺寸：” ＋ 到文本 (块尺寸 [End]) ＋ “字节 - 标志：固定 - 块锁定次数：” ＋ 到文本 (块锁定次数 [End]), , , )<br />             .判断 (块标志 [End] ＝ 2)<br />                 树型框1.加入项目 (high, “块句柄：” ＋ bw (取十六进制文本 (块句柄 [End])) ＋ “ - 块基址：” ＋ bw (取十六进制文本 (块基址 [End])) ＋ “ - 块尺寸：” ＋ 到文本 (块尺寸 [End]) ＋ “字节 - 标志：空闲 - 块锁定次数：” ＋ 到文本 (块锁定次数 [End]), , , )<br />             .判断 (块标志 [End] ＝ 4)<br />                 树型框1.加入项目 (high, “块句柄：” ＋ bw (取十六进制文本 (块句柄 [End])) ＋ “ - 块基址：” ＋ bw (取十六进制文本 (块基址 [End])) ＋ “ - 块尺寸：” ＋ 到文本 (块尺寸 [End]) ＋ “字节 - 标志：可移动 - 块锁定次数：” ＋ 到文本 (块锁定次数 [End]), , , )<br />             .默认<br />                 树型框1.加入项目 (high, “块句柄：” ＋ bw (取十六进制文本 (块句柄 [End])) ＋ “ - 块基址：” ＋ bw (取十六进制文本 (块基址 [End])) ＋ “ - 块尺寸：” ＋ 到文本 (块尺寸 [End]) ＋ “字节 - 块锁定次数：” ＋ 到文本 (块锁定次数 [End]), , , )<br />             .判断结束<br /> <br />         .计次循环尾 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> <br /> <br /> .子程序 版本信息<br /> .局部变量 Info, 字节集<br /> .局部变量 Size, 整数型<br /> .局部变量 VerPointer, 整数型<br /> .局部变量 Len, 整数型<br /> .局部变量 Ver, 字节集<br /> .局部变量 language, 文本型<br /> .局部变量 文件名, 文本型<br /> <br /> 编辑框1.内容 ＝ “”<br /> 文件名 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)<br /> Size ＝ GetFileVersionInfoSize (文件名, 0)<br /> .如果真 (Size ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> Info ＝ 取空白字节集 (Size)<br /> GetFileVersionInfo (文件名, 0, Size, Info)<br /> .如果真 (VerQueryValue (Info, “\VarFileInfo\Translation”, VerPointer, Len) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> Ver ＝ 取空白字节集 (Len)<br /> MoveMemory (Ver, VerPointer, Len)<br /> language ＝ bw (取十六进制文本 (取字节集数据 (Ver, 3)))<br /> language ＝ 取文本右边 (language, 4) ＋ 取文本左边 (language, 4)<br /> .计次循环首 (12, Size)<br />     .如果真 (VerQueryValue (Info, “\StringFileInfo\” ＋ language ＋ “\” ＋ 多项选择 (Size, “Comments”, “CompanyName”, “FileDescription”, “FileVersion”, “InternalName”, “LegalCopyright”, “LegalTrademarks”, “OriginalFilename”, “PrivateBuild”, “ProductName”, “ProductVersion”, “SpecialBuild”), VerPointer, Len) ≠ 0)<br />         Ver ＝ 取空白字节集 (Len)<br />         MoveMemory (Ver, VerPointer, Len)<br />         文件名 ＝ 取字节集数据 (Ver, 10)<br />         .如果真 (文件名 ≠ “”)<br />             编辑框1.加入文本 (多项选择 (Size, “备注”, “公司名”, “描述”, “文件版本”, “内部名称”, “版权”, “合法商标”, “原文件名”, “个人用编译版说明”, “产品名称”, “产品版本”, “特殊编译版说明”) ＋ “：” ＋ 文件名 ＋ #换行符)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 _选择夹1_子夹被改变<br /> <br /> _超级列表框1_左键单击表项 ()<br /> <br /> .子程序 _刷新_被选择<br /> <br /> New ()<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> <br /> .判断开始 (选择夹1.现行子夹 ＝ 0)<br />     模块信息 ()<br /> .判断 (选择夹1.现行子夹 ＝ 1)<br />     线程信息 ()<br /> .判断 (选择夹1.现行子夹 ＝ 2)<br />     堆信息 ()<br /> .默认<br />     版本信息 ()<br /> .判断结束<br /> <br /> <br /> .子程序 _终止_被选择<br /> .局部变量 handle, 整数型<br /> <br /> .如果真 (信息框 (“要强行终止吗？”, 33, ) ＝ 0)<br />     handle ＝ OpenProcess (1, 假, 超级列表框1.取表项数值 (超级列表框1.现行选中项))<br />     TerminateProcess (handle, 0)<br />     CloseHandle (handle)<br />     New ()<br />     _超级列表框1_左键单击表项 ()<br /> .如果真结束

vincey

这个点个赞，支持下，也希望精易论坛越办越好，祝大家开工大吉！

vincey

这个点个赞，支持下，也希望精易论坛越办越好！！！

sktyou

每天多学一点