Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Очень нужно! на экзамене сижу, нужно функцию переделать в процедуру https://www.cyberforum.ru/ delphi-beginners/ thread1767019.html функцию переделать в процедуру	FindWindow не видит диалоговые окна других приложений Delphi Здравствуйте, я с вопросом на счет хука. У меня есть программа, и на определенном этапе, в ней появляется диалоговое окно, которое и нужно поймать, но к сожалению его мой хук не видит... Может есть способы увидеть диалоговые окна других прог? var H,H1:HWD begin try H := FindWindow (nil, 'Project1'); finally If H <> 0 then begin
Delphi Сжатие изображения из процедуры TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap) https://www.cyberforum.ru/ delphi-beginners/ thread1766967.html Сохраняю картинку, но ее разрешение всегда остается 672x380, хотя камера настроена на большее разрешение. procedure TForm4.TakePhotoFromCameraAction1DidFinishTaking(Image: TBitmap); begin Image.SaveToFile('123.jpg'); end;	Delphi Эмуляция нажатия клавиш в неактивном окне (Игра) Пытаюсь передать в игру нажатие клавиши F1, но ничего не получается. Пробовал разные способы, перерыл множество форумов, но результата никакого. Есть подозрение что игра блокирует всю эмуляцию, за исключением проверенных программ фирм компьютерной периферии. Один из кодов скидываю под спойлер. Есть у кого какие мысли решения данной задачи? const ExtendedKeys: set of Byte = ; procedure... https://www.cyberforum.ru/ delphi-beginners/ thread1766960.html
CloneCursor Delphi Есть 2 ClientDataSet ClientDataSet1 ClientDataSet2 2 одинаковых таблицы нужно скопировать по щелчку кнопки данные из одного в другой решил это методом CloneCursor procedure TForm1.Button3Click(Sender: TObject); begin ClientDataSet2.CloneCursor(clientdataset1,true); end;	Delphi Комментарий к коду https://www.cyberforum.ru/ delphi-beginners/ thread1766923.html Привет, напишите комментарий к коду, чтобы все дословно было. Очень признателен. procedure TfName.Button1Click(Sender: TObject); var myLookup: Variant; s: String; begin myLookup:= fDM.TLichData.Lookup('Фамилия', Edit1.Text, 'Фамилия;Имя;Отчество;образование'); if VarType (myLookup) = varNull then ShowMessage ('Сотрудник с такой фамилией не найден!')
Delphi Из edit в array ? https://www.cyberforum.ru/ delphi-beginners/ thread1766875.html У меня есть код , в нем массив уже задан arr: array of integer = (1,2,3,4,5); Но мне хотелось бы задавать его через edit... Объясните как ... (с разделителем (' ' либо ,)) Какая функция используется для добавления в массив из edit. arr: array of integer;. Желательно с примером.	Delphi Напечатать все гласные буквы, входящие в текст Cоставить программу на языке Паскаль. Дан текст из строчных латинских букв, за которым следует точка. Напечатать все гласные буквы, входящие в текст.
Delphi MainMenu - как узнать индекс нажатого меню? Доброе утро, форумчане! Встретился с интереным для себя вопросом: А как узнать id элемента из MainMenu, который нажал пользователь? В данном случае вопрос не касается подпунктов MainMenu, а именно главных пунктов, которые всегда отображаются на форме. Спасибо! https://www.cyberforum.ru/ delphi-beginners/ thread1766850.html	Delphi STringrid проверка ячеек на наличие числа STringrid проверка ячеек на наличие числа есть таблица 7 строк от 0 до 6 пользователь может занести данные в строки №0,1,2,3 между строками 0+1, 0+2, 0+3, находиться сумма результат заносятся ниже в строки т.е. строка № 4=0+1 строка № 5=0+2 и строка № 6=0+3 https://www.cyberforum.ru/ delphi-beginners/ thread1766794.html
Ошибка: ';' expected but '.' found Delphi Помогите разобраться. Данный код выдаёт ошибку DataModule1.pas(59): ';' expected but '.' found я так понимаю, что это связано с end-ами, а если 1 end в конце добавить, то будет WARNING. Duplicate resource(s): unit DataModule1; interface uses SysUtils, Classes, DB, IBDatabase, IBQuery, IBCustomDataSet, IBStoredProc;	Delphi Bass.dll увеличение дескрипторов потока и синхронизации Добрый день. Подскажите следующее: 1. Создаю поток функцией begin if FActivePlay then Exit else begin PathAlarmFile:=FAlarmFileName; // Создаем дескриптор потока для асинхронного воспроизведения (BASS_ASYNCFILE)указанного файла https://www.cyberforum.ru/ delphi-beginners/ thread1766766.html

SkV35

0 / 0 / 0

Регистрация: 20.06.2016

Сообщений: 5

Бот для игры - Delphi - Ответ 9294166

20.06.2016, 15:23. Показов 3045. Ответов 7

Метки (Все метки)

Author24 — интернет-сервис помощи студентам

Привет форумчане и формучанки =) Решил написать для личного пользования бота для игры Vega Conflict .
Опыта почти нет , прошу помощи .
Начать решил с того чтобы захватить окно , привести его к нужному размеру , и начать кликать в этом окне.

Delphi

var
  Form1: TForm1;
  VegaWindow: HWND; //Окно игры
 
 VegaWindow := findwindow(nil, 'Vega Conflict'); // Находим окно игры
 if VegaWindow <> 0 then
    SetWindowPos(VegaWindow, HWND_BOTTOM, 150, 150, 1024, 768, SWP_SHOWWINDOW); //Приводим окно к заданному виду

И тут же столкнулся с тем , что окно хоть и приводится к нужному виду , но встает в центре экрана(а планировалось сдвинуть его на 150,150)
Далее хотел в игре приблизить базу , для этого надо прокрутить колесиком мыши . реализовал вот так

Delphi

SetCursorPos(550,963);// ставим курсор в центр окна (примерно)
    Mouse_Event(MOUSEEVENTF_WHEEL,0,0,1,0);    //приближаем базу
    sleep(100);
    Mouse_Event(MOUSEEVENTF_WHEEL,0,0,1,0);
    sleep(100);
    Mouse_Event(MOUSEEVENTF_WHEEL,0,0,1,0);
    sleep(100);
    Mouse_Event(MOUSEEVENTF_WHEEL,0,0,1,0);
    sleep(100);
    Mouse_Event(MOUSEEVENTF_WHEEL,0,0,1,0);
    sleep(10000);

5 Событий , потому что одним решить не получилось (параметр 1, как я понял позволяет указать сколько раз прокрутить колесико, но столкнулся с тем что значение не влияет на результат. Вот такое кривое решение , но результат достигнут.
(хотелось бы совет как привести это безобразие к вменяемому виду)

Далее решил собтвенно покликать.

Delphi

          SetCursorPos(860,1300);
          Mouse_Event(MOUSEEVENTF_LEFTDOWN,860,1300,0,0) ;
          sleep(100);
          Mouse_Event(MOUSEEVENTF_LEFTUP,860,1300,0,0) ;
          sleep(100);

Судя по всему клик пропадает в никуда, но если кликать не по игровому окну , то клик проходит.
погуглил , пришел к тому что надо действовать через sendmessage

Delphi

1 2	sendMessage(VegaWindow, WM_LBUTTONDOWN, 440,880); sendMessage(VegaWindow, WM_LBUTTONUp,440,880);

Вот тут я уже "поплыл" чую не понимаю что делаю , но клики проходят оО , не стабильно , но куда то он кликает (причем не всегда в одну точку .

Прошу помочь разобраться с этим этапом ...

Вернуться к обсуждению:
Бот для игры Delphi

Следующий ответ

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #9300020

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

20.06.2016, 15:23

Готовые ответы и решения:

Бот для игры
Здравствуйте ув Программисты! Я впервые на этом форуме и у меня такой вопрос! Как сделать бота...

Бот для браузерной онлайн игры
Игра: Легенда наследие драконов Хочу автоматизировать монотонный процесс кликания по кнопкам....

Автонажатие клавиш при обнаружении цвета или бот для игры
День добрый. Хотелось бы написать программу, которая нажимала бы клавиши, когда на экране, в...

Элементы компонента TWebBrowser (в шапке длиннопост!) Бот для текстовой онлайн-игры
Всем привет! Извините за столь долго вступление, но без него, наверное никак. Уже довольно давно...

	20.06.2016, 15:23

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

20.06.2016, 15:23

Помогаю со студенческими работами здесь

Кликерный бот для браузерной игры
Всем привет Хочу написать бота на игру кликерного Игра браузерная Вопрос заключается в том, что...

БОТ для игры "Пара Па - Город Танцев"
Добрый день, читающий. Кто-бы-ты-нибыл :) Да настало время. Да пришли он-лайн игры в наш...

Для каждой игры определить словесный результат игры (выигрыш, проигрыш или ничья)
Помогите решить задачу В одном массиве записано количество мячей, забитых футбольной командой в...

Бот для skype
добрый день , я хачу сделать бот который сам открывает скайп , сам ставит галочки , пишет логин и...

Новые блоги и статьи
Как получить индекс в цикле for в Python bytestream 21.01.2025 При работе с коллекциями данных в Python часто возникает необходимость не только получить доступ к элементам последовательности, но и знать их позицию в процессе итерации. Индексация в циклах. . .	Как определить адрес, из которого локальный репозиторий Git был клонирован bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемой частью рабочего процесса. При работе с Git разработчики часто сталкиваются с необходимостью. . .	Какая разница между операторами == и === в сравнениях в JavaScript bytestream 21.01.2025 В мире веб-разработки JavaScript занимает особое место как динамический язык программирования, предоставляющий разработчикам широкий набор инструментов для создания интерактивных веб-приложений. . . .	Из чего и как собрать свой домашний кинотеатр bt_guru 21.01.2025 Создание домашнего кинотеатра: от идеи до реализации В современном мире домашний кинотеатр стал неотъемлемой частью комфортного жилого пространства, предоставляя возможность наслаждаться. . .	Ошибки стиральных машин bt_guru 21.01.2025 Современные стиральные машины представляют собой сложные электронные устройства, оснащенные множеством датчиков и систем контроля. Они способны самостоятельно определять вес загруженного белья,. . .	Копирование (маппинг) объектов в JavaScript bytestream 21.01.2025 В современной разработке программного обеспечения копирование объектов представляет собой фундаментальную операцию, которая требует особого внимания и понимания. Маппинг объектов в JavaScript – это. . .
Как работать с Apache Kafka в C# .NET bytestream 21.01.2025 Apache Kafka представляет собой распределенную платформу потоковой передачи данных, которая произвела революцию в области обработки больших объемов информации в реальном времени. Эта система,. . .	Как использовать RabbitMQ в C# .NET bytestream 21.01.2025 RabbitMQ представляет собой мощный брокер сообщений, который эффективно решает эту задачу, обеспечивая надежную передачу данных между множеством приложений. Этот инструмент реализует протокол AMQP. . .	Как объединить последние коммиты в Git bytestream 21.01.2025 В мире разработки программного обеспечения система контроля версий Git стала незаменимым инструментом для управления исходным кодом. Одной из наиболее полезных, но порой сложных для освоения функций. . .	Как запушить новую локальную ветку (branch) в удалённый репозиторий Git и отслеживать её bytestream 21.01.2025 В современной разработке программного обеспечения система контроля версий Git стала неотъемлемым инструментом для эффективного управления кодом и организации командной работы. Одной из ключевых. . .	Как создать директорию и все родительские директории, указанные в пути, с помощью Python bytestream 21.01.2025 Python предоставляет мощные инструменты для работы с файловой системой через встроенные модули os и pathlib, которые значительно упрощают процесс манипуляции директориями. Эти модули содержат. . .	Как работать с массивами в JavaScript bytestream 21.01.2025 Массивы в JavaScript представляют собой один из фундаментальных типов данных, который позволяет хранить упорядоченные коллекции различных элементов в одной переменной. Эта структура данных является. . .

Наверх