好友
阅读权限40
听众
最后登录1970-1-1
|
本帖最后由 冥界3大法王 于 2020-4-8 17:34 编辑
@xyx0826
好,确实是那里
这个工具有几个不错的地方
能看目标进程的上下层对应关系
网络端口,连网地址 ,比如这个程序 Adobe Audition.exe (7124), license.codegear.com, 53303, license.codegear.com, 53302, TCP, Established,
查看窗口功能和类名不如其他工具直白,有点绕路。
不过比任务管理器强姥姥去了,是个破解好助手。
我给我的x32dbg辅助伴侣又加了几个功能
[Asm] 纯文本查看 复制代码 if (GetAsyncKeyState(VK_MENU) < 0) and (GetAsyncKeyState(Ord('A')) < 0) then //Alt+A (先把x64dbg中的热键清掉,得到激活窗口的PID
begin
h := GetForegroundWindow; //这个是句柄
GetWindowThreadProcessId(h, @pid);
pHandle := OpenProcess(PROCESS_ALL_ACCESS, False, pid);
GetModuleFileNameEx(pHandle, 0, buf, Length(buf));
GetWindowText(h, @arr, SizeOf(arr));
Application.MessageBox(arr, '当前激活的窗口标题', MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON3 + MB_TOPMOST);
GetClassName(h, ps, 255); //得到激活的窗口类名
Application.MessageBox(ps, '窗口类名', MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON3 + MB_TOPMOST);
path := GetProcessExePath(h); //得到激活窗口的完整路径
Application.MessageBox(PChar(path), '激活窗口的完整路径', MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON3 + MB_TOPMOST);
//ShowMessage('当前窗口的句柄为:' + IntToStr(h)); //这个是 10 进制的
Application.MessageBox(PChar(IntToHex(StrToInt(IntToStr(h)))), '当前窗口的句柄为(16进制的):', MB_OK + MB_ICONINFORMATION + MB_DEFBUTTON3 + MB_TOPMOST); //这个是转换成16进制的
{
begin //遍历打开的全部窗口
h := GetWindow(Handle, GW_HWNDFIRST);
while h <> 0 do
begin
if GETWindowText(h, @Text, 255) > 0 then //判断得到的窗口标题
if (POS('分析模块', Text) > 0) then //判断得到的局部窗口标题
begin
//ShowMessage(Text);
SetWindowPos(h, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE); //激活窗口
end;
h := GetWindow(h, GW_HWNDNEXT);
end;
end; }
// ShowMessage(IntToHex(StrToInt(Format('%u',[pid])), 4)); //再转换成 16进制,因为x32dbg/x64dbg 附加进程用到的是 16进制数
Clipboard.AsText := 'AttachDebugger ' + IntToHex(StrToInt(Format('%u', [pid])), 4) + ',' + IntToHex(StrToInt(IntToStr(h)));
SendMyPress(Clipboard.ToString);
// ShowMessage('回到X64dbg中并在命令行处开心的粘贴吧!' + #13#10 + '命令行代码为: ' + Clipboard.AsText + #13#10 + '你会发现程序已神奇的附加了!');
CloseHandle(pHandle);
MediaPlayer1.FileName := ExtractFileDir(Application.Exename) + '\Sound\已经复制到剪贴板.wav';
MediaPlayer1.Open;
MediaPlayer1.Play;
end; |
免费评分
-
查看全部评分
|