au3 api进程管理
au3 api进程管理器,没事看见了就法伤来了#include <Array.au3>#include <GuiListView.au3>
Opt("GUIOnEventMode", 1)
Global Const $GUI_DEFBUTTON = 512
Global Const $GUI_EVENT_CLOSE = -3
$GUI = GUICreate("AU3全API进程管理器", 640, 540)
GUISetOnEvent($GUI_EVENT_CLOSE, "main")
$menu1 = GUICtrlCreateMenu("文件(&F)")
$runitem = GUICtrlCreateMenuItem("新建任务(&N)", $menu1)
GUICtrlSetOnEvent($runitem, "main")
GUICtrlSetState($runitem, $GUI_DEFBUTTON)
GUICtrlCreateMenuItem("", $menu1)
$exititem = GUICtrlCreateMenuItem("退出程序(&X)", $menu1)
GUICtrlSetOnEvent($exititem, "main")
$menu2 = GUICtrlCreateMenu("帮助(&H)", -1, 1)
$aboutitem = GUICtrlCreateMenuItem("关于(&A)", $menu2)
GUICtrlSetOnEvent($aboutitem, "main")
$Process32_ListView = GUICtrlCreateListView("映像名称|PID|内存|创建时间|映像路径|命令行|父进程PID", 5, 5, 630, 495)
GUICtrlSetOnEvent($Process32_ListView, "main")
Dim $B_DESCENDING1
_GUICtrlListView_SetColumnWidth($Process32_ListView, 0, 120)
$ListView_menu = GUICtrlCreateContextMenu($Process32_ListView)
$refreshitem = GUICtrlCreateMenuItem("刷新列表", $ListView_menu)
GUICtrlSetOnEvent($refreshitem, "main")
$closeProcessitem = GUICtrlCreateMenuItem("结束进程", $ListView_menu)
GUICtrlSetOnEvent($closeProcessitem, "main")
GUICtrlCreateMenuItem("", $ListView_menu)
$moduleitem = GUICtrlCreateMenuItem("获取进程模块", $ListView_menu)
GUICtrlSetOnEvent($moduleitem, "main")
$threadsitem = GUICtrlCreateMenuItem("获取进程线程", $ListView_menu)
GUICtrlSetOnEvent($threadsitem, "main")
$childProcessitem = GUICtrlCreateMenuItem("获取进程子进程", $ListView_menu)
GUICtrlSetOnEvent($childProcessitem, "main")
GUICtrlCreateMenuItem("", $ListView_menu)
$openpathitem = GUICtrlCreateMenuItem("定位文件夹", $ListView_menu)
GUICtrlSetOnEvent($openpathitem, "main")
GUICtrlCreateLabel("AU3全API进程管理器 By Crossdoor", 0, 505, 400, 16, 0x100B)
$blogLabel = GUICtrlCreateLabel("http://crossdoor.cublog.cn/", 400, 505, 240, 16, 0x100B)
GUICtrlSetOnEvent(-1, "main")
GUICtrlSetFont(-1, 9, 400, 4)
GUICtrlSetColor(-1, 0x0000ff)
GUICtrlSetCursor(-1, 0)
$hSnapshot = _WinAPI_CreateToolhelp32Snapshot()
_Process32List($hSnapshot)
GUISetState()
While 1 这帖子质量?移至它区 {:face (356):} 好像有了吧
页:
[1]