摘要：
人物包裹里的第1格子上的药品数量开始查找，CE注意在未找到数组之前 如果把第1格子上的物品全部移走，得重新再找。第1格子上的红数量=[[[[[[924E0C]+1C]+20]+0B4C]+0C]0*4]+14大瓶活血散=[[[[[[[00924E0C]+1C]+20]+B4C]+C]+0]+54]+C其他偏移用 MemView(结构化内存监视器)遍历包裹数组=[[[[00924E0C]+1c]+2... 阅读全文
posted @ 2012-05-26 08:39
XE2011
阅读(356)
评论(0)
推荐(0)
摘要：
从周围玩家的HPmin开始开2个游戏账号，游戏用CE挂对进程，选中这个玩家，因为是自己双开，所以HPMIN数值非常清楚用CEESI=155FE830EDX=18E5D898EAX=12B162F8,EDX=18E5D898ECX=044B3238EAX=00F06F38EDI=04533768ESI=00925468EAX=00924E0CROMAN HPmin=[[[[[[[00924E0C]+... 阅读全文
posted @ 2012-05-26 08:39
XE2011
阅读(314)
评论(0)
推荐(0)
摘要：
通过人物到地面物品的距离 来查找1 初始化数值搜索，float类型的2 往物品靠近 搜索减少的数值3远离这个物品 搜索增加的数值 4 人物没动 搜索没改变的数值5重复搜索步骤2，3，4人物站长物品的中间应该 距离数值应该是0点几最后找到了2个结果把鼠标放到物品上出现其他 数据EBX=0A2DF490EDX=14B8FC60不出现数据时把鼠标往物品上一放EAX=0D959EB8，EDX=14B8FC... 阅读全文
posted @ 2012-05-26 08:39
XE2011
阅读(726)
评论(0)
推荐(0)
摘要：
CE搜索1 初始化数值搜索2 选中目标时 搜索>03 未选中目标 精确搜索04 重复 2，3步骤直到找到 选中目标的偏移值检没地址，这个地址在选中怪物时，（如果不换怪或取消选择）之后是固定的。记下这个数值 8010506E 然后锁定这个地址 把地址改为 8010506E 如果有目标被选中了则正确找到这个偏移的基址选中目标的ID=[[[924E0C]+1C]+20]+0A18{此段代码需要hook的... 阅读全文
posted @ 2012-05-26 08:38
XE2011
阅读(369)
评论(0)
推荐(0)
摘要：
第1步：欢迎你来到CE的教程(V3.1)(PW=:090453)第2步：精确数值扫描(PW=：090453)第3步：未知初始数值(PW=：419482)第4步：浮点数(PW=：890124)第5步：代码寻找(PW=：888899)第6步：指针(PW=098712)第7步：代码注入 (PW=013370)第8步：多级指针 (PW=525927)第1步 欢迎你来到CE的教程(V3.1)(PW=:090... 阅读全文
posted @ 2012-05-26 08:37
XE2011
阅读(1110)
评论(0)
推荐(0)
摘要：
//显示数据//1 查找窗口FindWindow(1,2):HWND; {查找窗口}1->lpclassName {窗口的类名}2->lpWindowName:Pchar {窗口的标题}example:myHwnd:=FindWindow(nil,'Step 8'); {HWND失败返回 0}//2 获取窗口线程IDGetWindowThreadProcessId(1,2):Dword; {获取窗... 阅读全文
posted @ 2012-05-26 08:37
XE2011
阅读(215)
评论(0)
推荐(0)
摘要：
FindWindow GetWindowThreadProcessID OpenProcess ReadProcessMemory WriteProcessMemory // CloseHandleunit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Control... 阅读全文
posted @ 2012-05-26 08:37
XE2011
阅读(214)
评论(0)
推荐(0)
摘要：
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTForm1 = class(TForm)Label1: TLabel;Timer1: TTimer;procedure Timer1Tim... 阅读全文
posted @ 2012-05-26 08:34
XE2011
阅读(185)
评论(0)
推荐(0)
摘要：
删除这个记录修改记录 描述 地址 类型 数值Scan Type: 扫描类型： Exact Value 精确值Bigger than... 大于你所搜寻的数字Smaller than... 小于你所搜寻的数字Value between... 在两数之间Unknown initial value 不知道初始值Incre... 阅读全文
posted @ 2012-05-26 08:34
XE2011
阅读(186)
评论(0)
推荐(0)
摘要：
使用冒泡法排序数组：如果一个数组中的元素是杂乱无序的，而我们又希望将数组中的元素变为有序的，比如变为升序排列的，这样我们需要一种算法来实现数组元素的排序，其中冒泡法就是一种常用的排序方法。1．冒泡排序法的原理： 升序排列步骤如下：（1）对于一个有n个元素的数组，首先用数组中的第一个元素和后面的每个元素进行比较，如果第一个元素比后面的元素大，就交换这两个元素的位置，直到比较到最后一个元素为止，这样经... 阅读全文
posted @ 2012-05-26 08:32
XE2011
阅读(700)
评论(0)
推荐(0)
摘要：
/*建立1个win32 console程序 把代码粘里面就可以了*/#include "stdafx.h"#include "windows.h"#include "TlHelp32.h"const TCHAR QQ_GAME[] = _T("QQGame.exe");const TCHAR QQ_THREAD_DLL[] = _T("TenSLX.dll");typedef enum _THRE... 阅读全文
posted @ 2012-05-26 08:32
XE2011
阅读(179)
评论(0)
推荐(0)
摘要：
mkdir C: C:\Windows\temp\TEMP\//创建文件夹TMPsubst Z: C:\Windows\temp\TEMP//创建虚拟零时盘符Z//为盘符Z创建快捷方式通过 Wiz 发布附件列表 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(136)
评论(0)
推荐(0)
摘要：
//为 Cmd.exe创建个快捷方式@echo off echo [InternetShortcut] >cmd.urlecho URL=%windir%\system32\cmd.exe >>cmd.urlecho IconIndex=0 >>cmd.urlecho IconFile=%windir%\system32\cmd.exe>>cmd.url通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(249)
评论(0)
推荐(0)
摘要：
把C:\Windows\temp\TMP映射为Z:
subst Z:C:\TempFolder 删除盘符 subst /d z:
subst /d z: RD /s /q C:\TempFolderMkDir C:\TempFoldersubst Z: C:\TempFolder SUBST [drive1: [drive2:]path] SUBST drive1: /D ... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(247)
评论(0)
推荐(0)
摘要：
@echo off for /f "delims=" %%a in ('dir/s/b/a-d') do echo %%~dpa+%%~nxa >>00000.txt
pushd %cd%\%1 00000.txt 保存为0.bat 放在你要放在的目录下 双击运行完成 方法2：
dir "C:\Users\Administrator\Desktop\BatchFile" /d/w... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(251)
评论(0)
推荐(0)
摘要：
@echo off :: 获取当前目录所有文件名set layers=0set "cur_dir=%cd%\":get_cd_layersset "cur_dir=%cur_dir:*\=%"if not "%cur_dir%"=="" set /a layers+=1&goto get_cd_layersfor /f "delims=" %%i in ('dir /a-d /s /b /on')... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(569)
评论(0)
推荐(0)
摘要：
点击“开始→运行” 输入cmd 回车 打开命令提示符 在命令提示符中输入以下命令：at hh:mm:ss Shutdown －s hh:小时; mm: 分 ;ss: 秒
如：在23点关机 at 23:00:00 Shutdown －s 倒计时关机 （时间单位：毫秒） shutdown -s -t 6000 取消关机 shutdown ... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(176)
评论(0)
推荐(0)
摘要：
启动控制面板大全 控制面板模块： control.exe命令： rundll32.exe shell32.dll,Control_RunDLL结果： 显示控制面板窗口。例子：Dim xx = Shell("rundll32.exe shell32.dll,Control_RunDLL")辅助选项模块： access.cpl命令： rundll32.exe shell32.dll,Control_R... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(190)
评论(0)
推荐(0)
摘要：
说明 E:\备份文件 是 archive_name 备份后 *.RAR文件
D:\Test是file_names 添加到压缩文件 "C:/Program Files/WinRAR/WinRAR.exe" a -ep2 -ibck -ag -k -rr E:\备份文件 D:\Test 1.建立压缩列表文件 假设要自动压缩E:/back... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(260)
评论(0)
推荐(0)
摘要：
winver---------检查Windows版本wmimgmt.msc----打开windows管理体系结构(WMI)wupdmgr--------windows更新程序wscript--------windows脚本宿主设置write----------写字板winmsd---------系统信息wiaacmgr-------扫描仪和照相机向导winchat--------XP自带局域网聊天... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(160)
评论(0)
推荐(0)
摘要：
建立个文本文件输入DEL /F /Q /A \\?\%1RD /S /Q \\?\%1然后重命名:deleteIt.bat把删不掉的拖到 deleteIt.bat 图标上用粉碎文件也没效一次性只往些bat上拖拽一人文件（不要同时拖拽多个文件到此图标上无效）和对于删除就提示文件不存在 非常有效有效对付删除文件删除不掉的BAT\\ 是什么？ \%1DEL ->DEL [/P] [/F] [/S] [/... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(223)
评论(0)
推荐(0)
摘要：
@echo offpushd %cd%\%1a.txt 通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(154)
评论(0)
推荐(0)
摘要：
DOS 错误代码：1无效DoS功能号2文件末找到3路径未找到4打开文件过多5禁止文件存取6无效文件句柄12无效文件存取代码15无效驱动器号16不能删除当前日录17不能跨驱动器改文件名I/O错误100磁盘读错误101磁盘写错误102文件变量末赋值103文件未打开104文件未用输入方式打开105文件末用输出方式打开106无效数字格式严重错误150磁盘写保护15l未知单元152驱动器未准备好153未知命... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(321)
评论(0)
推荐(0)
摘要：
@echo offecho 正在清除系统垃圾文件，请稍等......del /f /s /q %systemdrive%\*.tmpdel /f /s /q %systemdrive%\*._mpdel /f /s /q %systemdrive%\*.logdel /f /s /q %systemdrive%\*.giddel /f /s /q %systemdrive%\*.chkde... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(219)
评论(0)
推荐(0)
摘要：
hh -decompile [path] [ChmOBJ] 说明： 把目标 *.CHM 文件名 改成 c.chm 在桌面上创建一个记事本 命名为 000.BAT 把下面的代码粘贴进去 双击运行即可 把记事本做成直接拖拽就行了 改进 hh -decompile C:\Users\Administrator\Desktop\ChmFolder C:\Users\Ad... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(161)
评论(0)
推荐(0)
摘要：
::BAT删除自身del %0 通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(518)
评论(0)
推荐(0)
摘要：
批量修改文件扩展名 pushd %cd%\%1rename *.txt *.txt1del %0批量去除文件名其中一段的文字通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(81)
评论(0)
推荐(0)
摘要：
@echo offecho 本Dos窗体将在10秒后自动关闭echo if wscript.arguments(0)^>0 then wscript.Sleep(wscript.arguments(0) * 1000):end if>"%Temp%\delay01.vbs"cscript "%temp%\delay01.vbs" 10del "%Temp%\delay01.vbs"来自为知笔... 阅读全文
posted @ 2012-05-26 08:22
XE2011
阅读(3572)
评论(0)
推荐(0)
摘要：
echo offsubst /d z: //取消盘符ZRD /s /q C:\Windows\temp\TEMP//删除文件夹TMP通过 Wiz 发布附件列表 阅读全文
posted @ 2012-05-26 08:21
XE2011
阅读(112)
评论(0)
推荐(0)
摘要：
//dll 文件libraryplaySound; uses SysUtils, Classes; {$R*.res} //{$R'XXX.RES''XXX.RC'}自动编辑 {$R'WavRes.RES''WavRes.rc'} begin end. //调用dll中的WAV资源
usesMMSystem;{MMSystem} procedureTFo... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(239)
评论(0)
推荐(0)
摘要：
//建立1个ConsoleApplication 把代码往里面粘贴/////////////////////////////////////////////////////{break}programProject1; {$APPTYPECONSOLE} uses SysUtils; vari:Integer; begin {break在各循环中调用Break，可以使得程序的执行流程立即跳到循环的... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(151)
评论(0)
推荐(0)
摘要：
procedureTForm1.Button1Click(Sender:TObject); var result:Integer; i:Integer; begin Memo1.Clear; fori:=0to10do begin Randomize; Result:=Random(1000)+1; Memo1.Li... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(152)
评论(0)
推荐(0)
摘要：
DELPHI中取整数的方法 1.Round（四舍六入五留双）功能说明：对一个实数进行四舍五入。(按照银行家算法) 例：var i, j: Integer;begin i := Round(1.5); // i等于2 j := Round(2.5); // j等于2end;在Delphi中使用Round函数得到的答案有时与我们所预期的会不太一样：采用的是四舍六入五留双。即当舍或入位大于或小于五时按四... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(640)
评论(0)
推荐(0)
摘要：
real型的使用 除号 /varc:real; begin c:=7 / 3; ShowMessage(floatToStr(c));end;整形的使用 divvar c:Integer;begin c:=7 div 3; ShowMessage(IntToStr(c));end;通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(639)
评论(0)
推荐(0)
摘要：
delphi TStringList 用法详解
//TStringList 常用方法与属性 :var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(381)
评论(0)
推荐(0)
摘要：
//方法1uses ShlObj;SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil); //方法2procedure TForm1.Button1Click(Sender: TObject);beginSendMessage(FindWindow('Progman', 'Program Manager'), WM_COMMAND, ... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(446)
评论(0)
推荐(0)
摘要：
在uses中引入 IniFiles;{本例在{$R *.dfm}下面使用uses IniFiles;将会 出现 Undeclared identifier:'IniFile'错误}privatemyIniFile: TIniFile;{声明部分,也可在implementatio上面的Var下面声明}//创建并写一个IniFile文件procedure TForm1.Button1Click(Sen... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(407)
评论(0)
推荐(0)
摘要：
功能说明：随时响应用户输入procedureTForm1.FormKeyPress(Sender: TObject;varKey: Char);beginif ActiveControl <> Memo1 thenwith Memo1.Lines dobeginText:=Text+Key;//取得用户得按键end;end;通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(116)
评论(0)
推荐(0)
摘要：
//设置窗体在屏幕中的位置procedure TForm1.SpeedButton1Click(Sender: TObject);begintryif (Edit1.Text<>'') and (Edit2.Text<>'') thenif (StrtoInt(Edit1.Text)<800) and (StrtoInt(Edit2.Text)<600) thenbeginForm1.Left :... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(159)
评论(0)
推荐(0)
摘要：
//数组类型{ 数组类型定义了一组指定类型的元素序列，在方括号中填入下标值就可访问数组中的元素。定义数组时，方括号也用来指定可能的下标值。例如，下面的代码中定义了一个有24个整数的数组：}typeDayTemperatures = array [1..24] of Integer;{在数组定义时，你需要在方括号中填入一个子界类型的值，或者用两个有序类型的常量定义一个新的子界类型，子界类型指定了数组... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(226)
评论(0)
推荐(0)
摘要：
功能说明：procedure TForm1.Edit1KeyUp(Sender: TObject;var Key: Word;Shift: TShiftState);beginif Key= VK_tab then Showmessage('VK_TAB');end;通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(192)
评论(0)
推荐(0)
摘要：
//常量 const{对于在程序运行期间保持不变的值，Pascal允许通过常量来声明。声明常量不必特定数据类型，但需要赋一个初值。编译器会根据所赋初值自动选用合适的数据类型。}//常量分配内存，并把常量的值放入内存constThousand = 1000;Pi = 3.14;AuthorName = 'Marco Cantù';//如果你想告诉Delphi 采用特定的类型，你可在声明中加入类型名/... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(90)
评论(0)
推荐(0)
摘要：
功能说明：将字符串中的字符依次写入数组procedureTForm1.Button1Click(Sender: TObject);varstr:string;a:array[0..79]ofchar;beginstr:='字符串转换测试';strPcopy(a,str);canvas.TextOut(10,10,string(a));end;通过 Wiz 发布 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(281)
评论(0)
推荐(0)
摘要：
// 在窗口间移动按扭procedure TForm1.Button1Click(Sender: TObject);beginif Button1.Parent=Form1 thenbeginbutton1.Caption:='单击返回';Button1.Parent:=Form2;Button1.Left := 232;Button1.Top := 88;endelsebeginbutton1.... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(91)
评论(0)
推荐(0)
摘要：
功能说明：同时响应一个事件procedure TForm1.Button1Click(Sender: TObject);beginIfTbutton(sender).Name='Button1'then showmessage('你单击了Button1');IfTbutton(sender).Name='Button2'then showmessage('你单击了Button2');IfTbutt... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(93)
评论(0)
推荐(0)
摘要：
//命名及不命名的类型{为了后续使用或直接用于变量，需要给自定义类型命名。如果自定义一个命名的类型，你必须将代码放在特定的type区，如下所示：}type// subrange definitionUppercase = 'A'..'Z';// array definitionTemperatures = array [1..24] of Integer;// record definitionD... 阅读全文
posted @ 2012-05-26 08:14
XE2011
阅读(242)
评论(0)
推荐(0)
摘要：
procedureswap(x,y:string); var temp:string; begin temp:=x; x:=y; y:=temp; end; procedureTForm1.Button3Click(Sender:TObject); vara,b:string; begin a:=Edit1.Text; b:=Edit2.Tex... 阅读全文
posted @ 2012-05-26 08:13
XE2011
阅读(136)
评论(0)
推荐(0)
摘要：
{
这段代码存在的目的不是在研究这3个排序的算法，
这段代码存在的目的是如何用这3个排序函数，并且选出一个排序速度最快的函数 面对实际应用
}
unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, Dialogs,StdCtrl... 阅读全文
posted @ 2012-05-26 08:13
XE2011
阅读(894)
评论(0)
推荐(0)
摘要：
procedure TForm1.Timer1Timer(Sender: TObject);
{$j+} //全局变量
const i:integer=0; //定义常量 i
{$j-}
begin ListBox1.Items.Add(memo1.lines.strings[i]); if i >= memo1.lines.count - 1 then i := 0 else... 阅读全文
posted @ 2012-05-26 08:13
XE2011
阅读(111)
评论(0)
推荐(0)
摘要：
首页 关于 友情链接 IT元素Hector的编程笔记夹，如果喜欢，收藏一个« 解决Microsoft Expression Blend 4安装后没有WP7模版事务的脏读，不可重复读，虚读 »Delphi中资源文件使用小结4 九月 2011 - by Hector一．编写 RC 脚本文本用记事本或其它文本编辑器编写一个扩展名为“.rc”的文件。格式如下： AVI 无... 阅读全文
posted @ 2012-05-26 08:13
XE2011
阅读(301)
评论(0)
推荐(0)
浙公网安备 33010602011771号