//构造对象uo_get_exename的函数of_getexe(String as_exename) ///////////////////////////of_getexe(String as_exename)//////////////////////// //功能:枚举进程并返回指定进程号PID //传入:String as_exename 文件名 //返回:Long ///////////////////////////////////////////////////////////// s_Process lst_Process string ls_filename[100] ,ls_curexename ulong ln_ProcessID,ln_SameCount,ln_Snapshot,ln_Circle,ln_Count,ul_PID ul_PID = 0 ln_Snapshot = CreateToolhelp32Snapshot(2,0) if (ln_Snapshot<1) then return 0 //创建快照失败 lst_Process.StructSize = 296 //创建快照失败 296是windows决定的 if Process32First(ln_Snapshot,lst_Process)=0 then return 0 //枚举当前权限下的进程 debugbreak() do while true if Process32Next(ln_Snapshot,lst_Process)=0 then exit ln_Count = ln_Count + 1 ls_FileName[ln_Count] = lst_Process.FileName If Lower(ls_FileName[ln_Count]) = as_exename Then //取得进程号 ul_PID = lst_Process.ProcessID //messagebox(string(ul_PID),ls_FileName[ln_Count]) End If loop return ul_PID
1,075
社区成员
66,437
社区内容
加载中
试试用AI创作助手写篇文章吧