天龙八部自动答题器下载|天龙八部自动答题器7.2.6
绿色版-东坡下载
东坡下载：内容最丰富最安全的下载站！
→ 天龙八部自动答题器 7.2.6
其实在天龙这个游戏里面总是会有很多答题的机会，而且奖励很好，可惜就是怎么也答不好，这时可以用天龙八部自动，就能自动帮你完美的答题，让你自己排名就是最靠前的，而且这个还添加了自动打怪功能，欢迎大家来下载！天龙八部自动答题器怎么用天龙八部自动答题器软件功能1、支持自动使用药品、珍兽滋补丹等2、支持断线重连3、支持自动坐骑、用土灵珠、定位符4、支持所有物品过滤、***5、自动答题6、支持宣战、人物死亡、进监狱、答题等报警，支持报警音乐修改。7、自动显示宵小出现的门派8、支持自动更新，不需要每次都下新版本。9、支持所有功能的连续动作功能，跑完刷去刷怪。。刷完怪去采集等。10、支持脚本内、外充值11、支持脚本和游戏客户端分离，脚本可以在“特殊”设置里单独关闭。12、支技马贼信息显示13、支持用户推荐系统，老用户实惠多多。天龙八部自动答题器怎么用天龙八部自动答题器使用方法1、先进入游戏，打开软件，选择“答题”，输入密码串（可以到答题官网查询），在点击【确定导入】2、这时选择“保存设置”，点击【启动】游戏里面的设置说明
安卓官方手机版
IOS官方手机版
天龙八部自动答题器截图
《天龙八部》系列是搜狐畅游自主研发的武侠网游巨作，以其曲折动人的剧情故事和诸多独创性玩法震撼全球武侠玩家。为了缓解大家在玩游戏时的枯燥操作，东坡特地为大家准备了一批天龙八部辅助，专为天龙八部游戏而设计...
中文 / 4.0M天龙八部的辅助一般都为后台脚本
中文 / 4.1M游戏中经常有些玩家为了找相关辅
中文 / 2.1M天龙八部小甲鱼脚本其实就是现在
中文 / 2.2M新天龙八部3脚本简单百宝箱是一款
中文 / 3.1M天龙魔盒是专为天龙八部3设计的一
中文 / 171.7M天龙八部3d是最近出品的经典手机
天龙八部自动答题器 7.2.6
本类最新软件
中国CZ88.NET 网友 客人 发表于:
答题由信诺打码提供，支持唯美版跟经典版2个版本的答题
本类软件推荐
489KB / 05-26 / 5.9.0官方最新版
2.1M / 05-24 / 5.6.电脑版
36.4M / 05-19 / 6.3.1.0官方最新版
25.0M / 05-15 / 5.3.117.9800 官方正式版
6.7M / 05-12 / 3.6.6.17官方免费版
本类软件排行
本类软件必备
压缩阅读卸载恢复
请简要描述您遇到的错误，我们将尽快予以修正。
轮坛转帖HTML方式
轮坛转帖UBB方式5504人阅读
& 最近玩了玩天龙八部，玩这个游戏简直就是遭罪，升级非常慢，而且杀怪也很累，纯手工，我都不知道为什么还有那么多人玩。玩到40多级了，实在是受不了，游戏的颜色搭配也是非常的伤眼睛，于是我就想写一个自动打怪的辅助工具得了。
& 接下来我就花了1天多的时间写了程序。有自动寻怪、自动加血、自动加蓝、自动释放技能、防外挂答题报警（利用Fetion发送短信到手机）。有了这个工具后我就可以挂上，关掉电脑，需要答题的时候就来答一下题。
附上主要代码（有需要代码邮件和我联系吧：）：
unit&BackMainF
&&Windows,&Messages,&SysUtils,&Variants,&Classes,&Graphics,&Controls,&Forms,
&&Dialogs,&ExtCtrls,&Menus,&GlobalDefs,&StdC
&&TNumItem&=&record
&&&&StartCol:&B
&&&&EndCol:&B
&&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);
&&&&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
&&&&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);
&&TBeepThread&=&class(TThread)
&&&&FBeepSecs:&I
&&&&procedure&SyncSendFetionM
&&protected
&&&&procedure&E&
&&&&constructor&Create(BeepSecs:&Integer);
procedure&SendFetionMsg(const&Msg:&string);
&&BackMainForm:&TBackMainF
implementation
uses&SystemSetFrm,&BcConfigMgr,&PisConfig,&VirtualKeys,&FetchWindow,&Math,
{$R&*.dfm}
&&BeepThread:&TBeepThread&=&nil;
procedure&SendFetionMsg(const&Msg:&string);
&&if&FetionWindowHandle&&&&0&then
&&&&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);
procedure&TBackMainForm.GetNumList(BitMap:&TB&var&NumAry:&TNumItemAry);
&&procedure&FetchStartCol(var&LoopVar:&I&BackColor:&Integer);
&&&&while&(LoopVar&&&BitMap.Width)&do
&&&&&&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
&&&&&&&&&&
&&&&&&Inc(LoopVar);
&&procedure&FetchEndCol(var&LoopVar:&I&BackColor:&Integer);
&&&&while&(LoopVar&&&BitMap.Width)&do
&&&&&&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
&&&&&&Inc(LoopVar);
&&BackColor:&I
&&StartCol,&EndCol:&B
&&BackColor&:=&BitMap.Canvas.Pixels[0,&0];
&&while&I&&&BitMap.Width&do
&&&&FetchStartCol(I,&BackColor);
&&&&if&I&&=&BitMap.Width&then
&&&&StartCol&:=&I;
&&&&FetchEndCol(I,&BackColor);
&&&&if&I&&=&BitMap.Width&then
&&&&EndCol&:=&I&-&1;
&&&&SetLength(NumAry,&Length(NumAry)&+&1);
&&&&NumAry[High(NumAry)].StartCol&:=&StartC
&&&&NumAry[High(NumAry)].EndCol&:=&EndC
procedure&TBackMainForm.InitializeLifeAndMagicC
&&if&LifeColor&=&0&then
&&&&LifeColor&:=&FSCBitMap.Canvas.Pixels[LifeX,&LifeY];
&&if&MagicColor&=&0&then
&&&&MagicColor&:=&FSCBitMap.Canvas.Pixels[MagicX,&MagicY];
&&BBLifeColor&:=&LifeC
&&MonsterLifeColor&:=&LifeC
procedure&TBackMainForm.AnalyseNum(ABitmap:&TB&NumAry:&TNumItemA
&&List:&TStringList);
&&function&SameNum(const&NumItem:&TNumI&Num:&Integer):&B
&&&&J,&K:&I
&&&&RealWidth:&I
&&&&RefIsBgColor,&IsBgColor:&B
&&&&LRefBgColor,&LBgColor:&I
&&&&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
&&&&&&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;
&&function&GetStringNum(const&NumItem:&TNumItem):&string;
&&&&Result&:=&'';
&&&&for&I&:=&0&to&9&do
&&&&&&if&SameNum(NumItem,&I)&then
&&&&&&begin
&&&&&&&&Result&:=&IntToStr(I);
&&&&&&end;
&&LNumStr,&TmpStr:&string;
&&LNumStr&:=&'';
&&for&I&:=&0&to&High(NumAry)&do
&&&&TmpStr&:=&GetStringNum(NumAry[I]);
&&&&if&TmpStr&&&&''&then
&&&&&&LNumStr&:=&LNumStr&+&TmpS
&&&&if&I&&&High(NumAry)&then
&&&&&&if&(NumAry[I+1].StartCol&-&NumAry[I].EndCol)&&&8&then
&&&&&&begin
&&&&&&&&List.Add(LNumStr);
&&&&&&&&LNumStr&:=&'';
&&&&&&end;
&&List.Add(LNumStr);
procedure&TBackMainForm.AutoPressMagicK
&&if&PressKeyF1Secs&&&&0&then
&&&&if&(DateTimeToUnix(Now)&-&FPressF1UnixTick)&&&PressKeyF1Secs&then
&&&&&&MonitorKeyPress([],&VK_F1);
&&&&&&FPressF1UnixTick&:=&DateTimeToUnix(Now);
&&&&&&Sleep(10);
&&if&PressKeyF2Secs&&&&0&then
&&&&if&(DateTimeToUnix(Now)&-&FPressF2UnixTick)&&&PressKeyF2Secs&then
&&&&&&MonitorKeyPress([],&VK_F2);
&&&&&&FPressF2UnixTick&:=&DateTimeToUnix(Now);
&&&&&&Sleep(10);
&&if&PressKeyF3Secs&&&&0&then
&&&&if&(DateTimeToUnix(Now)&-&FPressF3UnixTick)&&&PressKeyF3Secs&then
&&&&&&MonitorKeyPress([],&VK_F3);
&&&&&&FPressF3UnixTick&:=&DateTimeToUnix(Now);
&&&&&&Sleep(10);
&&if&PressKeyF4Secs&&&&0&then
&&&&if&(DateTimeToUnix(Now)&-&FPressF4UnixTick)&&&PressKeyF4Secs&then
&&&&&&MonitorKeyPress([],&VK_F4);
&&&&&&FPressF4UnixTick&:=&DateTimeToUnix(Now);
&&&&&&Sleep(10);
&&end;&&&&
procedure&TBackMainForm.CalcCurrentP
&&LBitMap:&TB
&&NumAry:&TNumItemA
&&StrList:&TStringL
&&LBitMap&:=&TBitmap.C
&&StrList&:=&TStringList.C
&&&&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
&&&&AnalyseNum(LBitMap,&NumAry,&StrList);
&&&&FCurGamePos.X&:=&StrToInt(StrList[0]);
&&&&FCurGamePos.Y&:=&StrToInt(StrList[1]);
&&&&StrList.F
&&&&LBitMap.F
procedure&TBackMainForm.CalcFightS
&&FIsFighting&:=
&&&&FSCBitMap.Canvas.Pixels[MonsterLifeX,&MonsterLifeY]&=&MonsterLifeC
procedure&TBackMainForm.CalcLifeAndM
&&InitializeLifeAndMagicC
&&FLifeCurrent&:=&0;
&&while&True&do
&&&&if&GetRValue(FSCBitMap.Canvas.Pixels[LifeX+I,&LifeY])&&&&GetRValue(LifeColor)&then
&&&&Inc(I);
&&&&Inc(FLifeCurrent);
&&FMagicCurrent&:=&0;
&&while&True&do
&&&&if&GetBValue(FSCBitMap.Canvas.Pixels[MagicX+I,&MagicY])&&&&GetBValue(MagicColor)&then
&&&&Inc(I);
&&&&Inc(FMagicCurrent);
&&FBBLifeCurrent&:=&0;
&&while&True&do
&&&&if&GetRValue(FSCBitMap.Canvas.Pixels[BBLifeX+I,&BBLifeY])&&&&GetRValue(BBLifeColor)&then
&&&&Inc(I);
&&&&Inc(FBBLifeCurrent);
procedure&TBackMainForm.CalcQuestionS
&&function&IsValidPoint(X,&Y:&Integer):&B
&&&&AColor:&TC
&&&&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));
&&function&IsValidQuestion(X,&Y:&Integer):&B
&&&&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);
&&if&(DateTimeToUnix(Now)&-&FLastCalcAnswerUnixTick)&&&5&then
&&FLastCalcAnswerUnixTick&:=&DateTimeToUnix(Now);
&&FIsNeedAnswerQT&:=&F
&&for&I&:=&0&to&(FSCBitMap.Width&div&2)&-&1&do
&&&&for&J&:=&0&to&(FSCBitMap.Height&div&2)&-&1&do
&&&&&&if&IsValidPoint(I,&J)&then
&&&&&&begin
&&&&&&&&if&IsValidQuestion(I,&J)&then
&&&&&&&&begin
&&&&&&&&&&FIsNeedAnswerQT&:=&T
&&&&&&&&&&E
&&&&&&&&end;
&&&&&&end;
procedure&TBackMainForm.CreateNumBitmapA
&&for&I&:=&0&to&9&do
&&&&FNumBitMapAry[I]&:=&TBitmap.C
&&&&FNumBitMapAry[I].PixelFormat&:=&pf24
procedure&TBackMainForm.DestroyNumBitmapA
&&for&I&:=&0&to&9&do
&&&&FNumBitMapAry[I].F
procedure&TBackMainForm.ExitSysMenuItemClick(Sender:&TObject);
&&if&Application.MessageBox('确实要退出?',&'提示信息',
&&&&MB_YESNO&+&MB_ICONQUESTION)&=&mrYes&&then
&&&&Application.T
procedure&TBackMainForm.FormCreate(Sender:&TObject);
&&procedure&LoadC
&&&&FetionWindowIncText&:=&ConfigMgr.FetionWindowT
&&&&FetionWindowHandle&:=&ConfigMgr.FetionWindowH
&&&&FetionInputHandle&:=&ConfigMgr.FetionInputWindowH
&&&&FetionSendBtnHandle&:=&ConfigMgr.FetionSendBtnWindowH
&&FSCBitMap&:=&TBitmap.C
&&FFightUnixTick&:=&0;
&&MainTray.Hint&:=&'天龙八部自助打怪&1.0';
&&CreateNumBitmapA
&&LoadNumBitmapAry('./DigitalImages/');
&&RegisterHotK
&&FCurGamePos.X&:=&0;
&&FCurGamePos.Y&:=&0;
&&TimerFinder.Interval&:=&FinderTimerMS
procedure&TBackMainForm.FormDestroy(Sender:&TObject);
&&FSCBitMap.F
&&DestroyNumBitmapA
procedure&TBackMainForm.LoadNumBitmapAry(const&DirPath:&string);
&&for&I&:=&0&to&9&do
&&&&FNumBitMapAry[I].LoadFromFile(Format('%s%d.bmp',&[DirPath,&I]));
procedure&TBackMainForm.MainTrayClick(Sender:&TObject);
&&BackMainForm.S
procedure&TBackMainForm.RegisterHotK
&&GlobalId:&W
&&AModifiers:&C
&&AModifiers&:=&MOD_CO***OL&+&MOD_ALT;;
&&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF10'));
&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F10);
&&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF11'));
&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F11);
&&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF12'));
&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F12);
&&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF1'));
&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F1);
&&GlobalId&:=&GlobalAddAtom(PChar('HotKey_TLBBHelperF2'));
&&RegisterHotKey(Self.Handle,&GlobalId,&AModifiers,&VK_F2);&&
procedure&TBackMainForm.SysSetMenuItemClick(Sender:&TObject);
&&OldState:&B
&&if&TSystemSetForm.IsExist&then&E
&&OldState&:=&TimerFinder.E
&&TimerFinder.Enabled&:=&F
&&with&TSystemSetForm.Create(Self)&do
&&&&if&ShowModal&=&mrOk&then
&&&&&&TimerFinder.Interval&:=&FinderTimerMS
&&TimerFinder.Enabled&:=&OldS
procedure&TBackMainForm.TimerFinderTimer(Sender:&TObject);
&&procedure&RandomFinderM
&&&&X,&Y:&I
&&&&if&FCurGamePos.X&&&CenterPosX&then
&&&&&&X&:=&RandomRange(FinderMinX,&FinderMaxX)
&&&&&&X&:=&RandomRange(-FinderMaxX,&-FinderMinX);
&&&&if&FCurGamePos.Y&&&CenterPosY&then
&&&&&&Y&:=&RandomRange(FinderMinY,&FinderMaxY)
&&&&&&Y&:=&RandomRange(-FinderMaxY,&-FinderMinY);
&&&&X&:=&Screen.Width&div&2&+&X;
&&&&Y&:=&Screen.Height&div&2&+&Y;
&&&&MonitorMouseMove(X,&Y);
&&&&Sleep(10);
&&procedure&FindM
&&&&if¬&FIsFighting&then
&&&&&&FFightUnixTick&:=&0;
&&&&&&RandomFinderM
&&&&&&MonitorMouseClick(1);
&&&&end&else
&&&&&&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;
&&procedure&FillLifeAndM
&&&&if&((FLifeCurrent*100)&div&LIFE_MAX)&&=&LifeMin&then
&&&&&&MonitorKeyPress([],&KeyLifeAdd);
&&&&Sleep(20);
&&&&if&((FBBLifeCurrent*100)&div&BB_LIFE_MAX)&&=&BBLifeMin&then
&&&&&&MonitorKeyPress([],&KeyBBLifeAdd);
&&&&Sleep(20);
&&&&if&((FMagicCurrent*100)&div&MAGIC_MAX)&&=&MagicMin&then
&&&&&&MonitorKeyPress([],&KeyMagicAdd);
&&procedure&PickG
&&&&if¬&FIsFighting&then
&&&&&&RandomFinderM
&&&&&&MonitorMouseClick(2);
&&&&&&Sleep(10);
&&&&FetchWindowImage(FSCBitMap);
&&&&CalcFightS
&&&&CalcCurrentP
&&&&CalcQuestionS
&&&&CalcLifeAndM
&&&&Sleep(20);
&&&&FillLifeAndM
&&&&if&FIsNeedAnswerQT&and&(BeepThread&=&nil)&then
&&&&&&TBeepThread.Create(50).R
function&TBackMainForm.TranslateWinHotKeyToLocal(
&&HotKeyValue:&Cardinal):&W
&&ALWord,&AHWord:&W
&&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&+&AHW
procedure&TBackMainForm.WMHotKey(var&Message:&TMessage);
&&LocalKey:&W
&&LocalKey&:=&TranslateWinHotKeyToLocal(Message.LParam);
&&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F10&then
&&&&TimerFinder.Enabled&:=¬&TimerFinder.E
&&&&Windows.Beep(3000,&100);
&&end&else&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F11&then
&&&&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
&&&&SysSetMenuItemClick(nil);
&&end&else&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F1&then
&&&&&&if&Assigned(BeepThread)&then
&&&&&&begin
&&&&&&&&BeepThread.T
&&&&&&end;
&&&&except
&&end&else&if&LocalKey&=&scCtrl&+&scAlt&+&VK_F2&then
&&&&SendFetionMsg('天龙八部助手测试!');
constructor&TBeepThread.Create(BeepSecs:&Integer);
&&inherited&Create(True);
&&FreeOnTerminate&:=&T
&&FBeepSecs&:=&BeepS
&&BeepThread&:=&S
procedure&TBeepThread.E
&&StartUnixTick:&C
&&StartUnixTick&:=&DateTimeToUnix(Now);
&&SyncSendFetionM
&&while¬&Terminated&do
&&&&if&DateTimeToUnix(now)&-&StartUnixTick&&&FBeepSecs&then
&&&&Windows.Beep(4000,&300);
&&&&Sleep(700);
&&BeepThread&:=&nil;
procedure&TBeepThread.SyncSendFetionM
&&SendFetionMsg('TLBBHelper:&需要输入验证码!');
unit&GlobalD
&&LIFE_MAX&&&&&&&&=&124;
&&MAGIC_MAX&&&&&&&=&124;
&&BB_LIFE_MAX&&&&&=&96;
&&QT_MIN_COLOR&=&$FAFAFA;
&&QT_WIDTH&=&237;
&&QT_HEIGHT&=&298;
&&FinderTimerMSec:&Integer&=&200;&&&&&
&&LifeX:&Integer&=&64;&&&&&&&&&&&&&&&&
&&LifeY:&Integer&=&32;&&&&&&&&&&&&&&&&
&&LifeColor:&Integer&=&0;&&&&&&&&&&&&&
&&LifeMin:&Integer&=&50;&&&&&&&&&&&&&&
&&MagicX:&Integer&=&64;&&&&&&&&&&&&&&&
&&MagicY:&Integer&=&38;&&&&&&&&&&&&&&&
&&MagicColor:&Integer&=&0;&&&&&&&&&&&&
&&MagicMin:&Integer&=&50;&&&&&&&&&&&&&
&&BBLifeX:&Integer&=&91;&&&&&&&&&&&&&&
&&BBLifeY:&Integer&=&71;&&&&&&&&&&&&&&
&&BBLifeColor:&Integer&=&0;&&&&&&&&&&&
&&BBLifeMin:&Integer&=&30;&&&&&&&&&&&&
&&MonsterLifeX:&Integer&=&247;&&&&&&&&
&&MonsterLifeY:&Integer&=&32;&&&&&&&&&
&&MonsterLifeColor:&Integer&=&0;&&&&&&
&&CenterPosX:&Integer&=&185;&&&&&&&&&&
&&CenterPosY:&Integer&=&215;&&&&&&&&&&
&&FinderMaxX:&Integer&=&100;&&&&&&&&&&
&&FinderMinX:&Integer&=&30;&&&&&&&&&&&
&&FinderMaxY:&Integer&=&100;&&&&&&&&&&
&&FinderMinY:&Integer&=&30;&&&&&&&&&&&
&&AvgKillMonsterSecs:&Integer&=&15;&&&
&&KeyLifeAdd:&Word&=&VK_F8;&&&&&&&&&&&
&&KeyMagicAdd:&Word&=&VK_F9;&&&&&&&&&&
&&KeyBBLifeAdd:&Word&=&VK_F10;&&&&&&&&
&&PressKeyF1Secs:&Integer&=&10;&&&&&&&
&&PressKeyF2Secs:&Integer&=&15;&&&&&&&
&&PressKeyF3Secs:&Integer&=&40;&&&&&&&
&&PressKeyF4Secs:&Integer&=&0;&&&&&&&&
&&FetionWindowHandle:&Integer&=&0;
&&FetionWindowIncText:&string&=&'--';
&&FetionInputHandle:&Integer&=&0;
&&FetionSendBtnHandle:&Integer&=&0;
implementation
&&相关文章推荐
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：145629次
积分：2004
积分：2004
排名：第17883名
原创：48篇
转载：28篇
评论：21条
(1)(1)(1)(3)(1)(1)(1)(2)(1)(3)(1)(4)(1)(1)(1)(1)(1)(1)(7)(9)(1)(1)(2)(4)(2)(1)(1)(1)(2)(1)(1)(1)(14)(2)