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

    • mouse_event некошерно использовать
      Ответить
      • Ээээ... Почему? Всегда его использовал.
        Ответить
        • так говорит компания 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."
          Ответить
    • Это жестоко :D
      Ответить
    • Это называется "Товарищи! Пользуйтесь клавиатурой!"
      Ответить
      • А что сдесь говнокодного? Вроде нормальный пример.
        Ответить
        • Запрограммирован он-то нормально, но вот то, что он делает, выведет из себя любого, кто запустит программу.
          Ответить
          • и запрограммирован не нормально.
            if key=13 then Halt;
            Какой халт? Клоз, граждане...
            Ответить
    • одногрупник запустил ето в интституте перед тем поставив в автозагрузку, (а форму визибл:=фолс) ))) писали пояснительную..)))
      Ответить
    • Зато такой фигнёй хорошо сырые приложения тестировать на стрессоустойчивость
      Ответить

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