#新增：快速点按，断与不断(还有啥不妥之处）？

冥界3大法王

#新增：快速点按，断与不断
1）设置热键
2）InputBox以便输出相关断点
3）模拟点击左键
mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);   
mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);        
4）设置断点
5)   延迟几秒
6）取消断点


适用场合，譬如，我屏幕上有个按钮：

• 我要点击这个按钮
• 我还要使用Settimer下断点
• 但是我来不及回来取消断点
• 但是我要先设置断点，来不及再来点外面的按钮
• Settimer位于一个循环中
• 既要断下来，还要求马上取消掉，还要点了按钮，以便继续往下走
• 虽然可以使用x64dbg句柄中相关解决，但多了一种途径嘛。
  

于是上面的Delphi代码就问空出世了，经插件测试完全可行啊。
这表达的好纠结。

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

  if (GetAsyncKeyState(VK_SHIFT) < 0) and (GetAsyncKeyState(VK_MENU) and (GetAsyncKeyState(Ord('2'))) < 0) then        //Shift+Alt+2
  begin   //新增：快速点按，断与不断
    InputString := InputBox('一个必然能中断下来的函数:', '请输入', 'SetTimer');
    if InputString <> '' then
    begin
      Delay(3000);                                                                   //延迟为了点按钮
      mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);  //按下左键
      mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);        //弹起左键
      DbgCmdExec(PAnsiChar(AnsiString('SetBPX ' + InputString)));
      Delay(1000);                                                               //延迟1秒
      DbgCmdExec(PAnsiChar(AnsiString('DeleteBPX ' + InputString)));   //取消断点x64dbg就会自己自动往下走啦~~
    end;
  end;

冥界3大法王

huiyuan918 发表于 2023-9-5 09:28
谢谢分享

最恨这句话，千篇一律，毫无创意。
你倒是说了个所以然来啊？

jidesheng6

冥界3大法王 发表于 2023-9-5 10:05
最恨这句话，千篇一律，毫无创意。
你倒是说了个所以然来啊？

我感觉论坛应该把这句话禁止了，不分场合全说谢谢分享，反正就是典型的水贴党，根本无意义，还不如不说话

viply

如果我不想在函数下断而是想在某个地址下断呢？

冥界3大法王

viply 发表于 2023-9-5 10:41
如果我不想在函数下断而是想在某个地址下断呢？

那就把输入框内容改成该地址

she383536296

这真是让我有点措手不及啊，还可以这样操作，以前都靠句柄的

fxfnfxy

收藏先，谢谢楼主。

shghe

大佬又研究的个撒呢？是不是可以加个窗口识别然后变成自动按键工具了？