Запуск файла и эмулирование нажатия Enter

@la2medved · Регистрация: 23.02.2009

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

Давно хотел сделать автозапуск инета,но тк выделенка приходится всевремя тыкать на вызов.
Возможно ли запустить некий ярлык интернета и эмулировать нажатие в нем Enter'a? (ну вместо кнопки вызвать как вариант)

@Jazon_deenAlt · 08.05.2009, 13:42

Возможно...
на форму ложыш таймер(enable=false, интервал по вкусу у меня например 5000(Время на открытие окна))
код такой:
- На создание формы

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle,'open','Здеся полный путь к исполнительному файлу', nil, nil, SW_SHOWNORMAL);
 
timer1.Enabled:=true;
end;

-на таймер

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   keybd_event(VK_RETURN, 0, 0, 0);
   keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
   timer1.Enabled:=false;
   Application.Terminate;
end;

но ето только при условии что по умолчанию у тебя активна кнопка подключения

@la2medved · 08.05.2009, 16:16 **[ТС]**

хз...неполучилось....окно запускается чере 5 сек закрывается и все. Ниче не запускается.
Проблема в коде?
Кста ты забыл сказать что надо шеллапи подключить

Вот код.

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle,'open','C:\Tushino.lnk', nil, nil, SW_SHOWNORMAL);
 
timer1.Enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_RETURN, 0, 0, 0);
   keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
   timer1.Enabled:=false;
   Application.Terminate;
end;

@Jazon_deenAlt · 08.05.2009, 16:33

Сообщение от la2medved

Кста ты забыл сказать что надо шеллапи подключить

да забыл)
попробуй переназвать ярлык на Tushino и в коде ShellExecute(Handle,'open','C:\Tushino', nil, nil, SW_SHOWNORMAL);
так должно пойти)

@la2medved · 08.05.2009, 22:09 **[ТС]**

не не дышит)
даже так((

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle,'open','C:\abc', nil, nil, SW_SHOWNORMAL);
 
timer1.Enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_RETURN, 0, 0, 0);
   keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
   timer1.Enabled:=false;
   Application.Terminate;
end;

@la2medved · 12.05.2009, 00:51 **[ТС]**

предложения?

@Jazon_deenAlt · 12.05.2009, 11:36

Блин напарился я, карочь так и не придумал как((( там надо типа полный путь прописать аля "сетевое подключение" и т.д. тоесть полный путь к исполняемому файлу а не к ярлыку, так шо извеняй все что могу посоветовать(

@la2medved · 13.05.2009, 00:24 **[ТС]**

Если правельно понел то непашет)))

Вот так?

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle,'open','{BA126AD7-2166-11D1-B1D0-00805FC1270E}', nil, nil, SW_SHOWNORMAL);
 
timer1.Enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_RETURN, 0, 0, 0);
   keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
   timer1.Enabled:=false;
   Application.Terminate;
end;

@BanDit · 13.05.2009, 07:08

Попробуй указть путь к экзешнику.

Delphi

1	'C:\.....\Tushino.exe'

@la2medved · 13.05.2009, 15:25 **[ТС]**

там нет экзешника......там ярлык интернета(

@Jazon_deenAlt · 14.05.2009, 18:03

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

Delphi

procedure TForm1.FormCreate(Sender: TObject);
begin
SetCursorPos(X,Y)  ;
 mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0);
 
timer1.Enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
keybd_event(VK_RETURN, 0, 0, 0);
   keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0);
   timer1.Enabled:=false;
   Application.Terminate;
end;

Где Х,У-координаты екрана куды будем тыкать...
Чтобы получилось надо чтобы ярлык не был прикрыт каким-т окном
Чтобы узнать координаты можно создать програмку с одним таймером (интервал по вкусу у меня = 1) и задать такой код:

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
var
p:TPoint;
begin
GetCursorPos(p) ;
Form1.Caption:=inttostr(p.X ) + ' ' + inttostr(p.y);
end;

@la2medved 0 / 0 / 0 Регистрация: 23.02.2009 Сообщений: 8
	13.05.2009, 15:25 [ТС]	10
	там нет экзешника......там ярлык интернета( 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	08.05.2009, 16:33	4
	Сообщение от la2medved Кста ты забыл сказать что надо шеллапи подключить да забыл) попробуй переназвать ярлык на Tushino и в коде ShellExecute(Handle,'open','C:\Tushino', nil, nil, SW_SHOWNORMAL); так должно пойти) 0

@la2medved 0 / 0 / 0 Регистрация: 23.02.2009 Сообщений: 8
	12.05.2009, 00:51 [ТС]	6
	предложения? 0

@Jazon_deenAlt 4117 / 999 / 191 Регистрация: 09.04.2009 Сообщений: 4,223
	12.05.2009, 11:36	7
	Блин напарился я, карочь так и не придумал как((( там надо типа полный путь прописать аля "сетевое подключение" и т.д. тоесть полный путь к исполняемому файлу а не к ярлыку, так шо извеняй все что могу посоветовать( 0

	14.05.2009, 18:03