需要：超级模块Dim pid As Long变量 gold 整数型
Dim hProcess As Long 变量 hProcess 整数型
Dim qc3(2) As Byte ‘不需要变量 易语言写内存字节集比VB简单 这里的变量类型是数组 pid = fun_FindProcess("PlantsVsZombies.exe") ‘fun_FindProcess 是个子程序超级模块中的命令 【PID=取进程ID（“PlantsVsZombies.exe”）】If pid0 Then 如果真 pid0’判断进程ID是否存在
hProcess = OpenProcess(PROCESS...
