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

Okienko do wpisania wartości i przycisk start

Maciej_27

Rekomendowane odpowiedzi

Maciej_27 Rekrut

Maciej_27

Opublikowano
Rekrut

Maciej_27

Opublikowano

Witam wszystkich,

 

Napisałem prostego bota który wykonuje szereg kliknieć, nawet działa

 

teraz chciałbym umieścić ten kod w małej oprawie graficznej, czyli tak żeby podczas uruchomienia programu wyskoczyło małe okienko w którym wpisze ilość powtórzeń i obok mały  przycisk start który uruchomi to wszystko.

Maciej_27 Rekrut

Maciej_27

Opublikowano
Rekrut

Maciej_27

  • Autor
Opublikowano

To co udało mi się zarobić

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

$pow = 10

$Form1 = GUICreate("Przyklad", 300, 100, 100, 0)

$Button1 = GUICtrlCreateButton("Start", 100, 20, 100, 25)

$label1 = GUICtrlCreateInput("", 100, 50, 100, 24)

GUISetState(@SW_SHOW, $Form1)

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE ;zamyka program

Exit

 

Case $Button1 ;jeżeli kliknie Start

For $i=1 to $pow ; to uruchamia sie cykl

MouseClick("left", 500, 400)

sleep(100)

MouseClick("left", 560, 420)

Next

EndSwitch

wEnd

 

Czyli wyciskam start program uruchamia się, ale nie mogę poradzić sobie z tym polem gdzie wpisuje się wartość chciałbym żeby np,wpisując tam 10 program zapetlił się 10razy.

metinplayer Uczeń

metinplayer

Opublikowano
Uczeń

metinplayer

Opublikowano

To co udało mi się zarobić

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

$pow = 10

$Form1 = GUICreate("Przyklad", 300, 100, 100, 0)

$Button1 = GUICtrlCreateButton("Start", 100, 20, 100, 25)

$label1 = GUICtrlCreateInput("", 100, 50, 100, 24)

GUISetState(@SW_SHOW, $Form1)

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE ;zamyka program

Exit

 

Case $Button1 ;jeżeli kliknie Start

For $i=1 to $pow ; to uruchamia sie cykl

MouseClick("left", 500, 400)

sleep(100)

MouseClick("left", 560, 420)

Next

EndSwitch

wEnd

 

Czyli wyciskam start program uruchamia się, ale nie mogę poradzić sobie z tym polem gdzie wpisuje się wartość chciałbym żeby np,wpisując tam 10 program zapetlił się 10razy.

Witam @1361622928-U485574.pngMaciej_27 obczaj to:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Przyklad", 300, 100, 100, 0)
$Button1 = GUICtrlCreateButton("Start", 100, 20, 100, 25)
$label1 = GUICtrlCreateInput("", 100, 50, 100, 24)
GUISetState(@SW_SHOW, $Form1)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ;zamyka program
Exit

Case $Button1 ;jeżeli kliknie Start
For $i=1 to GUICtrlRead($label1) ; to uruchamia sie cykl
MouseClick("left", 500, 400)
sleep(100)
MouseClick("left", 560, 420)
Next
EndSwitch
wEnd
Ktosiu Znawca

Ktosiu

Opublikowano
Znawca

Ktosiu

Opublikowano

Popraw też

$label1 = GUICtrlCreateInput("", 100, 50, 100, 24, $ES_NUMBER )

Mózg to nie mydło; nie ubędzie Ci go, gdy go użyjesz.

metinplayer Uczeń

metinplayer

Opublikowano
Uczeń

metinplayer

Opublikowano

Popraw też

$label1 = GUICtrlCreateInput("", 100, 50, 100, 24, $ES_NUMBER )

Bedzie tez musiał zdeklarować zmienną $ES_NUMBER bo wywali błedy i nie odpali.

Tak np.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$ES_NUMBER = 0
$Form1 = GUICreate("Przyklad", 300, 100, 100, 0)
$Button1 = GUICtrlCreateButton("Start", 100, 20, 100, 25)
;$label1 = GUICtrlCreateInput("", 100, 50, 100, 24)
$label1 = GUICtrlCreateInput("", 100, 50, 100, 24, $ES_NUMBER)
GUISetState(@SW_SHOW, $Form1)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ;zamyka program
Exit

Case $Button1 ;jeżeli kliknie Start
For $i=1 to GUICtrlRead($label1) ; to uruchamia sie cykl
MouseClick("left", 500, 400)
sleep(100)
MouseClick("left", 560, 420)
Next
EndSwitch
wEnd
Ktosiu Znawca

Ktosiu

Opublikowano
Znawca

Ktosiu

Opublikowano

$ES_NUMBER to styl wyświetla tylko cyfry 

 

Trzeba dopisać tylko, nie jest to zmienna ! 

#include <GuiEdit.au3>

Mózg to nie mydło; nie ubędzie Ci go, gdy go użyjesz.

metinplayer Uczeń

metinplayer

Opublikowano
Uczeń

metinplayer

Opublikowano

$ES_NUMBER to styl wyświetla tylko cyfry 

 

Trzeba dopisać tylko, nie jest to zmienna ! 

#include <GuiEdit.au3>

 

$ES_NUMBER jest w EditConstants.au3 u mnie dziękować i amen xD .

Maciej_27 Rekrut

Maciej_27

Opublikowano
Rekrut

Maciej_27

  • Autor
Opublikowano

A mam pytanie jeszcze, program działa ale chciałbym go troche rozbudować, tak żeby w okienku tym pokazywało aktualne powtórzenie, czyli np. wpisuje 100 powtórzeń program sobie działa i za jakiś czas jak przyjde do komputera chciałbym zobaczyć które aktualnie powtórzenie idzie. Macie może krótki kod który mógłbym tu wkleić ?

wasta Nowicjusz

wasta

Opublikowano
Nowicjusz

wasta

Opublikowano

Można np. tak:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$ES_NUMBER = 0
$Form1 = GUICreate("Przyklad", 300, 100, 100, 0)
$Button1 = GUICtrlCreateButton("Start", 100, 20, 100, 25)
;$label1 = GUICtrlCreateInput("", 100, 50, 100, 24)
$label1 = GUICtrlCreateInput("", 100, 50, 100, 24, $ES_NUMBER)
GUISetState(@SW_SHOW, $Form1)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE ;zamyka program
         Exit

      Case $Button1 ;jeżeli kliknie Start
         For $i=1 to GUICtrlRead($label1) ; to uruchamia sie cykl
            ToolTip($i)                   ; tootip wyświetlający wartość licznika pętli
            MouseClick("left", 500, 400)
            sleep(100)
            MouseClick("left", 560, 420)
         Next
   EndSwitch
wEnd
metinplayer Uczeń

metinplayer

Opublikowano
Uczeń

metinplayer

Opublikowano

 

Można np. tak:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$ES_NUMBER = 0
$Form1 = GUICreate("Przyklad", 300, 100, 100, 0)
$Button1 = GUICtrlCreateButton("Start", 100, 20, 100, 25)
;$label1 = GUICtrlCreateInput("", 100, 50, 100, 24)
$label1 = GUICtrlCreateInput("", 100, 50, 100, 24, $ES_NUMBER)
GUISetState(@SW_SHOW, $Form1)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE ;zamyka program
         Exit

      Case $Button1 ;jeżeli kliknie Start
         For $i=1 to GUICtrlRead($label1) ; to uruchamia sie cykl
            ToolTip($i)                   ; tootip wyświetlający wartość licznika pętli
            MouseClick("left", 500, 400)
            sleep(100)
            MouseClick("left", 560, 420)
         Next
   EndSwitch
wEnd

Ja stosuję komunikaty na oknie programu bo tooltip czasami zasłania coś. ;)

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$ES_NUMBER = 0
$Form1 = GUICreate("Przyklad", 300, 100, 100, 0)
$Button1 = GUICtrlCreateButton("Start", 100, 20, 100, 25)
$label1 = GUICtrlCreateInput("", 100, 50, 100, 24, $ES_NUMBER)
$Label2 = GUICtrlCreateLabel("ilośc cykli"&" 0", 10, 10,70, 75)
GUISetState(@SW_SHOW, $Form1)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
      Case $GUI_EVENT_CLOSE ;zamyka program
         Exit

      Case $Button1 ;jeżeli kliknie Start
         For $i=1 to GUICtrlRead($label1) ; to uruchamia sie cykl
            GUICtrlSetData($Label2,"Ilość cykli "&$i) ;ilość cykli wyswietlana na $Form1 - można dowolnie przesuwać.
			;ToolTip($i)                   ; tootip wyświetlający wartość licznika pętli
            MouseClick("left", 500, 400)
            sleep(100)
            MouseClick("left", 560, 420)
         Next
   EndSwitch
wEnd

Zarchiwizowany

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

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