分享给朋友：通用代码: 复 制天龙八部3自动打怪脚本下载至电脑扫码用手机看用或微信扫码在手机上继续观看二维码2小时内有效天龙八部3自动打怪脚本扫码用手机继续看用或微信扫码在手机上继续观看二维码2小时内有效，扫码后可分享给好友没有优酷APP？立即下载请根据您的设备选择下载版本
药品服务许可证(京)-经营- 请使用者仔细阅读优酷、、、Copyright(C)2017 优酷
版权所有不良信息举报***:研究天龙八部（网游）, 写了个辅助自动打怪、答题提示的辅助工具
我的图书馆
研究天龙八部（网游）, 写了个辅助自动打怪、答题提示的辅助工具
最近玩了玩天龙八部，玩这个游戏简直就是遭罪，升级非常慢，而且杀怪也很累，纯手工，我都不知道为什么还有那么多人玩。玩到40多级了，实在是受不了，游戏的颜色搭配也是非常的伤眼睛，于是我就想写一个自动打怪的辅助工具得了。
& 接下来我就花了1天多的时间写了程序。有自动寻怪、自动加血、自动加蓝、自动释放技能、防外挂答题报警（利用Fetion发送短信到手机）。有了这个工具后我就可以挂上，关掉电脑，需要答题的时候就来答一下题。
附上主要代码（有需要代码邮件和我联系吧：）：
unit&BackMainFinterfaceuses&&Windows,&Messages,&SysUtils,&Variants,&Classes,&Graphics,&Controls,&Forms,&&Dialogs,&ExtCtrls,&Menus,&GlobalDefs,&StdCtype&&TNumItem&=&record&&&&StartCol:&B&&&&EndCol:&B&&end;&&TNumItemAry&=&array&of&TNumI&&TBackMainForm&=&class(TForm)&&&&MainTray:&TTrayI&&&&TrayMenu:&TPopupM&&&&SysSetMenuItem:&TMenuI&&&&ExitSysMenuItem:&TMenuI&&&&N4:&TMenuI&&&&TimerFinder:&TT&&&&procedure&ExitSysMenuItemClick(Sender:&TObject);&&&&procedure&SysSetMenuItemClick(Sender:&TObject);&&&&procedure&FormCreate(Sender:&TObject);&&&&procedure&TimerFinderTimer(Sender:&TObject);&&&&procedure&FormDestroy(Sender:&TObject);&&&&procedure&MainTrayClick(Sender:&TObject);&&private&&&&FSCBitMap:&TB&&&&FNumBitMapAry:&array[0..9]&of&TB&&&&FCurGamePos:&TP&&&&FFightUnixTick:&C&&&&FIsFighting:&B&&&&FIsNeedAnswerQT:&B&&&&FLastCalcAnswerUnixTick:&C&&&&FLifeCurrent:&I&&&&FMagicCurrent:&I&&&&FBBLifeCurrent:&I&&&&FPressF1UnixTick:&C&&&&FPressF2UnixTick:&C&&&&FPressF3UnixTick:&C&&&&FPressF4UnixTick:&C&&&&procedure&CreateNumBitmapA&&&&procedure&LoadNumBitmapAry(const&DirPath:&string);&&&&procedure&DestroyNumBitmapA&&private&&&&procedure&WMHotKey(var&Message:&TMessage);&message&WM_HOTKEY;&&&&procedure&RegisterHotK&&&&procedure&InitializeLifeAndMagicC&&&&procedure&CalcCurrentP&&&&procedure&CalcFightS&&&&procedure&CalcLifeAndM&&&&procedure&CalcQuestionS&&&&procedure&AutoPressMagicK&&&&function&TranslateWinHotKeyToLocal(HotKeyValue:&Cardinal):&W&&&&&&&&procedure&AnalyseNum(ABitmap:&TB&NumAry:&TNumItemA&List:&TStringList);&&&&procedure&GetNumList(BitMap:&TB&var&NumAry:&TNumItemAry);&&public&&end;&&TBeepThread&=&class(TThread)&&private&&&&FBeepSecs:&I&&&&procedure&SyncSendFetionM&&protected&&&&procedure&E&&&public&&&&constructor&Create(BeepSecs:&Integer);&&end;procedure&SendFetionMsg(const&Msg:&string);var&&BackMainForm:&TBackMainFimplementationuses&SystemSetFrm,&BcConfigMgr,&PisConfig,&VirtualKeys,&FetchWindow,&Math,&&DateU{$R&*.dfm}var&&BeepThread:&TBeepThread&=&nil;procedure&SendFetionMsg(const&Msg:&string);begin&&if&FetionWindowHandle&&&&0&then&&begin&&&&ShowWindow(FetionWindowHandle,&SW_NORMAL);&&&&SetForegroundWindow(FetionWindowHandle);&&&&SendMessage(FetionInputHandle,&WM_SETTEXT,&0,&Integer(PChar(Msg)));&&&&Sleep(20);&&&&SendMessage(FetionSendBtnHandle,&WM_LBUTTONDOWN,&MK_LBUTTON,&0);&&&&Sleep(10);&&&&SendMessage(FetionSendBtnHandle,&WM_LBUTTONUP,&0,&0);&&&&ShowWindow(FetionWindowHandle,&SW_HIDE);&&end;end;procedure&TBackMainForm.GetNumList(BitMap:&TB&var&NumAry:&TNumItemAry);&&procedure&FetchStartCol(var&LoopVar:&I&BackColor:&Integer);&&var&&&&J:&I&&begin&&&&while&(LoopVar&&&BitMap.Width)&do&&&&begin&&&&&&for&J&:=&0&to&BitMap.Height&-&1&do&&&&&&begin&&&&&&&&//如果不是背景 &&&&&&&&if&(BitMap.Canvas.Pixels[LoopVar,&J]&xor&BackColor)&&&&0&then&&&&&&&&begin&&&&&&&&&&B&&&&&&&&end;&&&&&&end;&&&&&&//如果不是背景，则找到字符 &&&&&&if&J&&&BitMap.Height&then&&&&&&&&B&&&&&&&&&&&&&&&&Inc(LoopVar);&&&&end;&&end;&&procedure&FetchEndCol(var&LoopVar:&I&BackColor:&Integer);&&var&&&&J:&I&&begin&&&&while&(LoopVar&&&BitMap.Width)&do&&&&begin&&&&&&for&J&:=&0&to&BitMap.Height&-&1&do&&&&&&begin&&&&&&&&//如果是字符 &&&&&&&&if&(BitMap.Canvas.Pixels[LoopVar,&J]&xor&BackColor)&&&&0&then&&&&&&&&begin&&&&&&&&&&B&&&&&&&&end;&&&&&&end;&&&&&&//如果不是字符，则找到背景 &&&&&&if&J&&=&BitMap.Height&then&&&&&&&&B&&&&&&Inc(LoopVar);&&&&end;&&end;&&&&var&&I:&I&&BackColor:&I&&StartCol,&EndCol:&Bbegin&&BackColor&:=&BitMap.Canvas.Pixels[0,&0];&&I&:=&0;&&while&I&&&BitMap.Width&do&&begin&&&&FetchStartCol(I,&BackColor);&&&&if&I&&=&BitMap.Width&then&&&&&&B&&&&StartCol&:=&I;&&&&FetchEndCol(I,&BackColor);&&&&if&I&&=&BitMap.Width&then&&&&&&B&&&&EndCol&:=&I&-&1;&&&&SetLength(NumAry,&Length(NumAry)&+&1);&&&&NumAry[High(NumAry)].StartCol&:=&StartC&&&&NumAry[High(NumAry)].EndCol&:=&EndC&&end;end;procedure&TBackMainForm.InitializeLifeAndMagicCbegin&&if&LifeColor&=&0&then&&&&LifeColor&:=&FSCBitMap.Canvas.Pixels[LifeX,&LifeY];&&if&MagicColor&=&0&then&&&&MagicColor&:=&FSCBitMap.Canvas.Pixels[MagicX,&MagicY];&&BBLifeColor&:=&LifeC&&MonsterLifeColor&:=&LifeCend;procedure&TBackMainForm.AnalyseNum(ABitmap:&TB&NumAry:&TNumItemA&&List:&TStringList);&&function&SameNum(const&NumItem:&TNumI&Num:&Integer):&B&&var&&&&J,&K:&I&&&&RealWidth:&I&&&&RefIsBgColor,&IsBgColor:&B&&&&LRefBgColor,&LBgColor:&I&&begin&&&&Result&:=&T&&&&RealWidth&:=&NumItem.EndCol&-&NumItem.StartCol&+&1;&&&&if&RealWidth&&&FNumBitMapAry[Num].Width&then&&&&&&RealWidth&:=&FNumBitMapAry[Num].W&&&&LRefBgColor&:=&FNumBitMapAry[0].Canvas.Pixels[0,&0];&&&&LBgColor&:=&ABitmap.Canvas.Pixels[0,0];&&&&for&J&:=&0&to&RealWidth&-&1&do&&&&begin&&&&&&for&K&:=&0&to&7&do&&&&&&begin&&&&&&&&RefIsBgColor&:=&FNumBitMapAry[Num].Canvas.Pixels[J,&K]&=&LRefBgC&&&&&&&&IsBgColor&:=&ABitmap.Canvas.Pixels[J&+&NumItem.StartCol,&K]&=&LBgC&&&&&&&&//&不相同退出 &&&&&&&&if&RefIsBgColor&xor&IsBgColor&=&True&then&&&&&&&&begin&&&&&&&&&&Result&:=&F&&&&&&&&&&E&&&&&&&&end;&&&&&&end;&&&&end;&&end;&&function&GetStringNum(const&NumItem:&TNumItem):&string;&&var&&&&I:&I&&begin&&&&Result&:=&'';&&&&for&I&:=&0&to&9&do&&&&begin&&&&&&if&SameNum(NumItem,&I)&then&&&&&&begin&&&&&&&&Result&:=&IntToStr(I);&&&&&&&&B&&&&&&end;&&&&end;&&end;var&&I:&I&&LNumStr,&TmpStr:&string;begin&&LNumStr&:=&'';&&for&I&:=&0&to&High(NumAry)&do&&begin&&&&TmpStr&:=&GetStringNum(NumAry[I]);&&&&if&TmpStr&&&&''&then&&&&begin&&&&&&LNumStr&:=&LNumStr&+&TmpS&&&&end;&&&&if&I&&&High(NumAry)&then&&&&begin&&&&&&if&(NumAry[I+1].StartCol&-&NumAry[I].EndCol)&&&8&then&&&&&&begin&&&&&&&&List.Add(LNumStr);&&&&&&&&LNumStr&:=&'';&&&&&&end;&&&&end;&&end;&&List.Add(LNumStr);end;procedure&TBackMainForm.AutoPressMagicKbegin&&if&PressKeyF1Secs&&&&0&then&&begin&&&&if&(DateTimeToUnix(Now)&-&FPressF1UnixTick)&&&PressKeyF1Secs&then&&&&begin&&&&&&MonitorKeyPress([],&VK_F1);&&&&&&FPressF1UnixTick&:=&DateTimeToUnix(Now);&&&&&&Sleep(10);&&&&end;&&end;&&if&PressKeyF2Secs&&&&0&then&&begin&&&&if&(DateTimeToUnix(Now)&-&FPressF2UnixTick)&&&PressKeyF2Secs&then&&&&begin&&&&&&MonitorKeyPress([],&VK_F2);&&&&&&FPressF2UnixTick&:=&DateTimeToUnix(Now);&&&&&&Sleep(10);&&&&end;&&end;&&if&PressKeyF3Secs&&&&0&then&&begin&&&&if&(DateTimeToUnix(Now)&-&FPressF3UnixTick)&&&PressKeyF3Secs&then&&&&begin&&&&&&MonitorKeyPress([],&VK_F3);&&&&&&FPressF3UnixTick&:=&DateTimeToUnix(Now);&&&&&&Sleep(10);&&&&end;&&end;&&if&PressKeyF4Secs&&&&0&then&&begin&&&&if&(DateTimeToUnix(Now)&-&FPressF4UnixTick)&&&PressKeyF4Secs&then&&&&begin&&&&&&MonitorKeyPress([],&VK_F4);&&&&&&FPressF4UnixTick&:=&DateTimeToUnix(Now);&&&&&&Sleep(10);&&&&end;&&end;&&&&end;procedure&TBackMainForm.CalcCurrentPvar&&LBitMap:&TB&&NumAry:&TNumItemA&&StrList:&TStringLbegin&&LBitMap&:=&TBitmap.C&&StrList&:=&TStringList.C&&try&&&&LBitMap.PixelFormat&:=&pf24&&&&LBitMap.Width&:=&80;&&&&LBitMap.Height&:=&8;&&&&LBitMap.Canvas.CopyRect(Rect(0,&0,&80,&8),&FSCBitMap.Canvas,&&&&&&Rect(FSCBitMap.Width-110,&29,&FSCBitMap.Width-30,&37));&&&&GetNumList(LBitMap,&NumAry);&&&&if&Length(NumAry)&&=&0&then&&&&&&E&&&&AnalyseNum(LBitMap,&NumAry,&StrList);&&&&FCurGamePos.X&:=&StrToInt(StrList[0]);&&&&FCurGamePos.Y&:=&StrToInt(StrList[1]);&&finally&&&&StrList.F&&&&LBitMap.F&&end;end;procedure&TBackMainForm.CalcFightSbegin&&FIsFighting&:=&&&&FSCBitMap.Canvas.Pixels[MonsterLifeX,&MonsterLifeY]&=&MonsterLifeCend;procedure&TBackMainForm.CalcLifeAndMvar&&I:&Ibegin&&//&初始化数据 &&InitializeLifeAndMagicC&&//&计算生命 &&I&:=&0;&&FLifeCurrent&:=&0;&&while&True&do&&begin&&&&if&GetRValue(FSCBitMap.Canvas.Pixels[LifeX+I,&LifeY])&&&&GetRValue(LifeColor)&then&&&&&&B&&&&Inc(I);&&&&Inc(FLifeCurrent);&&end;&&//&计算魔法 &&I&:=&0;&&FMagicCurrent&:=&0;&&while&True&do&&begin&&&&if&GetBValue(FSCBitMap.Canvas.Pixels[MagicX+I,&MagicY])&&&&GetBValue(MagicColor)&then&&&&&&B&&&&Inc(I);&&&&Inc(FMagicCurrent);&&end;&&//&计算宝宝生命 &&I&:=&0;&&FBBLifeCurrent&:=&0;&&while&True&do&&begin&&&&if&GetRValue(FSCBitMap.Canvas.Pixels[BBLifeX+I,&BBLifeY])&&&&GetRValue(BBLifeColor)&then&&&&&&B&&&&Inc(I);&&&&Inc(FBBLifeCurrent);&&end;end;procedure&TBackMainForm.CalcQuestionS&&//&判断颜色是否有效 &&function&IsValidPoint(X,&Y:&Integer):&B&&var&&&&AColor:&TC&&begin&&&&AColor&:=&FSCBitMap.Canvas.Pixels[X,&Y];&&&&Result&:=&T&&&&Result&:=&Result&and&(GetRValue(AColor)&&=&GetRValue(QT_MIN_COLOR));&&&&Result&:=&Result&and&(GetGValue(AColor)&&=&GetGValue(QT_MIN_COLOR));&&&&Result&:=&Result&and&(GetBValue(AColor)&&=&GetBValue(QT_MIN_COLOR));&&end;&&//&判断是否是问题窗口 &&function&IsValidQuestion(X,&Y:&Integer):&B&&begin&&&&Result&:=&T&&&&Result&:=&Result&and&IsValidPoint(X+QT_WIDTH,&Y);&&&&Result&:=&Result&and&IsValidPoint(X,&Y+QT_HEIGHT);&&&&Result&:=&Result&and&IsValidPoint(X+QT_WIDTH,&Y+QT_HEIGHT);&&end;var&&I,&J:&Ibegin&&if&(DateTimeToUnix(Now)&-&FLastCalcAnswerUnixTick)&&&5&then&&&&E&&//&记录最后计算时间 &&FLastCalcAnswerUnixTick&:=&DateTimeToUnix(Now);&&FIsNeedAnswerQT&:=&F&&for&I&:=&0&to&(FSCBitMap.Width&div&2)&-&1&do&&begin&&&&for&J&:=&0&to&(FSCBitMap.Height&div&2)&-&1&do&&&&begin&&&&&&if&IsValidPoint(I,&J)&then&&&&&&begin&&&&&&&&if&IsValidQuestion(I,&J)&then&&&&&&&&begin&&&&&&&&&&FIsNeedAnswerQT&:=&T&&&&&&&&&&E&&&&&&&&end;&&&&&&end;&&&&end;&&end;end;procedure&TBackMainForm.CreateNumBitmapAvar&&I:&Ibegin&&for&I&:=&0&to&9&do&&begin&&&&FNumBitMapAry[I]&:=&TBitmap.C&&&&FNumBitMapAry[I].PixelFormat&:=&pf24&&end;end;procedure&TBackMainForm.DestroyNumBitmapAvar&&I:&Ibegin&&for&I&:=&0&to&9&do&&begin&&&&FNumBitMapAry[I].F&&end;end;procedure&TBackMainForm.ExitSysMenuItemClick(Sender:&TObject);begin&&if&Application.MessageBox('确实要退出?',&'提示信息',&&&&MB_YESNO&+&MB_ICONQUESTION)&=&mrYes&&then&&begin&&&&Application.T&&end;end;procedure&TBackMainForm.FormCreate(Sender:&TObject);&&procedure&LoadC&&begin&&&&FetionWindowIncText&:=&ConfigMgr.FetionWindowT&&&&FetionWindowHandle&:=&ConfigMgr.FetionWindowH&&&&FetionInputHandle&:=&ConfigMgr.FetionInputWindowH&&&&FetionSendBtnHandle&:=&ConfigMgr.FetionSendBtnWindowH&&end;begin&&FSCBitMap&:=&TBitmap.C&&FFightUnixTick&:=&0;&&R&&MainTray.Hint&:=&'天龙八部自助打怪&1.0';&&LoadC&&CreateNumBitmapA&&LoadNumBitmapAry('./DigitalImages/');&&RegisterHotK&&FCurGamePos.X&:=&0;&&FCurGamePos.Y&:=&0;&&TimerFinder.Interval&:=&FinderTimerMSend;procedure&TBackMainForm.FormDestroy(Sender:&TObject);begin&&FSCBitMap.F&&DestroyNumBitmapAend;procedure&TBackMainForm.LoadNumBitmapAry(const&DirPath:&string);var&&I:&Ibegin&&for&I&:=&0&to&9&do&&begin&&&&FNumBitMapAry[I].LoadFromFile(Format('%s%d.bmp',&[DirPath,&I]));&&end;end;procedure&TBackMainForm.MainTrayClick(Sender:&TObject);begin&&BackMainForm.Send;procedure&TBackMainForm.RegisterHotKvar&&GlobalId:&W&&AModifiers:&Cbegin&&AModifiers&:=&MOD_CO***OL&+&MOD_ALT;;&&//&开关&CTRL&+&ALT&+&F10 &&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF10'));&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F10);&&//&设定原点&CTRL&+&ALT&+&F11 &&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF11'));&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F11);&&//&调出设定对话框&CTRL&+&ALT&+&F12 &&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF12'));&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F12);&&//&终止发送报警消息线程&CTRL&+&ALT&+&F1 &&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF1'));&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F1);&&//&发送Fetion测试包&CTRL&+&ALT&+&F1 &&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF2'));&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F2);&&end;procedure&TBackMainForm.SysSetMenuItemClick(Sender:&TObject);var&&OldState:&Bbegin&&if&TSystemSetForm.IsExist&then&E&&OldState&:=&TimerFinder.E&&TimerFinder.Enabled&:=&F&&with&TSystemSetForm.Create(Self)&do&&try&&&&if&ShowModal&=&mrOk&then&&&&begin&&&&&&TimerFinder.Interval&:=&FinderTimerMS&&&&end;&&finally&&&&F&&end;&&TimerFinder.Enabled&:=&OldSend;procedure&TBackMainForm.TimerFinderTimer(Sender:&TObject);&&procedure&RandomFinderM&&var&&&&X,&Y:&I&&begin&&&&if&FCurGamePos.X&&&CenterPosX&then&&&&&&X&:=&RandomRange(FinderMinX,&FinderMaxX)&&&&else&&&&&&X&:=&RandomRange(-FinderMaxX,&-FinderMinX);&&&&if&FCurGamePos.Y&&&CenterPosY&then&&&&&&Y&:=&RandomRange(FinderMinY,&FinderMaxY)&&&&else&&&&&&Y&:=&RandomRange(-FinderMaxY,&-FinderMinY);&&&&X&:=&Screen.Width&div&2&+&X;&&&&Y&:=&Screen.Height&div&2&+&Y;&&&&MonitorMouseMove(X,&Y);&&&&Sleep(10);&&end;&&procedure&FindM&&begin&&&&//&寻找怪物 &&&&if¬&FIsFighting&then&&&&begin&&&&&&FFightUnixTick&:=&0;&&&&&&RandomFinderM&&&&&&MonitorMouseClick(1);&&&&end&else&&&&begin&&&&&&if&FFightUnixTick&&=&0&then&&&&&&&&FFightUnixTick&:=&DateTimeToUnix(Now)&&&&&&else&&&&&&begin&&&&&&&&//&如果找怪超时，则重新寻找 &&&&&&&&if&DateTimeToUnix(Now)&-&FFightUnixTick&&&15&then&&&&&&&&begin&&&&&&&&&&//&随机移动位置(必须执行此操作，否则会死锁) &&&&&&&&&&MonitorMouseMove(RandomRange(0,&Screen.Width&div&2),&&&&&&&&&&&&RandomRange(0,&Screen.Height&div&2));&&&&&&&&&&Sleep(10);&&&&&&&&&&MonitorMouseClick(2);&&&&&&&&end&else&&&&&&&&begin&&&&&&&&&&//&释放魔法 &&&&&&&&&&AutoPressMagicK&&&&&&&&end;&&&&&&end;&&&&end;&&end;&&procedure&FillLifeAndM&&begin&&&&//&补人物血 &&&&if&((FLifeCurrent*100)&div&LIFE_MAX)&&=&LifeMin&then&&&&begin&&&&&&MonitorKeyPress([],&KeyLifeAdd);&&&&end;&&&&Sleep(20);&&&&//&补宝宝血 &&&&if&((FBBLifeCurrent*100)&div&BB_LIFE_MAX)&&=&BBLifeMin&then&&&&begin&&&&&&MonitorKeyPress([],&KeyBBLifeAdd);&&&&end;&&&&Sleep(20);&&&&//&补任务魔法 &&&&if&((FMagicCurrent*100)&div&MAGIC_MAX)&&=&MagicMin&then&&&&begin&&&&&&MonitorKeyPress([],&KeyMagicAdd);&&&&end;&&end;&&procedure&PickG&&begin&&&&//&一定要在没有打怪状态 &&&&if¬&FIsFighting&then&&&&begin&&&&&&RandomFinderM&&&&&&MonitorMouseClick(2);&&&&&&Sleep(10);&&&&end;&&end;begin&&try&&&&FetchWindowImage(FSCBitMap);&&&&CalcFightS&&&&CalcCurrentP&&&&CalcQuestionS&&&&CalcLifeAndM&&&&//PickG(暂时不开启，有问题) &&&&FindM&&&&Sleep(20);&&&&FillLifeAndM&&&&//&启动报警程序 &&&&if&FIsNeedAnswerQT&and&(BeepThread&=&nil)&then&&&&&&TBeepThread.Create(50).R&&except&&end;end;function&TBackMainForm.TranslateWinHotKeyToLocal(&&HotKeyValue:&Cardinal):&Wvar&&ALWord,&AHWord:&Wbegin&&Result&:=&0;&&AHWord&:=&HiWord(HotKeyValue);&&ALWord&:=&HotKeyValue&and&$FFFF;&&if&ALWord&and&MOD_SHIFT&&&&0&then&&&&Result&:=&Result&+&scS&&if&ALWord&and&MOD_ALT&&&&0&then&&&&Result&:=&Result&+&scA&&if&ALWord&and&MOD_CO***OL&&&&0&then&&&&Result&:=&Result&+&scC&&Result&:=&Result&+&AHWend;procedure&TBackMainForm.WMHotKey(var&Message:&TMessage);var&&LocalKey:&Wbegin&&LocalKey&:=&TranslateWinHotKeyToLocal(Message.LParam);&&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F10&then&&begin&&&&//&系统开关 &&&&TimerFinder.Enabled&:=¬&TimerFinder.E&&&&Windows.Beep(3000,&100);&&end&else&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F11&then&&begin&&&&//&设置原点 &&&&FetchWindowImage(FSCBitMap);&&&&CalcCurrentP&&&&&&&&CenterPosX&:=&FCurGamePos.X;&&&&CenterPosY&:=&FCurGamePos.Y;&&&&Windows.Beep(2000,&100);&&&&Windows.Beep(2500,&100);&&end&else&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F12&then&&begin&&&&//&调出设置框 &&&&SysSetMenuItemClick(nil);&&end&else&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F1&then&&begin&&&&//&关闭线程 &&&&try&&&&&&if&Assigned(BeepThread)&then&&&&&&begin&&&&&&&&BeepThread.T&&&&&&end;&&&&except&&&&end;&&end&else&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F2&then&&begin&&&&SendFetionMsg('天龙八部助手测试!');&&end;end;{&TBeepThread&}constructor&TBeepThread.Create(BeepSecs:&Integer);begin&&inherited&Create(True);&&FreeOnTerminate&:=&T&&FBeepSecs&:=&BeepS&&//&记录自己 &&BeepThread&:=&Send;procedure&TBeepThread.Evar&&StartUnixTick:&Cbegin&&StartUnixTick&:=&DateTimeToUnix(Now);&&SyncSendFetionM&&while¬&Terminated&do&&begin&&&&if&DateTimeToUnix(now)&-&StartUnixTick&&&FBeepSecs&then&&&&&&B&&&&Windows.Beep(4000,&300);&&&&Sleep(700);&&end;&&BeepThread&:=&nil;end;procedure&TBeepThread.SyncSendFetionMbegin&&SendFetionMsg('TLBBHelper:&需要输入验证码!');end;end.
unit&GlobalDinterfaceuses&&W{&相关配置参数&}const&&LIFE_MAX&&&&&&&&=&124;&&MAGIC_MAX&&&&&&&=&124;&&BB_LIFE_MAX&&&&&=&96;&&QT_MIN_COLOR&=&$FAFAFA;&&QT_WIDTH&=&237;&&QT_HEIGHT&=&298;var&&FinderTimerMSec:&Integer&=&200;&&&&&//&系统Timer执行时间 &&LifeX:&Integer&=&64;&&&&&&&&&&&&&&&&//&人物生命值X坐标 &&LifeY:&Integer&=&32;&&&&&&&&&&&&&&&&//&人物生命值Y坐标 &&LifeColor:&Integer&=&0;&&&&&&&&&&&&&//&人物生命值取样颜色(加载时初始化) &&LifeMin:&Integer&=&50;&&&&&&&&&&&&&&//&人物生命最小百分比 &&MagicX:&Integer&=&64;&&&&&&&&&&&&&&&//&人物魔法值X坐标 &&MagicY:&Integer&=&38;&&&&&&&&&&&&&&&//&人物魔法值Y坐标 &&MagicColor:&Integer&=&0;&&&&&&&&&&&&//&人物魔法值取样颜色(加载时初始化) &&MagicMin:&Integer&=&50;&&&&&&&&&&&&&//&人物魔法最小百分比 &&BBLifeX:&Integer&=&91;&&&&&&&&&&&&&&//&宝宝生命值X坐标 &&BBLifeY:&Integer&=&71;&&&&&&&&&&&&&&//&宝宝生命值Y坐标 &&BBLifeColor:&Integer&=&0;&&&&&&&&&&&//&宝宝生命值取样颜色(加载时初始化) &&BBLifeMin:&Integer&=&30;&&&&&&&&&&&&//&宝宝生命最小百分比 &&MonsterLifeX:&Integer&=&247;&&&&&&&&//&怪物生命值X坐标 &&MonsterLifeY:&Integer&=&32;&&&&&&&&&//&怪物生命值Y坐标 &&MonsterLifeColor:&Integer&=&0;&&&&&&//&怪物生命值取样颜色(加载时初始化) &&CenterPosX:&Integer&=&185;&&&&&&&&&&//&自动打怪中心位置X坐标 &&CenterPosY:&Integer&=&215;&&&&&&&&&&//&自动打怪中心位置Y坐标 &&FinderMaxX:&Integer&=&100;&&&&&&&&&&//&自动打怪寻怪X轴距离最大值 &&FinderMinX:&Integer&=&30;&&&&&&&&&&&//&自动打怪寻怪X轴距离最小值 &&FinderMaxY:&Integer&=&100;&&&&&&&&&&//&自动打怪寻怪Y轴距离最大值 &&FinderMinY:&Integer&=&30;&&&&&&&&&&&//&自动打怪寻怪Y轴距离最小值 &&AvgKillMonsterSecs:&Integer&=&15;&&&//&平均每个怪的打怪时间(校正用) &&KeyLifeAdd:&Word&=&VK_F8;&&&&&&&&&&&//&人物加血键 &&KeyMagicAdd:&Word&=&VK_F9;&&&&&&&&&&//&人物加魔法键 &&KeyBBLifeAdd:&Word&=&VK_F10;&&&&&&&&//&宝宝加血键 &&PressKeyF1Secs:&Integer&=&10;&&&&&&&//&自动按F1键时间间隔 &&PressKeyF2Secs:&Integer&=&15;&&&&&&&//&自动按F2键时间间隔 &&PressKeyF3Secs:&Integer&=&40;&&&&&&&//&自动按F3键时间间隔 &&PressKeyF4Secs:&Integer&=&0;&&&&&&&&//&自动按F4键时间间隔 &&FetionWindowHandle:&Integer&=&0;&&FetionWindowIncText:&string&=&'--';&&FetionInputHandle:&Integer&=&0;&&FetionSendBtnHandle:&Integer&=&0;implementationend.
版权声明：本文为博主原创文章，未经博主允许不得
馆藏&23721
TA的最新馆藏
喜欢该文的人也喜欢后使用快捷导航没有帐号？
查看: 20006|回复: 3
新人欢迎积分1 阅读权限20积分21精华0UID帖子金钱50 威望0
Lv.2, 积分 21, 距离下一级还需 29 积分
UID帖子威望0 多玩草0 草
新天龙八部3 脚本免费 全后台 多开 自动打怪/跑商/大图/师门任务/采集/多开
脚本下载的地址
/s/1o6lWmpk
新人欢迎积分1 阅读权限20积分41精华0UID帖子金钱146 威望0
Lv.2, 积分 41, 距离下一级还需 9 积分
UID帖子威望0 多玩草0 草
欢迎大家加入QQ群
新人欢迎积分0 阅读权限1积分2精华0UID帖子金钱22 威望0
Lv.0, 积分 2, 距离下一级还需 3 积分
UID帖子威望0 多玩草0 草
送个免费的答题脚本
新人欢迎积分1 阅读权限20积分28精华0UID帖子金钱171 威望0
Lv.2, 积分 28, 距离下一级还需 22 积分
UID帖子威望0 多玩草0 草
全自动脚本进群下载&&
需要金钱：1100
手机盒子客户端点击或扫描下载
Powered by