BG6RSH's 随记.

热血江湖V40009版选怪CALL的调用方法

发表于2010年3月20日由admin

经过了这段时间的分析查找，总算找到了选怪CALL的调用方法。根据我发布的这些CALL，基本上就能写出一个具有初步功能的辅助挂了，但是美中不足的是走路CALL还是无法确定，跟踪了很多地方，感觉江湖的人物移动功能部分写的比较分散，加大了查找难度，等有时间再慢慢找吧。
在跟踪分析的过程中意外发现了一个有趣的事情，可以用很简单的方法实现穿墙功能。只要锁定人物移动过程中的当前坐标几秒钟，就可无阻的穿过障碍物。…

发表在编程 | 标签为外挂编程 | 留下评论

获取热血江湖怪物信息的DELPHI2010源代码

发表于2010年2月19日由admin

为了大家看的方便,编程环境又用的是DELPHI2010,所以一些变量就用汉字来定义了.

procedure TfrmMain.Button8Click(Sender: TObject);   
var  
  怪物基址, 怪物类型, 怪物数组下标, 怪物服务器ID, 怪物当前血, 怪物最大血, 怪物等级: PDword;   
  怪物距离: PSingle;   
  怪物名字: PAnsiChar;   
  i: Integer;   
begin  
  Memo1.Lines.Clear;   
  Memo1.Lines.add('怪物名字 怪物基址  怪物类型 怪物下标  怪物ID   怪物距离');   
  for i := 1 to 64 do  
  begin  
    怪物基址 := Pointer($05EBCA78 +

…

发表在编程 | 标签为外挂编程 | 留下评论

Delphi过程函数传递参数的几种方式

发表于2010年1月23日由admin

在Delphi过程、函数中传递参数几个修饰符为Const、Var、Out。另一种不加修饰符的为默认按值传递参数。

一、默认方式以值方式传递参数

procedure TForm1.ProcNormal(Value: string);
begin
  origNum := Value + ' Me';
  lblReturn.Caption := origNum; // OrigNum为'Hello Me'
  lblOrig.Caption := Value; // Value为'Hello'
end;

//调用： 
origNum:='Hello'; 
ProcNormal(OrigNum);

procedure TForm1

…

发表在编程 | 标签为 Delphi | 留下评论

Delphi2010小写金额转大写金额的源代码

发表于2009年12月17日由admin

由于从Delphi2010开始支持大字符集，原来一个汉字占２个字节，现在Delphi2010中占一个字节，所以原函数在Delphi2010下已不能用了，现将原函数修改如下： …

发表在编程 | 留下评论

在WIN2000/XP下添加自定义纸张

发表于2009年11月3日由admin

在Windows2000/XP/2003等系统中的自定义纸张的编号已经不是WIN98中256了,而是采用了一种新的标注方式,这里提供一个在Windows2000/XP/2003等系统中创建自定义纸张的函数,可以在套打编程中用到.

//增加规格自定义纸张    
//PaperName: 自定义纸张名称    
//PaperWidth: 纸张的宽度，以0.1mm为单位    
//PaperLength: 纸张的高度，以0.1mm为单位    
procedure TDM.AddCustomPaper(const PaperName: string; PaperWidth, PaperLength:integer);    
var    
  PrintDevice, PrintDriver, PrintPort : array[0..255] of Char;    
  hDMode : THandle;    
  hPrinter : THandle;    
  FormInfo : TFormInfo1;    
begin    
  Printer.GetPrinter(PrintDevice, PrintDriver, PrintPort, hDMode);    
  OpenPrinter(PrintDevice, hPrinter, nil);

…

发表在编程 | 留下评论

热血江湖V40009版选怪CALL的调用方法

获取热血江湖怪物信息的DELPHI2010源代码

Delphi过程函数传递参数的几种方式

Delphi2010小写金额转大写金额的源代码

在WIN2000/XP下添加自定义纸张

近期文章

近期评论

分类

其他操作

友情链接