Цитата:
|
для клиента нет приложений,есть только точка на экране куда нужно кликнуть ...
всё просто ) |
Цитата:
procedure Click(x,y : integer); begin // что здесь? end; |
SetCursorPos (StrToInt ( Memo1.Lines[0]) ,StrToInt ( Memo1.Lines[1]));
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); // клик нажать mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); // клик отпустить |
может ещё проще можно сделать
сам то не очень соображаю ...взято из готовых исходников... лишние строчки убрал ..)) |
поищите в интернете ..... Симулировать щелчок мышкой ....там валом про это ..))
|
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
честно говоря даже не знаю для чего нули стоят ..)) |
Цитата:
а насчет процедуры mouse_event смотрите unit Windows: procedure mouse_event; external user32 name 'mouse_event'; {$EXTERNALSYM mouse_event} procedure mouse_event(dwFlags, dx, dy, dwData, dwExtraInfo: DWORD); stdcall; |
Уважаемые !! Помогите !!
http://22.122.kz/ после первого клика ,сайт не обновляется.. |
нашёл ошибку , переменные в разных скриптах были одинаковые ))
|
Часовой пояс GMT +3, время: 21:28. |