飘云阁(PYG官方)

 找回密码
 快速注册

QQ登录

只需一步,快速开始

查看: 586|回复: 3

[Delphi] delphi给X64DBG命令行处发送消息失败

[复制链接]
  • TA的每日心情
    无聊
    昨天 08:58
  • 签到天数: 303 天

    [LV.8]以坛为家I

    发表于 2019-6-30 07:17:05 | 显示全部楼层 |阅读模式
    unit Unit1;

    interface

    uses
      Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
      Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

    type
      TForm1 = class(TForm)
        Memo1: TMemo;
        Button1: TButton;
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    var
      a, b: PAnsiChar;
      h: HWND;
    begin
      h := FindWindow(nil, 'x64dbg');
      h := FindWindowEx(h, 0, 'Qt5QWindowIcon1', nil);
      SendMessage(h, WM_SETTEXT, 255, Integer(PChar('我来测了')));
    end;

    end.
  • TA的每日心情
    开心
    2019-7-1 13:02
  • 签到天数: 1 天

    [LV.1]初来乍到

    发表于 2019-7-1 14:04:52 | 显示全部楼层
    试试if h<>0 then
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    无聊
    昨天 08:58
  • 签到天数: 303 天

    [LV.8]以坛为家I

     楼主| 发表于 2019-7-2 08:02:05 | 显示全部楼层


    网上说   Qt程序  好像只有一个id参数,所以无法发送到控件上
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    奋斗
    昨天 19:50
  • 签到天数: 149 天

    [LV.7]常住居民III

    发表于 2019-7-2 09:41:56 | 显示全部楼层
    分享精神,是最值得尊敬的!
    回复 支持 反对

    使用道具 举报

    您需要登录后才可以回帖 登录 | 快速注册

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|飘云阁安全论坛 ( 粤ICP备15107817号-2 )|扫码赞助

    Powered by Discuz! X3.3© 2001-2017 Comsenz Inc.

      
    快速回复 返回顶部 返回列表