1. VisualBasic / Говнокод #5198

    −102

    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
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    Private Sub DoIt()
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(1012, 373)
            LeftClick()
            
            System.Threading.Thread.Sleep(4000)
            SetCursorPos(526, 273)
            LeftClick()
            
            System.Threading.Thread.Sleep(2000)
            SetCursorPos(412, 330)
            LeftClick()
           
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(414, 503)
            LeftClick()
            
            System.Threading.Thread.Sleep(5000)
            SetCursorPos(659, 333)
            LeftClick()
           
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(622, 390)
            LeftClick()
            
            System.Threading.Thread.Sleep(7000)
            SetCursorPos(659, 333)
            LeftClick()
    
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(622, 390)
            LeftClick()
    
            System.Threading.Thread.Sleep(8000)
            SetCursorPos(659, 333)
            LeftClick()
    
            System.Threading.Thread.Sleep(2000)
            SetCursorPos(622, 390)
            LeftClick()
    
            System.Threading.Thread.Sleep(6000)
            SetCursorPos(659, 333)
            LeftClick()
    
            System.Threading.Thread.Sleep(3000)
            SetCursorPos(622, 390)
            LeftClick()
    
            System.Threading.Thread.Sleep(5000)
            SetCursorPos(660, 533)
            LeftClick()
        End Sub

    Мой древний код одного кликера. Обратите внимание на отличный способ таймаута между командами (а ведь у проги и GUI есть, как его так обновлять?) Как потом позже скажет один мой знакомый - "Время между командами - важно".

    Запостил: RaZeR, 10 Января 2011

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

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