Hallöchen alle ihr jungs und mädchen
vielleicht kann mir jmd helfen:
Idee Live MultiLanguage Sprachumschaltung
kleines Extra damit nicht irgendwer an den Sprachen rumfummelt.. encryptchen.
es ist eigenlich noch nichts ganz fertig darum verzeit mir.. umständliche codingwege ..
Jz das eigenliche Problem: (FEHLER auf grund von Opt("MustDeclareVars", 1) => bei 0 ist alles okay..)
Spoiler anzeigen
"C:\Program Files (x86)\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Users\ICH\Desktop\AutoIt v3 Script (neu) (2).au3" /UserParams
+>10:38:22 Starting AutoIt3Wrapper v.14.801.2025.0 SciTE v.3.4.4.0 Keyboard:00000407 OS:WIN_81/ CPU:X64 OS:X64 Environment(Language:0407)
+> SciTEDir => C:\Program Files (x86)\AutoIt3\SciTE UserDir => C:\Users\ICH\AppData\Local\AutoIt v3\SciTE\AutoIt3Wrapper SCITE_USERHOME => C:\Users\ICH\AppData\Local\AutoIt v3\SciTE
>Running AU3Check (3.3.12.0) from:C:\Program Files (x86)\AutoIt3 input:C:\Users\ICH\Desktop\AutoIt v3 Script (neu) (2).au3
+>10:38:23 AU3Check ended.rc:0
>Running:(3.3.12.0):C:\Program Files (x86)\AutoIt3\autoit3.exe "C:\Users\ICH\Desktop\AutoIt v3 Script (neu) (2).au3"
--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
"C:\Users\ICH\Desktop\AutoIt v3 Script (neu) (2).au3" (276) : ==> Variable used without being declared.:
Func _INIREAD($s_PATH = Default, $f_UseEncryptedINI = Default)
^ ERROR
->10:38:24 AutoIt3.exe ended.rc:1
+>10:38:24 AutoIt3Wrapper Finished.
>Exit code: 1 Time: 1.943
der Aufruf :
Spoiler anzeigen
#Region - GUI Create
Local $gui, $1, $2, $3, $4, $5, $6
$gui = GUICreate('')
GUISetState()
$1 = GUICtrlCreateButton("text1", 0, 0, 150)
;__AddToMultiLanguage($1, "hahaha")
$2 = GUICtrlCreateButton("text2", 0, 50, 150)
;__AddToMultiLanguage($2)
$3 = GUICtrlCreateButton("text3", 0, 100, 150)
;__AddToMultiLanguage($3)
$4 = GUICtrlCreateButton("text4", 0, 150, 150)
;__AddToMultiLanguage($4)
$5 = GUICtrlCreateButton("text5", 0, 200, 150)
;__AddToMultiLanguage($5)
$6 = GUICtrlCreateButton("text6", 0, 250, 150)
;__AddToMultiLanguage($6)
#EndRegion - GUI Create
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region - GUI SwitchLoop
While True
Switch GUIGetMsg()
Case $GUI_EVENT_Close
Exit
Case $1
Case $2
Case $3
Case $4
Case $5
Case $6
$a = _INIREAD(Default)
ConsoleWrite($a & @CRLF)
_ArrayDisplay($a, "ENCRIPT")
Case Else
EndSwitch
WEnd
#EndRegion - GUI SwitchLoop
Die Function
Spoiler anzeigen
Func _INIREAD($s_PATH = Default, $f_UseEncryptedINI = Default)
Local $a_Return[1][2] = [["SECTION", "ARRAYofITEMS"]]
Local $a_Sections[1] = ["$a_Sections"]
If $s_PATH == Default Then $s_PATH = $__MLUDF_s_ML_FILEPATH & $__MLUDF_s_ML_FILENAME
If $f_UseEncryptedINI == Default Then $f_UseEncryptedINI = True
If $f_UseEncryptedINI Then
If $__MLUDF_m_USE_PASSWORD == Default Then $__MLUDF_m_USE_PASSWORD = @ScriptName
If $__MLUDF_v_USE_ENCRYPT_ALG == Default Then $__MLUDF_v_USE_ENCRYPT_ALG = $CALG_AES_256
Local $s_SpawnFile = _TempFile(Default, Default, ".bin", 9)
[/autoit] [autoit][/autoit] [autoit]If _Crypt_DecryptFile($s_PATH, $s_SpawnFile, $__MLUDF_m_USE_PASSWORD, $__MLUDF_v_USE_ENCRYPT_ALG) Then
MsgBox($MB_SYSTEMMODAL, "Success", "Operation succeeded.")
Else
Switch @error
Case 1
MsgBox($MB_SYSTEMMODAL, "Error", "Failed to create the key.")
Return False ; REPORT
Case 2
MsgBox($MB_SYSTEMMODAL, "Error", "Couldn't open the source file.")
Return False ; REPORT
Case 3
MsgBox($MB_SYSTEMMODAL, "Error", "Couldn't open the destination file.")
Return False ; REPORT
Case 4 Or 5
MsgBox($MB_SYSTEMMODAL, "Error", "Decryption error.")
Return False ; REPORT
EndSwitch
EndIf
FileSetAttrib($s_SpawnFile, "+SHOT") ; could help to hide a bit more
$s_PATH = $s_SpawnFile
EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Local $hFileOpen = FileOpen($s_PATH, $FO_READ)
Local $lines = _FileCountLines($s_PATH)
If $hFileOpen = -1 Then Return SetError(1, 0, 0) ; REPORT
If $lines = 0 And @error Then Return SetError(1, 0, 0) ; REPORT
For $i = 0 To $lines
Local $s_FRL = FileReadLine($hFileOpen, $i)
If StringLeft($s_FRL, 1) == "[" And StringRight($s_FRL, 1) == "]" Then _ArrayAdd($a_Sections, $s_FRL)
Next
FileClose($hFileOpen)
$hFileOpen = Null ; Leak Fix
[/autoit] [autoit][/autoit] [autoit]$a_Sections[0] = UBound($a_Sections) - 1
[/autoit] [autoit][/autoit] [autoit]For $i = 1 To $a_Sections[0]
Local $a_tmp[1][2] = [[StringTrimRight(StringTrimLeft($a_Sections[$i], 1), 1), IniReadSection($s_PATH, StringTrimRight(StringTrimLeft($a_Sections[$i], 1), 1))]]
_ArrayAdd($a_Return, $a_tmp)
Next
If $f_UseEncryptedINI Then
FileDelete($s_SpawnFile) ; delete TempSpawn
EndIf
Return $a_Return
[/autoit] [autoit][/autoit] [autoit]EndFunc ;==>_INIREAD
[/autoit]Vielen dank Ich hoffe ich hab jetzt auf die schnelle nicht allzuviel vergessen bzw fehler gemacht
ElCoón