[R] GUI multiples et variables "non déclarées".
Posté : ven. 21 juin 2013 18:47
par Eyyon
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:
Et mon code entier:
! 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► 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