登陆器制作方法以及DELPHI 源代码
rxjh.dll 在这个DLL 里就只有一个函数 InstallHook 函数 我测试了一下好像是没有参数
估计这个函数是以HOOK 改变热血江湖客户端 用参数连接进来的参数
制作方法估计就是 先把这个DLL 注入到 热血江湖进程中 然后 在调用这个函数。。。
用 delphi 两步完成登录器
1、用一个按扭 onclick
ShellExecute(Handle,'open',PChar(ExtractFilePath(Application.ExeName)+'Client.exe'),' 192.168.1.183 1300',nil,SW_SHOW)
2、用一个timer interval 设为 1000
procedure TForm1.tmr1Timer(Sender: TObject);
var
HD:THandle;
mydll: procedure();stdcall;
begin
try
if FindWindow(nil,'YB_OnlineClient')<>0 then
begin
HD:=LoadLibrary(PChar(Extractfilepath(application.ExeName)+'rxjh.dll'));
if HD<>0 then
begin
mydll:=Getprocaddress(HD,'InstallHook');
mydll();
Freelibrary(HD);
end;
tmr1.Enabled:=False;
end;
except
end;
end;
商业版发布站程序下载:发布站程序下载:
估计这个函数是以HOOK 改变热血江湖客户端 用参数连接进来的参数
制作方法估计就是 先把这个DLL 注入到 热血江湖进程中 然后 在调用这个函数。。。
用 delphi 两步完成登录器
1、用一个按扭 onclick
ShellExecute(Handle,'open',PChar(ExtractFilePath(Application.ExeName)+'Client.exe'),' 192.168.1.183 1300',nil,SW_SHOW)
2、用一个timer interval 设为 1000
procedure TForm1.tmr1Timer(Sender: TObject);
var
HD:THandle;
mydll: procedure();stdcall;
begin
try
if FindWindow(nil,'YB_OnlineClient')<>0 then
begin
HD:=LoadLibrary(PChar(Extractfilepath(application.ExeName)+'rxjh.dll'));
if HD<>0 then
begin
mydll:=Getprocaddress(HD,'InstallHook');
mydll();
Freelibrary(HD);
end;
tmr1.Enabled:=False;
end;
except
end;
end;
商业版发布站程序下载:发布站程序下载:
Tags:
作者:佚名评论内容只代表网友观点,与本站立场无关!
评论摘要(共 0 条,得分 0 分,平均 0 分)
查看完整评论