Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

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

-

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

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

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

Спасибо большое, за подсказки все очень хорошо работает!!
  Ответить с цитированием
Старый 03.03.2012, 17: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, 18: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, 16: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
Сообщений: 727
Популярность: 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, 15: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, 15: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, 15: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, 16: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, 16: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 в 17:21. Причина: получилось
  Ответить с цитированием
Старый 16.04.2012, 12: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, 01:10   #26
 Сержант
Аватар для jdark
 
jdark скоро будет известенjdark скоро будет известенjdark скоро будет известен
Регистрация: 30.08.2010
Сообщений: 121
Популярность: 249
Сказал(а) спасибо: 10
Поблагодарили 78 раз(а) в 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, 17: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, 18:45   #28
 Пехотинец
Аватар для dwa83
 
dwa83 определенно авторитетная личностьdwa83 определенно авторитетная личностьdwa83 определенно авторитетная личностьdwa83 определенно авторитетная личностьdwa83 определенно авторитетная личностьdwa83 определенно авторитетная личностьdwa83 определенно авторитетная личностьdwa83 определенно авторитетная личностьdwa83 определенно авторитетная личность
Регистрация: 21.03.2012
Сообщений: 83
Популярность: 1178
Сказал(а) спасибо: 18
Поблагодарили 101 раз(а) в 53 сообщениях
 
По умолчанию 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 в 18:49.
  Ответить с цитированием
Старый 13.02.2013, 16: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 в 16:57.
  Ответить с цитированием
Старый 13.02.2013, 16: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 19:00
[Программа] Auto Perfect World semoder Боты, скрипты и прочий софт для Perfect World 1 22.11.2010 11:50
[Программа] Perfect World Auto-login v.1.1. KloneB@DGuY Боты, скрипты и прочий софт для Perfect World 5 25.04.2010 16:50

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

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

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net