1. Pascal / Говнокод #1663

    +95.8

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then Halt;
  
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var p: TPoint;
begin
  p.X:=Random(Screen.Width);
  p.Y:=Random(Screen.Height);
  SetCursorPos(p.X,p.Y);
  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTDOWN,p.X,p.Y,0,0);
  mouse_event(MOUSEEVENTF_ABSOLUTE or MOUSEEVENTF_LEFTUP,p.X,p.Y,0,0);
end;

end.

    :DDD

    Запостил: ChakuZa, 24 Августа 2009

    Комментарии (12) RSS

    • ava TWINc 24.08.2009 07:12 # 0

      mouse_event некошерно использовать
      Ответить

      • ava guest 26.08.2009 00:41 # −1

        Ээээ... Почему? Всегда его использовал.
        Ответить

        • ava TWINc 26.08.2009 07:07 # +1

          так говорит компания microsoft
          вот цитата с http://msdn.microsoft.com/en-us/library/ms646260%28VS.85%29.aspx
          "Windows NT/2000/XP: This function has been superseded. Use SendInput instead."
          Ответить

    • ava labutinpa 24.08.2009 08:15 # −1

      Это жестоко :D
      Ответить

    • ava viktorious 25.08.2009 11:28 # −1

      Это называется "Товарищи! Пользуйтесь клавиатурой!"
      Ответить

      • ava guest 26.08.2009 00:47 # −2

        А что сдесь говнокодного? Вроде нормальный пример.
        Ответить

        • ava viktorious 28.08.2009 16:14 # 0

          Запрограммирован он-то нормально, но вот то, что он делает, выведет из себя любого, кто запустит программу.
          Ответить

          • ava guest 21.09.2009 03:17 # −2

            и запрограммирован не нормально.
            if key=13 then Halt;
            Какой халт? Клоз, граждане...
            Ответить

    • ava ChakuZa 02.09.2009 23:32 # −1

      одногрупник запустил ето в интституте перед тем поставив в автозагрузку, (а форму визибл:=фолс) ))) писали пояснительную..)))
      Ответить

    • ava guest 03.02.2010 20:05 # −2

      Зато такой фигнёй хорошо сырые приложения тестировать на стрессоустойчивость
      Ответить

    Добавить комментарий