Beiträge von Nakroma

Nakroma

Ähm Nein
Ich benutze Ini_Write_de() NACH dem "Codeschnipsel"

Nakroma

Okey Danke ich versuchs
also einfach

[autoit]

Global
$var = ....

[/autoit]

???

Nakroma

Jar, was das bedeutet ist mir klar. Nur die Variable ist deklariert wie man ja oben sieht.

[autoit]

$de_int = _XXTEA_Decrypt($en_int, $key)
$de_int = BinaryToString($de_int)

[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]

Nakroma

Hallo,
Ich hab mich mit dem verschlüsseln von .inis für z.B. Spielstände auseinandergesetzt. Nun weis ich wie ich die .ini verschlüssel, bei Bedarf entschlüsseln und auslesen und anschliesend wieder verschlüsseln kann. Ich habe dafür dieses Script gefunden(By Shadow992):

Spoiler anzeigen

[autoit]

$satz=Inputbox("","Gib den zu verschlüsselnden Satz ein")
$key=Inputbox("","Gib das passwort ein")
$encrypt=_XXTEA_Encrypt($satz, $key)
IniWrite("save.ini", "norm", "key", $encrypt)
$decrypt=_XXTEA_Decrypt($encrypt, $key)
$decrypt=BinarytoString($decrypt)
IniWrite("save.ini", "norm", "key", $decrypt)
$iniread = IniRead("save.ini", "norm", "key", "0")
MsgBox(0, "lol", $iniread)
IniWrite("save.ini", "norm", "key", $encrypt)

[/autoit] [autoit][/autoit] [autoit]

Func _XXTEA_Encrypt($Data, $Key)
$Data = Binary($Data)
Local $DataLen = BinaryLen($Data)
If $DataLen = 0 Then
Return ""
ElseIf $DataLen < 8 Then
$DataLen = 8
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local $Opcode = '0x83EC14B83400000099538B5C2420558B6C242056578B7C9DFCF7FB89C683C606C74424180000000085F68D76FF0F8EEA000000896C24288D4BFF8D549D00894C2410895424148974242081442418B979379E8B4C2418C1E90281E103000000894C241C31F6397424107E568B5424288BCF8B6CB204C1E9058D14AD0000000033CA8BD58BC7C1EA03C1E00433D003CA8B5424188BDE81E303000000335C241C8B4424308B1C9833D533DF03D333CA8B542428010CB28B0CB2463974241089CF7FAA8B5424288BCF8B2AC1E9058D14AD0000000033CA8BD58BC7C1EA03C1E00433D003CA8B5424188BDE81E303000000335C241C8B4424308B1C9833D533DF03D3FF4C242033CA8B542414014AFC8B4AFC8B54242089CF420F8F2DFFFFFF5F31C05E5D5B83C414C21000'
Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
DllStructSetData($CodeBuffer, 1, $Opcode)

[/autoit] [autoit][/autoit] [autoit]

Local $V = DllStructCreate("byte[" & Ceiling($DataLen / 4) * 4 & "]")
DllStructSetData($V, 1, $Data)

[/autoit] [autoit][/autoit] [autoit]

Local $K = DllStructCreate("byte[16]")
DllStructSetData($K, 1, $Key)

[/autoit] [autoit][/autoit] [autoit]

DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
"ptr", DllStructGetPtr($V), _
"int", Ceiling($DataLen / 4), _
"ptr", DllStructGetPtr($K), _
"int", 0)

[/autoit] [autoit][/autoit] [autoit]

Local $Ret = DllStructGetData($V, 1)
$CodeBuffer = 0
$V = 0
$K = 0
Return $Ret
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _XXTEA_Decrypt($Data, $Key)
$Data = Binary($Data)
Local $DataLen = BinaryLen($Data)
If $DataLen = 0 Then Return ""

[/autoit] [autoit][/autoit] [autoit]

Local $Opcode = '0x83EC10B83400000099538B5C241C55568B742420578B3EF7FB69D0B979379E81C256DA4CB5895424180F84DD000000897424248D4BFF8D149E894C2410895424148B4C2418C1E90281E103000000894C241C8B742410837C2410007E528B5424248B6CB2FC8BCD8BD7C1E905C1E20233CA8BD78BC5C1EA03C1E00433D003CA8B5424188BDE81E3030000008B44242C33D7335C241C8B1C9833DD03D333CA8B542424290CB28B0CB24E89CF85F67FAE8B5424148B6AFC8BCD8BD7C1E905C1E20233CA8BD78BC5C1EA03C1E00433D003CA8B5424188BDE81E3030000008B44242C33D7335C241C8B1C9833DD03D333CA8B542424290A8B0A89CF814424184786C861837C2418000F8535FFFFFF5F31C05E5D5B83C410C21000'
Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
DllStructSetData($CodeBuffer, 1, $Opcode)

[/autoit] [autoit][/autoit] [autoit]

Local $V = DllStructCreate("byte[" & Ceiling($DataLen / 4) * 4 & "]")
DllStructSetData($V, 1, $Data)

[/autoit] [autoit][/autoit] [autoit]

Local $K = DllStructCreate("byte[16]")
DllStructSetData($K, 1, $Key)

[/autoit] [autoit][/autoit] [autoit]

DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
"ptr", DllStructGetPtr($V), _
"int", Ceiling($DataLen / 4), _
"ptr", DllStructGetPtr($K), _
"int", 0)

[/autoit] [autoit][/autoit] [autoit]

Local $Ret = DllStructGetData($V, 1)
$CodeBuffer = 0
$V = 0
$K = 0
Return $Ret
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _RC4($Data, $Key)
Local $Opcode = "0xC81001006A006A005356578B551031C989C84989D7F2AE484829C88945F085C00F84DC000000B90001000088C82C0188840DEFFEFFFFE2F38365F4008365FC00817DFC000100007D478B45FC31D2F775F0920345100FB6008B4DFC0FB68C0DF0FEFFFF01C80345F425FF0000008945F48B75FC8A8435F0FEFFFF8B7DF486843DF0FEFFFF888435F0FEFFFFFF45FCEBB08D9DF0FEFFFF31FF89FA39550C76638B85ECFEFFFF4025FF0000008985ECFEFFFF89D80385ECFEFFFF0FB6000385E8FEFFFF25FF0000008985E8FEFFFF89DE03B5ECFEFFFF8A0689DF03BDE8FEFFFF860788060FB60E0FB60701C181E1FF0000008A840DF0FEFFFF8B750801D6300642EB985F5E5BC9C21000"
Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
DllStructSetData($CodeBuffer, 1, $Opcode)

[/autoit] [autoit][/autoit] [autoit]

Local $Buffer = DllStructCreate("byte[" & BinaryLen($Data) & "]")
DllStructSetData($Buffer, 1, $Data)

[/autoit] [autoit][/autoit] [autoit]

DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
"ptr", DllStructGetPtr($Buffer), _
"int", BinaryLen($Data), _
"str", $Key, _
"int", 0)

[/autoit] [autoit][/autoit] [autoit]

Local $Ret = DllStructGetData($Buffer, 1)
$Buffer = 0
$CodeBuffer = 0
Return $Ret
EndFunc

[/autoit]

Die Datei entschlüsselt die Ini, liest sie aus, verschüsselt sie wieder und gibt den Inhalt in einer MsgBox wieder. Nun habe ich für mein Spiel das Script oben angewendet(Auszug):

Spoiler anzeigen

[autoit]

$key = "Warlord"
$en_int = _XXTEA_Encrypt($int_self, $key)
$en_starke = _XXTEA_Encrypt($starke_self, $key)
$en_bew = _XXTEA_Encrypt($bew_self, $key)
$en_ausdauer = _XXTEA_Encrypt($ausdauer_self, $key)
$en_blocken = _XXTEA_Encrypt($blocken_self, $key)
$en_treffer = _XXTEA_Encrypt($treffer_self, $key)
$en_crit = _XXTEA_Encrypt($crit_self, $key)
$en_life = _XXTEA_Encrypt($life_self, $key)
$en_max_life = _XXTEA_Encrypt($max_life_self, $key)
$en_level = _XXTEA_Encrypt($level_self, $key)
$en_gold = _XXTEA_Encrypt($gold_self, $key)
$en_quest1 = _XXTEA_Encrypt($quest1, $key)
$en_ep = _XXTEA_Encrypt($ep_self, $key)
$en_quest2 = _XXTEA_Encrypt($quest2, $key)
$en_quest2eq = _XXTEA_Encrypt($quest2eq, $key)
$en_gilde = _XXTEA_Encrypt($gilde, $key)
$en_trank_der_starke = _XXTEA_Encrypt($trank_der_starke, $key)
$en_quest1_start = _XXTEA_Encrypt($quest1_start, $key)
$en_quest2_start = _XXTEA_Encrypt($quest2_start, $key)
$en_volk = _XXTEA_Encrypt($volk, $key)
$en_class = _XXTEA_Encrypt($class, $key)

[/autoit] [autoit][/autoit] [autoit]

$de_volk = _XXTEA_Decrypt($en_volk, $key)
$de_volk = BinaryToString($de_volk)
$de_class = _XXTEA_Decrypt($en_class, $key)
$de_class = BinaryToString($de_class)
$de_int = _XXTEA_Decrypt($en_int, $key)
$de_int = BinaryToString($de_int)
$de_starke = _XXTEA_Decrypt($en_starke, $key)
$de_starke = BinaryToString($de_starke)
$de_bew = _XXTEA_Decrypt($en_bew, $key)
$de_bew = BinaryToString($de_bew)
$de_ausdauer = _XXTEA_Decrypt($en_ausdauer, $key)
$de_ausdauer = BinaryToString($de_ausdauer)
$de_blocken = _XXTEA_Decrypt($en_blocken, $key)
$de_blocken = BinaryToString($de_blocken)
$de_treffer = _XXTEA_Decrypt($en_treffer, $key)
$de_treffer = BinaryToString($de_treffer)
$de_crit = _XXTEA_Decrypt($en_crit, $key)
$de_crit = BinaryToString($de_crit)
$de_life = _XXTEA_Decrypt($en_life, $key)
$de_life = BinaryToString($de_life)
$de_max_life = _XXTEA_Decrypt($en_max_life, $key)
$de_max_life = BinaryToString($de_max_life)
$de_level = _XXTEA_Decrypt($en_level, $key)
$de_level = BinaryToString($de_level)
$de_gold = _XXTEA_Decrypt($en_gold, $key)
$de_gold = BinaryToString($de_gold)
$de_quest1 = _XXTEA_Decrypt($en_quest1, $key)
$de_quest1 = BinaryToString($de_quest1)
$de_ep = _XXTEA_Decrypt($en_ep, $key)
$de_ep = BinaryToString($de_ep)
$de_quest2 = _XXTEA_Decrypt($en_quest2, $key)
$de_quest2 = BinaryToString($de_quest2)
$de_quest2eq = _XXTEA_Decrypt($en_quest2eq, $key)
$de_quest2eq = BinaryToString($de_quest2eq)
$de_gilde = _XXTEA_Decrypt($en_gilde, $key)
$de_gilde = BinaryToString($de_gilde)
$de_trank_der_starke = _XXTEA_Decrypt($en_trank_der_starke, $key)
$de_trank_der_starke = BinaryToString($de_trank_der_starke)
$de_quest1_start = _XXTEA_Decrypt($en_quest1_start, $key)
$de_quest1_start = BinaryToString($de_quest1_start)
$de_quest2_start = _XXTEA_Decrypt($en_quest2_start, $key)
$de_quest2_start = BinaryToString($de_quest2_start)

[/autoit] [autoit][/autoit] [autoit]

Func Ini_Write()
IniWrite("save.ini", "general", "volk", $en_volk)
IniWrite("save.ini", "general", "klasse", $en_class)
IniWrite("save.ini", "stats", "int", $en_int)
IniWrite("save.ini", "stats", "starke", $en_starke)
IniWrite("save.ini", "stats", "bew", $en_bew)
IniWrite("save.ini", "stats", "ausdauer", $en_ausdauer)
IniWrite("save.ini", "stats", "blocken", $en_blocken)
IniWrite("save.ini", "stats", "treffer", $en_treffer)
IniWrite("save.ini", "stats", "crit", $en_crit)
IniWrite("save.ini", "general", "life", $en_life)
IniWrite("save.ini", "general", "maxlife", $en_max_life)
IniWrite("save.ini", "general", "level", $en_level)
IniWrite("save.ini", "general", "gold", $en_gold)
IniWrite("save.ini", "quests", "quest1", $en_quest1)
IniWrite("save.ini", "general", "ep", $en_ep)
IniWrite("save.ini", "quests", "quest2", $en_quest2)
IniWrite("save.ini", "quests", "quest2eq", $en_quest2eq)
IniWrite("save.ini", "general", "gilde", $en_gilde)
IniWrite("save.ini", "tranke", "trank_der_starke", $en_trank_der_starke)
IniWrite("save.ini", "quests", "quest1_start", $en_quest1_start)
IniWrite("save.ini", "quests", "quest2_start", $en_quest2_start)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Ini_Write_de()
IniWrite("save.ini", "stats", "int", $de_int)
IniWrite("save.ini", "stats", "starke", $de_starke)
IniWrite("save.ini", "stats", "bew", $de_bew)
IniWrite("save.ini", "stats", "ausdauer", $de_ausdauer)
IniWrite("save.ini", "stats", "blocken", $de_blocken)
IniWrite("save.ini", "stats", "treffer", $de_treffer)
IniWrite("save.ini", "stats", "crit", $de_crit)
IniWrite("save.ini", "general", "life", $de_life)
IniWrite("save.ini", "general", "maxlife", $de_max_life)
IniWrite("save.ini", "general", "level", $de_level)
IniWrite("save.ini", "general", "gold", $de_gold)
IniWrite("save.ini", "quests", "quest1", $de_quest1)
IniWrite("save.ini", "general", "ep", $de_ep)
IniWrite("save.ini", "quests", "quest2", $de_quest2)
IniWrite("save.ini", "quests", "quest2eq", $de_quest2eq)
IniWrite("save.ini", "general", "gilde", $de_gilde)
IniWrite("save.ini", "tranke", "trank_der_starke", $de_trank_der_starke)
IniWrite("save.ini", "quests", "quest1_start", $de_quest1_start)
IniWrite("save.ini", "quests", "quest2_start", $de_quest2_start)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _XXTEA_Encrypt($Data, $Key)
$Data = Binary($Data)
Local $DataLen = BinaryLen($Data)
If $DataLen = 0 Then
Return ""
ElseIf $DataLen < 8 Then
$DataLen = 8
EndIf

[/autoit] [autoit][/autoit] [autoit]

Local $Opcode = '0x83EC14B83400000099538B5C2420558B6C242056578B7C9DFCF7FB89C683C606C74424180000000085F68D76FF0F8EEA000000896C24288D4BFF8D549D00894C2410895424148974242081442418B979379E8B4C2418C1E90281E103000000894C241C31F6397424107E568B5424288BCF8B6CB204C1E9058D14AD0000000033CA8BD58BC7C1EA03C1E00433D003CA8B5424188BDE81E303000000335C241C8B4424308B1C9833D533DF03D333CA8B542428010CB28B0CB2463974241089CF7FAA8B5424288BCF8B2AC1E9058D14AD0000000033CA8BD58BC7C1EA03C1E00433D003CA8B5424188BDE81E303000000335C241C8B4424308B1C9833D533DF03D3FF4C242033CA8B542414014AFC8B4AFC8B54242089CF420F8F2DFFFFFF5F31C05E5D5B83C414C21000'
Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
DllStructSetData($CodeBuffer, 1, $Opcode)

[/autoit] [autoit][/autoit] [autoit]

Local $V = DllStructCreate("byte[" & Ceiling($DataLen / 4) * 4 & "]")
DllStructSetData($V, 1, $Data)

[/autoit] [autoit][/autoit] [autoit]

Local $K = DllStructCreate("byte[16]")
DllStructSetData($K, 1, $Key)

[/autoit] [autoit][/autoit] [autoit]

DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
"ptr", DllStructGetPtr($V), _
"int", Ceiling($DataLen / 4), _
"ptr", DllStructGetPtr($K), _
"int", 0)

[/autoit] [autoit][/autoit] [autoit]

Local $Ret = DllStructGetData($V, 1)
$CodeBuffer = 0
$V = 0
$K = 0
Return $Ret
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _XXTEA_Decrypt($Data, $Key)
$Data = Binary($Data)
Local $DataLen = BinaryLen($Data)
If $DataLen = 0 Then Return ""

[/autoit] [autoit][/autoit] [autoit]

Local $Opcode = '0x83EC10B83400000099538B5C241C55568B742420578B3EF7FB69D0B979379E81C256DA4CB5895424180F84DD000000897424248D4BFF8D149E894C2410895424148B4C2418C1E90281E103000000894C241C8B742410837C2410007E528B5424248B6CB2FC8BCD8BD7C1E905C1E20233CA8BD78BC5C1EA03C1E00433D003CA8B5424188BDE81E3030000008B44242C33D7335C241C8B1C9833DD03D333CA8B542424290CB28B0CB24E89CF85F67FAE8B5424148B6AFC8BCD8BD7C1E905C1E20233CA8BD78BC5C1EA03C1E00433D003CA8B5424188BDE81E3030000008B44242C33D7335C241C8B1C9833DD03D333CA8B542424290A8B0A89CF814424184786C861837C2418000F8535FFFFFF5F31C05E5D5B83C410C21000'
Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
DllStructSetData($CodeBuffer, 1, $Opcode)

[/autoit] [autoit][/autoit] [autoit]

Local $V = DllStructCreate("byte[" & Ceiling($DataLen / 4) * 4 & "]")
DllStructSetData($V, 1, $Data)

[/autoit] [autoit][/autoit] [autoit]

Local $K = DllStructCreate("byte[16]")
DllStructSetData($K, 1, $Key)

[/autoit] [autoit][/autoit] [autoit]

DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
"ptr", DllStructGetPtr($V), _
"int", Ceiling($DataLen / 4), _
"ptr", DllStructGetPtr($K), _
"int", 0)

[/autoit] [autoit][/autoit] [autoit]

Local $Ret = DllStructGetData($V, 1)
$CodeBuffer = 0
$V = 0
$K = 0
Return $Ret
EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _RC4($Data, $Key)
Local $Opcode = "0xC81001006A006A005356578B551031C989C84989D7F2AE484829C88945F085C00F84DC000000B90001000088C82C0188840DEFFEFFFFE2F38365F4008365FC00817DFC000100007D478B45FC31D2F775F0920345100FB6008B4DFC0FB68C0DF0FEFFFF01C80345F425FF0000008945F48B75FC8A8435F0FEFFFF8B7DF486843DF0FEFFFF888435F0FEFFFFFF45FCEBB08D9DF0FEFFFF31FF89FA39550C76638B85ECFEFFFF4025FF0000008985ECFEFFFF89D80385ECFEFFFF0FB6000385E8FEFFFF25FF0000008985E8FEFFFF89DE03B5ECFEFFFF8A0689DF03BDE8FEFFFF860788060FB60E0FB60701C181E1FF0000008A840DF0FEFFFF8B750801D6300642EB985F5E5BC9C21000"
Local $CodeBuffer = DllStructCreate("byte[" & BinaryLen($Opcode) & "]")
DllStructSetData($CodeBuffer, 1, $Opcode)

[/autoit] [autoit][/autoit] [autoit]

Local $Buffer = DllStructCreate("byte[" & BinaryLen($Data) & "]")
DllStructSetData($Buffer, 1, $Data)

[/autoit] [autoit][/autoit] [autoit]

DllCall("user32.dll", "none", "CallWindowProc", "ptr", DllStructGetPtr($CodeBuffer), _
"ptr", DllStructGetPtr($Buffer), _
"int", BinaryLen($Data), _
"str", $Key, _
"int", 0)

[/autoit] [autoit][/autoit] [autoit]

Local $Ret = DllStructGetData($Buffer, 1)
$Buffer = 0
$CodeBuffer = 0
Return $Ret
EndFunc

[/autoit]

Nun mache ich vor jedem IniRead dieses hier:

[autoit]

Ini_write_de()
IniRead(...)
Ini_write()

[/autoit]

Eine Ini_Write_de() wird direkt am Anfang gebraucht. Wenn ich das Script starte kommt folgender Fehler:

Code

==> Variable used without being declared.:
IniWrite("save.ini", "stats", "int", $de_int)
IniWrite("save.ini", "stats", "int", ^ ERROR

Need Help
Mfg Nakroma

Nakroma

Ansonsten kannst das auch damit machen

[autoit]

$read = Guictrlread($checkbox)
If $read = 1 Then
Funktion1()
EndiF

[/autoit]

1 = Makiert/gecheckt
4 = Nicht markiert/nicht gecheckt

Nakroma

Natürlich^^
Danke sehr, klappt jetzt wunderbar

Nakroma

Hallo,
Ich mache gerade ein Spiel mit Gilden,
Das ist ein Ausschnitt des Programms:

Spoiler anzeigen

[autoit]

$gilde = IniRead("save.ini", "general", "gilde", "0")

[/autoit] [autoit][/autoit] [autoit]

Func Ini_Write()
IniWrite("save.ini", "general", "gilde", $gilde)
EndFunc
Func stadt_handler()
$check_gilde1 = IniRead("save.ini", "general", "gilde", "0")
If $check_gilde1 = 0 Then
MsgBox(0, "Gilde", "Willkommen in der Händlergilde.")
MsgBox(0, "Gilde", "Deine Vorteile in dieser Gilde wären:")
MsgBox(0, "Gilde", "Du kriegst 10% Rabatt auf Waren.")
$beitritt_handler = MsgBox(4, "Gilde", "Ist doch toll! Willst du der Händlergilde beitreten?")
If $beitritt_handler = 6 Then
MsgBox(0, "Gilde", "Das ist toll! Du gehörst jetzt zur Händlergilde.")
$gilde = "handler"
Ini_Write()
EndIf
ElseIf $check_gilde1 = "handler" Then
MsgBox(0, "Platzhalter", "Platzhalter")
Else
MsgBox(0, "Gilde", "Du bist bereits in einer Gilde.")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func stadt_dieb()
$check_gilde2 = IniRead("save.ini", "general", "gilde", "0")
If $check_gilde2 = 0 Then
MsgBox(0, "Gilde", "Willkommen in der Diebesgilde.")
MsgBox(0, "Gilde", "Deine Vorteile in dieser Gilde wären:")
MsgBox(0, "Gilde", "10% Mehr Gold von Quests. Muhaha!")
$beitritt_dieb = MsgBox(4, "Gilde", "Willst du auch so verschlagen sein und dich der Diebesgilde anschliesen?")
If $beitritt_dieb = 6 Then
MsgBox(0, "Gilde", "Muhaha! Willkommen in unserer Gilde!")
$gilde = "dieb"
Ini_Write()
EndIf
ElseIf $check_gilde2 = "dieb" Then
MsgBox(0, "Platzhalter", "Platzhalter")
Else
MsgBox(0, "Gilde", "Du bist bereits in einer Gilde.")
EndIf
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func stadt_alchemist()
$check_gilde3 = IniRead("save.ini", "general", "gilde", "0")
If $check_gilde3 = 0 Then
MsgBox(0, "Gilde", "Willkommen in del Alchemistengilde.")
MsgBox(0, "Gilde", "Deine Volteile in dieser Gilde wälen:")
MsgBox(0, "Gilde", "Du kannst Tlänke kaufen und benutzen.")
$beitritt_alchemist = MsgBox(4, "Gilde", "Willst du uns beitleten?")
If $beitritt_alchemist = 6 Then
MsgBox(0, "Gilde", "Willkommen in unselel Gilde.")
$gilde = "alchemist"
Ini_Write()
EndIf
ElseIf $check_gilde3 = "alchemist" Then
MsgBox(0, "Platzhalter", "Platzhalter")
Else
MsgBox(0, "Gilde", "Du bist bereits in einer Gilde.")
EndIf
EndFunc

[/autoit]

Komischer weise kann man den Gilden immer wieder beitreten, irgendwie lesen die es nicht aus... die save.ini zeigt aber an:

Code

[general]
gilde=alchemist

Danke im Vorraus
Mfg

Nakroma

*fixed*

Nakroma

Das mit dem Dreieck ist mir klar, nur ist es ja nicht die Fläche sondern der Umfang

Nakroma

Fromel = Formel
Ein Insider Gag aus unserer Klasse^^. Ein nettes Programm zum Rechnen.
Freue mich auf Kritik
Mfg und viel Spaß Nakroma

Spoiler anzeigen

[autoit]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; Author: Nakroma
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
$GUI = GUICreate("Fromel", 305, 210, 255, 125)
$Tab1 = GUICtrlCreateTab(8, 8, 290, 190)
$TabSheet1 = GUICtrlCreateTabItem("Prozent")
$button1 = GUICtrlCreateButton("p% Prozentsatz", 24, 40)
$button2 = GUICtrlCreateButton("W Prozentwert", 24, 80)
$button3 = GUICtrlCreateButton("G Grundwert", 24, 120)
$TabSheet2 = GUICtrlCreateTabItem("Körper")
$button4 = GUICtrlCreateButton("Oktaeder", 24, 40)
$button5 = GUICtrlCreateButton("Quadrat", 24, 80)
$button6 = GUICtrlCreateButton("Dreieck", 24, 120)
$TabSheet3 = GUICtrlCreateTabItem("Rechnungen")
$button8 = GUICtrlCreateButton("Plus", 24, 40)
$button9 = GUICtrlCreateButton("Minus", 24, 80)
$button10 = GUICtrlCreateButton("Mal", 24, 120)
$button11 = GUICtrlCreateButton("Geteilt", 24, 160)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $button1
Prozentsatz()

Case $button2
Prozentwert()

[/autoit] [autoit][/autoit] [autoit]

Case $button3
Grundwert()

Case $button4
Oktaeder()

Case $button5
Quadrat()

Case $button6
Dreieck()

Case $button8
Plus()

Case $button9
Minus()

Case $button10
Mal()

Case $button11
Geteilt()

Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Prozentsatz()
$pspw = InputBox("Fromel", "Bitte Prozentwert eingeben")
If @error Then
Return
Endif
$psgw = InputBox("Fromel", "Bitte Grundsatz eingeben")
If @error Then
Return
Endif
$ps = $pspw / $psgw
MsgBox(0, "Fromel", "p%: " & $ps)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Prozentwert()
$pwps = InputBox("Fromel", "Bitte Prozentsatz eingeben")
If @error Then
Return
Endif
$pwgw = InputBox("Fromel", "Bitte Grundwert eingeben")
If @error Then
Return
Endif
$pw = $pwgw * $pwps
MsgBox(0, "Fromel", "W: " & $pw)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Grundwert()
$gwpw = InputBox("Fromel", "Bitte Prozentwert eingeben")
If @error Then
Return
Endif
$gwps = InputBox("Fromel", "Bitte Prozentsatz eingeben")
If @error Then
Return
Endif
$gw = $gwpw / $gwps
MsgBox(0, "Fromel", "G: " & $gw)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Oktaeder()
$okt_a = InputBox("Fromel", "Bitte Seite a eingeben")
If @error Then
Return
Endif
$okt_b = InputBox("Fromel", "Bitte Seite b eingeben")
If @error Then
Return
Endif
$okt = $okt_a * 8 + $okt_b * 4
MsgBox(0, "Fromel", "Umfang: " & $okt)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Quadrat()
$quad_a = InputBox("Fromel", "Bitte Seite a eingeben")
If @error Then
Return
Endif
$quad_b = InputBox("Fromel", "Bitte Seite b eingeben")
If @error Then
Return
Endif
$quad = $quad_a * 2 + $quad_b * 2
MsgBox(0, "Fromel", "Umfang: " & $quad)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Dreieck()
$drei_a = InputBox("Fromel", "Bitte Seite a eingeben")
If @error Then
Return
Endif
$drei_b = InputBox("Fromel", "Bitte Seite b eingeben")
If @error Then
Return
Endif
$drei_c = InputBox("Fromel", "Bitte Seite c eingeben")
If @error Then
Return
Endif
$drei = $drei_a + $drei_b + $drei_c
MsgBox(0, "Fromel", "Umfang: " & $drei)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Plus()
$plus_a = InputBox("Fromel", "Bitte Zahl a eingeben")
If @error Then
Return
Endif
$plus_b = InputBox("Fromel", "Bitte Zahl b eingeben")
If @error Then
Return
Endif
$plus = $plus_a + $plus_b
MsgBox(0, "Fromel", "+: " & $plus)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Minus()
$min_a = InputBox("Fromel", "Bitte Zahl a eingeben")
If @error Then
Return
Endif
$min_b = InputBox("Fromel", "Bitte Zahl b eingeben")
If @error Then
Return
Endif
$min = $min_a - $min_b
MsgBox(0, "Fromel", "-: " & $min)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Mal()
$mal_a = InputBox("Fromel", "Bitte Zahl a eingeben")
If @error Then
Return
Endif
$mal_b = InputBox("Fromel", "Bitte Zahl b eingeben")
If @error Then
Return
Endif
$mal = $mal_a * $mal_b
MsgBox(0, "Fromel", "*: " & $mal)
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func Geteilt()
$get_a = InputBox("Fromel", "Bitte Zahl a eingeben")
If @error Then
Return
Endif
$get_b = InputBox("Fromel", "Bitte Zahl b eingeben")
If @error Then
Return
Endif
$get = $get_a / $get_b
MsgBox(0, "Fromel", "/: " & $get)
EndFunc

[/autoit]

Nakroma

Jo, das mit IniWrite hab ich auch schon herausgefunden
Naja, Danke auch^^

Nakroma

Okey Danke Kannts mir evl. den Befehl dafür sagen? In der Hilfe find ich momentan nix

Nakroma

Hallo,
Ich erstelle gerade einen "Passwordsaver" auf dem Anraten von Bakkus Entscheidungshelfer(^^).
Jetzt meine Frage: Kann ich die Daten(also die Passwörter)irgendwie abspeichern und für jedes gespeicherte Password so eine Art ID zuweisen? Also das erste PW hat die ID 1, Das zweite 2 und so weiter.
Vielen Dank im Vorraus
Mfg
Nakroma

Nakroma

Zitat von autoBert

Hallo Nakroma,

Hier kannst du dir die Hilfe herunterladen.
Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

i2c, du hast vergessen die TabDefinition mit
[autoit]
GUICtrlCreateTabItem("")
[/autoit]
zu beenden, dies kann zu unerwünschten Effekten führen.

Nakroma: da dein Problem ja gelöst ist, wäre es schön wenn du den Thread auch auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

mfg (auto)Bert

Alles anzeigen

Sorry, vergess das manchmal

Nakroma

Ah! Ok, Vielen Dank

Nakroma

Hi, Ich würde gerne in Meine Gui Tabs einbauen und hab auch schon ein bischen damit rumgewerkelt. Kann mir wer sagen wie ich
1. Mehrere Tabs machen kann(Halt nen Tab Menü)
2. In die Tabs eine GUI einbinden kann(Oder halt die While)

Das wär nett^^ Wenn ihr ein Tut dafür kennt könnt ihr das posten? Habe in der SuFu noch bei Google was gefunden.
Mfg Nakroma

Nakroma

Klappt leider nicht

Nakroma

Habe diesen Code hier genommen:

[autoit]

#include <GUIConstants.au3>

[/autoit][autoit][/autoit][autoit]

GUICreate("Name", 500, 600)
$n = GUICtrlCreatePic("bg.jpg", 500, 600)

[/autoit][autoit][/autoit][autoit]

GUISetState(@SW_SHOW)

[/autoit][autoit][/autoit][autoit]

While 1
$msg = GUIGetMsg()
$n = GUICtrlSetPos($n, 0, 0)
Select

Case $msg = $GUI_EVENT_CLOSE
MsgBox(0, "Message", "Programm wird beendet!")
ExitLoop

EndSelect
WEnd

[/autoit]

Wenn ich das Prog jetzt starte kommt mein Schwarzer Kasten(bg.jpg genau 500x600 pixel groß)nur als kleiner Teil und nimmt so 10% weg... wie mache ich das auf Vollbild?

Nakroma

Cool, vielen Dank

Nakroma

Und wie mache ich es dann Transparent?

Beiträge von Nakroma

Ini Verschlüsseln erkennt Variable nicht?

Ini Verschlüsseln erkennt Variable nicht?

Ini Verschlüsseln erkennt Variable nicht?

Ini Verschlüsseln erkennt Variable nicht?

Hilfe bei Func in Gui

Ini wird nich ausgelesen?

Ini wird nich ausgelesen?

Fromel

Fromel

Fromel

Passwordsaver: Daten speichern

Passwordsaver: Daten speichern

Passwordsaver: Daten speichern

Tabs in der GUI - Wie geht das?

Tabs in der GUI - Wie geht das?

Tabs in der GUI - Wie geht das?

GUI zeigt Hintergrundbild nicht an.

GUI zeigt Hintergrundbild nicht an.

Transparentes Hintergrundbild

Transparentes Hintergrundbild