Wciskanie klawisza AUTO

[damano15]

witam. 

Chciał bym aby ktos mi napisał prosty program który bedzie mi wciskał automatycznie 2 klawisze 

(1) co 20 sec 

(z) co 5 sec ? 

Czy jest taka mozliwosc ?

[KRWAWY SZATAN]

Mam nadzieję, że o to chodziło.

HotkeySet ("{Insert}", "start") ;wlaczanie programu klawiszem Insert
HotkeySet ("{END}", "stop") ;wylaczanie programu klawiszem END
HotkeySet ("{Home}", "pauza") ;pauza programu klawiszem Home
Func start()
   While True
Send ("1z")
Sleep (5000)
Send ("z")
Sleep (5000)
Send ("z")
Sleep (5000)
Send ("z")
Sleep (5000)
WEnd
EndFunc
Func stop()
Exit
EndFunc
While True
Sleep (10)
Wend
Func pauza()
   While True
	  Sleep(10)
   WEnd
EndFunc

[wasta]

Kolego, czemu piszesz tak niechlujnie. Skrypt jest formalnie poprawny, ale na pierwszy rzut oka trudno się w nim połapać.

Czy nie można tak. Niby to samo, ale czytelność nieporównywalna. Polecam rozdział w podręczniku: https://pl.wikibooks.org/wiki/AutoIt/Biblioteki

HotkeySet ("{Insert}", "start") ;wlaczanie programu klawiszem Insert
HotkeySet ("{Home}", "pauza")   ;pauza programu klawiszem Home
HotkeySet ("{END}", "stop")     ;wylaczanie programu klawiszem END

While True
   Sleep (10)
Wend

;---------------------------------------
Func start()
   While True
      Send ("1z")
      Sleep (5000)
      Send ("z")
      Sleep (5000)
      Send ("z")
      Sleep (5000)
      Send ("z")
      Sleep (5000)
   WEnd
EndFunc

Func pauza()
   While True
      Sleep(10)
   WEnd
EndFunc

Func stop()
   Exit
EndFunc

[Pawellek]

HotKeySet("{HOME}", "_Start")

HotKeySet("{PAUSE}", "Pause")

HotKeySet("{END}", "_exit")

 

Global $bPaused = False

Global $bStarted = False

 

While 1

Sleep(100)

WEnd

 

Func _Start()

$bStarted = Not $bStarted

If $bStarted Then

If AdlibRegister(Jeden, 20000) = 0 Or AdlibRegister(Zet, 5000) = 0 Then $bStarted = False

Else

AdlibUnRegister(Jeden)

AdlibUnRegister(Zet)

EndIf

EndFunc ;==>_Start

 

Func Jeden()

If Not $bPaused Then

Send("{1}")

EndIf

EndFunc ;==>Jeden

 

Func Zet()

If Not $bPaused Then

Send("{Z}")

EndIf

EndFunc ;==>Zet

 

Func Pause()

$bPaused = Not $bPaused

 

While $bPaused

Sleep(100)

WEnd

EndFunc ;==>Pause

 

Func _exit()

Exit

EndFunc ;==>_exit