[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

19.05.2009, 13:55

Huligan1

Познающий

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

Сообщений: 31

Провел на форуме:
50236

Репутация: 2

Привет всем есть небольшая проблемка=( нужно найти окно нажать в нём ввод потом нажать уже ввод просто без поиска окна там вообщем открываеться одна программа которая вызывает подключение к инету и в подключение к инету тоже нажать ввод (или если есть способ проще вызвать и подключить инет соединение по умолчанию опишите плз) пока делал так :

PHP код:


		
			
procedure TForm7.FormCreate(Sender: TObject);

var

  s: PChar;

  h: THandle;

begin

WinExec ('rasphone.exe', SW_HIDE);

Application.ShowMainForm := False;

h  :=  FindWindow('rasphone.exe',  nil);

SendMessage(h,  WM_SYSCOMMAND,  SC_HOTKEY,  h);

   keybd_event(VK_Return, 0, 0, 0);

   keybd_event(VK_Return, 0, KeyEventF_KeyUp, 0);

   Sleep(100);

   keybd_event(VK_Return, 0, 0, 0);

   keybd_event(VK_Return, 0, KeyEventF_KeyUp, 0);

   Application.Terminate;





end;



end.

P.S Работает через раз