 |
Цитата: |
 |
|
|
|
|
|
|
|
|
diagnost вот такую инфу могу дать на данный момент, бот работал около 30+ часов за это время выявил следующие моменты - бот после смерти перестает видеть мобов, в том плане что тупо летает промеж них пока не убьют, более того выделяя моба в таргет вручную он все равно не начинает атаку, это лечится только одним - перезапуском клиента. Так же появляется моб которого видит только этот бот ( пробовал другими подлетать к этому месту они его не видят там более старая версия которая без продажи ) у этого моба 0 хп тыкаю другого хп видит и идет бить, пэта после смерти тоже не призывает. Вот пока это нашел ) огромное спасибо за проделанную работу)
|
|
 |
|
 |
|
Этим дефектом и крази страдал у меня на нем работало до 8 персов(хороший бук у меня) каждые 12 часов мне приходилось его перезагружать из-за не хватки ресурсов бука. Когда 6 персов перезагружал раз в сутки. Когда синам подарили кражу интерес пропал к фарму таким методом. Начал ходить в гуй по еже до 2 один полной патей, и спасал меня крези, только из-за этого его начал реанимировать.
Вот файл который ссылался на .dll , то что перечеркнуто // все это пришлось писать заново. Так что все исходники, которые лежат тут, все они рабочие, те офзеты которые вынесены из программы, это только часть их, остальные все в программе включая инжекты. Если их все вытащить, что к чему будет не реально разобраться.
procedure InitDllClient(ProcessHandle: THandle; CodeListPath: String; CheckVersion: Boolean); external 'dllClient.dll' name 'Init';
procedure DoneDllClient; external 'dllClient.dll' name 'Done';
function MaxTimesSellAndRepair: dword; external 'dllClient.dll';
function hProcess: THandle; external 'dllClient.dll';
procedure SetProccessHandle(Value: THandle); external 'dllClient.dll';
function base_addr: dword; external 'dllClient.dll';
function game_addr: dword; external 'dllClient.dll';
function unfreeze_addr: dword; external 'dllClient.dll';
// function ParseAddress(Offsets: String; const CallProc: TCallProc = nil; const Params: Pointer = nil; const PageNo: Integer = 0): DWORD; external 'dllClient.dll';
// function ReadString(addr: int64): WideString; external 'dllClient.dll';
// function ChainReadInt32(addresses: array of DWORD): DWORD; external 'dllClient.dll';
// procedure ChainWriteInt32(addresses: array of DWORD; Value: DWORD); external 'dllClient.dll';
// function ReadSingle(addr: DWORD): Single; external 'dllClient.dll';
// function ReadInt32(addr: DWORD): DWORD; external 'dllClient.dll';
// function ReadInt16(addr: DWORD): WORD; external 'dllClient.dll';
// function ReadByte(addr: DWORD): Byte; external 'dllClient.dll';
procedure WriteSingle(addr: DWORD; Value: Single); external 'dllClient.dll';
// procedure WriteInt32(addr: DWORD; Value: DWORD); external 'dllClient.dll';
// procedure WriteInt16(addr: DWORD; Value: WORD); external 'dllClient.dll';
// procedure WriteByte(addr: DWORD; Value: Byte); external 'dllClient.dll';
// procedure WriteBytes(addr: DWORD; Values: array of byte); external 'dllClient.dll';
// function Packet(Packet: string): boolean; external 'dllClient.dll';
// function wValueToString(Value: WORD): String; external 'dllClient.dll';
// function dwValueToString(Value: DWORD): String; external 'dllClient.dll';
//procedure StrToByte(sPacket: string; var aPacket: TByteArray); external 'dllClient.dll';
// procedure LoadVariables; external 'dllClient.dll';
//function GetAddrByVariableName(VariableName: String; const Recalc: Boolean = False; const CallProc: TCallProc = nil; const Params: Pointer = nil): Int64; external 'dllClient.dll';
//function GetVariableCalcStringByName(VariableName: String): String; external 'dllClient.dll';
// procedure SetVariableCalcStringByName(VariableName: String; CalcString: String); external 'dllClient.dll';
// function GetdwVariableCalcStringByName(VariableName: String): DWORD; external 'dllClient.dll';
// function VariableExists(VariableName: String): Boolean; external 'dllClient.dll';
// procedure InjectFunc(ProcessID: Cardinal; Func, aParams: Pointer; aParamsSize: DWord); external 'dllClient.dll';
// function Walk(x, y, z: single; WalkMode: Byte): Boolean; external 'dllClient.dll';
// procedure PickWalk(WID, Typ: DWord; FlyID: DWord); external 'dllClient.dll';
// procedure TargetTo(WorldID: DWord); external 'dllClient.dll';
// procedure TargetZero; external 'dllClient.dll';
// procedure Fly(FlyID: DWord); external 'dllClient.dll';
// procedure useSkill(skillId, targetId: DWord); external 'dllClient.dll';
procedure usePetSkill(skillId, targetId: DWord); external 'dllClient.dll';
procedure useGenueSkill(skillId, targetId: DWord); external 'dllClient.dll';
// procedure Skill(skillId: DWord); external 'dllClient.dll';
procedure SetDefaultPetSkill(skillId: DWord); external 'dllClient.dll';
// procedure Assist(PersId: DWord); external 'dllClient.dll';
// procedure ChangeEquip(ItemNo: Byte; EquipNo: Byte); external 'dllClient.dll';
// procedure RepairAll; external 'dllClient.dll';
procedure RepairItem(ItemId, CellNum: dword; IsEquip: Boolean); external 'dllClient.dll';
// procedure TalkToNPC(NPCID: dword); external 'dllClient.dll';
// procedure CodeSell(ItemId, ItemCount, CellNum: dword); external 'dllClient.dll';
procedure Buy(ItemId, ItemCount, shopIndex: dword); external 'dllClient.dll';
/// procedure acceptQuest(questId: DWORD); external 'dllClient.dll';
// procedure UseItem(ItemId, CellNum: dword); external 'dllClient.dll';
// procedure Ataka; external 'dllClient.dll';
// procedure ExpToGenue(Exp: dword); external 'dllClient.dll';