- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 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 есть, как его так обновлять?) Как потом позже скажет один мой знакомый - "Время между командами - важно".
Lure Of Chaos 10.01.2011 16:10 # 0