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

Pomoc w pixel search


Rekomendowane odpowiedzi

Opublikowano

O ile dobrze zrozumiałem to ma to działać tak:

1. Co 2 sek. sprawdza czy na koordynatach jest kolor zielony.

2. Jeżeli pojawi się kolor zielony to wykonuje odpowiednią sekwencję klawiszy (funkcja IsGreen()) i odczekuje 40 sek.

3. Sprawdza kolor na zadanych koordynatach.

4. Jeżeli jest czarny to wykonuje sekwencję klawiszy (funkcja TsBlack()).

5. Jeżeli jest czerwony to wykonuje sekwencję klawiszy (funkcja TsRed()).

6. Wraca do początku pętli.

HotKeySet("{Esc}", "end")

;definicje poszukiwanych kolorów (wstawić właściwe)
$iGreen = 0x00FF00
$iBlack = 0x454545
$iRed   = 0xB04A43


While True
   If PixelGetColor(1848, 485) = $iGreen Then
      IsGreen()
      Sleep(40000)
      Switch PixelGetColor(1848, 485)
	 Case $iBlack
	    IsBlack()
	 Case $iRed
	    IsRed()
      EndSwitch
   EndIf
   Sleep(2000)
WEnd

;-------------------------------------------------------
Func IsGreen()
   ;tu sekwencja
   ;dla koloru
   ;zielonego
EndFunc

Func IsBlack()
   ;tu sekwencja
   ;dla koloru
   ;czarnego
EndFunc

Func IsRed()
   ;tu sekwencja
   ;dla koloru
   ;czerwonego
EndFunc

Func end()
   Exit
EndFunc

Oczywiście do tego kodu musisz wstawić swoje sekwencje klawiszy i zweryfikować kody kolorów.

Opublikowano
Teraz to wygląda tak, jeszcze chcę aby przy każdej funkcji bez znaczenia czy to funkcja isblack, isred, isgreen sprawdzało co 2 sekundy czy kolor się zmienił jesli tak to zaczyna wykonywać sekwencje przypisaną do tego koloru co się pokaże.

 

HotKeySet("{Esc}", "end")

 

Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "C:\Program Files (x86)\Google\Chrome\Application")

MouseClick ("left", 2052, 46, 2)

MouseClick("left", 376, 61)

Send("csgoatse.com")

Sleep(2000)

Send("{ENTER}")

Sleep(5000)

 

 

;definicje poszukiwanych kolorów (wstawić właściwe)

$iGreen = 0x44A21C

$iBlack = 0x424242

$iRed   = 0xA80E19

 

 

While True

   If PixelGetColor(1280, 589) = $iRed Then

      IsRed()

      Sleep(35000)

      Switch PixelGetColor(1280, 589)

Case $iGreen

   IsGreen()

Case $iBlack

   IsBlack()

      EndSwitch

   EndIf

   Sleep(2000)

WEnd

 

;-------------------------------------------------------

Func IsGreen()

 MouseClick ( "left" , 839, 670)

 Send ( "{BS 10}" )

  MouseClick ("left", 754, 661, 1, 10 )

  Send ( "4" )

  MouseClick ( "left", 1056, 799)

  Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

    Sleep (35000)

  MouseClick ("left", 1602, 664)

  MouseClick ( "left", 1056, 799)

 

 

EndFunc

 

Func IsBlack()

MouseClick ( "left" , 839, 670)

 Send ( "{BS 10}" )

MouseClick ("left", 754, 661, 1, 10 )

Send ( "4" )

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

Sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ( "left", 1727, 807)

EndFunc

 

Func IsRed()

MouseClick ( "left" , 839, 670)

 Send ( "{BS 10}" )

MouseClick ("left", 754, 661, 1, 10 )

Send ( "4" )

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

sleep (35000)

MouseClick ("left", 1602, 664)

MouseClick ("left", 367, 807)

EndFunc

 

Func end()

   Exit

EndFunc

Opublikowano

O ile dobrze zrozumiałem intencje:

HotKeySet("{Esc}", "end")

;definicje poszukiwanych kolorów (wstawić właściwe)
$iGreen = 0x44A21C
$iBlack = 0x424242
$iRed   = 0xA80E19

;identyfikator ostatnio znalezionego koloru
$iIC = -1

Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "C:\Program Files (x86)\Google\Chrome\Application")
MouseClick ("left", 2052, 46, 2)
MouseClick("left", 376, 61)
Send("csgoatse.com")
Sleep(2000)
Send("{ENTER}")
Sleep(5000)

While True
   $iColor = PixelGetColor(1848, 485)
   If $iColor = $iBlack And $iIC <> $iBlack Then
      $iIC = $iBlack
      IsBlack()
   EndIf
    If $iColor = $iGreen And $iIC <> $iGreen Then
      $iIC = $iGreen
      IsGreen()
   EndIf
   If $iColor = $iRed And $iIC <> $iRed Then
      $iIC = $iRed
      IsRed()
   EndIf
   Sleep(2000)
WEnd

;-------------------------------------------------------
Func IsGreen()
  ;tu sekwencja
  ;dla koloru
  ;zielonego
EndFunc

Func IsBlack()
  ;tu sekwencja
  ;dla koloru
  ;czarnego
EndFunc

Func IsRed()
  ;tu sekwencja
  ;dla koloru
  ;czerwonego
EndFunc

Func end()
   Exit
EndFunc

Teraz to działa tak:

- sprawdza czy na koordynatach (1848, 485) znajduje się jeden z kolorów BGR

- jeżeli tak to wywołuje odpowiednią funkcję i w zmiennej $iIC zapisuje jaki to był kolor

- przy kolejnych obiegach pętli odpowiednia funkcja będzie wywoływana tylko wtedy, gdy znaleziony kolor BGR jest różny od tego zapamiętanego w zmiennej $iIC.

Opublikowano

Nadal jest tak samo, cały czas wykonuje mi sekwencje czarnego jak się pojawi czerwony. Powinien przerwać i zacząć robić sekwencję przypisaną do czerwonego. A jest tak, że póki nie skończy całej sekwencji przypisanej do danego koloru to nie zacznie innej. Mój skrypt wygląda tak:

 

HotKeySet("{Esc}", "end")
 
;definicje poszukiwanych kolorów (wstawić właściwe)
$iGreen = 0x44A21C
$iBlack = 0x424242
$iRed   = 0xA80E19
 
;identyfikator ostatnio znalezionego koloru
$iIC = -1
 
Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "C:\Program Files (x86)\Google\Chrome\Application")
MouseClick ("left", 622, 46, 2)
MouseClick("left", 308, 62)
Send("csgoatse.com")
Sleep(2000)
Send("{ENTER}")
Sleep(5000)
 
While True
   $iColor = PixelGetColor(1279, 590)
   If $iColor = $iBlack And $iIC <> $iBlack Then
      $iIC = $iBlack
      IsBlack()
   EndIf
    If $iColor = $iGreen And $iIC <> $iGreen Then
      $iIC = $iGreen
      IsGreen()
   EndIf
   If $iColor = $iRed And $iIC <> $iRed Then
      $iIC = $iRed
      IsRed()
   EndIf
   Sleep(2000)
WEnd
 
;-------------------------------------------------------
Func IsGreen()
 MouseClick ( "left" , 839, 670)
 Send ( "{BS 10}" )
  MouseClick ("left", 754, 661, 1, 10 )
  Send ( "4" )
  MouseClick ( "left", 1056, 799)
  Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
    Sleep (35000)
  MouseClick ("left", 1602, 664)
  MouseClick ( "left", 1056, 799)
EndFunc
 
Func IsBlack()
MouseClick ( "left" , 839, 670)
 Send ( "{BS 10}" )
MouseClick ("left", 754, 661, 1, 10 )
Send ( "4" )
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
Sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ( "left", 1727, 807)
EndFunc
 
Func IsRed()
MouseClick ( "left" , 839, 670)
 Send ( "{BS 10}" )
MouseClick ("left", 754, 661, 1, 10 )
Send ( "4" )
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
sleep (35000)
MouseClick ("left", 1602, 664)
MouseClick ("left", 367, 807)
EndFunc
 
Func end()
   Exit
EndFunc
Opublikowano


HotKeySet("{Esc}", "end")

 

;definicje poszukiwanych kolorów (wstawić właściwe)

$iGreen = 0x44A21C

$iBlack = 0x424242

$iRed = 0xA80E19

 

;identyfikator ostatnio znalezionego koloru

$iIC = -1

 

Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "C:\Program Files (x86)\Google\Chrome\Application")

MouseClick("left", 622, 46, 2)

MouseClick("left", 308, 62)

Send("csgoatse.com")

Sleep(2000)

Send("{ENTER}")

Sleep(5000)

AdlibRegister("ChybaTak", 2000)

 

While True

sleep(100)

WEnd

 

Func ChybaTak()

$iColor = PixelGetColor(1279, 590)

If $iColor = $iBlack And $iIC <> $iBlack Then

$iIC = $iBlack

IsBlack()

EndIf

If $iColor = $iGreen And $iIC <> $iGreen Then

$iIC = $iGreen

IsGreen()

EndIf

If $iColor = $iRed And $iIC <> $iRed Then

$iIC = $iRed

IsRed()

EndIf

EndFunc

 

;-------------------------------------------------------

Func IsGreen()

MouseClick("left", 839, 670)

Send("{BS 10}")

MouseClick("left", 754, 661, 1, 10)

Send("4")

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1056, 799)

EndFunc ;==>IsGreen

 

Func IsBlack()

MouseClick("left", 839, 670)

Send("{BS 10}")

MouseClick("left", 754, 661, 1, 10)

Send("4")

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 1727, 807)

EndFunc ;==>IsBlack

 

Func IsRed()

MouseClick("left", 839, 670)

Send("{BS 10}")

MouseClick("left", 754, 661, 1, 10)

Send("4")

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

Sleep(35000)

MouseClick("left", 1602, 664)

MouseClick("left", 367, 807)

EndFunc ;==>IsRed

 

Func end()

Exit

EndFunc ;==>end

 

 

 

Opublikowano

Nadal nie przerywa sekwencji przypisanej do czerwonego, czarnego lub zielonego tylko czeka aż skończy się do końca cała sekwencja wtedy dopiero zaczyna inną sekwencje koloru. Przedstawie tak:

 

1.pojawia się kolor czarny, skrypt wykonuje sekwencje przypisaną do czarnego:

 

Func IsBlack()
Sleep (3000)
MouseClick("left", 839, 670)
Send("{BS 10}")
MouseClick("left", 754, 661, 1, 10)
Send("4")
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807) <--------------------- w tym momencie pokazuje się kolor czerwony i zamiast zacząć sekwencje koloru czerwonego skrypt musi dokończyć resztę sekwencji. Chcę aby w tym momencie co się pojawił kolor czerwony skrypt przerywał sekwencję i zaczynał sekwencję przypisaną czerwonego. 
 
 
W praktyce to wygląda tak: 
1. pojawia się kolor czarny, ,skrypt wykonuje sekwencje czarnego: 
 
Func IsBlack()
Sleep (3000)
MouseClick("left", 839, 670)
Send("{BS 10}")
MouseClick("left", 754, 661, 1, 10)
Send("4")
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)<---------------------- teraz pokazuje się czerwony ale skrypt nie przerywa sekwencji tylko kontynuuje sekwencje. W tym jest cały problem.
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Sleep(35000)
MouseClick("left", 1602, 664)
MouseClick("left", 1727, 807)
Opublikowano

Teraz?

HotKeySet("{Esc}", "end")

;definicje poszukiwanych kolorów (wstawić właściwe)
$iGreen = 0x44A21C
$iBlack = 0x424242
$iRed = 0xA80E19

;identyfikator ostatnio znalezionego koloru
$iIC = -1
Exit
Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "C:\Program Files (x86)\Google\Chrome\Application")
MouseClick("left", 622, 46, 2)
MouseClick("left", 308, 62)
Send("csgoatse.com")
Sleep(2000)
Send("{ENTER}")
Sleep(5000)
AdlibRegister("ChybaTak", 2000)

While True
	Sleep(100)
WEnd

Func ChybaTak()
	$iColor = PixelGetColor(1279, 590)
	If $iColor = $iBlack And $iIC <> $iBlack Then
		$iIC = $iBlack
		IsBlack()
	EndIf
	If $iColor = $iGreen And $iIC <> $iGreen Then
		$iIC = $iGreen
		IsGreen()
	EndIf
	If $iColor = $iRed And $iIC <> $iRed Then
		$iIC = $iRed
		IsRed()
	EndIf
EndFunc

Func SuperSleep($sleeptime)
	For $i = 0 To ($sleeptime/100)
		Sleep(100)
	Next
EndFunc

;-------------------------------------------------------
Func IsGreen()
	MouseClick("left", 839, 670)
	Send("{BS 10}")
	MouseClick("left", 754, 661, 1, 10)
	Send("4")
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
EndFunc   ;==>IsGreen

Func IsBlack()
	MouseClick("left", 839, 670)
	Send("{BS 10}")
	MouseClick("left", 754, 661, 1, 10)
	Send("4")
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
EndFunc   ;==>IsBlack

Func IsRed()
	MouseClick("left", 839, 670)
	Send("{BS 10}")
	MouseClick("left", 754, 661, 1, 10)
	Send("4")
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
EndFunc   ;==>IsRed

Func end()
	Exit
EndFunc   ;==>end

 

 

Opublikowano

To zostaje najmniej optymalne rozwiazanie, nic innego mi nie przychodzi do glowy (procz napisania tego od nowa).

HotKeySet("{Esc}", "end")

;definicje poszukiwanych kolorów (wstawić właściwe)
$iGreen = 0x44A21C
$iBlack = 0x424242
$iRed = 0xA80E19

;identyfikator ostatnio znalezionego koloru
$iIC = -1

Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "C:\Program Files (x86)\Google\Chrome\Application")
MouseClick("left", 622, 46, 2)
MouseClick("left", 308, 62)
Send("csgoatse.com")
Sleep(2000)
Send("{ENTER}")
Sleep(5000)

While True
	ChybaTak()
	Sleep(2000)
WEnd

Func ChybaTak()
	$iColor = PixelGetColor(1279, 590)
	If $iColor = $iBlack And $iIC <> $iBlack Then
		$iIC = $iBlack
		IsBlack()
	EndIf
	If $iColor = $iGreen And $iIC <> $iGreen Then
		$iIC = $iGreen
		IsGreen()
	EndIf
	If $iColor = $iRed And $iIC <> $iRed Then
		$iIC = $iRed
		IsRed()
	EndIf
EndFunc

Func SuperSleep($sleeptime)
	$sleeptime = $sleeptime / 2000
	For $i = 0 To $sleeptime
		ChybaTak()
		Sleep(2000)
	Next
EndFunc

;-------------------------------------------------------
Func IsGreen()
	MouseClick("left", 839, 670)
	Send("{BS 10}")
	MouseClick("left", 754, 661, 1, 10)
	Send("4")
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1056, 799)
EndFunc   ;==>IsGreen

Func IsBlack()
	MouseClick("left", 839, 670)
	Send("{BS 10}")
	MouseClick("left", 754, 661, 1, 10)
	Send("4")
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 1727, 807)
EndFunc   ;==>IsBlack

Func IsRed()
	MouseClick("left", 839, 670)
	Send("{BS 10}")
	MouseClick("left", 754, 661, 1, 10)
	Send("4")
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
	SuperSleep(35000)
	MouseClick("left", 1602, 664)
	MouseClick("left", 367, 807)
EndFunc   ;==>IsRed

Func end()
	Exit
EndFunc   ;==>end

 

 

Opublikowano

A co powiecie na takie coś:

HotKeySet("{Esc}", "end")

;definicje poszukiwanych kolorów (wstawić właściwe)
Global $iBlack = 0x424242
Global $iGreen = 0x44A21C
Global $iRed   = 0xA80E19

;identyfikator ostatnio znalezionego koloru
Global $iIC = -1

If Not ProcessExists("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe") Then
   If Run("C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "C:\Program Files (x86)\Google\Chrome\Application"))=0 Then Exit
   MouseClick("left", 2052, 46, 2)
   MouseClick("left", 376, 61)
   Send("csgoatse.com")
   Sleep(2000)
   Send("{ENTER}")
   Sleep(5000)
EndIf

While True
   $iColor = PixelGetColor(1848, 485)
   If $iColor = $iBlack And $iIC <> $iBlack Then
      $iIC = $iBlack
      Sleep(3000)
      IsBlack()
   EndIf
   If $iColor = $iGreen And $iIC <> $iGreen Then
      $iIC = $iGreen
      Sleep(3000)
      IsGreen()
   EndIf
   If $iColor = $iRed And $iIC <> $iRed Then
      $iIC = $iRed
      Sleep(3000)
      IsRed()
   EndIf
   Sleep(200)
WEnd

;-------------------------------------------------------
Func IsGreen()
  AdlibRegister("Restart", 1000)
  ;tu sekwencja
  ;dla koloru
  ;zielonego
  AdlibUnRegister()
EndFunc

Func IsBlack()
  AdlibRegister("Restart", 1000)
  ;tu sekwencja
  ;dla koloru
  ;czarnego
  AdlibUnRegister()
EndFunc

Func IsRed()
  AdlibRegister("Restart", 1000)
  ;tu sekwencja
  ;dla koloru
  ;czerwonego
  AdlibUnRegister()
EndFunc
;---------------------------------------------------------------------------------------------
Func Restart()
   Local $iColor = PixelGetColor(1848, 485)
   If $iColor <> $iIC And ($iColor = $iBlack Or $iColor = $iGreen Or $iColor = $iRed) Then
      If @compiled Then
	 Run(@ScriptFullPath & ' ' & $CmdLineRaw, @ScriptDir, Default, 1)
         Exit
      Else
	 Run(@AutoItExe & ' "' & @ScriptFullPath & '" ' & $CmdLineRaw, @ScriptDir, Default, 1)
	 Exit
      EndIf
   EndIf
EndFunc
;----------------------------------------------------------------------------------------------
Func end()
   Exit
EndFunc
Opublikowano

1. Ściągnij i zainstaluj VirtualBox (jest darmowy).

2. Utwórz wirtualny komputer i zainstaluj na nim jakiś Windows.

3. Nie wiem w co klikasz, ale uruchom to na wirtualnym komputerze.

4. Uruchom na wirtualnym systemie skompilowany skrypt (albo nieskompilowany, ale wtedy musisz zainstalować AutoIt na wirtualnej maszynie).

5. Na fizycznym komputerze możesz w tym czasie robić coś niezależnie.

 

A tak na marginesie, VirtualBox to super program.

Można sobie zainstalować i testować różne systemy operacyjne, bez niebezpieczeństwa namieszania w swoim podstawowym systemie.

Można testować niesprawdzone i potencjalnie niebezpieczne oprogramowanie bez zagrożenia zainfekowania komputera.

Wystarczy zlikwidować wirtualną maszynę, a wszystko co z jej użyciem ćwiczyliśmy znika bezpowrotnie i bez konsekwencji (np. zarażenie systemy podstawowego wirusami).

  • 2 tygodnie później...
Opublikowano

Jeszcze jest jeden problem jak to połączyć aby po tych sekwencjach szukało mi koloru w danym miejscu i robiło co przypisze? 

 

 

Func IsGreen()
MouseClick("left", 1650, 659)
Sleep (1000)
    MouseClick ("left", 1451, 547)
MouseClick ( "left", 968, 790)
SuperSleep (38000)
 
Func exxx ()
$iColor = PixelGetColor(745, 666)
If $iColor = $iBlack And $iIC <> $iBlack Then
MouseClick ( "left", 1455, 654)
EndIf
If $iColor = $iGreen And $iIC <> $iGreen Then
MouseClick ( "left" 1832, 528)
Send ( "{BS 10}" )
Send ( "10" )
EndIf
If $iColor = $iRed And $iIC <> $iRed Then
MouseClick ( "left", 1455, 654)
 
 
 
EndFunc   ;==>IsGreen
  • 3 miesiące temu...
Opublikowano

kod działa bardzo dobrze tylko mam inny problem.
Tak samo jak kolega szykuje auto-beta do ruletki ale chce :
Daje 1 na green  ale wypada red wiec chce by bot dał x2 na red  gdy wypadnie red chce by znów komenda się zmięła i powróciła pierwotna 1 .

Czy ktoś pomoże ?

Zarchiwizowany

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

×
×
  • Dodaj nową pozycję...