[R] GUI multiples et variables "non déclarées".

Eyyon · #1

Bonjour/bonsoir, j'ai fais plusieurs recherches sur ce forum et d'autres, en anglais et français mais rien ne m'a aidé, en ce qui concerne mon cas... Voici mon problème: j'utilise une GUI principale qui lorsque je clique sur un bouton, m'ouvre une autre GUI. Mais ssi je clique sur la croix rouge (ou en utilisant un bouton quelconque avec "Exit"), toutes les autres GUI se ferment aussi... L'utilisation de DLL est-elle alors nécéssaire? Si oui, j'aurais besoin d'un tutoriel dessus

!
Mais j'ai un autre problème: je voudrais changer un label déjà créé, ce qui m'a amené à chercher comment (en utilisant "GUICtrlSetData" ) mais lorsque la commande s'active, j'ai un message d'erreur me disant que la variable utilisée n'est pas déclarée

... Donc si vous pouviez m'aider, ce serait super! Merci de vos éventuelles futures réponses.

PS: Mon code avec la partie pour le label:

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin
#include <NomadMemory.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Crypt.au3>#Region ### START Koda GUI section ### Form=D:\Users\Administrateur\Desktop\cheat s4\Mine 3\images\suspenderPackEyyon.kxf
$Form11 = GUICreate("Eyyon's Package / Suspender", 463, 211, 192, 124)
$Button1 = GUICtrlCreateButton("Suspend", 88, 8, 113, 17)
$Button2 = GUICtrlCreateButton("Kill", 208, 8, 113, 17)
$Button3 = GUICtrlCreateButton("Resume", 328, 8, 113, 17)
$Button4 = GUICtrlCreateButton("Suspend", 88, 24, 113, 17)
$Button5 = GUICtrlCreateButton("Suspend", 88, 40, 113, 17)
$Button6 = GUICtrlCreateButton("Suspend", 88, 56, 113, 17)
$Button7 = GUICtrlCreateButton("Suspend", 88, 72, 113, 17)
$Button8 = GUICtrlCreateButton("Kill", 208, 40, 113, 17)
$Button9 = GUICtrlCreateButton("Kill", 208, 72, 113, 17)
$Button10 = GUICtrlCreateButton("Kill", 208, 24, 113, 17)
$Button11 = GUICtrlCreateButton("Kill", 208, 56, 113, 17)
$Button12 = GUICtrlCreateButton("Resume", 328, 24, 113, 17)
$Button13 = GUICtrlCreateButton("Resume", 328, 40, 113, 17)
$Button14 = GUICtrlCreateButton("Resume", 328, 72, 113, 17)
$Button15 = GUICtrlCreateButton("Resume", 328, 56, 113, 17)
$Button16 = GUICtrlCreateButton("Kill All", 192, 102, 97, 25)
$Button17 = GUICtrlCreateButton("Resume All", 192, 176, 97, 25)
$Button18 = GUICtrlCreateButton("Suspend All", 192, 140, 97, 25)
$Button19 = GUICtrlCreateButton("Close", 344, 112, 81, 73)
$Label15 = GUICtrlCreateLabel("Aegis64", 8, 8, 42, 17)
$Label25 = GUICtrlCreateLabel("Aegis", 8, 24, 30, 17)
$Label35 = GUICtrlCreateLabel("S4 League", 8, 40, 56, 17)
$Label45 = GUICtrlCreateLabel("HGWC", 8, 56, 38, 17)
$Label55 = GUICtrlCreateLabel("XTrap", 8, 72, 33, 17)
$Group15 = GUICtrlCreateGroup("Status", 8, 96, 177, 105)
$Label65 = GUICtrlCreateLabel("Aegis64", 22, 111, 42, 17)
GUICtrlSetColor(-1, 0x808000)
$Label7 = GUICtrlCreateLabel("Aegis", 22, 127, 30, 17)
GUICtrlSetColor(-1, 0x808000)
$Label8 = GUICtrlCreateLabel("S4 League", 22, 143, 56, 17)
GUICtrlSetColor(-1, 0x808000)
$Label9 = GUICtrlCreateLabel("HGWC", 22, 159, 38, 17)
GUICtrlSetColor(-1, 0x808000)
$Label10 = GUICtrlCreateLabel("XTrap", 22, 175, 33, 17)
GUICtrlSetColor(-1, 0x808000)
$Label11 = GUICtrlCreateLabel("Not Running...", 104, 112, 73, 17)
GUICtrlSetColor(-1, 0x800000)
$Label12 = GUICtrlCreateLabel("Not Running...", 104, 128, 73, 17)
GUICtrlSetColor(-1, 0x800000)
$Label13 = GUICtrlCreateLabel("Not Running...", 104, 144, 73, 17)
GUICtrlSetColor(-1, 0x800000)
$Label15 = GUICtrlCreateLabel("Not Running...", 104, 160, 73, 17)
GUICtrlSetColor(-1, 0x800000)
$Label14 = GUICtrlCreateLabel("Not Running...", 104, 176, 73, 17)
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global  = 
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 3
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button19
            Exit
        Case $Button1
            SuspendAegis64()
        Case $Button2
            KillAegis64()
        Case $Button3
            ResumeAegis64()
        Case $Button4
            SuspendAegis()
        Case $Button10
            KillAegis()
        Case $Button12
            ResumeAegis()
        Case $Button5
            SuspendS4()
        Case $Button8
            KillS4()
        Case $Button13
            ResumeS4()
        Case $Button6
            SuspendHgwc()
        Case $Button11
            KillHgwc()
        Case $Button15
            ResumeHgwc()
        Case $Button7
            SuspendXtrap()
        Case $Button9
            KillXtrap()
        Case $Button14
            ResumeXtrap()
        Case $Button18
            SuspendAegis64()
            SuspendAegis()
            SuspendHgwc()
            SuspendXtrap()
            SuspendS4()
        Case $Button16
            KillAegis64()
            KillAegis()
            KillS4()
            KillHgwc()
            KillXtrap()
        Case $Button17
            ResumeAegis64()
            ResumeAegis()
            ResumeS4()
            ResumeHgwc()
            ResumeXtrap()

    EndSwitch
WEnd

EndFunc

Func KillHgwc()
    If processexists("HGWC.exe") = True Then
        processclose("HGWC.exe")
    EndIf
    If processexists("HGWC.exe") = False Then

    EndIf
EndFunc

Et mon code entier:

► Afficher le texte

Code : Tout sélectionner

#RequireAdmin
#include <NomadMemory.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <Crypt.au3>

#Region ### START Koda GUI section ### Form=d:\users\administrateur\desktop\cheat s4\mine 3\images\eyyon's package.kxf
$Form2999 = GUICreate("Eyyon's Package", 433, 304, 251, 176)
GUISetFont(16, 400, 0, "Maiandra GD")
$Button1999 = GUICtrlCreateButton("Hack", 8, 56, 193, 41)
$Button2999 = GUICtrlCreateButton("Bypass", 8, 96, 193, 41)
$Button3999 = GUICtrlCreateButton("Suspender", 8, 136, 193, 41)
$Group1999 = GUICtrlCreateGroup("Thanks", 208, 8, 217, 193)
GUICtrlSetColor(-1, 0x808000)
$Label1999 = GUICtrlCreateLabel("Thanks to my friends,", 216, 40, 184, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Maiandra GD")
GUICtrlSetColor(-1, 0x3399FF)
$Label2999 = GUICtrlCreateLabel("Anaïs, Marion, Louise,", 216, 64, 188, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Maiandra GD")
GUICtrlSetColor(-1, 0x3399FF)
$Label3999 = GUICtrlCreateLabel("Laëtitia, Elisa and Chloé,", 216, 88, 204, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Maiandra GD")
GUICtrlSetColor(-1, 0x3399FF)
$Label4999 = GUICtrlCreateLabel("(myself) and i would", 216, 112, 178, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Maiandra GD")
GUICtrlSetColor(-1, 0x3399FF)
$Label5999 = GUICtrlCreateLabel("like thanks an other one", 216, 136, 204, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Maiandra GD")
GUICtrlSetColor(-1, 0x3399FF)
$Label6999 = GUICtrlCreateLabel("but i will not ;)", 219, 159, 132, 26)
GUICtrlSetFont(-1, 14, 400, 0, "Maiandra GD")
GUICtrlSetColor(-1, 0x3399FF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4999 = GUICtrlCreateButton("Credits", 112, 8, 81, 41)
$Radio1999 = GUICtrlCreateRadio("Yes", 184, 240, 49, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Maiandra GD")
$Radio2999 = GUICtrlCreateRadio("No", 184, 256, 49, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Maiandra GD")
$Button5999 = GUICtrlCreateButton("Valid", 240, 240, 65, 33)
GUICtrlSetFont(-1, 11, 400, 0, "Maiandra GD")
$Group2 = GUICtrlCreateGroup("Are you VIP?", 152, 208, 161, 81)
GUICtrlSetFont(-1, 12, 400, 0, "Maiandra GD")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1999 = GUICtrlCreatePic("D:\Users\Administrateur\Desktop\cheat s4\Mine 3\images\Eyyon.JPG", 8, 8, 97, 41)
$Button6999 = GUICtrlCreateButton("VIP Function", 320, 224, 105, 57)
GUICtrlSetFont(-1, 12, 400, 0, "Maiandra GD")
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button5999
            If guictrlread($radio1999) = 1 Then
                password()
            EndIf
        Case $Button3999
            suspender()

    EndSwitch
WEnd

Func password()

#Region ### START Koda GUI section ### Form=d:\users\administrateur\desktop\cheat s4\mine 3\images\eyyonpw.kxf
$passwordgui = GUICreate("PassWord", 249, 182, 249, 180)
$Label1222 = GUICtrlCreateLabel("Enter the password", 56, 32, 139, 25)
GUICtrlSetFont(-1, 13, 400, 0, "Calibri")
$Input1222 = GUICtrlCreateInput("Password", 80, 64, 89, 21)
$validpw = GUICtrlCreateButton("Valid", 64, 96, 121, 25)
$closepw = GUICtrlCreateButton("Close", 80, 128, 89, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 2
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $closepw
            Exit
        Case $validpw
            If GUICtrlRead($Input1) = "eyyon" Then
                GUICtrlSetState($Button6999, $GUI_ENABLE)
            Else
                MsgBox(0, "Error", "Wrong Password.")
            EndIf


    EndSwitch
WEnd

 EndFunc
Func checkpw()
    If _Crypt_HashData(GuiCtrlRead($Input1),$CALG_MD5) = "0xDE9A393E0EE07C679491D20B0548646F" Then
        GUICtrlSetState($Button6, $GUI_ENABLE)
    Else
        MsgBox(0,"error", "Invalid password")
    EndIf
EndFunc

func suspender()

#Region ### START Koda GUI section ### Form=D:\Users\Administrateur\Desktop\cheat s4\Mine 3\images\suspenderPackEyyon.kxf
$Form11 = GUICreate("Eyyon's Package / Suspender", 463, 211, 192, 124)
$Button1 = GUICtrlCreateButton("Suspend", 88, 8, 113, 17)
$Button2 = GUICtrlCreateButton("Kill", 208, 8, 113, 17)
$Button3 = GUICtrlCreateButton("Resume", 328, 8, 113, 17)
$Button4 = GUICtrlCreateButton("Suspend", 88, 24, 113, 17)
$Button5 = GUICtrlCreateButton("Suspend", 88, 40, 113, 17)
$Button6 = GUICtrlCreateButton("Suspend", 88, 56, 113, 17)
$Button7 = GUICtrlCreateButton("Suspend", 88, 72, 113, 17)
$Button8 = GUICtrlCreateButton("Kill", 208, 40, 113, 17)
$Button9 = GUICtrlCreateButton("Kill", 208, 72, 113, 17)
$Button10 = GUICtrlCreateButton("Kill", 208, 24, 113, 17)
$Button11 = GUICtrlCreateButton("Kill", 208, 56, 113, 17)
$Button12 = GUICtrlCreateButton("Resume", 328, 24, 113, 17)
$Button13 = GUICtrlCreateButton("Resume", 328, 40, 113, 17)
$Button14 = GUICtrlCreateButton("Resume", 328, 72, 113, 17)
$Button15 = GUICtrlCreateButton("Resume", 328, 56, 113, 17)
$Button16 = GUICtrlCreateButton("Kill All", 192, 102, 97, 25)
$Button17 = GUICtrlCreateButton("Resume All", 192, 176, 97, 25)
$Button18 = GUICtrlCreateButton("Suspend All", 192, 140, 97, 25)
$Button19 = GUICtrlCreateButton("Close", 344, 112, 81, 73)
$Label15 = GUICtrlCreateLabel("Aegis64", 8, 8, 42, 17)
$Label25 = GUICtrlCreateLabel("Aegis", 8, 24, 30, 17)
$Label35 = GUICtrlCreateLabel("S4 League", 8, 40, 56, 17)
$Label45 = GUICtrlCreateLabel("HGWC", 8, 56, 38, 17)
$Label55 = GUICtrlCreateLabel("XTrap", 8, 72, 33, 17)
$Group15 = GUICtrlCreateGroup("Status", 8, 96, 177, 105)
$Label65 = GUICtrlCreateLabel("Aegis64", 22, 111, 42, 17)
GUICtrlSetColor(-1, 0x808000)
$Label7 = GUICtrlCreateLabel("Aegis", 22, 127, 30, 17)
GUICtrlSetColor(-1, 0x808000)
$Label8 = GUICtrlCreateLabel("S4 League", 22, 143, 56, 17)
GUICtrlSetColor(-1, 0x808000)
$Label9 = GUICtrlCreateLabel("HGWC", 22, 159, 38, 17)
GUICtrlSetColor(-1, 0x808000)
$Label10 = GUICtrlCreateLabel("XTrap", 22, 175, 33, 17)
GUICtrlSetColor(-1, 0x808000)
$Label11 = GUICtrlCreateLabel("Not Running...", 104, 112, 73, 17)
GUICtrlSetColor(-1, 0x800000)
$Label12 = GUICtrlCreateLabel("Not Running...", 104, 128, 73, 17)
GUICtrlSetColor(-1, 0x800000)
$Label13 = GUICtrlCreateLabel("Not Running...", 104, 144, 73, 17)
GUICtrlSetColor(-1, 0x800000)
$Label15 = GUICtrlCreateLabel("Not Running...", 104, 160, 73, 17)
GUICtrlSetColor(-1, 0x800000)
$Label14 = GUICtrlCreateLabel("Not Running...", 104, 176, 73, 17)
GUICtrlSetColor(-1, 0x800000)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global  = 
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 3
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button19
            Exit
        Case $Button1
            SuspendAegis64()
        Case $Button2
            KillAegis64()
        Case $Button3
            ResumeAegis64()
        Case $Button4
            SuspendAegis()
        Case $Button10
            KillAegis()
        Case $Button12
            ResumeAegis()
        Case $Button5
            SuspendS4()
        Case $Button8
            KillS4()
        Case $Button13
            ResumeS4()
        Case $Button6
            SuspendHgwc()
        Case $Button11
            KillHgwc()
        Case $Button15
            ResumeHgwc()
        Case $Button7
            SuspendXtrap()
        Case $Button9
            KillXtrap()
        Case $Button14
            ResumeXtrap()
        Case $Button18
            SuspendAegis64()
            SuspendAegis()
            SuspendHgwc()
            SuspendXtrap()
            SuspendS4()
        Case $Button16
            KillAegis64()
            KillAegis()
            KillS4()
            KillHgwc()
            KillXtrap()
        Case $Button17
            ResumeAegis64()
            ResumeAegis()
            ResumeS4()
            ResumeHgwc()
            ResumeXtrap()

    EndSwitch
WEnd

EndFunc

Func KillHgwc()
    If processexists("HGWC.exe") = True Then
        processclose("HGWC.exe")
    EndIf
    If processexists("HGWC.exe") = False Then

    EndIf
EndFunc
Func KillXtrap()
    If processexists("XTrap.xt") = True Then
        processclose("XTrap.xt")
    EndIf
    If processexists("XTrap.xt") = False Then

    EndIf
EndFunc
Func KillS4()
    If processexists("S4Client.exe") = True Then
        processclose("S4Client.exe")
    EndIf
    If processexists("S4Client.exe") = False Then

    EndIf
EndFunc
Func KillAegis()
    If processexists("Aegis.exe") = True Then
        processclose("Aegis.exe")
    EndIf
    If processexists("Aegis.exe") = False Then

    EndIf
EndFunc
Func KillAegis64()
    If processexists("Aegis64.exe") = True Then
        processclose("Aegis64.exe")
    EndIf
    If processexists("Aegis64.exe") = False Then

    EndIf
EndFunc

Func SuspendAegis64()
    If processexists("Aegis64.exe") = true Then
        _Processsuspend("Aegis64.exe")

        Else
            Sleep(100)
        EndIf

EndFunc
Func SuspendAegis()
    If processexists("Aegis.exe") = true Then
        _Processsuspend("Aegis.exe")

        Else
            Sleep(100)

    EndIf
EndFunc
Func SuspendS4()
    If processexists("S4Client.exe") = true Then
        _Processsuspend("S4Client.exe")

        Else
            Sleep(100)

    EndIf
EndFunc
Func SuspendHgwc()
    If processexists("HGWC.exe") = true Then
        _Processsuspend("HGWC.exe")

        Else
            Sleep(100)

    EndIf
EndFunc
Func SuspendXtrap()
    If processexists("Xtrap.xt") = true Then
        _Processsuspend("XTrap.xt")

        Else
            Sleep(100)

    EndIf
EndFunc

Func ResumeAegis64()
    If processexists("Aegis64.exe") = False Then

    EndIf
    If ("Aegis64Suspended") = 1 Then
        _processresume("Aegis64.exe")
    EndIf
EndFunc
Func ResumeAegis()
    If processexists("Aegis.exe") = False Then

    EndIf
    If ("AegisSuspended") = 1 Then
        _processresume("Aegis.exe")
    EndIf
EndFunc
Func ResumeS4()
    If processexists("S4Client.exe") = False Then

    EndIf
    If ("S4Suspended") = 1 Then
        _processresume("S4Client.exe")
    EndIf
EndFunc
Func ResumeHgwc()
    If processexists("HGWC.exe") = False Then

    EndIf
    If ("HgwcSuspended") = 1 Then
        _processresume("HGWC.exe")
        EndIf
    EndFunc
Func ResumeXtrap()
    If processexists("XTrap.xt") = False Then

    EndIf
    If ("XtrapSuspended") = 1 Then
        _processresume("XTrap.xt")
    EndIf
EndFunc

Func _PROCESSSUSPEND($PROCESS)
 $PROCESSID = ProcessExists($PROCESS)
 If $PROCESSID Then
  $AI_HANDLE = DllCall("kernel32.dll", "int", "OpenProcess", "int", 2035711, "int", False, "int", $PROCESSID)
  $I_SUCESS = DllCall("ntdll.dll", "int", "NtSuspendProcess", "int", $AI_HANDLE[0])
  DllCall("kernel32.dll", "ptr", "CloseHandle", "ptr", $AI_HANDLE)
  If IsArray($I_SUCESS) Then
   Return 1
  Else
   SetError(1)
   Return 0
  EndIf
 Else
  SetError(2)
  Return 0
 EndIf
EndFunc
Func _PROCESSRESUME($PROCESS)
 $PROCESSID = ProcessExists($PROCESS)
 If $PROCESSID Then
  $AI_HANDLE = DllCall("kernel32.dll", "int", "OpenProcess", "int", 2035711, "int", False, "int", $PROCESSID)
  $I_SUCESS = DllCall("ntdll.dll", "int", "NtResumeProcess", "int", $AI_HANDLE[0])
  DllCall("kernel32.dll", "ptr", "CloseHandle", "ptr", $AI_HANDLE)
  If IsArray($I_SUCESS) Then
   Return 1
  Else
   SetError(1)
   Return 0
  EndIf
 Else
  SetError(2)
  Return 0
 EndIf
EndFunc

#2

Exit => ferme le script
GuiDelete($gui) => ferme la fenêtre $gui mais pas le script

Si la variable pour la label doit être utilisée dans une fonction, il faut la déclarer en Global en tête de script : Global $label1, $label2 ... etc

Eyyon · #3

mikell a écrit :Exit => ferme le script
GuiDelete($gui) => ferme la fenêtre $gui mais pas le script

Si la variable pour la label doit être utilisée dans une fonction, il faut la déclarer en Global en tête de script : Global $label1, $label2 ... etc

Ok jte remercie beaucoup, ça marche maintenant!

AutoIt Français

[R] GUI multiples et variables "non déclarées".

[R] GUI multiples et variables "non déclarées".

Re: [ . . ] GUI multiples et variables "non déclarées".

Re: [ . . ] GUI multiples et variables "non déclarées".