动作式外挂——保险自动录单程序

最新推荐文章于 2021-10-13 10:17:52 发布

hui717

最新推荐文章于 2021-10-13 10:17:52 发布

阅读量2.7k

点赞数 1

分类专栏： Win32/Delphi学习笔记与开发技巧文章标签： delphi string excel function class api

本文链接：https://blog.csdn.net/hui717/article/details/5890594

版权

Win32/Delphi学习笔记与开发技巧专栏收录该内容

21 篇文章 1 订阅

订阅专栏

写这篇文章，是由于这种动作式外挂不用到封、拆解包技术，不修改原程序本身内存数据，只是利用底层API实现常规上的鼠标、键盘操作，自动在系统内填入指定的数据后自动提交。这就不存在法律上的问题，这个程序已经实现了预期需求的95%以上，剩余的部分留给有意的人自己去逐莫吧。好了，言归正转。开始了。

首先用SPY++分析窗口。得知窗口是由四个子窗口组成。

继续分析，可以得知每个窗口的Z序列、标题、进程ID、矩形坐标等信息。具体的分析过程就不多说了，各位自己逐摸技巧吧。

首先用FindWindow 找到MDI父窗口，然后再用FindWindowEx 根据父窗口句柄查找子窗口，再用EnumChildWindows 枚举子窗口上的所有子窗口（其实就是按Z序排列的控件了，哈哈）,

然后赋值就可以了。

h:= FindWindow('TSysnetPolluxForm','Pollux V3.0 /k 财产险核心业务处理系统 - [学生平安保险(2009版)]'); if h = 0 then begin ShowMessage('没有找到业务系统！'); Exit; end; h:= FindWindowEx(h,0,'MDIClient',''); if h = 0 then Exit; h:= FindWindowEx(h,0,'TAplLifeYAUForm','学生平安保险(2009版)'); hctrol:= h; if h = 0 then Exit; h:= FindWindowEx(h,0,'TScrollBox',''); if h = 0 then Exit; htmp1:= FindWindowEx(h,0,'TPanel',''); if htmp1 = 0 then Exit; htmp1:= FindWindowEx(htmp1,0,'TGroupBox','投保人信息'); if htmp1 = 0 then Exit; //填写投保人 ShowDebugInfo(htmp1); if al.Count >0 then begin SendMessage(StrToInt(wndal[1]),WM_SETTEXT,0,LongInt(PChar('(0)本人'))); SendMessage(StrToInt(wndal[wndal.Count-1]),WM_SETTEXT,0,LongInt(PChar('测试'))); end;

上面的代码就是找到需要填值的控件的句柄后，用 sendMessage 发送消息就可以了。具体发送的消息类型可以在我其它的文章中看到。注意，有些时候要用PostMessage 来发送消息，因为有sendMessage 有时会因为业务系统的缓慢，导致程序失去反应。具体关于sendMessage 和PostMessage 的区别，各位自己逐模吧。

procedure TForm1.ShowDebugInfo(ahWnd:LongInt); var i:Integer; begin al.Clear; wndal.Clear; EnumChildWindows(ahWnd,@EnumChildWndProc,0); if al.Count >0 then begin mmo1.Lines.Clear; for i:=0 to al.Count-1 do begin mmo1.Lines.Add(al[i]); end; end; end;

通过枚举之函口，传入入口函数地址。

function EnumChildWndProc(AhWnd:LongInt;AlParam:lParam):boolean;stdcall; var WndClassName: array[0..254] of Char; WndCaption: array[0..254] of Char; begin GetClassName(AhWnd,wndClassName,254); GetWindowText(aHwnd,WndCaption,254); al.Add('class Name :='+ string(wndClassName)+',Caption :='+ string(wndCaption)+',AHwnd :='+inttostr(ahwnd)); wndal.Add(IntToStr(AhWnd)); Result:=true; end;

递归从窗口的Z序列排列，列出窗口。然后把句柄取出。

SendMessage(StrToInt(wndal[4]),CB_SELECTSTRING,0,LPARAM(PChar('(02)在校注册的中小学生')));

SendMessage(StrToInt(wndal[5]),WM_SETTEXT,0,LPARAM(PChar('(02)在校注册的中小学生')));

给combobox赋值的时候，要注意分析，combobox是由一个 TsysCodeComboBox 和一个Edit 组成，需要同时给TsysCodeComboBox 和Edit同时赋值，给TsysCodeComboBox 赋值可以通过发送CB_SELECTSTRING 消息。