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

Problem

Bum662

Rekomendowane odpowiedzi

Bum662 Budowniczy

Bum662

Opublikowano
Budowniczy

Bum662

Opublikowano

Witam

Mam problem ze skroceniem mojego kodu, pomoze ktos?

Staralem sie kilka godzin i nic ;d

Chodzi o dodanie globali etc. bo kod jest dlugi... Odwdziecze sie limitem like i 5 na profilu.

 

$filepassword = IniRead("config.passwordmanagerpro","filepassword","passwordfile","123")
   $a = InputBox("Hasło do programu", "Podaj hasło do programu. Domyślne to 123", "","*",220,180)
   If $a = $filepassword Then
FileSetAttrib("config.passwordmanagerpro","-H")
$1pass = IniRead("config.passwordmanagerpro","password","pass1","")
$2pass = IniRead("config.passwordmanagerpro","password","pass2","")
$3pass = IniRead("config.passwordmanagerpro","password","pass3","")
$4pass = IniRead("config.passwordmanagerpro","password","pass4","")
$5pass = IniRead("config.passwordmanagerpro","password","pass5","")
$6pass = IniRead("config.passwordmanagerpro","password","pass6","")
$1passkey = IniRead("config.passwordmanagerpro","guipass","pass1","")
$2passkey = IniRead("config.passwordmanagerpro","guipass","pass2","")
$3passkey = IniRead("config.passwordmanagerpro","guipass","pass3","")
$4passkey = IniRead("config.passwordmanagerpro","guipass","pass4","")
$5passkey = IniRead("config.passwordmanagerpro","guipass","pass5","")
$6passkey = IniRead("config.passwordmanagerpro","guipass","pass6","")
$licensekey = IniRead("config.passwordmanagerpro","license","licenseto","")
 
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$PassGui = GUICreate("Password Manager Premium", 501, 245, 206, 160)
GUISetBkColor(0xFFFFFF)
$a = GUICtrlCreateButton($1passkey, 8, 8, 161, 57)
$b = GUICtrlCreateButton($2passkey, 8, 72, 161, 57)
$c = GUICtrlCreateButton($3passkey, 8, 144, 161, 57)
$d = GUICtrlCreateButton($4passkey, 184, 8, 161, 57)
$e = GUICtrlCreateButton($5passkey, 184, 72, 161, 57)
$f = GUICtrlCreateButton($6passkey, 184, 144, 161, 57)
$Panel = GUICtrlCreateButton("Panel Zarzadzania", 360, 0, 137, 209)
$License = GUICtrlCreateLabel("Licencja dla: " & $licensekey, 5, 216, 800, 20)
GUISetState(@SW_SHOW)
 
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       Exit
     case $Panel
       acp()
       exit
    case $a
       a()
    case $b
       b()
     case $c
       c()
    case $d
       d()
    case $e
       e()
    case $f
       f()
 
   EndSwitch
WEnd
   ElseIf @error = 1 Then
    Exit
   Else
    MsgBox(0, "Błąd!", "Ups. Złe hasło. Domyślne hasło to 123", 4)
   EndIf
func acp()
local $FormGui = GUICreate("PMP - Konfiguracja - License to " & $licensekey, 538, 438, 232, 132)
GUISetBkColor(0xFFFFFF)
$Group1 = GUICtrlCreateGroup("Nazwy przycisków", 0, 0, 249, 217)
$Label1 = GUICtrlCreateLabel("Nazwa 1", 8, 24, 68, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Nazwa 2", 8, 56, 68, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Nazwa 3", 8, 88, 68, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Nazwa 4", 8, 120, 68, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Nazwa 5", 8, 152, 68, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label6 = GUICtrlCreateLabel("Nazwa 6", 8, 184, 68, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput($1passkey, 80, 24, 161, 24)
$Input2 = GUICtrlCreateInput($2passkey, 80, 56, 161, 24)
$Input3 = GUICtrlCreateInput($3passkey, 80, 88, 161, 24)
$Input4 = GUICtrlCreateInput($4passkey, 80, 120, 161, 24)
$Input5 = GUICtrlCreateInput($5passkey, 80, 152, 161, 24)
$Input6 = GUICtrlCreateInput($6passkey, 80, 184, 161, 24)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Hasla", 288, 0, 249, 217)
$Label8 = GUICtrlCreateLabel("Haslo 1", 584, 24, 61, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$LicenseSettings = GUICtrlCreateGroup("Ustawienia licencji", 24, 224, 489, 65)
GUICtrlSetFont(-1, 11, 800, 0, "Poplar Std")
$Label13 = GUICtrlCreateLabel("Licencja dla:", 32, 256, 77, 25)
$LicenseInput = GUICtrlCreateInput($licensekey, 112, 248, 385, 29)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Save = GUICtrlCreateButton("Zapisz zmiany", 152, 392, 219, 33)
$Label7 = GUICtrlCreateLabel("Haslo 1", 296, 24, 61, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label9 = GUICtrlCreateLabel("Haslo 2", 296, 56, 61, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label10 = GUICtrlCreateLabel("Haslo 3", 296, 88, 61, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label11 = GUICtrlCreateLabel("Haslo 4", 296, 120, 61, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("Haslo 5", 296, 152, 61, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Label14 = GUICtrlCreateLabel("Haslo 6", 296, 184, 61, 24)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input7 = GUICtrlCreateInput("", 360, 24, 161, 24)
$Input8 = GUICtrlCreateInput("", 360, 56, 161, 24)
$Input9 = GUICtrlCreateInput("", 360, 88, 161, 24)
$Input10 = GUICtrlCreateInput("", 360, 120, 161, 24)
$Input11 = GUICtrlCreateInput("", 360, 152, 161, 24)
$Input12 = GUICtrlCreateInput("", 360, 184, 161, 24)
$Group3 = GUICtrlCreateGroup("Haslo do programu", 24, 312, 489, 65)
$Label15 = GUICtrlCreateLabel("Nowe haslo:", 32, 344, 77, 25)
$PasswordInput = GUICtrlCreateInput($filepassword, 112, 336, 385, 29)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($FormGui)
       msgbox(1,"PMP","Włącz program ponownie.","2")
       Return
    case $Save
       $name1 = GuiCtrlRead($Input1)
       $name2 = GuiCtrlRead($Input2)
       $name3 = GuiCtrlRead($Input3)
       $name4 = GuiCtrlRead($Input4)
       $name5 = GuiCtrlRead($Input5)
       $name6 = GuiCtrlRead($Input6)
       $password1 = GuiCtrlRead($Input7)
       $password2 = GuiCtrlRead($Input8)
       $password3 = GuiCtrlRead($Input9)
       $password4 = GuiCtrlRead($Input10)
       $password5 = GuiCtrlRead($Input11)
       $password6 = GuiCtrlRead($Input12)
       $licenseto = GUICtrlRead($LicenseInput)
       $passwordfile = GUICtrlRead($PasswordInput)
IniWrite("config.passwordmanagerpro","guipass","pass1",$name1)
IniWrite("config.passwordmanagerpro","guipass","pass2",$name2)
IniWrite("config.passwordmanagerpro","guipass","pass3",$name3)
IniWrite("config.passwordmanagerpro","guipass","pass4",$name4)
IniWrite("config.passwordmanagerpro","guipass","pass5",$name5)
IniWrite("config.passwordmanagerpro","guipass","pass6",$name6)
 
IniWrite("config.passwordmanagerpro","password","pass1",$password1)
IniWrite("config.passwordmanagerpro","password","pass2",$password2)
IniWrite("config.passwordmanagerpro","password","pass3",$password3)
IniWrite("config.passwordmanagerpro","password","pass4",$password4)
IniWrite("config.passwordmanagerpro","password","pass5",$password5)
IniWrite("config.passwordmanagerpro","password","pass6",$password6)
 
IniWrite("config.passwordmanagerpro","filepassword","passwordfile",$Passwordfile)
IniWrite("config.passwordmanagerpro","license","licenseto",$licenseto)
msgbox(1,"PMP","Włącz ponownie program.","2")
exit
 
 
   EndSwitch
WEnd
EndFunc
func a()
local $Form1 = GUICreate("Form1", 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($1pass, 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)
 
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
    case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo.", "","*",220,180)
       IniWrite("config.passwordmanagerpro","password","pass1",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc
 
func b()
local $Form1 = GUICreate("Form1", 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($2pass, 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)
 
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
    case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo.", "","*",220,180)
       IniWrite("config.passwordmanagerpro","password","pass2",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc
 
func c()
local $Form1 = GUICreate("Form1", 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($3pass, 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)
 
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
       case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo.", "","*",220,180)
       IniWrite("config.passwordmanagerpro","password","pass3",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc
 
func d()
Local $Form1 = GUICreate("Form1", 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($4pass, 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)
 
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
   case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo.", "","*",220,180)
       IniWrite("config.passwordmanagerpro","password","pass4",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc
 
func e()
local $Form1 = GUICreate("Form1", 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($5pass, 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)
 
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
       case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo.", "","*",220,180)
       IniWrite("config.passwordmanagerpro","password","pass5",$newpw)
       GUICtrlSetData($input1,$newpw)
   EndSwitch
WEnd
EndFunc
 
func f()
local $Form1 = GUICreate("Haslo do: " & $6passkey , 338, 152, 192, 132)
$Input1 = GUICtrlCreateInput($6pass, 0, 48, 337, 36)
$IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Change = GUICtrlCreateButton("Zmień haslo", 56, 96, 201, 41)
GUISetState(@SW_SHOW)
 
While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
    Case $GUI_EVENT_CLOSE
       GUIDelete($Form1)
     Return
    case $change
       $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo.", "","*",220,180)
       IniWrite("config.passwordmanagerpro","password","pass6",$newpw)
       GUICtrlSetData($input1,$newpw)
 
 
 
 
   EndSwitch
WEnd
EndFunc

Moje tutki:

"Bad Video Card Drivers" - Błąd w mc? Zobacz do mnie aby dowiedzieć się jak to naprawić!

Chcesz wyciągnąć maksymalną ilość fps w minecraft? Kliknij

tu!

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

jak możesz mieć problem ze skróceniem swojego kodu ? co ty w nim chcesz "skracać" ?

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

jackraymund Admin Cienia

jackraymund

Opublikowano
Admin Cienia

jackraymund

Opublikowano

wszystko powrzucaj w tablice, przykład

 

 

$tablica[6]
for $i = 0 to ubound($tablica)-1
$tablica[$i] = IniRead("config.passwordmanagerpro","guipass","pass" & $i,"")
next
$buttony[6]
for $i = 0 to ubound($buttony)-1
for $z = 8 to 184 step + 176
for $x = 8 to 144 step +72
$buttony[$i] = GUICtrlCreateButton($tablica[$i], $z, $x, 161, 57)
next
next
next

pisałem odręcznie więc mogą być błędy

Bum662 Budowniczy

Bum662

Opublikowano
Budowniczy

Bum662

  • Autor
Opublikowano

wszystko powrzucaj w tablice, przykład

 

 

$tablica[6]
for $i = 0 to ubound($tablica)-1
$tablica[$i] = IniRead("config.passwordmanagerpro","guipass","pass" & $i,"")
next
$buttony[6]
for $i = 0 to ubound($buttony)-1
for $z = 8 to 184 step + 176
for $x = 8 to 144 step +72
$buttony[$i] = GUICtrlCreateButton($tablica[$i], $z, $x, 161, 57)
next
next
next

pisałem odręcznie więc mogą być błędy

Pomoglbys mi?

Nie za bardzo to ogarniam

Moje tutki:

"Bad Video Card Drivers" - Błąd w mc? Zobacz do mnie aby dowiedzieć się jak to naprawić!

Chcesz wyciągnąć maksymalną ilość fps w minecraft? Kliknij

tu!

Phoenix_PL Weteran

Phoenix_PL

Opublikowano
Weteran

Phoenix_PL

Opublikowano

Tablica.

Tworzenie:

Dim/Loca/Global $tablica[indeksy]
Dim, Local i Global to modyfikatory dostępu.

 

indeksy w tablicy to... liczba "zmiennych" w których możemy zapisać jakieś dane liczona od 0. Czyli jak zrobisz tak:

Dim $tablica[5]
to tablica będzie miała 5 indeksów 0-1-2-3-4

 

Odczytywanie i zapisywanie do takiej tablicy jest takie samo jak do normalnej zmiennej lecz trzeba podać numer indeksu. Dlatego jest to bardzo praktyczne w pętli jak kolega wyżej pokazał

$zmienna[1] = "lol" ;zapisanie tekstu do pierwszego indeksu tablicy
MsgBox(0, "", $zmienna[1]) ;wypisze tekst "lol"
//NAPRAWCIE TEN ZNACZNIK CODE BO WYWALA WSZYSTKO DO JEDNEJ LINIJKI!

 

 

 

 

Tyle. Reszta to pętle.

846331404756772371599.jpeg
Bum662 Budowniczy

Bum662

Opublikowano
Budowniczy

Bum662

  • Autor
Opublikowano

 

Tablica.

Tworzenie:

Dim/Loca/Global $tablica[indeksy]
Dim, Local i Global to modyfikatory dostępu.

 

indeksy w tablicy to... liczba "zmiennych" w których możemy zapisać jakieś dane liczona od 0. Czyli jak zrobisz tak:

Dim $tablica[5]
to tablica będzie miała 5 indeksów 0-1-2-3-4

 

Odczytywanie i zapisywanie do takiej tablicy jest takie samo jak do normalnej zmiennej lecz trzeba podać numer indeksu. Dlatego jest to bardzo praktyczne w pętli jak kolega wyżej pokazał

$zmienna[1] = "lol" ;zapisanie tekstu do pierwszego indeksu tablicy
MsgBox(0, "", $zmienna[1]) ;wypisze tekst "lol"
//NAPRAWCIE TEN ZNACZNIK CODE BO WYWALA WSZYSTKO DO JEDNEJ LINIJKI!

 

 

 

 

Tyle. Reszta to pętle.

Robilem tka lecz mialem problem ze mi wszystkie nazwy i hasla pokazywal jako tego "1"

Nie mam pojecia co zrobic.

Jak mozesz napisz na gg: 3934134

Moje tutki:

"Bad Video Card Drivers" - Błąd w mc? Zobacz do mnie aby dowiedzieć się jak to naprawić!

Chcesz wyciągnąć maksymalną ilość fps w minecraft? Kliknij

tu!

Zarchiwizowany

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

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