Rus. server

[origmas]

- Äëÿ ÍÀ×ÀËÀ .. íà VC++ ýòî óæå ðàáîòàåò ..


#include "stdafx.h"
//#include "Bot.h"
//#include "BotDlg.h"
//#include "OptionDlg.h"
//#include "MonitorDlg.h"
//****************************************
#include <windows.h>
#include <iostream>

CString Client = "Element Client";
char BUF[64];

HWND Hwnd = NULL; //
DWORD Pid = NULL; //
HANDLE Proc = NULL; //
DWORD Buf = NULL; // Áóôåð (ïåðåä ÷ò.çí.ïàìÿòè Íóæíî îáÿç.ïðèðàâíèâàòü ê 0 èëè ê çíà÷åíèþ)
DWORD Base = 0x0098B47C; // 0098b47c 10007676 (ñòàðûé 0x009771bc 9925052) Áàçîâûé Àäðåñ Äàííûõ Êëèåíòà


// ÏÅÐÑÎÍÀÆ -----------------------------------------------------------------
DWORD Pers = NULL; // Àäð. Íà÷àëà äàííûõ Ïåðñà (BASE + 32)

CString ChName = ""; // Èìÿ Ïåðñà
DWORD _ChName = 0x5F4; // 1524 Ñìåùåíèå ê àäð. ïî êîò.ëåæèò Èìÿ Ïåðñà îò íà÷àëà äàííûõ Ïåðñà (PERS)

DWORD CharID = NULL; // ID Ïåðñà
DWORD _CharID = 0x450; // 1104 Ñìåùåíèå ê àäð.ID Ïåðñà

BYTE CharLEV = 0; // Çíà÷åíèå Óðîâíÿ Ïåðñà â Èãðå
DWORD _CharLEV = 0x45C; // 1116 Ñìåùåíèå ê àäð.Óðîâíÿ Ïåðñà

DWORD CharTID = NULL; // ID öåëè Ïåðñà (Ïðèöåë)
DWORD _CharTID = 0xADC; // 0x0ADC 2780 (ñòàðîå 0x0A68 2664) Ñìåùåíèå ê àäð.Ïðèöåëà Ïåðñà

float CharHP = 0.0; // Çíà÷åíèå Æèçíåííîé Ñèëû Ïåðñà (ìîæíî è DWORD - float ýòî äëÿ ñîãëàñîâàíèÿ ñ ïîêàçàíèåì % ïðîãðåññ-áàðà)
DWORD _CharHP = 0x464; // 1124 Ñìåùåíèå ê àäð.HP Ïåðñà
float CharMxHP = 0.0; // Çíà÷åíèå Ìàêñ.Æèçíåííîé Ñèëû Ïåðñà
DWORD _CharMxHP = 0x494; // 1172 Ñìåùåíèå ê àäð.Ìàêñ.HP Ïåðñà
float CharPrHP = 0.0; // Çíà÷åíèå Æèçíåííîé Ñèëû Ïåðñà â ïðîöåíòàõ

float CharMP = 0.0; // Çíà÷åíèå Ìàãè÷åñêîé Ýíåðãèè Ïåðñà
DWORD _CharMP = 0x468; // 1128 Ñìåùåíèå ê àäð.MP Ïåðñà
float CharMxMP = 0.0; // Çíà÷åíèå Ìàêñ.Ìàãè÷åñêîé Ýíåðãèè Ïåðñà
DWORD _CharMxMP = 0x498; // 1176 Ñìåùåíèå ê àäð.Ìàêñ.MP Ïåðñà
float CharPrMP = 0.0; // Çíà÷åíèå Ìàãè÷åñêîé Ýíåðãèè Ïåðñà â ïðîöåíòàõ
float CharDamage = 0.0; // Çíà÷åíèå íàíåñåííîãî Óùåðáà Ïåðñó â ïðîöåíòàõ

WORD CharX = 0; // Çíà÷åíèå Êîîðäèíàòû X Ïåðñà â Èãðå - ýòî êîîðäèíàòà â Èãðå - îíà öåëîå ÷èñëî
float CharXX = 0.0; // Çíà÷åíèå Êîîðäèíàòû X Ïåðñà â Ïàìÿòè Êëèåíòà - Äëÿ êîîðäèíàò â ïàìÿòè òî÷íî íóæåí float
DWORD _CharXX = 0x3C; // 60 Ñìåùåíèå ê àäð.Êîîðäèíàòû X Ïåðñà
WORD CharY = 0; // Çíà÷åíèå Êîîðäèíàòû Y Ïåðñà â Èãðå
float CharYY = 0.0; // Çíà÷åíèå Êîîðäèíàòû Y Ïåðñà â Ïàìÿòè
DWORD _CharYY = 0x44; // 68 Ñìåùåíèå ê àäð.Êîîðäèíàòû Y Ïåðñà
WORD CharZ = 0; // Çíà÷åíèå Êîîðäèíàòû Z Ïåðñà â Èãðå
float CharZZ = 0.0; // Çíà÷åíèå Êîîðäèíàòû Z Ïåðñà â Ïàìÿòè
DWORD _CharZZ = 0x40; // 64 Ñìåùåíèå ê àäð.Êîîðäèíàòû Z Ïåðñà

//---------------------------------------------------------------------------

// ÌÎÍÑÒÐ -------------------------------------------------------------------
// Base + 8 + 36 + 24 + .. Íà÷àëî äàííûõ Ìîáà èç çàïèñè => [BA] + 8 + 36 + 24 + (i * 4) + 4 + .. (ãäå i îò 0 äî 768)
DWORD Mobs = NULL; // Àäð. Íà÷àëà äàííûõ Ìîáà

CString MobName = ""; // Èìÿ Ìîáà
DWORD _MobName = 0x23c; // 572 + 0 Ñìåùåíèå ê àäð. ïî êîò.ëåæèò Èìÿ Ìîáà îò íà÷àëà äàííûõ Ìîáà (Mobs)

DWORD MobID = NULL; // ID Ìîáà
DWORD _MobID = 0x11C; // 284 Ñìåùåíèå ê àäð.ID Ìîáà

BYTE MobTP = 0; // Çíà÷åíèå Òèïà Ìîáà (6-ìîíñòð 7-NPS 9-ïèòîìåö)
DWORD _MobTP = 0xB4; // 180 Ñìåùåíèå ê àäð.Òèïà Ìîáà

BYTE MobLEV = 0; // Çíà÷åíèå Óðîâíÿ Ìîáà
DWORD _MobLEV = 0x124; // 292 Ñìåùåíèå ê àäð.Óðîâíÿ Ìîáà

DWORD MobTID = 0x0; // ID öåëè Ìîáà - Çàíÿò Ìîíñòð - TRUE
DWORD _MobTID = 0x2C4; // 708 Ñìåùåíèå ê àäð.Ïðèöåëà Ìîáà

float MobHP = 0.0; // Çíà÷åíèå Æèçíåííîé Ñèëû Ìîáà
DWORD _MobHP = 0x464; // 1124 ? Ñìåùåíèå ê àäð.HP Ìîáà
float MobMxHP = 0.0; // Çíà÷åíèå Ìàêñ.Æèçíåííîé Ñèëû Ìîáà
DWORD _MobMxHP = 0x498; // 1176 ? Ñìåùåíèå ê àäð.Ìàêñ.HP Ìîáà
float MobPrHP = 0.0; // Çíà÷åíèå Æèçíåííîé Ñèëû Ìîáà â ïðîöåíòàõ

WORD MobX = 0; // Çíà÷åíèå Êîîðäèíàòû X Ìîáà â Èãðå
float MobXX = 0.0; // Çíà÷åíèå Êîîðäèíàòû X Ìîáà â Ïàìÿòè Êëèåíòà
DWORD _MobXX = 0x3C; // 60 Ñìåùåíèå ê àäð.Êîîðäèíàòû X Ìîáà
WORD MobY = 0; // Çíà÷åíèå Êîîðäèíàòû Y Ìîáà â Èãðå
float MobYY = 0.0; // Çíà÷åíèå Êîîðäèíàòû Y Ìîáà â Ïàìÿòè
DWORD _MobYY = 0x44; // 68 Ñìåùåíèå ê àäð.Êîîðäèíàòû Y Ìîáà
WORD MobZ = 0; // Çíà÷åíèå Êîîðäèíàòû Z Ìîáà â Èãðå
float MobZZ = 0.0; // Çíà÷åíèå Êîîðäèíàòû Z Ìîáà â Ïàìÿòè
DWORD _MobZZ = 0x40; // 64 Ñìåùåíèå ê àäð.Êîîðäèíàòû Z Ìîáà

WORD MobDIS = 0; // Çíà÷åíèå Äèñòàíöèè äî Ìîáà â åäèíèöàõ êîîðäèíàò èãðû
float MobDDD = 0.0; // Çíà÷åíèå Äèñòàíöèè äî Ìîáà â Ïàìÿòè
DWORD _MobDIS = 0x260; // 608 Ñìåùåíèå ê àäð.Äèñòàíöèè äî Ìîáà

//---------------------------------------------------------------------------



bool CBotDlg::OpenProc() // Îòêðûòèå ïðîöåññà Êëèåíòà
{ Hwnd = ::FindWindow(NULL, Client); // Íàõîäèì îêíî Êëèåíòà
if(Hwnd) // Åñëè îêíî Êëèåíòà íàéäåíî
{ ::ShowWindow(Hwnd,TRUE); // Ïîêàçàòü îêíî
::SetForegroundWindow(Hwnd); // Îêíî íà ïåðåäíèé ïëàí
::SetWindowPos(Hwnd,0,256,0,1024,768,0); // Óñòàíîâèòü îêíî Èãðû 1024x768 â ïðàâ-âåðõí óãîë ýêðàíà
GetWindowThreadProcessId(Hwnd,&Pid); // Ïîëó÷àåì Process ID
if(Pid) // Åñëè ïîëó÷åí ID Ïðîöåññà
{ Proc = OpenProcess(PROCESS_ALL_ACCESS,0,Pid); // Ïîëó÷àåì äîñòóï ê ïðîöåññó
return true;
}
} // !!! Ôóíêöèþ ìîæíî çàïóñêàòü 1 ðàç ïðè îòêðûòèè Áîòà
MessageBox("Íå íàéäåíî îêíî Êëèåíòà","!!!");
return false;
}
//---------------------------------------------------------------------------
bool CBotDlg::GetInfo() // ×òåíèå îñíîâííûõ Äàííûõ
{ // ÷èòàåòñÿ ïðè çàïóñêå Áîòà è/èëè åñëè íàïð. èçìåíèëñÿ Óðîâåíü, ìàêñ.HP/MP Ïåðñà
BUF[0]=0;
ChName="";
if(Proc) // Åñëè Ïðîöåññ îòêðûò
{ // Íàõîäèì àäð.íà÷àëà äàííûõ î Ìîáàõ - Mobs
ReadProcessMemory(Proc,(LPCVOID) Base, &Buf, 4,0);// Buf - áóôåð êóäà êîïèðóþòñÿ äàííûå DWORD
ReadProcessMemory(Proc,(LPCVOID) (Buf+ 0x08), &Mobs, 4,0);// + 8 DWORD
ReadProcessMemory(Proc,(LPCVOID) (Mobs+ 0x24), &Buf, 4,0);// + 36
ReadProcessMemory(Proc,(LPCVOID) (Buf+ 0x18), &Mobs, 4,0);// + 24 - íà÷àëî äàííûõ î Ìîáàõ
// Íàõîäèì àäð.íà÷àëà äàííûõ î Ïåðñå - Pers
ReadProcessMemory(Proc,(LPCVOID) Base, &Buf, 4,0);// Buf - áóôåð êóäà êîïèðóþòñÿ äàííûå
ReadProcessMemory(Proc,(LPCVOID)(Buf+ 0x20), &Pers, 4,0);// Pers - íà÷àëî äàííûõ Ïåðñîíàæà DWORD
// ×èòàåì èíôó î Ïåðñå
for (i=0;i<64;i++) BUF[i]=0; // î÷èùàåì áóôåð äëÿ ÷òåíèÿ èìåíè
ReadProcessMemory(Proc,(LPCVOID)(Pers+_ChName), &BUF, 32,0);// Èìÿ
CharID=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharID), &CharID, 4,0);// ID DWORD
CharLEV=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharLEV), &CharLEV, 1,0);// Óðîâåíü BYTE
CharMxHP=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharMxHP),& CharMxHP, 4,0);// ìàêñ.Æèçíè float (DWORD)
CharMxMP=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharMxMP),& CharMxMP, 4,0);// ìàêñ.Ýíåðãèè float (DWORD)
// Ñêîððåêòèðóåì äàííûå
//for (i=0;i<16;i++) ChName += BUF[i];
//CloseHandle(Proc); // Çàêðûâàåì ïðîöåññ (åñëè íàäî)
// ÊÎÍÒÐÎËÜ ________________________________
inf=ChName;
tmp.Format(": ID = %x LEV = %d",CharID,CharLEV); inf+=tmp; // Ðàáîòàåò ...
SetDlgItemText(IDC_INF_REGION,inf);
// _________________________________________
return true;
}
MessageBox("Íå îïðåäåëåí ID Ïðîöåññà","!!!");
return false;
}
//---------------------------------------------------------------------------
bool CBotDlg::GetCharInfo() // ×òåíèå òåêóùèõ äàííûõ Ïåðñîíàæà
{ if(Proc)
{ // ×èòàåì äàííûå Ïåðñîíàæà
CharTID=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharTID),&C harTID, 4,0); // ID öåëè
CharHP=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharHP), &CharHP, 4,0); // Æèçíü (float) ìîæíî è DWORD - float ýòî äëÿ ñîãëàñîâàíèÿ ñ ïîêàçàíèåì % ïðîãðåññ-áàðà
CharMP=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharMP), &CharMP, 4,0); // Çíåðãèÿ (float)
CharXX=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharXX), &CharXX, 4,0); // X float
CharYY=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharYY), &CharYY, 4,0); // Y float
CharZZ=0;
ReadProcessMemory(Proc,(LPCVOID)(Pers+_CharZZ), &CharZZ, 4,0); // Z float
// Ñêîððåêòèðóåì äàííûå
CharPrHP = CharHP / CharMxHP * 100; // % Æèçíè float
CharPrMP = CharMP / CharMxMP * 100; // % Ýíåðãèè float
//CharDamage = Int(Int($LAST_HP_READ) - Int($HP)) // Óðîí float
CharX = 400 + CharXX / 10; // X â Èãðå WORD
CharY = 550 + CharYY / 10; // Y â Èãðå WORD
CharZ = CharZZ / 10; // Z â Èãðå WORD
// ÊÎÍÒÐÎËÜ ________________________________
inf=""; inf+="Ïåðñ: ";
tmp.Format(" TID = %x ",CharTID); inf+=tmp;
tmp.Format(" X = %d ",CharX); inf+=tmp;
//SetDlgItemText(IDC_INF_REGION,inf);
// _________________________________________
//CloseHandle(Proc); // Çàêðûâàåì ïðîöåññ (äëÿ ñëó÷àÿ åñëè ôóíê-èÿ áóäåò èñïîëüçîâàòüñÿ îäíëêðàòíî)
return true;
}
MessageBox("Íå îòêðûò Ïðîöåññ Êëèåíòà","!!!");
return false;
}
//---------------------------------------------------------------------------
void CBotDlg::OnTimer(UINT nIDEvent) // Êàæäóþ ñåêóíäó ..
{ if(Proc)
{ if(GetCharInfo())
{ // Âûâîä HP% è MP% Ïåðñà
m_cPrHp.SetPos(static_cast<int>(CharPrHP));
m_cPrMp.SetPos(static_cast<int>(CharPrMP));
prog.Format("%d %%", static_cast<int>(CharPrHP));
m_cLabPrHp.SetWindowText(prog);
prog.Format("%d %%", static_cast<int>(CharPrMP));
m_cLabPrMp.SetWindowText(prog); // SetDlgItemInt(IDC_LAB_HP,CharMxHP);
// ..
}
Invalidate(); // Îáíîâëåíèå Òàéìåðà òîëüêî ïðè îòêðûòîì Ïðîöåññå
}
// ...
}


---- ðåàëèçàöèÿ:

OpenProc()
GetInfo()
GetCharInfo()
ïîòîì êàæä ñåê ïî òàéìåðó âûâîäèòñÿ â ïðîãðåññ-áàð êàê â èãðå ïîëîñêàìè - ïîêàçàòåëè HP/MP Ïåðñà

ïðè âûõëîäå èç Áîòà - //CloseHandle(Proc); // Çàêðûâàåì ïðîöåññ

[zachelovek]

Originally Posted by origmas

- Äëÿ ÍÀ×ÀËÀ .. íà VC++ ýòî óæå ðàáîòàåò ..


[/COLOR] // Çàêðûâàåì ïðîöåññ

ýòî ãîòîâûé êîä áîòà? åñëè äà, òî ìîæíî ñêîìïèëèðîâàíûé exe?

[origmas]

Стартовый Проект на VC++ 6.0 - это не VC++ 2005-2008 - в 6-ом свое правило составления проектов, поэтому если будете пробывать то нужен именно 6-ой Визуал - он небольшой 170 мегов - всюду можно скачать с Инета, к нему еще надо будет библу красивых элементов управления ActivX Control скачать тоже есть в Инете. Тем кто осваивают 8-9 Визуал - нужно будет переводить проект на них
Конечно это не то, что у меня есть в полном объеме, потому-что не все там налажено на 100%, а выложил то что работает и с простыми элементами управления, конечно недоделки - каждый доделает сам, лучше ведь можно сделать и нужно делать лучше - я не специалист какой-нить, но многие не знают с чего начать строить проект - пусть эта моя работа будет им отправной точкой .. надеюсь меня не будут обсуждать, потому-что обсуждать можно любой код, даже если его написал-бы - Профи ..))

..PS.. в папке Release есть EXE-шка проекта - это не готовый Бот - это начальный этап разработки..

[sumikot]

Качаю... Может, кому тоже пригодится VC 6.0 -
Не я ложил, поэтому проверяйте.
Origmas, если не трудно, обьясни отличия 6-го от 2008. У меня было мнение, что существует совместимость сверху вниз, но ты ее только что опроверг... Стоит 2008, через минут 40 докачаю 6.0, попробую открыть и там и там.
Попробовал открыть в 2008 как проект - пишет файл повлежден, значит, совместимости нет...

[origmas]

Originally Posted by sumikot

... áûëî ìíåíèå, ÷òî ñóùåñòâóåò ñîâìåñòèìîñòü ñâåðõó âíèç

ßçûê ïðîãðàììèðîâàíèÿ âåçäå îäèí Ñ++ íî ñóùåñòâóþò ðàçíûå ñðåäû ðàçðàáîòêè Borland, VC++ 6, VC++ 8 ....
Âñþäó ñâîå óñòðîéñòâî ïðîåêòà, ñâîè çàãîëîâî÷íûå ôàéëû - ñâîÿ êîìïàíîâêà ðåññóðñîâ (ïàíåëåé, ýëåìåíòîâ, èçîáðàæåíèé).
Î÷åíü òðóäíî ïåðåâåñòè ïðîåêò èç îäíîé ñðåäû â äðóãóþ - íåò íèêàêîé ñîâìåñòèìîñòè ... Òîëüêî ðóêàìè ...

[AlexGD]

Ориг... Просто интересно - что тебя побудило писать именно на VC++ 6? ЕМНИП там жуткий мозготрах с юникодом...

[origmas]

Originally Posted by AlexGD

÷òî òåáÿ ïîáóäèëî ïèñàòü èìåííî íà VC++ 6?

Íè Ðóññêèå, íè Êèòàéöû, íè Àíãëè÷àíå - íèêîãäà íå ñòðàäàëè îò òîãî ÷òî îíè ðàçãîâàðèâàþò íà ñâîåì ÿçûêå - ýòî íèêàê íå ïîðòèò èõ æèçíü è ðàçâèòèå ... Íå óíèæàåò, íå îãðàíè÷èâàåò è íå ìîçãîòðàõàåò ..

[AlexGD]

Да нп Просто мне для работы над этой задачей пришлось слезть со своего любимого Delphi7. Я-то победил и в нем все проблемы - но это оказалось гораздо неудобнее, чем пользоваться D2010.

[origmas]

Originally Posted by AlexGD

Да нп Просто мне для работы .....

а нам всегда или Х... длиннен или рубашка коротка ..))
именно надо работать а не приспосабливаться .. Дельфи рулил и будет рулить - Отличная среда разработки, гибкий Язык, много запчастей нв любой СТО ..

[AlexGD]

Хочу сказать огромное спасибо всем в этой ветке, а также многим другим людям, которые, выложив свой код в свободный доступ, помогли разобраться с тонкостями взаимодействия с чужими процессами. Эти задачки доставили мне уйму занимательного времени изучения чего-то нового.

В результате выродилось у меня некое чудо.

Что это? Это stand-alone швейцарский ножик для работы с элемент-клиентом. Например:

"Хочу получить окно клиента!"

var
  aPWWindow: TaPWWindow;
  CurrentHandle, PreviousHandle : HWND;
begin
    aPWT.FindClientWindow(0, '', CurrentHandle, aPWWindow);
    ShowMessage(aPWWindow.Name);

Имею всю информацию об окне.

"Хочу знать кто в локе!"

var
  aPlayersArray: TaPlayersArray;
begin
    aPlayersArray := aPWT.GetLocationPlayers(aPWWindow.aProcessID);

"Хочу прыгнуть!"

  aPWT.Jump(aPWWindow.aProcessID);

Ну и т.д. и т.п. Файл постарался детально откомментировать.

Главная задача, которая здесь решена - мультиоконность и осутствие предопределенных внутри констант. Все необходимые адреса - в aPWTools.ini

Ну, в общем, работа начата, но еще далека до завершения. У меня тупо нет времени над этим серьезно работать ((( Если кому пригодится - пользуйтесь на здоровье. Все, что буду добавлять в него - буду обновлять и сообщать об этом. Но надеяться на скорые обновления не стоит...

Еще раз всем спасибо за помощь!

[AlexGD]

Не могу наваять инжект закрытия окна НПС... Адрес есть, что делать вроде как понимаю... А клиент выносиццо... Может кто помочь с асмом?

[silkytail]

Originally Posted by origmas

именно надо работать а не приспосабливаться .. Дельфи рулил и будет рулить - Отличная среда разработки, гибкий Язык, много запчастей нв любой СТО ..

Только у него одна проблема - как коммерческая платформа для разработки дельфи давно умер, и будущего у него нет никакого, кроме как для обучения студентов лепить формочки.

[dj_al]

Originally Posted by silkytail

Только у него одна проблема - как коммерческая платформа для разработки дельфи давно умер, и будущего у него нет никакого, кроме как для обучения студентов лепить формочки.

Оппа!!! А мужики то и не знают... Пишут себе и пишут на Delphi, себе в удовольствие и на радость клиентов...
Чего в нём такого нет, что таки архи-нужно для современной разработки?

[origmas]

Открывать процессы - умеет - создавать потоки умеет, мозговые извилины моделировать может .. что еще не хватает для Бота ..
А куда денишься если с студенческой скамьи приучают к Паскалю ..
Другое дело если голова не забита еще никакими языками - тут - да лучше с С++ начинать, но опять-же это просто мое мнение и совет тут даст только опытный человек, прошедший через всЁ ..

[silkytail]

Originally Posted by dj_al

Îïïà!!! À ìóæèêè òî è íå çíàþò... Ïèøóò ñåáå è ïèøóò íà Delphi, ñåáå â óäîâîëüñòâèå è íà ðàäîñòü êëèåíòîâ...

Íó âîò ïóñòü çíàþò. Ñïðîñ íà ðûíêå äåëüôè-ïðîãðàììèñòîâ êîëåáëåòñÿ íà óðîâíå òðåõ ïðîöåíòîâ è ïîñòîÿííî ïàäàåò.

×åãî â í¸ì òàêîãî íåò, ÷òî òàêè àðõè-íóæíî äëÿ ñîâðåìåííîé ðàçðàáîòêè?

Ýòî íå êî ìíå âîïðîñ