Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[Pytanie] Autoclick Pomoc

TooFly

Przez TooFly
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

Opublikowano

Witam. Chciałbym zrobić program dzieki któremu komputer sam bedzie klikał wybrany klawisz po x sek.

I tu mam problem bo nie wiem jak to zrobić. Kiedyś czytałem jakis Tut ale za wiele z niego nie zapamiętałem.

Jakby ktoś mogł mi napisać pokoleji co trzeba zrobić to bym był wdzięczny.

Narazie zrobiłem wygląd okna progamu i wklejiłem kod do AutoIT :

#cs ----------------------------------------------------------------------------

 

AutoIt Version: 3.3.0.0

Author: myName

 

Script Function:

Template AutoIt script.

 

#ce ----------------------------------------------------------------------------

 

#include <GUIConstants.au3>

 

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Klick Mod", 311, 159, 216, 137)

$Combo1 = GUICtrlCreateCombo("Combo1", 40, 56, 49, 25)

$Edit1 = GUICtrlCreateEdit("", 160, 56, 49, 17)

GUICtrlSetData(-1, "Edit1")

GUICtrlSetColor(-1, 0xFFFFFF)

$Group1 = GUICtrlCreateGroup("Przycisk i czas", 16, 24, 289, 73)

GUICtrlSetColor(-1, 0xFFFFFF)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Button1 = GUICtrlCreateButton("Start", 32, 104, 81, 25, 0)

GUICtrlSetColor(-1, 0xFFFFFF)

$Button2 = GUICtrlCreateButton("Stop", 128, 104, 81, 25, 0)

GUICtrlSetColor(-1, 0xFFFFFF)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

 

Case $Edit1

EndSwitch

WEnd

 

I jak teraz zrobić żeby w Combo1 były to wybrania przyciski (1,2,3,4,5,6,k,l,m...) a w drugim oknie wybrać co ile sek ma kliknąć wybrany klawisz.

Jestem kompletnie zielony w tych sprawach ale liczę na waszą pomoc.

//Za duża sygnaturka.

Kulfix Budowniczy

Kulfix

Opublikowano
Budowniczy

Kulfix

Opublikowano 

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Tu jakis Twoj tekst", 308, 229, 346, 262)
$GroupBox1 = GUICtrlCreateGroup("", 8, 1, 297, 193)
$Combo1 = GUICtrlCreateCombo("K", 40, 72, 97, 25)
$Input1 = GUICtrlCreateInput("5", 152, 72, 97, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ok = GUICtrlCreateButton("&OK", 65, 203, 75, 25, $WS_GROUP)
$cancel = GUICtrlCreateButton("&Cancel", 162, 203, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Switch GUIGetMsg()
	Case $GUI_EVENT_CLOSE
		MsgBox(0, "exit", "See Ya!")
			ExitLoop
		Case $ok
			$klawisz=GUICtrlRead($Combo1)
			$razy=GuiCtrlRead($Input1)
			msgbox(0,"tt",$klawisz&"  "&$razy)
			For $i=1 to $razy step +1
				Send($klawisz)
				Sleep(200)
			next
			;tu nie bardzo wiem co wpisac
		Case $cancel
			Exit
EndSwitch
WEnd

 

To NIE jest kod ktorego potrzebujesz. ;)

Bo zamiast klikac co x sekund klika x razy ;)

Gotowego kodu CI nie podam z prostej przyczyny - nie pokombinujesz nie nauczysz sie.

Bardzo latwo mozna przerobic to co Ci dalem i dostosowac do swoich potrzeb. :>

SouI Specjalista

SouI

Opublikowano
Specjalista

SouI

Opublikowano

@EDIT://

Szybszy Kulfix..

regl.png

Tak userzy MPC dbają o regulamin! ^^

Co kryje spoiler?

 

Jeszcze troszke!

Zaraz będzie koniec.

Żartuje!

Prawie już prawie!

iiii....

Chciało Ci się klikać? o_O

 

 

 

 

 

 

TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

  • Autor
Opublikowano

ok dzieki Kulfix jakoś to zaczynam kumać, a mam pytanie do Soul'a czy ten bot działa tylko w Metinie ? Probowałem z Srowind Mod ale nic nie wychodziło. A możecie podać jakiś tut na używanie AutoIT. (słowniczek z komendami) Z góry thx

//Za duża sygnaturka.

SouI Specjalista

SouI

Opublikowano
Specjalista

SouI

Opublikowano

Full Scite + Help (F1)...

Wszędzie działa.

regl.png

Tak userzy MPC dbają o regulamin! ^^

Co kryje spoiler?

 

Jeszcze troszke!

Zaraz będzie koniec.

Żartuje!

Prawie już prawie!

iiii....

Chciało Ci się klikać? o_O

 

 

 

 

 

 

TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

  • Autor
Opublikowano

Kulfix spróbowałem zmienić troche to i wyszło tak :

 

include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\jmk\pulpit\jacek\boty\koda\forms\autocklick.kxf
$Form1_1 = GUICreate("autocklick", 237, 176, 337, 270)
$Combo1 = GUICtrlCreateCombo("Combo1", 24, 48, 73, 25)
$Edit1 = GUICtrlCreateEdit("", 120, 48, 73, 25)
GUICtrlSetData(-1, "Edit1")
GUICtrlSetColor(-1, 0xFFFFFF)
$Button1 = GUICtrlCreateButton("ok", 16, 104, 89, 25, 0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button2 = GUICtrlCreateButton("Stop", 120, 104, 97, 25, 0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button3 = GUICtrlCreateButton("Wyjscie", 16, 136, 201, 33, 0)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
Switch GUIGetMsg()
               Case $GUI_EVENT_CLOSE
                       MsgBox(0, "Wyjscie", "See Ya!")
                               ExitLoop
	Case $ok
                               $klawisz=GUICtrlRead($Combo1)
                               $czas=GuiCtrlRead($Input1)
                               msgbox(0,"Gotowe",$klawisz&"  "&$czas)
                               For $i=1 to $czas step +1
                                       Send($klawisz)
                                       StdoutRead($Input1) 
                               next
                               ;tu nie bardzo wiem co wpisac
                       Case $Wyjscie
                               Exit
       EndSwitch
WEnd

Jednak pojawia się błąd przy Case $ok

 

Soul Twój program nie działa na WoW'ie.

//Za duża sygnaturka.

Kulfix Budowniczy

Kulfix

Opublikowano
Budowniczy

Kulfix

Opublikowano

$Button1 = GUICtrlCreateButton("ok", 16, 104, 89, 25, 0)

Case $ok

 

 

Ablo zmieniasz $Button1 na $ok albo $ok na $Button1 ;)

Generalnie chodzi o to ze "Case" mozna przetlumaczyc jako "w przypadku, gdy" (bardzo luzne tlumaczenie)

Czyli chodzi o to, ze najpierw zmiennej $Button1 przyporzadkowujesz przycisk 

GUICtrlCreateButton("ok", 16, 104, 89, 25, 0)

a

Case $ok

Mowi o tym co ma sie stac po wcisnieciu tego przycisku... Mam nadzieje, ze rozumiesz ;>

 

Blad pojawia sie poniewaz "mowisz" skryptowi co ma sie stac przy wywolaniu $ok tylko nie okreslasz czym jest to $ok :P

 

Analogicznie bedziesz mial blad przy $wyjscie i $stop :)

 

Jesli chcesz sobie zepsuc zabawe, pozbawic sie satysfakcji i niczego sie nie nauczyc to lap:

 

 

Gotowiec:

#include <GUIConstants.au3>
HotKeySet ("{ESC}", "Wyjscie")
Func Wyjscie()
Exit
EndFunc
#Region ### START Koda GUI section ### Form=c:\documents and settings\jmk\pulpit\jacek\boty\koda\forms\autocklick.kxf
$Form1_1 = GUICreate("autocklick", 237, 176, 337, 270)
$Combo1 = GUICtrlCreateCombo("Literka 1", 24, 48, 73, 25)
GUICtrlSetData(-1, "Literka 2|Literka 3|Literka 4")
$Input1 = GUICtrlCreateInput("Jakas cyferka", 120, 48, 73, 25)
GUICtrlSetColor(-1, 0xFFFFFF)
$ok = GUICtrlCreateButton("ok", 16, 104, 89, 25, 0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button2 = GUICtrlCreateButton("Stop", 120, 104, 97, 25, 0)
GUICtrlSetColor(-1, 0xFFFFFF)
$Wyjscie = GUICtrlCreateButton("Wyjscie", 16, 136, 201, 33, 0)
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
Switch GUIGetMsg()
               Case $GUI_EVENT_CLOSE
                       MsgBox(0, "Wyjscie", "See Ya!")
                               ExitLoop
						Case $ok
							sleep(2000)
                               $klawisz=GUICtrlRead($Combo1)
                               $czas=GuiCtrlRead($Input1)*1000
                               msgbox(0,"Gotowe",$klawisz&"  "&$czas)
                               While 1
                                       Send($klawisz)
                                       Sleep($czas)
                               wend
                               ;tu nie bardzo wiem co wpisac
                       Case $Wyjscie
                               Exit
       EndSwitch
WEnd

 

Dodalem skrot klawiszowy:

Esc - zakonczenie klikacza

 

 

 

TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

  • Autor
Opublikowano

Oo dzieki naprawde pomogło :P + dla Ciebie ^^

A jak zrobić (jaka komenda) żeby odwołać $Start ?

GUiDelete nie działa bo mam tak :

  #include <GUIConstants.au3>

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 304, 272, 316, 203)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0xFFFFFF)
$Start = GUICtrlCreateButton("Start", 24, 232, 257, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 24, 184, 113, 25, 0)
$Wyjscie = GUICtrlCreateButton("Wyjscie", 168, 184, 113, 25, 0)
$Input1 = GUICtrlCreateInput("", 32, 64, 97, 21)
$Combo1 = GUICtrlCreateCombo("2", 200, 64, 57, 25)
$Button4 = GUICtrlCreateButton("Schowaj", 24, 128, 113, 33, 0)
$Button5 = GUICtrlCreateButton("Pokaz", 168, 128, 113, 33, 0)
$Tab1 = GUICtrlCreateTab(0, -8, 73, 25)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("")
$Gra = GUICtrlCreateTab(69, -8, 73, 25)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Switch GUIGetMsg()
               Case $GUI_EVENT_CLOSE
                       MsgBox(0, "Wyjscie", "Narazie")
                               ExitLoop
						Case $Start
							                             Sleep(2000)
                               $klawisz=GUICtrlRead($Combo1)
                               $czas=GuiCtrlRead($Input1)
                               msgbox(0,"Gotowe",$klawisz&"  "&$czas)
							While 1
                                       Send($klawisz)
                                       Sleep($czas) 
							WEnd	
                               ;tu nie bardzo wiem co wpisac
						Case $Wyjscie
							MsgBox(0, "Wyjscie", "Koniec")
                               Exit
      	   EndSwitch
						Switch GUIGetMsg()
							Case $Stop
								$klawisz=GUIDelete($Combo1)
								$czas=GUIDelete($Input1)
		EndSwitch						
WEnd

 

Albo moze działać tylko ten klawisz zostanie wcisniety 1000 albo wiecej razy w sek Jak zmienić to ? w Sleep ?

@EDIT

Zrobiłem jakoś tak teraz ale nadal nic nie nastawiam tylko Sleep nastawia samo co ile $klawisz jest klikany

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 304, 272, 316, 203)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0xFFFFFF)
$Start = GUICtrlCreateButton("Start", 24, 232, 257, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 24, 184, 113, 25, 0)
$Wyjscie = GUICtrlCreateButton("Wyjscie", 168, 184, 113, 25, 0)
$Combo2 = GUICtrlCreateCombo("1, 2, 3, 5", 32, 64, 97, 21)
$Combo1 = GUICtrlCreateCombo("2", 200, 64, 57, 25)
$Button4 = GUICtrlCreateButton("Schowaj", 24, 128, 113, 33, 0)
$Button5 = GUICtrlCreateButton("Pokaz", 168, 128, 113, 33, 0)
$Tab1 = GUICtrlCreateTab(0, -8, 73, 25)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("")
$Gra = GUICtrlCreateTab(69, -8, 73, 25)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("Start")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Switch GUIGetMsg()
               Case $GUI_EVENT_CLOSE
                       MsgBox(0, "Wyjscie", "Narazie")
                               ExitLoop
                                                       Case $Start
                                                                                            Sleep(2000)
                               $klawisz=GUICtrlRead($Combo1)
                               $czas=GUICtrlGetState($Combo2)
                               msgbox(0,"Gotowe",$klawisz&"  "&$czas)
                                                               While 1
                                       Send($klawisz)
                                       Sleep($czas)
									$s=($Combo2) 
                                                               WEnd    
                               ;tu nie bardzo wiem co wpisac
                                                       Case $Wyjscie
                                                               MsgBox(0, "Wyjscie", "Koniec")
                               Exit
          EndSwitch
                                                       Switch GUIGetMsg()
													Case $Stop 
														Sleep(20)
														While 1
														$klawisz=GUIDelete($Combo1)
														$czas=GUIDelete($Combo2)
														WEnd
													Case $Button4=GUICtrlSetResizing(-1, $GUI_EVENT_MINIMIZE)
                                                                 Sleep(2000)													
                       EndSwitch                                               
WEnd

 

A stop nadal nie działa

//Za duża sygnaturka.

Kulfix Budowniczy

Kulfix

Opublikowano
Budowniczy

Kulfix

Opublikowano

Pamietaj ze musisz przystosowac polecenia z helpa do soich potrzeb a nie je wklejac bez zastanowienia ;>

Czytaj opisy. Sa bardzo pomocne.

 

Tak przy okazji. Domyslam sie, ze przycisk "Schowaj" ma minimalizowac/ukrywac klikacza... Po co w takim razie przycisk "Pokaz" skoro nie bedzie on i tak widoczny?? :D

Pokombinuj z GUISetState :>

TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

  • Autor
Opublikowano

Ale jak dam Wyjscie to caly Program sie wylaczy a mi chodzi o oddziely Button (w moim przypadku Stop) żęby oddwołał Start. A Wyjscie mam zrobione jako exit.

A jak klikne Start to potem juz nic nie działa, klikam exit i nic dopiero jak klikne prawym na ikone na starcie to wylacza sie. A Start dalej zamiast robic co x sek robi w nieskonczonośc.

@EDIT

Pokaż to zrobie potem jak sie zapoznam z AutoIt . Bedzie jako chowanie gry i pokazywanie gry ale narazie bawiłem sie tylko showaj kliker

______________

Pokombinowałem i tak narazie mam :

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 304, 272, 316, 203)
GUISetFont(8, 800, 0, "MS Sans Serif")
GUISetBkColor(0xFFFFFF)
$Start = GUICtrlCreateButton("Start", 24, 232, 257, 25, 0)
$Stop = GUICtrlCreateButton("Stop", 24, 184, 113, 25, 0)
$Wyjscie = GUICtrlCreateButton("Wyjscie", 168, 184, 113, 25, 0)
$Combo2 = GUICtrlCreateCombo("10", 32, 64, 97, 21)
$Combo1 = GUICtrlCreateCombo("2", 200, 64, 57, 25)
$Button4 = GUICtrlCreateButton("Schowaj", 24, 128, 113, 33, 0)
$Button5 = GUICtrlCreateButton("Pokaz", 168, 128, 113, 33, 0)
$Tab1 = GUICtrlCreateTab(0, -8, 73, 25)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("")
$Gra = GUICtrlCreateTab(69, -8, 73, 25)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
GUICtrlCreateTabItem("Start")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
Switch GUIGetMsg()
               Case $GUI_EVENT_CLOSE
                       MsgBox(0, "Wyjscie", "Narazie")
                               ExitLoop
                                                       Case $Start
                                                                                            Sleep(2000)
                               $klawisz=GUICtrlRead($Combo1)
							$czas=GUICtrlSetState(-1 ,1)
							$czas=GuiSetState($Combo2)
                               msgbox(0,"Gotowe",$klawisz&"  "&$czas)
                                                               While 1
                                       Send($klawisz)
                                       Sleep($Combo2)
                                                               WEnd    
                               ;tu nie bardzo wiem co wpisac
                                                       Case $Wyjscie
                                                               MsgBox(0, "Wyjscie", "Koniec")
                               Exit
          EndSwitch
                                                       Switch GUIGetMsg()
													Case $Stop 
														Sleep(20)
														While 1
														$klawisz=GUICtrlDelete($Combo1)
														$czas=GUICtrlDelete($Combo2)
													WEnd

												Case $Button4
													While 1
														GUICtrlSetResizing(-1, $GUI_EVENT_MINIMIZE)
                                                                 Sleep(1000)	
                                                   WEnd																  
                       EndSwitch                                               
WEnd

//Za duża sygnaturka.

Kulfix Budowniczy

Kulfix

Opublikowano
Budowniczy

Kulfix

Opublikowano

 

 

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
hotkeyset("{ESC}","Przerwanie")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 301, 201, 192, 124)
$wyjscie = GUICtrlCreateButton("Wyjscie", 176, 168, 81, 25, $WS_GROUP)
$start = GUICtrlCreateButton("Start", 41, 168, 79, 25, $WS_GROUP)
$schowaj = GUICtrlCreateButton("Schowaj", 40, 128, 81, 25, $WS_GROUP)
$pokaz = GUICtrlCreateButton("Pokaz", 176, 128, 81, 25, $WS_GROUP)
$Combo1 = GUICtrlCreateCombo("K", 32, 80, 105, 25)
GUICtrlSetData(-1, "A|B|C|D|E|F|G|H|I|J|K", "K") 
$Label1 = GUICtrlCreateLabel("KLAWISZ:", 40, 64, 55, 17)
$Input1 = GUICtrlCreateInput("1", 176, 80, 81, 21,$ES_NUMBER);$ES_NUMBER powoduje ze mozesz wpisac tylko liczbe.
$Label2 = GUICtrlCreateLabel("LICZBA SEKUND", 176, 64, 89, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$czas=GuiCtrlRead($Input1)*1000
$klawisz=GuiCtrlRead($Combo1)
$s=0
$przerwanie=0
Func PRZERWANIE()
   $przerwanie = 1
EndFunc  

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
	Case $GUI_EVENT_CLOSE
		Exit;ten switch wylacza okienko po nacisnieciu X
	case $wyjscie
		Exit
	case $schowaj
		GUISetState(@SW_MINIMIZE)
	case $pokaz
		GUISetState(@SW_RESTORE)
	case $start
		msgbox(1,"ok",$klawisz&" co "&$czas&" milisekund.")
		Do
			  If $przerwanie =1 Then
                   $przerwanie = 0
                   ExitLoop
               EndIf
			Send($klawisz)
			sleep($czas)

		Until 1=0
	EndSwitch
WEnd

 

 

Szczerze to nie wiem jak przerwac petle przez GUI... zrobilem to pod skrotem klawiszowym (ESC).

TooFly Pasjonat

TooFly

Opublikowano
Pasjonat

TooFly

  • Autor
Opublikowano

dzieki chyba bym nigdy na to nie wpadł :)

Ehh jednak cos nie tak Klawisz zostaje wciśniąty ale co sek jaka wpisze w scrip nie ta co napisze do label 

include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
hotkeyset("{ESC}","Przerwanie")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 301, 201, 192, 124)
$wyjscie = GUICtrlCreateButton("Wyjscie", 176, 168, 81, 25, $WS_GROUP)
$start = GUICtrlCreateButton("Start", 41, 168, 79, 25, $WS_GROUP)
$schowaj = GUICtrlCreateButton("Schowaj", 40, 128, 81, 25, $WS_GROUP)
$pokaz = GUICtrlCreateButton("Pokaz", 176, 128, 81, 25, $WS_GROUP)
$Combo1 = GUICtrlCreateCombo("K", 32, 80, 105, 25)
GUICtrlSetData(-1, "A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|R|S|T|U|W|X|Y|Z|1|2|3|4|5|6|7|8|9|0", "") ;to co wpisze w druige "tu" zpstaje wcisniete a nie wybrane przezemnie  
$Label1 = GUICtrlCreateLabel("KLAWISZ:", 40, 64, 55, 17)
$Input1 = GUICtrlCreateInput("", 176, 80, 81, 21,$ES_NUMBER);$ES_NUMBER powoduje ze mozesz wpisac tylko liczbe. tak samo nie kliknie co tyle sek co podam lecz tylko ile wpisze w "tu"
$Label2 = GUICtrlCreateLabel("LICZBA SEKUND", 176, 64, 89, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$czas=GuiCtrlRead($Input1)*1000
$klawisz=GuiCtrlRead($Combo1)
$s=0
$przerwanie=0
Func PRZERWANIE()
   $przerwanie = 1
EndFunc  

While 1
       $nMsg = GUIGetMsg()
       Switch $nMsg
               Case $GUI_EVENT_CLOSE
                       Exit;ten switch wylacza okienko po nacisnieciu X
               case $wyjscie
                       Exit
               case $schowaj
                       GUISetState(@SW_MINIMIZE)
               case $pokaz
                       GUISetState(@SW_RESTORE)
               case $start
                       msgbox(1,"ok",$klawisz&" co "&$czas&" milisekund.")
                       Do
                                 If $przerwanie =1 Then
                   $przerwanie = 0
                   ExitLoop
               EndIf
                               Send($klawisz)
                               sleep($czas)

                       Until 1=0
               EndSwitch
WEnd

//Za duża sygnaturka.

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...