[Статья] Пишем простой Auto-Potter для Perfect World [Delphi 7] - Страница 2 - Zhyk.Ru Forums
Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.Ru LIVE! Реклама на Zhyk.Ru Доска почета top.zhyk.ru (beta) Премиум-аккаунт

Пишем простой Auto-Potter для Perfect World [Delphi 7]

-

Разработка ПО для Perfect World

- Бюро разработчиков Zhyk.Ru: создание ботов, снифферов и прочих программ для Perfect World

Ответ
 
Опции темы Опции просмотра
Старый 12.01.2012, 17:14   #16
 Разведчик
Аватар для BeniRey
 
BeniRey никому не известный тип
Регистрация: 22.10.2011
Сообщений: 26
Популярность: 12
Сказал(а) спасибо: 1
Поблагодарили 1 раз в 1 сообщении
Отправить сообщение для BeniRey с помощью ICQ
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Спасибо большое, за подсказки все очень хорошо работает!!
  Ответить с цитированием
Старый 03.03.2012, 16:51   #17
Заблокирован
 Пехотинец
Аватар для =PaLeTiZaToR=
 
=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса=PaLeTiZaToR= троюродный дядя Чака Норриса
Регистрация: 02.04.2011
Сообщений: 66
Популярность: 9953
Сказал(а) спасибо: 898
Поблагодарили 412 раз(а) в 209 сообщениях
Отправить сообщение для =PaLeTiZaToR= с помощью Skype™
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0); //то нажимаем
SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0); //клавишу F1

Тут нажимается "F1" А вот как сделать так , чтоб нажалась цифра "8" на верхней панели
  Ответить с цитированием
Старый 03.03.2012, 17:01   #18
 Сержант
Аватар для Доминик
 
Доминик на правильном путиДоминик на правильном пути
Регистрация: 11.11.2009
Сообщений: 149
Популярность: 103
Сказал(а) спасибо: 13
Поблагодарили 127 раз(а) в 32 сообщениях
Отправить сообщение для Доминик с помощью Skype™
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от =^PaLeTiZaToR^=Посмотреть сообщение
SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0); //то нажимаем
SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0); //клавишу F1

Тут нажимается "F1" А вот как сделать так , чтоб нажалась цифра "8" на верхней панели

Вместо VK_F1 попробуй $38.
________________
Private Crafter for TheEarth
  Ответить с цитированием
Старый 04.03.2012, 15:45   #19
Бандеровец
 Лейтенант-командор
Аватар для VeTaL_UA
 
VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(
Регистрация: 12.08.2010
Сообщений: 729
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Отправить сообщение для VeTaL_UA с помощью ICQ Отправить сообщение для VeTaL_UA с помощью Skype™
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

=^PaLeTiZaToR^=, попробуй послать WM_CHAR отправить.
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.

Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.


  Ответить с цитированием
Старый 11.03.2012, 14:27   #20
 Разведчик
Аватар для =Elvis=
 
=Elvis= никому не известный тип
Регистрация: 28.03.2009
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для =Elvis= с помощью ICQ Отправить сообщение для =Elvis= с помощью Skype™
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Добрый день.
Я понимаю что тут написано на Делфи, а я пишу на C++, но есть вопрос.
Переписал код программы, естественно преобразовав его в C++. Запускаю приложение. нажимаю кнопку включить. Вылетает ошибка

Project Project1.exe raised exception class $C0000005 with message 'access violation at 0x759aa8b0: write of address 0x75b286ef'.

Жму Break, смотрю что в переменных и замечаю что ProcessId у меня равен нулю. и естественно из-за этого все не так.
что можете подсказать? могу привести код программы.
  Ответить с цитированием
Старый 11.03.2012, 14:37   #21
 Сержант
Аватар для BritishColonist
 
BritishColonist излучает ауруBritishColonist излучает ауруBritishColonist излучает ауруBritishColonist излучает ауруBritishColonist излучает ауруBritishColonist излучает ауру
Регистрация: 11.12.2010
Сообщений: 110
Популярность: 541
Сказал(а) спасибо: 5
Поблагодарили 66 раз(а) в 39 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

=Elvis=, ну раз Access Violation, то проверяй, чтоб процесс до работы его хендлом был успешно открыт.
И код приведи заодно, да.
________________
Принимаю реквесты на статьи, программы. Всё будет запилено в лучшем виде :3
  Ответить с цитированием
Старый 11.03.2012, 14:44   #22
 Разведчик
Аватар для =Elvis=
 
=Elvis= никому не известный тип
Регистрация: 28.03.2009
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для =Elvis= с помощью ICQ Отправить сообщение для =Elvis= с помощью Skype™
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

буду проверять.
Вот код:
Код:
#include <vcl.h>
#pragma hdrstop
#include <tlhelp32.h>
#include <winuser.h>
#include <winbase.h>
#include <iostream>
#include <string>
#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include "Unit1.h"

#pragma package(smart_init)
#pragma resource "*.dfm"

 HWND KlientWindow; //Handle клиента
 int ProcessId;
 HANDLE hProcess; //Идентификатор объекта


TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
	KlientWindow = FindWindow(NULL, L"Perfect World");
	GetWindowThreadProcessId(KlientWindow,LPDWORD(ProcessId));
	hProcess = OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); 
	//HPMinValue = StrToInt(Edit1.Text);
	//MPMinValue = StrToInt(Edit2.Text);
	this->Timer1->Enabled = true;
}


void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
int HP,HPMax,MP,MPMax;
DWORD WHP,WHPMax,WMP,WMPMax,NoB;

  try
  {
	ReadProcessMemory(hProcess, LPCVOID(0x00B280C4), LPVOID(WHP), sizeof(DWORD(WHP)), LPDWORD(NoB));
	ReadProcessMemory(hProcess, LPCVOID(WHP+0x1C), LPVOID(WHP), sizeof(DWORD(WHP)), LPDWORD(NoB));
	ReadProcessMemory(hProcess, LPCVOID(WHP+0x34), LPVOID(WHP), sizeof(DWORD(WHP)), LPDWORD(NoB));
	ReadProcessMemory(hProcess, LPCVOID(WHP+0x490), LPVOID(WHP), sizeof(DWORD(WHP)), LPDWORD(NoB)); 
	HP = Integer(WHP);
	ReadProcessMemory(hProcess, LPCVOID(0xB280C4), LPVOID(WHPMax), sizeof(DWORD(WHPMax)), LPDWORD(NoB));
	ReadProcessMemory (hProcess, LPCVOID(WHPMax+0x34), LPVOID(WHPMax), sizeof(DWORD(WHPMax)), LPDWORD(NoB));
	ReadProcessMemory (hProcess, LPCVOID(WHPMax+0x4D0), LPVOID(WHPMax), sizeof(DWORD(WHPMax)), LPDWORD(NoB)); 
	HPMax = Integer(WHPMax);
	this->ProgressBar1->Position = (HP * 100 / HPMax);

  }
  catch(...)
  {

  }

}
Библиотек только понадключал много, не смотрите на них)
  Ответить с цитированием
Старый 11.03.2012, 15:05   #23
 Сержант
Аватар для BritishColonist
 
BritishColonist излучает ауруBritishColonist излучает ауруBritishColonist излучает ауруBritishColonist излучает ауруBritishColonist излучает ауруBritishColonist излучает ауру
Регистрация: 11.12.2010
Сообщений: 110
Популярность: 541
Сказал(а) спасибо: 5
Поблагодарили 66 раз(а) в 39 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
KlientWindow = FindWindow(NULL, L"Perfect World");
GetWindowThreadProcessId(KlientWindow, LPDWORD(ProcessId));

А в FindWindow точно нужна wchar_t строчка?
Думаю, что в GetWindowThreadProcessId нужно передать &ProcessId, т.е. попробуй вызывать так:
GetWindowThreadProcessId(KlientWindow,&ProcessId);
________________
Принимаю реквесты на статьи, программы. Всё будет запилено в лучшем виде :3
  Ответить с цитированием
Старый 11.03.2012, 15:17   #24
 Разведчик
Аватар для =Elvis=
 
=Elvis= никому не известный тип
Регистрация: 28.03.2009
Сообщений: 3
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для =Elvis= с помощью ICQ Отправить сообщение для =Elvis= с помощью Skype™
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

попробовал, получилось, только пришлось поменять с int ProcessId на unsigned long ProcessId
теперь ProcessId определяет и хендел тоже.

и еще заменил LPDWORD(NoB) на NULL. тогда перестает выскакивать эта ошибка.

Заменил LPVOID(WHP) на &WHP и &WHPMax соответсьвенно и все заработало.
Спасибо, пока вопросов больше не имею)

Последний раз редактировалось =Elvis=; 11.03.2012 в 16:21. Причина: получилось
  Ответить с цитированием
Старый 16.04.2012, 11:56   #25
 Разведчик
Аватар для frodge
 
frodge вызывает надежду
Регистрация: 07.12.2011
Сообщений: 3
Популярность: -32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Отправить сообщение для frodge с помощью Skype™
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Подскажите как можно сохранить созданную программу в бэйсике в формате .exe ? чтобы ее можно было запускать сразу с рабочего стола.
  Ответить с цитированием
Старый 28.04.2012, 00:10   #26
 Сержант
Аватар для jdark
 
jdark скоро будет известенjdark скоро будет известенjdark скоро будет известен
Регистрация: 30.08.2010
Сообщений: 121
Популярность: 249
Сказал(а) спасибо: 10
Поблагодарили 77 раз(а) в 23 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

struct myData
{
DWORD dwHP; //474 //490 //494
DWORD dwMP; //478 //494 //498
BYTE emp8[12];
DWORD dwChi; //4a4 //4a8
BYTE emp1[48];
DWORD dwmHP; //4b4 //4d0 //4dc
DWORD dwmMP; //4b8 //4d4 //4e0
BYTE emp2[488];
BYTE bMed; //678 //698 //6cc
BYTE empt31[832];
DWORD dwELCD; //988 //9cc //a10
BYTE empt3[60];
DWORD dwHPCD; //9c8 //a0c //a50
DWORD dwemp001;
DWORD dwMPCD; //9d0 //a14 //a58
BYTE empt4[68];
DWORD dwChemCD; //a18//a5c //aa0
BYTE empt5[12];
DWORD dwSosCD; //a28//a6c //ab0
BYTE empt6[1568];
DWORD dwPet; //0x1068 //0x10d4
BYTE empt7[100];
} myData;


ReadProcessMemory(hProc, (LPVOID) (iTa + 0x494), &myData, sizeof(myData) , NULL);

комментарии нужны?
  Ответить с цитированием
Старый 10.05.2012, 16:46   #27
 Разведчик
Аватар для abc_xxx
 
abc_xxx неизвестен в этих краях
Регистрация: 01.05.2012
Сообщений: 1
Популярность: -51
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

I've got a target id, but how to get target name ?

please help me.

thank.
  Ответить с цитированием
Старый 10.05.2012, 17:45   #28
 Пехотинец
Аватар для dwa83
 
dwa83 лучик света в грозовом небеdwa83 лучик света в грозовом небеdwa83 лучик света в грозовом небеdwa83 лучик света в грозовом небеdwa83 лучик света в грозовом небеdwa83 лучик света в грозовом небеdwa83 лучик света в грозовом небе
Регистрация: 21.03.2012
Сообщений: 82
Популярность: 727
Сказал(а) спасибо: 17
Поблагодарили 97 раз(а) в 52 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от frodgeПосмотреть сообщение
Подскажите как можно сохранить созданную программу в бэйсике в формате .exe ?

Если имеется ввиду старый древний Quick Basic, то никак, если не ошибаюсь, так как это не компилятор а интерпретатор, который выполняет текст программы на ходу.

PS:цитата
"Если мне не изменяет память, QBasic не имел компилятора - чисто интерпретируемый язык. Компиляторы были у Turbo-Basic и GWBasic. Ну и разумеется, современным аналогом являются Visual Basic и Basic.NET от Микрософта.

А зачем вам компилятор понадобился?
И почему вы пользуетесь языком, устаревшим 10 лет тому назад? "
________________
╔═╗
ˑ ˑ ╬ ╬
╚═╝

Последний раз редактировалось dwa83; 10.05.2012 в 17:49.
  Ответить с цитированием
Старый 13.02.2013, 15:54   #29
 Разведчик
Аватар для Gorrilaz
 
Gorrilaz скоро будет известенGorrilaz скоро будет известенGorrilaz скоро будет известенGorrilaz скоро будет известен
Регистрация: 23.06.2009
Сообщений: 38
Популярность: 392
Сказал(а) спасибо: 7
Поблагодарили 8 раз(а) в 2 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от VeTaL_UAПосмотреть сообщение
BeniRey, я помогу
Wnd:=FID[ComboBox1.ItemIndex]

"FID" - это что за штука? У меня компилятор не хочет её обрабатывать.

Последний раз редактировалось Gorrilaz; 13.02.2013 в 15:57.
  Ответить с цитированием
Старый 13.02.2013, 15:59   #30
 Разведчик
Аватар для Dinko
 
Dinko никому не известный тип
Регистрация: 03.03.2010
Сообщений: 9
Популярность: 18
Сказал(а) спасибо: 0
Поблагодарили 6 раз(а) в 4 сообщениях
 
По умолчанию Re: Пишем простой Auto-Potter для Perfect World [Delphi 7]

Цитата:
Сообщение от GorrilazПосмотреть сообщение
"FID" - это что за штука? У меня компилятор не хочет её обрабатывать.

Цитата:
Сообщение от VeTaL_UAПосмотреть сообщение
var
FID: array[0..10] of THandle;
Nm: string;

.
________________
Dinmaite пишет с меня, когда забывает пароль от Dinmaite[work] и сидит не со своего IP.
  Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обсуждение Auto Perfect World Fedos1977 Общение и обсуждение Perfect World 95 11.12.2011 18:00
[Программа] Auto Perfect World semoder Боты, скрипты и прочий софт для Perfect World 1 22.11.2010 10:50
[Программа] Perfect World Auto-login v.1.1. KloneB@DGuY Боты, скрипты и прочий софт для Perfect World 5 25.04.2010 15:50

www.webmoney.ru
Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 12:36.

Пишите нам: forum@zhyk.ru
Copyright © 2019 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net