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

Problem z gui

paweleke

Przez paweleke
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

paweleke Budowniczy

paweleke

Opublikowano
Budowniczy

paweleke

Opublikowano

Po uruchomieniu program się włącza (gui) ale mimo kliknięciu Start/Stop nic się nie dzieje :C

 

 

 

#include <ImageSearch.au3>
Global $x, $y, $c, $v , $search, $search1 , $x1, $y1 , $search2, $x2, $y2, $search3
Local $search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
Local $search1 = _ImageSearch('E:\Pawel\Moje/gry1.bmp', 0, $c, $v, 0)
Local $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
Local $search3= _ImageSearch('E:\Pawel\Moje/send.bmp', 0, $x2, $y2, 0)
Func szara() ; szuka szarej gwiazdki i w nią klika
$search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
    If $search = 1 Then
        MouseClick ("left", $x, $y, 1 ,10)
        Sleep (500)
    EndIf
EndFunc

Func zolta() ; szuka zoltej gwiazdki i w nia klika
$search1 = _ImageSearch('E:\Pawel\Moje/gry1.bmp', 0, $c, $v, 0)
    If $search1 = 1 Then
        MouseClick ("left" ,$c , $v ,1 ,10)
        Sleep (500)
    EndIf
EndFunc

Func klik()
    Do
    If $search = 1 Then
        szara()
    Else
        zolta()
    EndIf
    $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
    Until $search2 = 1
EndFunc


Func wpisyw ()
    Do
        Sleep(500)
        $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
        If $search2 = 1 Then
            Sleep (1000)
            MouseClick ("left" , $x1,$y1,1,5)
            Sleep(1000)
            Send ("10")
            Sleep (1000)
            $search3= _ImageSearch('E:\Pawel\Moje/send.bmp', 0, $x2, $y2, 0)
            MouseClick ("left", $x2 , $y2, 1, 5)
            Sleep (1000)
            $search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
        EndIf
        Until $search = 1
EndFunc

Func Calosc()
    klik()
    wpisyw()
EndFunc

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 56, 192, 483, 81)
$Button2 = GUICtrlCreateButton("Stop", 56, 272, 483, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###




Func hehe()
While 1
    $nMSG = GUIGetMsg
     Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
             calosc()
         Case $Button2
             Exit
    EndSwitch
WEnd
EndFunc
 

IZZER4 Pasjonat

IZZER4

Opublikowano
Pasjonat

IZZER4

Opublikowano

To juz nawet petle od gui daje sie do funkcji?

#include <ImageSearch.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 56, 192, 483, 81)
$Button2 = GUICtrlCreateButton("Stop", 56, 272, 483, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $x, $y, $c, $v , $search, $search1 , $x1, $y1 , $search2, $x2, $y2, $search3
Local $search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
Local $search1 = _ImageSearch('E:\Pawel\Moje/gry1.bmp', 0, $c, $v, 0)
Local $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
Local $search3= _ImageSearch('E:\Pawel\Moje/send.bmp', 0, $x2, $y2, 0)
While 1
    $nMSG = GUIGetMsg
     Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
             calosc()
         Case $Button2
             Exit
    EndSwitch
WEnd
Func szara() ; szuka szarej gwiazdki i w nią klika
$search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
    If $search = 1 Then
        MouseClick ("left", $x, $y, 1 ,10)
        Sleep (500)
    EndIf
EndFunc

Func zolta() ; szuka zoltej gwiazdki i w nia klika
$search1 = _ImageSearch('E:\Pawel\Moje/gry1.bmp', 0, $c, $v, 0)
    If $search1 = 1 Then
        MouseClick ("left" ,$c , $v ,1 ,10)
        Sleep (500)
    EndIf
EndFunc

Func klik()
    Do
    If $search = 1 Then
        szara()
    Else
        zolta()
    EndIf
    $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
    Until $search2 = 1
EndFunc


Func wpisyw ()
    Do
        Sleep(500)
        $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
        If $search2 = 1 Then
            Sleep (1000)
            MouseClick ("left" , $x1,$y1,1,5)
            Sleep(1000)
            Send ("10")
            Sleep (1000)
            $search3= _ImageSearch('E:\Pawel\Moje/send.bmp', 0, $x2, $y2, 0)
            MouseClick ("left", $x2 , $y2, 1, 5)
            Sleep (1000)
            $search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
        EndIf
        Until $search = 1
EndFunc

Func Calosc()
    klik()
    wpisyw()
EndFunc
paweleke Budowniczy

paweleke

Opublikowano
Budowniczy

paweleke

  • Autor
Opublikowano

 

To juz nawet petle od gui daje sie do funkcji?

#include <ImageSearch.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 438, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 56, 192, 483, 81)
$Button2 = GUICtrlCreateButton("Stop", 56, 272, 483, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $x, $y, $c, $v , $search, $search1 , $x1, $y1 , $search2, $x2, $y2, $search3
Local $search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
Local $search1 = _ImageSearch('E:\Pawel\Moje/gry1.bmp', 0, $c, $v, 0)
Local $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
Local $search3= _ImageSearch('E:\Pawel\Moje/send.bmp', 0, $x2, $y2, 0)
While 1
    $nMSG = GUIGetMsg
     Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
         Case $Button1
             calosc()
         Case $Button2
             Exit
    EndSwitch
WEnd
Func szara() ; szuka szarej gwiazdki i w nią klika
$search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
    If $search = 1 Then
        MouseClick ("left", $x, $y, 1 ,10)
        Sleep (500)
    EndIf
EndFunc

Func zolta() ; szuka zoltej gwiazdki i w nia klika
$search1 = _ImageSearch('E:\Pawel\Moje/gry1.bmp', 0, $c, $v, 0)
    If $search1 = 1 Then
        MouseClick ("left" ,$c , $v ,1 ,10)
        Sleep (500)
    EndIf
EndFunc

Func klik()
    Do
    If $search = 1 Then
        szara()
    Else
        zolta()
    EndIf
    $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
    Until $search2 = 1
EndFunc


Func wpisyw ()
    Do
        Sleep(500)
        $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
        If $search2 = 1 Then
            Sleep (1000)
            MouseClick ("left" , $x1,$y1,1,5)
            Sleep(1000)
            Send ("10")
            Sleep (1000)
            $search3= _ImageSearch('E:\Pawel\Moje/send.bmp', 0, $x2, $y2, 0)
            MouseClick ("left", $x2 , $y2, 1, 5)
            Sleep (1000)
            $search = _ImageSearch('E:\Pawel\Moje/gry.bmp', 0, $x, $y, 0)
        EndIf
        Until $search = 1
EndFunc

Func Calosc()
    klik()
    wpisyw()
EndFunc

Nie działa

IZZER4 Pasjonat

IZZER4

Opublikowano
Pasjonat

IZZER4

Opublikowano

Pierwsz co to;

Func klik()
    Do
    If $search = 1 Then
        szara()
    Else
        zolta()
    EndIf
    $search2 = _ImageSearch('E:\Pawel\Moje/wpis.bmp', 0, $x1, $y1, 0)
    Until $search2 = 1
EndFunc

Przeciez tutaj zawsze $search bedzie sie rownac 0 i zawsze bedzie odpalac funkcje zolta.

Wiecej bledow tutaj nie widze. Sprawdz np przez consolewrite gdzie dochodzi kod.

Zarchiwizowany

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

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