求教：我写的Ollydbg/x36dbg贴心伴侣浮动工具栏边缘隐藏有个bug

冥界3大法王 · 发表于 2021-2-19 09:48

本帖最后由冥界3大法王于 2021-2-19 13:19 编辑

如图1所示，移到边缘没啥问题，

如图2所示，如移了之后，那个浮动工具栏的宽和高，就会变化了，如何各得其安？

[Delphi] 纯文本查看 复制代码

procedure TForm1.FormCreate(Sender: TObject);
var
  x: integer;
begin
//SetWindowLong(handle, gwl_style, getwindowlong(handle, gwl_style) xor ws_caption); //去标题栏
  Form1.Width := 765;
  Form1.Height := 658;
  ToolBar2.Height := 55;
  ToolBar2.Width := 313;

  SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);    //窗口置顶
//  Form1.color := clWhite;
//  Form1.TransparentColorValue := clWhite;
//  Form1.TransparentColor := True;
{
显示窗口类：
CPU窗口:   Alt+C
断点窗口：Alt+B
内存窗口：Alt+M
日志窗口：Alt+L
堆栈窗口：Alt+K
模块窗口/API调用：Alt+E/Ctrl+N
引用：Alt+R
句柄：Alt+W
流程图:Alt+G
线程：Alt+T=======>有问题
脚本：Alt+S/Ctrl+Alt+S=======>有问题
函数Ctrl+Alt+F======>有问题
============================
自定义命令：
Shift+Q 清空CC断点
Ctrl+Shift+Q 清空硬件断点
Ctrl+Shift+Alt+Q 清空内存断点
==============================
Ctrl+H 脱壳时下硬件访问断点时使用。bph 005B7C20,r,2
Ctrl+Shift+1 设置硬件1字节访问断点
Ctrl+Shift+2 设置硬件2字节访问断点
Ctrl+Shift+3 设置硬件4字节访问断点
Ctrl+Shift+4 设置硬件8字节访问断点（仅x64dbg)
Ctrl+Shift+5  设置硬件1字节写入断点
Ctrl+Shift+6  设置硬件2字节写入断点
Ctrl+Shift+7  设置硬件4字节写入断点
Ctrl+Shift+8  设置硬件8字节写入断点 (仅x64dbg)
Ctrl+Shift+9 设置硬件执行断点
Win+Num1 设置一性次内存访问断点  等价rw
Win+Num2 设置一性次内存读取断点  等价r
Win+Num3 设置一性次内存写入断点  等价w
Win+NumDot 设置一性次内存执行断点  等价x

Win+S 访问《Ollydbg/x36dbg贴心助手》主窗口▲★▲
Alt+A目标窗口中按(譬如，亲爱的妹子.exe)，得到目标窗口进程的PID,回到命令行处粘即可附加
Ctrl+Shift+G一键定位RVA(x64dbg顶部标题上按)
Alt+Shift+G一键定位FOA(x64dbg顶部标题上按)
Ctrl+Shift+T在x32dbg窗口标题处点击得到x32dbg/x64dbg的完整路径，转换后打开x32dbg.ini/x64dbg.ini
Shift+F2      禁用当前行的F2/CC断点
Ctrl+Shift+J 得到模块基址（在标题按）
}

  id2 := GlobalAddAtom('hotkey2');
  RegisterHotKey(handle, id2, MOD_CONTROL + MOD_SHIFT, 84);           //ctrl+shift+t

  id4 := GlobalAddAtom('hotkey4');
  RegisterHotKey(handle, id4, MOD_WIN, 83);      //Window+S

  id8 := GlobalAddAtom('hotkey8');
  RegisterHotKey(handle, id8, MOD_WIN, 81);      //Window+Q      退出程序

  id_A1 := GlobalAddAtom('hotkey_id_A1');
  RegisterHotKey(handle, id_A1, MOD_CONTROL + MOD_SHIFT, 49);           //ctrl+shift+1

  id_A2 := GlobalAddAtom('hotkey_id_A2');
  RegisterHotKey(handle, id_A2, MOD_CONTROL + MOD_SHIFT, 50);           //ctrl+shift+2

  id_A3 := GlobalAddAtom('hotkey_id_A3');
  RegisterHotKey(handle, id_A3, MOD_CONTROL + MOD_SHIFT, 51);           //ctrl+shift+3

  id_A4 := GlobalAddAtom('hotkey_id_A4');
  RegisterHotKey(handle, id_A4, MOD_CONTROL + MOD_SHIFT, 52);           //ctrl+shift+4

  id_A5 := GlobalAddAtom('hotkey_id_A5');
  RegisterHotKey(handle, id_A5, MOD_CONTROL + MOD_SHIFT, 53);           //ctrl+shift+5

  id_A6 := GlobalAddAtom('hotkey_id_A6');
  RegisterHotKey(handle, id_A6, MOD_CONTROL + MOD_SHIFT, 54);           //ctrl+shift+6

  id_A7 := GlobalAddAtom('hotkey_id_A7');
  RegisterHotKey(handle, id_A7, MOD_CONTROL + MOD_SHIFT, 55);           //ctrl+shift+7

  id_A8 := GlobalAddAtom('hotkey_id_A8');
  RegisterHotKey(handle, id_A8, MOD_CONTROL + MOD_SHIFT, 56);           //ctrl+shift+8

  id_A9 := GlobalAddAtom('hotkey_id_A9');
  RegisterHotKey(handle, id_A9, MOD_CONTROL + MOD_SHIFT, 57);           //ctrl+shift+9
  ///////////////////////////////////////////////////////////////////////////////////////////////
  id_Num1 := GlobalAddAtom('hotkey-id_Num1');
  RegisterHotKey(handle, id_Num1, MOD_WIN, 97);      //Win+Num1

  id_Num2 := GlobalAddAtom('hotkey-id_Num2');
  RegisterHotKey(handle, id_Num2, MOD_WIN, 98);      //Win+Num2

  id_Num3 := GlobalAddAtom('hotkey-id_Num3');
  RegisterHotKey(handle, id_Num3, MOD_WIN, 99);      //Win+Num3

  id_NumDot := GlobalAddAtom('hotkey-id_NumDot');
  RegisterHotKey(handle, id_NumDot, MOD_WIN, 110);      //Win+NumDot


  ID_G := GlobalAddAtom('hotkey-ID_G');
  RegisterHotKey(handle, id_A9, MOD_CONTROL + MOD_SHIFT, 71);      //Ctrl+Shift+G

  ID_AltA := GlobalAddAtom('hotkey-ID_AltA');
  RegisterHotKey(handle, ID_AltA, MOD_ALT, 65);      //Alt+A 附加进程


  ID_AltShiftG := GlobalAddAtom('hotkey-ID_AltShiftG');
  RegisterHotKey(handle, ID_AltShiftG, MOD_ALT + MOD_SHIFT, 71);       //Alt+Shift+G

  ID_CtrlH := GlobalAddAtom('hotkey-ID_CtrlH');
  RegisterHotKey(handle, ID_CtrlH, MOD_CONTROL, 72);                //Ctrl+H


  ID_ShiftF2 := GlobalAddAtom('hotkey-ShiftF2');                //Shift+F2 禁用CC断点
  RegisterHotKey(handle, ID_ShiftF2, +MOD_SHIFT, VK_F2);

  ID_CtrlShiftJ := GlobalAddAtom('hotkey-ID_CtrlShiftJ');
  RegisterHotKey(handle, id_A9, MOD_CONTROL + MOD_SHIFT, 74);   //ctrl+shift+j

  begin
    Timer1.Enabled := False;
    Timer1.Interval := 200;
    FormStyle := fsStayOnTop;
  end;
end;

[Delphi] 纯文本查看 复制代码

procedure TForm1.Timer1Timer(Sender: TObject);      //屏幕边缘时显示窗体效果
const
  cOffset = 2;
var
  vHandle: THandle;
begin
  vHandle := WindowFromPoint(Mouse.CursorPos);
  while (vHandle <> 0) and (vHandle <> Handle) do
    vHandle := GetParent(vHandle);
  if vHandle = Handle then
  begin
    if akLeft in FAnchors then
      Left := 0;
    if akTop in FAnchors then
      Top := 0;
    if akRight in FAnchors then
      Left := Screen.Width - Width;
    if akBottom in FAnchors then
      Top := Screen.Height - Height;
  end
  else
  begin
    if akLeft in FAnchors then
      Left := -Width + cOffset;
    if akTop in FAnchors then
      Top := -Height + cOffset;
    if akRight in FAnchors then
      Left := Screen.Width - cOffset;
    if akBottom in FAnchors then
      Top := Screen.Height - cOffset;
  end;
end;

[Delphi] 纯文本查看 复制代码

procedure TForm1.WMMOVING(var Msg: TMessage);    //屏幕边缘时显示窗体效果
begin
  inherited;
  with PRect(Msg.LParam)^ do
  begin
    Left := Min(Max(0, Left), Screen.Width - Width);
    Top := Min(Max(0, Top), Screen.Height - Height);
    Right := Min(Max(Width, Right), Screen.Width);
    Bottom := Min(Max(Height, Bottom), Screen.Height);
    FAnchors := [];
    if Left = 0 then
      Include(FAnchors, akLeft);
    if Right = Screen.Width then
      Include(FAnchors, akRight);
    if Top = 0 then
      Include(FAnchors, akTop);
    if Bottom = Screen.Height then
      Include(FAnchors, akBottom);
    Timer1.Enabled := FAnchors <> [];
  end;
end;

flyingdancex · 发表于 2021-2-19 10:08

看着真不错哦

redapple2015 · 发表于 2021-2-19 10:35

AutoHotkey开发的吗？

冥界3大法王 · 发表于 2021-2-19 11:01

redapple2015 发表于 2021-2-19 10:35
AutoHotkey开发的吗？

@redapple2015
用这个开发几百个模块你试试，后期控件调整不得神经？

无闻无问 · 发表于 2021-2-19 15:31

窗口风格好像有个固定模式…设置为真，大小就不可变了…不晓得适合delphi不

冥界3大法王 · 发表于 2021-2-19 15:54

本帖最后由冥界3大法王于 2021-2-19 16:44 编辑

无闻无问发表于 2021-2-19 15:31
窗口风格好像有个固定模式…设置为真，大小就不可变了…不晓得适合delphi不

试过，无效。

无闻无问 · 发表于 2021-2-19 16:02

我感觉是不是时钟事件，窗体移动事件，窗体创建事件中设置窗体的大小相关代码不吻合，检查调试下下

lyrong · 发表于 2021-2-22 22:20

我也喜欢给不同软件贴上不同图标

DDOSS · 发表于 2021-3-16 23:19

emmm，大佬，咋下你的工具呢？

wolaikaoyan · 发表于 2021-5-8 19:23

软件没有下载地址，如果付费，我愿意花钱买这个

帐号		自动登录	找回密码
密码			注册[Register]

[求助] 求教：我写的Ollydbg/x36dbg贴心伴侣浮动工具栏边缘隐藏有个bug

免费评分

免费评分

个人中心