XE2011 - 博客园

2012年5月31日

摘要： unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrls,ExtCtrls; type TForm1=class(TForm) Edit1:TEdit; Edit2:TEdit; Edit3:TEdit; Button1:TButton... 阅读全文

posted @ 2012-05-31 08:21 XE2011 阅读(127) 评论(0) 推荐(0) 编辑

delphi spy++ 拖拽功能

摘要：本例 http://files.cnblogs.com/xe2011/Delphi_SPY.rar自用 http://files.cnblogs.com/xe2011/Debug_Delphi_Spy.rar ｛使用资源中的图标｝ Image1.Picture.Icon.LoadFromResourceName(HInstance,'DragIcon'); Image1.Picture.Icon.LoadFromResourceName(HInstance,'DefaultIcon'); {使用资源中的光标} var h: HCURSOR; begin h:= 阅读全文

posted @ 2012-05-31 08:21 XE2011 阅读(1108) 评论(0) 推荐(0) 编辑

2012年5月30日

ini写配置信息列表框

摘要： unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)ListBox1: TListBox;Button1: TButton;Button2: TButton;Memo1:... 阅读全文

posted @ 2012-05-30 19:46 XE2011 阅读(749) 评论(0) 推荐(0) 编辑

开机关机执行命令

摘要：单击“开始→运行”，在运行命令框中输入“gpedit.msc”，回车执行，打开“组策略”窗口。然后在组策略左侧的控制面板树窗格中，如图所示，依次展开“计算机配置→Windows设置→脚本（启动/关机）”节点，双击右侧详细资料窗格中的“启动”（或者“关机”）项目，在弹出的“启动属性”（“关机属性”）对话框中单击“添加”按钮，将你所写的批处理文件添加为新的计算机启动（关机）脚本。设置完成后，退出组策略... 阅读全文

posted @ 2012-05-30 11:06 XE2011 阅读(238) 评论(0) 推荐(0) 编辑

模拟安键F5 SendKeys

摘要：模拟安键F5 SendKeys (2011/12/10 20:00:38) Dim WSHShellSet WSHShell = WScript.CreateObject("WScript.Shell")WshSHell.SendKeys "{F5}"WScript.Quit(0)显示隐藏文件（夹）hidefilevbs (2011/12/10 20:00:37) Dim WSHShel... 阅读全文

posted @ 2012-05-30 11:06 XE2011 阅读(263) 评论(0) 推荐(0) 编辑

按键模拟_注入线程之后国F也可以按键模拟

摘要： //每隔几秒_按键模拟functionSendKey(Str:string):Integer; var MyHwnd:HWND; KeyValue:integer; begin {功能模拟发送按键:1~9,F1~F8} MyHwnd:=FindWindow(nil,'ElementClient'); ifStr='1'thenKeyValue:=49; ifStr='2'thenKeyValue:... 阅读全文

posted @ 2012-05-30 11:05 XE2011 阅读(270) 评论(0) 推荐(0) 编辑

01 用CE查找游戏基址

摘要：游戏基址BaseAddress->00924E0C偏移HpMin->450HPmin->478在编程中显示HpMin的数值=[[[00924E0C]+1c]+20]+450在编程中显示HpMax的数值=[[[00924E0C]+1c]+20]+478用CE挂接好游戏，然后通过改变身上的装备使HP的值改变。先搜索没改变的人物HP数值然后拿掉可以改变红值的装备然后再搜索这个红一般2次就可以搜索到数... 阅读全文

posted @ 2012-05-30 11:04 XE2011 阅读(824) 评论(0) 推荐(0) 编辑

红蓝保护（按键模拟）

摘要： //使用物品方式//内存模拟快捷栏方式//SendMessage按键模拟var Form1:TForm1; ///////////////////////////////////////////////////////////// MyHwnd:HWND; MyPid:Dword; MyProcess:Thandle; MyPointer:Integer; Readbyte:DWORD;//Siz... 阅读全文

posted @ 2012-05-30 11:04 XE2011 阅读(231) 评论(0) 推荐(0) 编辑

过QQ游戏大厅的SX保护 - Evil0r's Blog - 博客频道 - CSDN_NET

摘要： Evil0r's Blog很久很久以前，天是蓝的，水是清的，Virus是跑在Ring3的，AV是只做扫描的我的首页--> 目录视图摘要视图订阅【通知】3月21日21点至22点博客频道服务暂停公告免费下载《SKC易云解决方案》下载频道双倍下载分返还活动震撼出击！CSDN 2011年度十大风云博客专栏评选火爆进行中！CSDN社区3月技术大分享百本IT图书等你拿！过QQ游戏大厅的SX保护 ... 阅读全文

posted @ 2012-05-30 11:01 XE2011 阅读(276) 评论(0) 推荐(0) 编辑

Copy字符截取

摘要： procedure TForm1.Button1Click(Sender: TObject);beginEdit2.Text:=Copy(Edit1.Text,9,Pos('\r^f',Edit1.Text)-9);end;procedure TForm1.FormCreate(Sender: TObject);beginedit1.text:='^fffffff金创药\r^f';edit2.te... 阅读全文

posted @ 2012-05-30 11:01 XE2011 阅读(119) 评论(0) 推荐(0) 编辑

CODE Unicode roleName_字符类型数据人物名子

摘要： ////////////////////////////////////////////////////////////////////////////(*电脑上开了2个窗口的名子都为Element Client如何处理默认处理是哪个窗口是激活的就读取哪个窗口CE是通过 PID处理的如何处理多进程游戏*)procedure DsplyRoleName();//roleName=[[[[924E0C]+1C]+20]+5CC]+0//名称//在Delphi中用$加个地址表示这个地址它是16进制数的ConstBaseAddress=$924E0C;Offset1=$1C;Offset2 阅读全文

posted @ 2012-05-30 11:01 XE2011 阅读(443) 评论(1) 推荐(0) 编辑

CODE人物坐标

摘要： ////////////////////////////////////////procedure DsplyRolePosXYZ();// PosX=[[[924E0C]+1C]+20]+3c//主角坐标X 取整（坐标/10）+400// PosY=[[[924E0C]+1C]+20]+44//主角坐标Y 取整（坐标/10）+550// PosZ=[[[924E0C]+1C]+20]+40//主... 阅读全文

posted @ 2012-05-30 11:01 XE2011 阅读(190) 评论(0) 推荐(0) 编辑

CODE Case Of 职业修真期

摘要： procedure DsplyRoleCareer();//JOB=[[[924E0C]+1C]+20]+5D4//职业ID 0=武侠，1=法师，3=妖精，4=妖兽，6=羽茫，7=羽灵ConstBaseAddress=$924E0C;Offset1=$1C;Offset2=$20;CareerOffset=$5D4;varMyHwnd:HWND;ProcessIdentifier:DWORD;M... 阅读全文

posted @ 2012-05-30 11:01 XE2011 阅读(172) 评论(0) 推荐(0) 编辑

显示人物主要信息

摘要： procedure TForm1.Timer1_mainRoleTimer(Sender: TObject);varGameh:hwnd;//游戏窗口句柄GamePid:Thandle;//进程IDhProcess:Thandle; //进程句柄PointTemp:integer;readByte:Dword;_ID:Integer;//选中目标ID_hpmin:Integer;//红min_hp... 阅读全文

posted @ 2012-05-30 11:00 XE2011 阅读(185) 评论(0) 推荐(0) 编辑

捡物 call 代码注入

摘要： {完整的捡物CALLMOV ECX,[924E0C]MOV ECX,[ECX+1C]MOV ECX,[ECX+20]CALL 00449BF0}procedure pick();stdcall;//捡物 callbeginasmMOV ECX,[$924E0C]MOV ECX,[ECX+$1C]MOV ECX,[ECX+$20]MOV EBX,$00449BF0CALL EBXend;end;procedure TForm1.Button1Click(Sender: TObject);varmyHwnd: HWND;pid, hProcess: Cardinal;CallAddr: Point 阅读全文

posted @ 2012-05-30 11:00 XE2011 阅读(445) 评论(0) 推荐(0) 编辑

Testudo

每天要进步一点点。

公告