随笔分类 - 完美世界 游戏技术
完美世界外挂技术 :=
摘要：完美世界138单机debug助手国服 360会误报 会封杀 ，你可以上传检测绝对无毒。 使用教程：debug教程-其他-高清完整正版视频在线观看-优酷 (youku.com) 最新版本号：128 下载地址：https://files.cnblogs.com/files/xe2011/debug_wm
阅读全文
摘要：/// <summary> /// 完美世界的句柄 /// </summary> IntPtr handle_wmsj; /* IntPtr h = p.MainWindowHandle 等同 FindWindow("ElementClient Window", comboBox1.Text); 通
阅读全文
摘要：EXE下载:http://files.cnblogs.com/xe2011/EXEgshop.dataeditorV1.42014-3-11-204242.7zC#:http://files.cnblogs.com/xe2011/script_gshop.dataeditorV1.42014-3-11-204242.7z本程序 是C#写的，系统必须安装了.net framework 2.0才能运行。如不能运行请安装.NET 2.0http://download.microsoft.com/download/5/6/7/567758a3-759e-473e-bf8f-52154438565a/d
阅读全文
摘要：EXE下载：http://files.cnblogs.com/xe2011/EXE_wmgjZBViewer2014-3-5-101313.7z 源码下载：http://files.cnblogs.com/xe2011/PASCAL_wmgjZBViewer2014-2-26-195325.7z [
阅读全文
摘要：EXE: http://files.cnblogs.com/xe2011/spt.rarpascal DELPHI 2010: http://files.cnblogs.com/xe2011/wmgj2014-4-9-183216.7z【2014-1-8】[2014-1-2][2014-1-1] 1 unit Unit1; 2 3 interface 4 uses 5 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 6 Dialogs, StdCtrls, ExtCtrl...
阅读全文
摘要：>，游戏发布号945人物信息ID变量名对象属性名偏移值结果显示数值说明查找数据的方法人物的属性值的结果=[[[B3F6CC]+1C]+34]+偏移值[角色对象地址]+偏移值CE1name名称[+5FC]+0hiunicode龙龙内存遍历2hpMin最小红+4942715CE3hpMax最大红+4DC2715结构化内存监视器4mpMin最小蓝+4981639结构化内存监视器5mpMax最大蓝+4E01639结构化内存监视器6spirit元气最小值+4A840写出现等到坐标计算的过程（推导过程）结构化内存监视器7objId目标ID+bd48id角色ID号+4608164304通过目标ID查找
阅读全文
摘要：{对listbox中的整型数据重小到大排序并返回最小值} //调用sortListBox(ListBox1); //listbox的项目必须能转换成整型的数值functionsortListBox(ListBox:TListBox):integer; var I,J:Integer; temp:string; beginifListBox.Items.Count=0thenExit;withLis...
阅读全文
摘要：{使Edit控件中只能输入数字和1个小数点} //调用放在Edit的KeyPress事件下setOnePoint(Key,Edit1); procedureSetEditOnePoint(varKey:Char;CTRL:Tedit); varp:integer;tp:TPoint; begin ifkeyin['0'..'9','+','-','.']then begin ifkeyin['+'...
阅读全文
摘要：usesIniFiles;//引用IniFiles {$R*.dfm} {写入信息到ini文件} //WriteEdit('Config.ini','Options','Edit',Edit1); procedureWriteEdit(fileName:string;section:string;Ident:string;Edit:TEdit); varINIFILE:TIniFile; begi...
阅读全文
摘要：uses IniFiles;//引用IniFiles{写入信息到ini文件} //WriteformState('Config.ini','MainForm',Form1) procedureWriteformState(fileName:string;section:string;form:TForm); varINIFILE:TIniFile; begin INIFILE:=TIniFile....
阅读全文
摘要：uses IniFiles; {写入Memo中的项目到ini中} //调用WriteMemoItems('settings.ini','MEMO',Memo1); procedureWriteMemoItems(constAINIFile,ASection:string;MEMO:TMemo); var INI:TINIFile; iniPath:string;//ini路径 I:Integer;...
阅读全文
摘要：usesIniFiles; {写入列表框中的项目到ini中} //调用WriteListBoxItems('settings.ini','Listbox',ListBox1); procedureWriteListBoxItems(constAINIFile,ASection:string;ListBox:TListBox); var INI:TINIFile; iniPath:string;//...
阅读全文
摘要：{得到文件的大小 KB}//调用返回值:=GetFileSize(application.ExeName);functionGetFileSize(constFileName:string):string; var SR:TSearchRec; begin Result:='-1'; ifFindFirst(FileName,faAnyFileand(notfaDirectory),SR)=0th...
阅读全文
摘要：找到个地图的边缘 ，2个地名相互切换的地方比如这个地方可以 422，851，22使用工具把地图名称转换成UNICODE鹏程客栈4F 9E 0B 7A A2 5B 08 68剑仙城郊外51 52 D9 4E CE 57 CA 90 16 59 0D 00 0A 00CE搜索类型 array of byte能搜索20多个 判断方法：通过修改 数值 看游戏里的地图名称是否改变了 改变了正确通过右键查找 能找到地图名称的基址//=地图名称=[[[[[b3f6cc]+1c]+1c]+60]+4]+0改变名称 就对地图名称=[[[[[b3f6cc]+1c]+1c]+60]+4]+0这 个地图名称的数值写入
阅读全文
摘要：下1级经验的地址=eax*4+00B408A8下级人物的经验值=[下1级经验的地址]eax=人物的等级lv =[[[B3F6CC]+1c]+34]+48cExpMin =[[[B3F6CC]+1c]+34]+49cExpMaxAddr =lv*4+00B408A8ExpMax=[ExpMaxAddr]经验百分比 =(ExpMin/ExpMax)*100 //带1个小数点通过 Wiz 发布
阅读全文
摘要：//列表框//文本框//编辑框//组合框//单选框//检查框unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ExtCtrls;typeTForm1 = class(TForm)ListBox1: TListBox;Button1: TButton;Button2: TButton;Memo1: TMemo;Button3: TButton;Button4: TButton;ComboBox1: TComboBo
阅读全文
摘要：procedure TForm1.Button1Click(Sender: TObject);varF:TextFile;fName:string;beginfName:='error.txt';AssignFile(F,fName);if FileExists(fName)then Append(F)else Rewrite(F);Writeln(F,'this is string');CloseFile(F);end;通过 Wiz 发布
阅读全文
摘要：{写1个错误的日志文件并记录错误的地方} //调用WriteErrorFile('Button1'); //tryexcept在这里放着end; procedureWriteErrorFile(str:string); var path:string;{FilePath} f:TextFile;{txtFile} et:string;{errortime} ef:string;{errorfile...
阅读全文
摘要：{使用任意组件拖动窗体} //PerformCTRLS(Form1,Button); //放在控件的MouseDown事件下 procedurePerformCTRLS(Form:TForm;Button:TMouseButton); begin ifButton=mbLeftthen begin ReleaseCapture; Form.Perform(wm_syscommand,$F012,0...
阅读全文
摘要：{在关闭窗口前加入确认对话框} //调用frmCloseQuery(CanClose); //放在FormCloseQuery的下面 procedurefrmCloseQuery(varCanClose:Boolean); begin ifapplication.MessageBox('退出请点“是”'+#13#10+'返回请点“否”','提示',MB_YESNO+MB_ICONQUEStION)...
阅读全文
