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

[SZUKAM]Help! Okno zawsze na wierzchu!

IZZER4

Rekomendowane odpowiedzi

IZZER4 Pasjonat

IZZER4

Opublikowano
Pasjonat

IZZER4

Opublikowano

Mam tutaj kod'

 

 

 

#include <GUIConstantsEx.au3>
#include <ImageSearch.au3>
#include <File.au3>
GUICreate("Margo",200,170)
$tab = GUICtrlCreateTab(0, 0, 200, 170)
$tab1 = GUICtrlCreateTabItem("ExpBot")
$btn = GUICtrlCreateButton("START",0,21,100,50)
$btn2 = GUICtrlCreateButton("STOP",100,21,100,50)
$blee = GUICtrlCreateCheckbox("Elita1",20,71)
$blee1 = GUICtrlCreateCheckbox("Elita2",75,71)
$blee2 = GUICtrlCreateCheckbox("Elita3",130,71)
$blee3 = GUICtrlCreateCheckbox("Elita4",40,91)
$blee4 = GUICtrlCreateCheckbox("Elita5",100,91)
GUICtrlCreateLabel("Jesli stracisz kontrole kliknij End",0,+150)
GUISetState(@SW_SHOW)
$tab3 = GUICtrlCreateTab(0, 0, 200, 170)
$tab2 = GUICtrlCreateTabItem("Ustawienia")
$btn3 = GUICtrlCreateButton("START",0,21,100,50)
$btn4 = GUICtrlCreateButton("STOP",100,21,100,50)
$blee5 = GUICtrlCreateCheckbox("Potwierdz/Zamknij",40,71)
$tab4 = GUICtrlCreateTab(0, 0, 200, 170)
$tab5 = GUICtrlCreateTabItem("Mapa")
$btn5 = GUICtrlCreateButton("START",0,21,100,50)
$btn6 = GUICtrlCreateButton("STOP",100,21,100,50)
$blee6 = GUICtrlCreateCheckbox("Chodzenie po mapie",40,71)


HotKeySet("{end}","stop")
func stop()
   Exit
EndFunc


Global $x, $y
local $zmienna


While 1
   $nMsg = GUIGetMsg()
    $true = GUICtrlRead($blee)
    $true2 = GUICtrlRead($blee1)
    $true3 = GUICtrlRead($blee2)
    $true4 = GUICtrlRead($blee3)
    $true5 = GUICtrlRead($blee4)
    $true11 = GUICtrlRead($blee5)


    $true6 = Not $blee
    $true7 = Not $blee1
    $true8 = Not $blee2
    $true9 = Not $blee3
    $true10 = Not $blee4
        $true12 = Not $blee5
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $btn
        If $true = 1 Then AdlibRegister ("elita1","1300")
   If $true2 = 1 Then AdlibRegister ("elita2","1300")
   If $true3 = 1 Then AdlibRegister ("elita3","1300")
   If $true4 = 1 Then AdlibRegister ("elita4","1300")
   If $true5 = 1 Then AdlibRegister ("elita5","1300")


Case $btn2
   If $true6 = false then
AdlibUnregister("elita1")
EndIf
  If $true7 = false then
AdlibUnregister("elita2")
EndIf
  If $true8 = false then
AdlibUnregister("elita3")
EndIf
  If $true9 = false then
AdlibUnregister("elita4")
EndIf
  If $true10 = false then
AdlibUnregister("elita5")
EndIf
Case $btn3
   If $true11 = 1 Then AdlibRegister ("potwierdz","1300")
      AdlibRegister("zamknij","3000")
   Case $btn4
      If $true12 = false then
         AdlibRegister ("potwierdz","1300")
      AdlibRegister("zamknij","3000")
      EndIf
      EndSwitch
   WEnd


Func  elita1 ()
$result1 = _ImageSearch("mob/elita1.bmp", 1, $x, $y, 10)
If $result1 = 1 Then
      MouseClick("left", $x, $y)
      Sleep(100)
$zmienna = 0
$zmienna = $zmienna +1
EndIf
EndFunc


Func  elita2 ()
$result1 = _ImageSearch("mob/elita2.bmp", 1, $x, $y, 10)
If $result1 = 1 Then
      MouseClick("left", $x, $y)
      Sleep(100)
$zmienna = 0
$zmienna = $zmienna +1
EndIf
EndFunc


Func  elita3 ()
$result1 = _ImageSearch("mob/elita3.bmp", 1, $x, $y, 10)
If $result1 = 1 Then
      MouseClick("left", $x, $y)
      Sleep(100)
$zmienna = 0
$zmienna = $zmienna +1
EndIf
EndFunc


Func  elita4 ()
$result1 = _ImageSearch("mob/elita4.bmp", 1, $x, $y, 10)
If $result1 = 1 Then
      MouseClick("left", $x, $y)
      Sleep(100)
$zmienna = 0
$zmienna = $zmienna +1
EndIf
EndFunc


Func  elita5 ()
$result1 = _ImageSearch("mob/elita5.bmp", 1, $x, $y, 10)
If $result1 = 1 Then
      MouseClick("left", $x, $y)
      Sleep(100)
$zmienna = 0
$zmienna = $zmienna +1
EndIf
EndFunc


func potwierdz ()
   $result1 = _ImageSearch("mob/potwierdz.bmp", 1, $x, $y, 10)
If $result1 = 1 Then
      MouseClick("left", $x, $y)
      Sleep(100)
$zmienna = 0
$zmienna = $zmienna +1
EndIf
EndFunc


func zamknij ()
   $result1 = _ImageSearch("mob/zamknij.bmp", 1, $x, $y, 10)
If $result1 = 1 Then
      MouseClick("left", $x, $y)
      Sleep(100)
$zmienna = 0
$zmienna = $zmienna +1
EndIf
EndFunc




While 1
   sleep (100)
   WEnd

 

I chcialbym zrobic zeby okno bylo zawsze na wierzchu :)
Tak jak np AutoIt Window Info
IZZER4 Pasjonat

IZZER4

Opublikowano
Pasjonat

IZZER4

  • Autor
Opublikowano

..................

 

 

 

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3(4,69) : WARNING: $WS_OVERLAPPEDWINDOW: possibly used before declaration.
GUICreate("Bot by Bolo9797",200,170,1,1,, BitOR($WS_OVERLAPPEDWINDOW,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3(4,87) : WARNING: $WS_CLIPSIBLINGS: possibly used before declaration.
GUICreate("Bot by Bolo9797",200,170,1,1,, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3(4,108) : WARNING: $WS_EX_TOOLWINDOW: possibly used before declaration.
GUICreate("Bot by Bolo9797",200,170,1,1,, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS), $WS_EX_TOOLWINDOW +
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3(4,124) : WARNING: $WS_EX_TOPMOST: possibly used before declaration.
GUICreate("Bot by Bolo9797",200,170,1,1,, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS), $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3(4,69) : ERROR: $WS_OVERLAPPEDWINDOW: undeclared global variable.
GUICreate("Bot by Bolo9797",200,170,1,1,, BitOR($WS_OVERLAPPEDWINDOW,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3(4,87) : ERROR: $WS_CLIPSIBLINGS: undeclared global variable.
GUICreate("Bot by Bolo9797",200,170,1,1,, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3(4,108) : ERROR: $WS_EX_TOOLWINDOW: undeclared global variable.
GUICreate("Bot by Bolo9797",200,170,1,1,, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS), $WS_EX_TOOLWINDOW +
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3(4,124) : ERROR: $WS_EX_TOPMOST: undeclared global variable.
GUICreate("Bot by Bolo9797",200,170,1,1,, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS), $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\IZZER\Pulpit\MargoElita\MargoElita.au3 - 5 error(s), 4 warning(s)
!>14:59:15 AU3Check ended. Press F4 to jump to next error.rc:2
>Exit code: 0 Time: 0.306

Zarchiwizowany

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

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