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

[BeniRey]

Спасибо большое, за подсказки все очень хорошо работает!!

[=PaLeTiZaToR=]

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

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

[Доминик]

Цитата: Сообщение от =^PaLeTiZaToR^= SendMessage(KlientWindow, WM_KEYDOWN, VK_F1, 0); //то нажимаем SendMessage(KlientWindow, WM_KEYUP, VK_F1, 0); //клавишу F1 Тут нажимается "F1" А вот как сделать так , чтоб нажалась цифра "8" на верхней панели

Вместо VK_F1 попробуй $38.

[VeTaL_UA]

=^PaLeTiZaToR^=, попробуй послать WM_CHAR отправить.

[=Elvis=]

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

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

Жму Break, смотрю что в переменных и замечаю что ProcessId у меня равен нулю. и естественно из-за этого все не так.
что можете подсказать? могу привести код программы.

[BritishColonist]

=Elvis=, ну раз Access Violation, то проверяй, чтоб процесс до работы его хендлом был успешно открыт.
И код приведи заодно, да.

[=Elvis=]

буду проверять.
Вот код:

#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(...)
  {

  }

}

Библиотек только понадключал много, не смотрите на них)

[BritishColonist]

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

А в FindWindow точно нужна wchar_t строчка?
Думаю, что в GetWindowThreadProcessId нужно передать &ProcessId, т.е. попробуй вызывать так:
GetWindowThreadProcessId(KlientWindow,&ProcessId);

[=Elvis=]

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

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

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

[frodge]

Подскажите как можно сохранить созданную программу в бэйсике в формате .exe ? чтобы ее можно было запускать сразу с рабочего стола.

[jdark]

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);

комментарии нужны?

[abc_xxx]

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

please help me.

thank.

[dwa83]

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

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

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

А зачем вам компилятор понадобился?
И почему вы пользуетесь языком, устаревшим 10 лет тому назад? "

[Gorrilaz]

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

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

[Dinko]

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

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

.