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

Rekomendowane odpowiedzi

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

 

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 190, 223, 190, 122)

$czas = GUICtrlCreateInput("", 64, 8, 121, 21)

$mana = GUICtrlCreateInput("", 64, 32, 121, 21)

$manas = GUICtrlCreateInput("", 64, 56, 121, 21)

$czar = GUICtrlCreateInput("", 64, 80, 121, 21)

$Label1 = GUICtrlCreateLabel("Czas", 8, 8, 27, 17)

$Label2 = GUICtrlCreateLabel("Mana", 8, 32, 39, 17)

$Label3 = GUICtrlCreateLabel("Czar", 8, 80, 25, 17)

$Czaruj = GUICtrlCreateButton("Czaruj", 8, 104, 179, 25, $WS_GROUP)

$Antyafk = GUICtrlCreateButton("Antyafk", 8, 136, 179, 25, $WS_GROUP)

$Start = GUICtrlCreateButton("Start", 8, 168, 75, 25, $WS_GROUP)

$Label4 = GUICtrlCreateLabel("Dla mpcforum od jackraymund'a", 32, 200, 155, 17)

$Label5 = GUICtrlCreateLabel("Mana/sec", 8, 56, 53, 17)

GUISetState(@SW_SHOW)

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

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Czaruj

$zmienna = 0

$zmienna = $zmienna +1

Case $Antyafk

$Antyafk = 0

$Antyafk = $Antyafk +1

Case $Start

lolz()

EndSwitch

WEnd

func lolz()

while 1

if $zmienna = 1 Then

$czar1 = GUICtrlRead($czar)

ControlSend("Tibia","","",$czar1,1)

ControlSend("Tibia","","","{enter}")

$tibia1 = GUICtrlRead($mana)/GUICtrlRead($manas)* GUICtrlRead($czas)*1000-1020

Sleep($tibia1)

EndIf

if $Antyafk = 1 Then

GUICtrlSetData(

Sleep(500)

ControlSend("Tibia","","","{CTRLDOWN}{up}{CTRLup}")

Sleep(500)

ControlSend("Tibia","","","{CTRLDOWN}{down}{CTRLup}")

endIf

WEnd

EndFunc

 

mam taki kod i chce zrobic cos takiego że jak kliknie antyafk to pojawi się wyłącz antyafk i by miał inną funkcje

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

Chcesz żeby zamiast tego przycisku był nowy przycisk z nową funkcją?

Jeśli tak to tu masz kod:

 

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 190, 223, 190, 122)

$czas = GUICtrlCreateInput("", 64, 8, 121, 21)

$mana = GUICtrlCreateInput("", 64, 32, 121, 21)

$manas = GUICtrlCreateInput("", 64, 56, 121, 21)

$czar = GUICtrlCreateInput("", 64, 80, 121, 21)

$Label1 = GUICtrlCreateLabel("Czas", 8, 8, 27, 17)

$Label2 = GUICtrlCreateLabel("Mana", 8, 32, 39, 17)

$Label3 = GUICtrlCreateLabel("Czar", 8, 80, 25, 17)

$Czaruj = GUICtrlCreateButton("Czaruj", 8, 104, 179, 25, $WS_GROUP)

$Antyafk = GUICtrlCreateButton("Antyafk", 8, 136, 179, 25, $WS_GROUP)

$Start = GUICtrlCreateButton("Start", 8, 168, 75, 25, $WS_GROUP)

$Label4 = GUICtrlCreateLabel("Dla mpcforum od jackraymund'a", 32, 200, 155, 17)

$Label5 = GUICtrlCreateLabel("Mana/sec", 8, 56, 53, 17)

GUISetState(@SW_SHOW)

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

 

Locale $new_button = 1

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Czaruj

$zmienna = 0

$zmienna = $zmienna +1

Case $Antyafk

$Antyafk = 0

$Antyafk = $Antyafk +1

$new_button = GUICtrlCreateButton("Wyłącz antyafk", 8, 136, 179, 25, $WS_GROUP)

GUICtrlDelete($Antyafk)

Case $new_button

MsgBox(0, "Nowa Funkcja", "Twoja nowa funkcja")

Case $Start

lolz()

EndSwitch

WEnd

func lolz()

while 1

if $zmienna = 1 Then

$czar1 = GUICtrlRead($czar)

ControlSend("Tibia","","",$czar1,1)

ControlSend("Tibia","","","{enter}")

$tibia1 = GUICtrlRead($mana)/GUICtrlRead($manas)* GUICtrlRead($czas)*1000-1020

Sleep($tibia1)

EndIf

if $Antyafk = 1 Then

GUICtrlSetData(

Sleep(500)

ControlSend("Tibia","","","{CTRLDOWN}{up}{CTRLup}")

Sleep(500)

ControlSend("Tibia","","","{CTRLDOWN}{down}{CTRLup}")

endIf

WEnd

EndFunc

 

 

hfaua Weteran

hfaua

Opublikowano
Weteran

hfaua

Opublikowano

Kurde nie zauważyłem, że zmieniłeś $Antyafk. Już nie jest buttonem tylko liczbą xD

 

Powinno być tak:

 

 

#include <ButtonConstants.au3>

#include <EditConstants.au3>

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Form1", 190, 223, 190, 122)

$czas = GUICtrlCreateInput("", 64, 8, 121, 21)

$mana = GUICtrlCreateInput("", 64, 32, 121, 21)

$manas = GUICtrlCreateInput("", 64, 56, 121, 21)

$czar = GUICtrlCreateInput("", 64, 80, 121, 21)

$Label1 = GUICtrlCreateLabel("Czas", 8, 8, 27, 17)

$Label2 = GUICtrlCreateLabel("Mana", 8, 32, 39, 17)

$Label3 = GUICtrlCreateLabel("Czar", 8, 80, 25, 17)

$Czaruj = GUICtrlCreateButton("Czaruj", 8, 104, 179, 25, $WS_GROUP)

$Antyafk = GUICtrlCreateButton("Antyafk", 8, 136, 179, 25, $WS_GROUP)

$Start = GUICtrlCreateButton("Start", 8, 168, 75, 25, $WS_GROUP)

$Label4 = GUICtrlCreateLabel("Dla mpcforum od jackraymund'a", 32, 200, 155, 17)

$Label5 = GUICtrlCreateLabel("Mana/sec", 8, 56, 53, 17)

GUISetState(@SW_SHOW)

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

 

Local $new_button = 1

 

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

Case $Czaruj

$zmienna = 0

$zmienna = $zmienna +1

Case $Antyafk

GUICtrlDelete($Antyafk)

$Antyafk = 0

$Antyafk = $Antyafk +1

$new_button = GUICtrlCreateButton("Wyłącz antyafk", 8, 136, 179, 25, $WS_GROUP)

Case $new_button

MsgBox(0, "Nowa Funkcja", "Twoja nowa funkcja")

Case $Start

lolz()

EndSwitch

WEnd

func lolz()

while 1

if $zmienna = 1 Then

$czar1 = GUICtrlRead($czar)

ControlSend("Tibia","","",$czar1,1)

ControlSend("Tibia","","","{enter}")

$tibia1 = GUICtrlRead($mana)/GUICtrlRead($manas)* GUICtrlRead($czas)*1000-1020

Sleep($tibia1)

EndIf

if $Antyafk = 1 Then

GUICtrlSetData(

Sleep(500)

ControlSend("Tibia","","","{CTRLDOWN}{up}{CTRLup}")

Sleep(500)

ControlSend("Tibia","","","{CTRLDOWN}{down}{CTRLup}")

endIf

WEnd

EndFunc

 

 

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

troche błedów w skrypcie , powinienes na bierząco poprawiać w koncu scite ci pokazuje gdzie sa błedy

dla lepszej czytelności kodu polecam co pewien czas kilknąc z Tools : Tidy AutoIt Source

 

Prosty kod na klawisz Start/Stop , co ma robić przepisz do funkcji

 

To jest ukryta treść, proszę

 

 

rano złoze do kupy

 

Wstępnie samo gui

 

 

 

To jest ukryta treść, proszę

 

 

 

Dodatkowe opcje przydatne :

ograniczenie wpisywanych liczb do x znaków

To jest ukryta treść, proszę

tylko cyfry a nie litery , dopisać na samym koncu GUICtrlCreateInput :

To jest ukryta treść, proszę

 

i po retuszyu wychodzi ładne gui

 

To jest ukryta treść, proszę

 

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Maciek134 Bywalec

Maciek134

Opublikowano
Bywalec

Maciek134

Opublikowano (edytowane)

@up:

zamiast dopisywać trzy atrybuty STYLE żeby były tylko cyfry wystarczy samo $ES_NUMBER (bez BitOR ofc.)

 

EDIT:

@down:

a no chyba że ;p myślałem że wg. ciebie trzeba było trzy atrybuty.

Edytowane przez Maciek134

[TUT] Full Autoit V3 Tutorial

yo po 1 nie kayloger tylko bot który zapamiętuje hasła -_-

stop1.png

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

sam wiesz jak Koda generuje gui, masakra potem by sie zbędnych kodów pozbyć , a tu w sumie dodatkowy dla ładnego ułożenia centruje

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

  • 2 tygodnie później...
Gość
Ten temat został zamknięty. Brak możliwości dodania odpowiedzi.
 Udostępnij
Tematy
×
×
  • Dodaj nową pozycję...