Beiträge von RR04

RR04

Hallo, ich habs mal angepasst.

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

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

;========Checkbox Names _SpezOpt=========
Global $Checkbox[14]
Global $CheckNames[14] = ['RAR', 'Zip', 'CAB', 'ARJ', 'LZH', 'ACE', '7-Zip', 'Tar', 'GZip', 'UUE', 'BZ2', 'JAR', 'ISO', 'Z']
Global $CheckFunk[14] = ['_RAR', '_ZIP', '_CAB', '_ARJ', '_LZH', '_ACE', '_7ZIP', '_TAR', '_GZIP', '_UUE', '_BZ2', '_JAR', '_ISO', '_Z']

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

Global $ini = @ScriptDir & '\Spez-Option.ini'

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

;RAR ZIP CAB ARJ LZH ACE 7ZIP TAR GZIP UUE BZ2 JAR ISO Z
;========================================

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

$gui = GUICreate('Form1', 610, 434, 192, 124)
GUICtrlCreateGroup('Group1', 8, 8, 593, 417)
$button = GUICtrlCreateButton('Save', 30, 320, 40, 22)
For $Ci = 0 To 13
$Checkbox[$Ci] = GUICtrlCreateCheckbox($CheckNames[$Ci], 30 + Mod($Ci, 10) * 55, 350 + Int($Ci / 10) * 24, 49, 17)
Next
GUICtrlCreateGroup("", -99, -99, 1, 1) ;close group

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $button
For $i = 0 To 13
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then Call _Save()
Next
EndSwitch
WEnd

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

Func _Save()
For $i = 0 To 13
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
IniWrite($ini, 'WinRAR', $CheckNames[$i], 'Ja')
Else
IniWrite($ini, 'WinRAR', $CheckNames[$i], 'Nein')
EndIf
Next
EndFunc ;==>_Save
; Ende

[/autoit]

RR04

@Christoph wenn wulf mehr Angaben gemacht hätte, könnten wir genauer helfen.

RR04

Nur eine Funktion verwenden!
Hier ein schematisches Beispiel:

Func _wtag()
Switch Tag
Case Sonntag
dann ...
Case Montag
dann ...
EndSwitch
EndFunc ;==> _wtag()

Spoiler anzeigen

[autoit]

Switch @WDAY ;i der Variable täglich den Wochentag zuweisen 1-7
Case 1
$WDAY = " Sonntag "
Case 2
$WDAY = " Montag "
Case 3
$WDAY = " Dienstag "
Case 4
$WDAY = " Mittwoch "
Case 5
$WDAY = " Donnerstag "
Case 6
$WDAY = " Freitag "
Case 7
$WDAY = " Samstag "
EndSwitch
GUICtrlSetData($Label, $WDAY)
; Ende

[/autoit]

RR04

Hallo !

Einen 100%igen Schutz gibt es nicht.

Aber man kann das Zurückspielen erschweren.
Das stellt natürlich zusätzlichen Aufwand dar,
je nach Wichtigkeit des Skriptes.

RR04

Hi, der While-Block beginnt mit While und endet mit WEnd- Die Abbruchbedingung fuer eine Schleife wird gleich neben den Schleifenstart geschrieben, also "While 1". Der Einser steht hier NICHT fuer eine Zahl (1,2 oder 3) sondern fuer True !

Spoiler anzeigen

[autoit]

#NoTrayIcon
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=little iconpack\icon.ico
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include<WindowsConstants.au3>
#include<Misc.au3>

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

$hGui = GUICreate("", 400, 400, Default, Default, $WS_POPUP)
$bhandle = GUICtrlCreateButton("Button :>", 30, 30, 60, 55)
GUISetBkColor(0x00FF00)
GUISetState()
While 1

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

$msg = GUIGetMsg()
Switch $msg
Case -3
ExitLoop
Case $bhandle
_llo()
EndSwitch

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

$mPos = GUIGetCursorInfo()
If IsArray($mPos) And _IsPressed(01) Then
$Fenster_Position = WinGetPos($hGui) ; Fensterposition herrausfinden
$Maus_Position = MouseGetPos() ; Mausposition herrausfinden
$Maus_Position_Vorher = MouseGetPos() ; "
While _IsPressed(01) = 1
$Maus_Position = MouseGetPos() ; Die neue Mausposition herausfinden
WinMove($hGui, "", $Maus_Position[0] - $Maus_Position_Vorher[0] + $Fenster_Position[0], $Maus_Position[1] - $Maus_Position_Vorher[1] + $Fenster_Position[1])
; Keine ahnung warum, aber es geht^^
WEnd
EndIf
If _IsPressed("1B") Then Exit ; ESC
WEnd

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

Func _llo()
MsgBox(0, "", "Bitteschoen !")
EndFunc ;==>_llo

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

#comments-start
While 2
$msg = GUIGetMsg()
Switch $msg
Case -3
ExitLoop
Case $bhandle
_llo()
EndSwitch
WEnd

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

#comments-end
; Ende

[/autoit]

DA WAR ICH WOHL SCHNELLER !!

RR04

Torni hat Recht, aber es geht noch mehr.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

GUICreate("GroupColor-Tut")
GUISetBkColor(0xc8c8c8)
#region Group
GUICtrlCreateGroup("Group", 10, 10, 300, 100)
GUICtrlCreateGraphic(12, 18, 298, 92)
GUICtrlSetBkColor(-1, 0xFFAAAA);0xf8f8f8)
GUICtrlCreateGroup("", -99, -99, 1, 1)
#endregion Group

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

#region Group Daten
GUICtrlCreateLabel(" Daten", 220, 150, 164, 152)
GUICtrlSetBkColor(-1, 0xEEEEEE) ;i silber
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUICtrlCreateGroup("", 220, 143, 165, 160) ; create group
;~ [...]
GUICtrlCreateGroup("", -99, -99, 1, 1) ; close group
#endregion Group Daten

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

GUISetState(@SW_SHOW)

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

Do
$msg = GUIGetMsg()
Until $msg=-3
; Ende

[/autoit]

RR04

Hi chess
Wer nur Windows 7 hat wird damit leben können, aber manche haben ja sogar Win XP Pro, dann stimmen die Pfade nicht.

RR04

Nathax

Schöne Lösung.
Der Aufbau von chesstigers Version hat mir auch besser gefallen.

Die Pfade zur Aut2exe.exe würde ich vorher prüfen (z.B.: Registry).

[autoit]

FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\Aut2exe.exe", @TempDir&"\Aut2exe.exe")
FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\AutoItSC.bin", @TempDir&"\AutoItSC.bin")
FileInstall("C:\Program Files (x86)\AutoIt3\Aut2exe\upx.exe", @TempDir&"\upx.exe")

[/autoit]

RR04

Hier mal ein Angebot, die Variable für die Flags muss noch rein.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

GUICreate("MsgBox-Creator", 300, 120)
GUICtrlCreateLabel("Titel :", 10, 10, 36, 17)
$iptTitel = GUICtrlCreateInput("", 50, 10, 240, 20)
GUICtrlCreateLabel("Text :", 10, 40, 36, 17)
$iptText = GUICtrlCreateInput("", 50, 40, 240, 20)
$ckbAktiv = GUICtrlCreateCheckbox("aktivieren", 50, 75, 97, 17)
$btnErstellen = GUICtrlCreateButton("Erstellen", 190, 70, 100, 40)
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ExitLoop
Case $ckbAktiv
If BitAND(GUICtrlRead($ckbAktiv), $GUI_CHECKED) Then
GUICtrlSetState($btnErstellen, $GUI_ENABLE)
GUICtrlSetData($ckbAktiv, "deaktivieren")
Else
GUICtrlSetState($btnErstellen, $GUI_DISABLE)
GUICtrlSetData($ckbAktiv, "aktivieren")
EndIf
Case $btnErstellen
_createAU3()
EndSwitch
WEnd

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

Func _createAU3()
Local $hFileName = @ScriptDir & "\_MsgBox-Creator.au3"
Local $MsgBox = '$title = ' & '"' & GUICtrlRead($iptTitel) & '"' & @CRLF & '$text = ' _
& '"' & GUICtrlRead($iptText) & '"' & @CRLF & 'MsgBox(0, $title, $text)' _
& @CRLF & 'Exit' & @CRLF & '; Ende'
Local $hFileOpen = FileOpen($hFileName, 2)
FileWrite($hFileName, $MsgBox)
FileClose($hFileOpen)
If Not @error Then Return $hFileName
Return SetError(1, 1, $hFileName)
EndFunc ;==>_Erstellen
; Ende

[/autoit]

RR04

Hi, besser so.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

GUICreate("MsgBox-Creator", 300, 120)
GUICtrlCreateLabel("Titel :", 10, 10, 36, 17)
$Titel = GUICtrlCreateInput("", 50, 10, 240, 20)
GUICtrlCreateLabel("Text :", 10, 40, 36, 17)
$Text = GUICtrlCreateInput("", 50, 40, 240, 20)
$aktiv = GUICtrlCreateCheckbox("aktivieren", 176, 75, 97, 17)
$Erstellen = GUICtrlCreateButton("Erstellen", 10, 70, 100, 41)
GUICtrlSetState(-1, $GUI_DISABLE)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
ExitLoop
Case $aktiv
If BitAND(GUICtrlRead($aktiv), $GUI_CHECKED) Then
GUICtrlSetState($Erstellen, $GUI_ENABLE)
GUICtrlSetData($aktiv, "deaktivieren")
Else
GUICtrlSetState($Erstellen, $GUI_DISABLE)
GUICtrlSetData($aktiv, "aktivieren")
EndIf
Case $Erstellen
_Erstellen()
EndSwitch
WEnd

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

Func _Erstellen()
MsgBox(0, GUICtrlRead($Titel), GUICtrlRead($Text))
EndFunc ;==>_Erstellen
; Ende

[/autoit]

RR04

Willkommen und viel Spaß hier!
Schau Dir mal das folgende Beispiel genauer an.

[autoit]

$var = InputBox("Rechner", "Gebe Deine Berechnung ein" & @CRLF & "zum Beispiel:", "( 2 + 4 ) * 2")
If @error Then Exit
MsgBox(0, "Rechner", Execute($var))
Exit

[/autoit]

RR04

funkey, ich meine es so:

[autoit]

#comments-start
;Example by Funkey
;~ Wenn das so ist, dann wäre das eine Endlosschleife, oder?
#include <Array.au3>
Global $aArray[3] = [1, 2, 3]
For $i = 0 To UBound($aArray) - 1
_ArrayAdd($aArray, $i + 3)
ConsoleWrite($aArray[$i] & @CRLF)
Next
_ArrayDisplay($aArray)
;Ende Example by Funkey

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

In Zeile 4 wird in die Variable "$i" die Funktion UBound gelegt.
UBound - Das Array dessen Größe ermittelt werden soll!

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

Hieraus ergibt sich,
dass bei jedem weiteren Aufruf von "$i" die Funktion UBound ausgefürt wird,
obwohl die Größe des Arrays schon bekannt ist!

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

Demnach wird in Deinem Beispiel die Größe des Arrays 3 mal ermittelt.
In den Zeilen 4, 5 und 6.
#comments-end

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

#include <Array.au3>
Global $aArray[3] = [1, 2, 3]
$UBoundaArray = UBound($aArray) - 1 ;i Dynamisch mit UBound.
ConsoleWrite("Der integere Wert von UBound ist: " & $UBoundaArray & @CRLF)
For $i = 0 To $UBoundaArray ;i Statisch kein UBound.
_ArrayAdd($aArray, $i + 3)
ConsoleWrite($aArray[$i] & @CRLF)
Next
_ArrayDisplay($aArray)

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

#comments-start
Nach der einmaligen Abfrage von UBound, in Zeile 26,
liegt in der Variable ein integerer Wert (hier 2)
mit diesem Wert wird im Verlauf weitergerechnet.
Die Funktion UBound wird nicht mehrfach aufgerufen!
#comments-end

[/autoit]

RR04

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

;i UBound in der Schleife verursacht
;i Mehrfachaufrufe (bei jedem $i) und das Prog. wird unnötig gebremst
For $i = 0 To UBound($aInput) - 1
$aInput[$i][0] = GUICtrlCreateInput("", 20, 20 + ($i * 40), 200, 20)
Next

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

;i Besser so:
$UBoundaInput = UBound($aInput) - 1 ;i einmalige UBoundabfrage
For $i = 0 To $UBoundaInput ;i statisch kein UBound
$aInput[$i][0] = GUICtrlCreateInput("", 20, 20 + ($i * 40), 200, 20)
Next

[/autoit]

RR04

@m-obi! Nicht schlecht, aber es geht noch mehr. Humor

Spoiler anzeigen

[autoit]

Global $msg, $aInput[4]
GUICreate("Test")
For $i = 0 To 3
$aInput[$i] = GUICtrlCreateInput("", 20, 20 + $i * 40, 200, 20)
Next
GUISetState()

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

Do
$msg = GUIGetMsg()
For $i = 0 To 3
If $msg = $aInput[$i] Then
Switch $i
Case 0
ConsoleWrite("Enter in Input 1" & @CRLF)
Case 1
ConsoleWrite("Enter in Input 2" & @CRLF)
Case 2
ConsoleWrite("Enter in Input 3" & @CRLF)
Case 3
ConsoleWrite("Enter in Input 4" & @CRLF)
EndSwitch
EndIf
Next
Until $msg = -3
; Ende

[/autoit]

RR04

Hi, die Lösung von m-obi kann man noch etwas verfeinern.

Spoiler anzeigen

[autoit]

_main()
Func _main()
Local $msg, $aInput[4]
GUICreate("Test")
$aInput[0] = GUICtrlCreateInput('', 40, 30, 60, 20)
$aInput[1] = GUICtrlCreateInput('', 40, 60, 60, 20)
$aInput[2] = GUICtrlCreateInput('', 40, 90, 60, 20)
$aInput[3] = GUICtrlCreateInput('', 40, 120, 60, 20)

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

GUISetState()

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

Do
$msg = GUIGetMsg()
For $i = 0 To 3
If $msg = $aInput[$i] Then ConsoleWrite("Enter in Input " & $aInput[$i] - 2 & @CRLF)
Next
Until $msg = -3
EndFunc ;==>_main
; Ende

[/autoit]

RR04

Hi, schau Dir mal BookMe an.

http://www.dimega.com/

RR04

Hi, hier ein Beispiel:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
;~ $GUI_EVENT_CLOSE —> GUIConstantsEx.au3

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

Dim $ini = @ScriptDir & "\config.ini"
Dim $name = IniRead($ini, "Benutzerdaten", "Name", "Kein Fund")

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

GUICreate("IniRead-IniWrite - Tut", 250, 150)
GUICtrlCreateLabel("Name", 10, 12, 28, 17)
$iptInput = GUICtrlCreateInput("", 48, 10, 107, 20)
GUICtrlSetData(-1, $name)
$btnSave = GUICtrlCreateButton("Speichern", 165, 10, 75, 22)
$lblOut = GUICtrlCreateLabel("", 52, 50, 107, 17)
$btnOut = GUICtrlCreateButton("Ausgabe", 165, 50, 75, 22)
$btnClose = GUICtrlCreateButton("Beenden", 165, 90, 75, 22)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE, $btnClose
FileDelete($ini) ;i ini löschen
ExitLoop
Case $btnSave
IniWrite($ini, "Benutzerdaten", "Name", GUICtrlRead($iptInput))
Case $btnOut
$name = IniRead($ini, "Benutzerdaten", "Name", "Kein Fund")
GUICtrlSetData($lblOut, $name)
EndSwitch
WEnd
; Ende

[/autoit]

RR04

@Hassan,
in Deine admin.au3 habe ich Dir mal Arrays für die Labels eingebaut, dass geht auch analog mit den Inputs so.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Global $var_sz_link1, $var_sz_link2, $var_sz_link3, $var_sz_link4, $var_f_link1, $var_f_link2, $var_f_link3, $var_f_link4; Linke Ränder
Global $var_labellaengeInput, $var_top1, $var_top2, $var_top3, $var_top4, $var_top5, $var_top6, $var_top7, $var_top8, $var_top9; Obere Ränder
Global $var_startzeit_sz_wt, $var_endzeit_sz_wt, $var_startzeit_sz_we, $var_endzeit_sz_we, $var_maxzeit_sz_wt, $var_maxzeit_sz_we, $var_startzeit_f, $var_endzeit_f, $var_maxzeit_f, $var_bonuszeit; Zeiten
Global $var_spaltendifferenz1, $var_labellaengeInput, $var_labellaengeLabel; Differenzabstände
Global $GUI_Einstellungen, $GUI_Einstellungen_Daten, $GUI_Einstellungen_Daten_SS
Global $Label1, $Label2, $Label3, $Label4, $Label5, $Label6, $Label7, $Label8, $Label9, $Label10, $Label11, $Label12, $Label13, $Label14, $Label15, $Label16, $Label17, $Label18, $Label19, $Label20, $Label21, $Label22, $Label23
Global $Group1, $Group2, $Group3, $Checkbox1

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

$var_sz_link1 = 60
$var_sz_link2 = 140
$var_sz_link3 = 200
$var_sz_link4 = 260

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

$var_f_link1 = 400
$var_f_link2 = 480
$var_f_link3 = 540
$var_f_link4 = 600

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

$var_labellaengeInput = 45
$var_labellaengeLabel = 60
$var_spaltendifferenz1 = 30

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

$var_top1 = 100
$var_top2 = $var_top1 + $var_spaltendifferenz1
$var_top3 = $var_top2 + $var_spaltendifferenz1
$var_top4 = $var_top3 + $var_spaltendifferenz1
$var_top5 = $var_top4 + $var_spaltendifferenz1
$var_top6 = $var_top5 + $var_spaltendifferenz1
$var_top7 = $var_top6 + $var_spaltendifferenz1
$var_top8 = $var_top7 + 50
$var_top9 = $var_top1 - $var_spaltendifferenz1

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

$var_startzeit_sz_wt = "11:00"
$var_endzeit_sz_wt = "19:30"
$var_startzeit_sz_we = "08:00"
$var_endzeit_sz_we = "23:30"
$var_maxzeit_sz_wt = 30
$var_maxzeit_sz_we = 60

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

$var_startzeit_f = "07:00"
$var_endzeit_f = "23:30"
$var_maxzeit_f = 60

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

$var_bonuszeit = 15

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

;~ _Admin()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $GUI_Einstellungen_Daten_SS
ExitLoop
EndSwitch
WEnd

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

Func _Admin()

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

$GUI_Einstellungen = GUICreate("Einstellungen", 700, 370, -1, -1)
$GUI_Einstellungen_Daten = GUICtrlCreateMenu("Daten")
$GUI_Einstellungen_Daten_SS = GUICtrlCreateMenuItem("Speichern und Schließen", $GUI_Einstellungen_Daten)

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

$Label1 = GUICtrlCreateLabel("Ferienmodus aktiv", 20, 16, 90, 17)
$Group1 = GUICtrlCreateGroup("Schulzeit", 20, 50, 320, 270)
GUICtrlSetBkColor($Group1, 0xFFCCFF) ; Rosa

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

Local $alblWTli[7], $alblWTag[7] = ["Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag"]
For $i = 0 To 6
$alblWTli[$i] = GUICtrlCreateLabel($alblWTag[$i], 60, 100 + $i * 30, 60, 17)
Next

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

Local $alblOvli[3], $alblOver[3] = ["Start", "Ende", "Maximal"]
For $i = 0 To 2
$alblOvli[$i] = GUICtrlCreateLabel($alblOver[$i], 140 + $i * 60, 70, 60, 17)
Next

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

Global $Input1 = GUICtrlCreateInput($var_startzeit_sz_wt, $var_sz_link2, $var_top1, $var_labellaengeInput, 21)
Global $Input2 = GUICtrlCreateInput($var_endzeit_sz_wt, $var_sz_link3, $var_top1, $var_labellaengeInput, 21)
Global $Input3 = GUICtrlCreateInput($var_maxzeit_sz_wt, $var_sz_link4, $var_top1, $var_labellaengeInput, 21)
Global $Input4 = GUICtrlCreateInput($var_startzeit_sz_wt, $var_sz_link2, $var_top2, $var_labellaengeInput, 21)
Global $Input5 = GUICtrlCreateInput($var_endzeit_sz_wt, $var_sz_link3, $var_top2, $var_labellaengeInput, 21)
Global $Input6 = GUICtrlCreateInput($var_maxzeit_sz_wt, $var_sz_link4, $var_top2, $var_labellaengeInput, 21)
Global $Input7 = GUICtrlCreateInput($var_startzeit_sz_wt, $var_sz_link2, $var_top3, $var_labellaengeInput, 21)
Global $Input8 = GUICtrlCreateInput($var_endzeit_sz_wt, $var_sz_link3, $var_top3, $var_labellaengeInput, 21)
Global $Input9 = GUICtrlCreateInput($var_maxzeit_sz_wt, $var_sz_link4, $var_top3, $var_labellaengeInput, 21)
Global $Input10 = GUICtrlCreateInput($var_startzeit_sz_wt, $var_sz_link2, $var_top4, $var_labellaengeInput, 21)
Global $Input11 = GUICtrlCreateInput($var_endzeit_sz_wt, $var_sz_link3, $var_top4, $var_labellaengeInput, 21)
Global $Input12 = GUICtrlCreateInput($var_maxzeit_sz_wt, $var_sz_link4, $var_top4, $var_labellaengeInput, 21)
Global $Input13 = GUICtrlCreateInput($var_startzeit_sz_wt, $var_sz_link2, $var_top5, $var_labellaengeInput, 21)
Global $Input14 = GUICtrlCreateInput($var_endzeit_sz_wt, $var_sz_link3, $var_top5, $var_labellaengeInput, 21)
Global $Input15 = GUICtrlCreateInput($var_maxzeit_sz_wt, $var_sz_link4, $var_top5, $var_labellaengeInput, 21)
Global $Input16 = GUICtrlCreateInput($var_startzeit_sz_we, $var_sz_link2, $var_top6, $var_labellaengeInput, 21)
Global $Input17 = GUICtrlCreateInput($var_endzeit_sz_we, $var_sz_link3, $var_top6, $var_labellaengeInput, 21)
Global $Input18 = GUICtrlCreateInput($var_maxzeit_sz_we, $var_sz_link4, $var_top6, $var_labellaengeInput, 21)
Global $Input19 = GUICtrlCreateInput($var_startzeit_sz_we, $var_sz_link2, $var_top7, $var_labellaengeInput, 21)
Global $Input20 = GUICtrlCreateInput($var_endzeit_sz_we, $var_sz_link3, $var_top7, $var_labellaengeInput, 21)
Global $Input21 = GUICtrlCreateInput($var_maxzeit_sz_we, $var_sz_link4, $var_top7, $var_labellaengeInput, 21)

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

$Label9 = GUICtrlCreateLabel("Bonus Zeit in Minuten: ", 360, 16, 110, 17)
Global $Input22 = GUICtrlCreateInput($var_bonuszeit, 480, 16, 25, 17)
GUICtrlSetBkColor($Input22, 0x00ff00) ; Grün

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

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Ferien", 360, 50, 320, 270)
GUICtrlSetBkColor($Group2, 0xCCFFFF) ; Mintgrün

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

Local $alblWTre[7]
For $i = 0 To 6
$alblWTre[$i] = GUICtrlCreateLabel($alblWTag[$i], 400, 100 + $i * 30, 60, 17)
Next

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

Local $alblOvre[3]
For $i = 0 To 2
$alblOvre[$i] = GUICtrlCreateLabel($alblOver[$i], 480 + $i * 60, 70, 60, 17)
Next

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

Global $Input23 = GUICtrlCreateInput($var_startzeit_f, $var_f_link2, $var_top1, $var_labellaengeInput, 21)
Global $Input24 = GUICtrlCreateInput($var_endzeit_f, $var_f_link3, $var_top1, $var_labellaengeInput, 21)
Global $Input25 = GUICtrlCreateInput($var_maxzeit_f, $var_f_link4, $var_top1, $var_labellaengeInput, 21)
Global $Input26 = GUICtrlCreateInput($var_startzeit_f, $var_f_link2, $var_top2, $var_labellaengeInput, 21)
Global $Input27 = GUICtrlCreateInput($var_endzeit_f, $var_f_link3, $var_top2, $var_labellaengeInput, 21)
Global $Input28 = GUICtrlCreateInput($var_maxzeit_f, $var_f_link4, $var_top2, $var_labellaengeInput, 21)
Global $Input29 = GUICtrlCreateInput($var_startzeit_f, $var_f_link2, $var_top3, $var_labellaengeInput, 21)
Global $Input30 = GUICtrlCreateInput($var_endzeit_f, $var_f_link3, $var_top3, $var_labellaengeInput, 21)
Global $Input31 = GUICtrlCreateInput($var_maxzeit_f, $var_f_link4, $var_top3, $var_labellaengeInput, 21)
Global $Input32 = GUICtrlCreateInput($var_startzeit_f, $var_f_link2, $var_top4, $var_labellaengeInput, 21)
Global $Input33 = GUICtrlCreateInput($var_endzeit_f, $var_f_link3, $var_top4, $var_labellaengeInput, 21)
Global $Input34 = GUICtrlCreateInput($var_maxzeit_f, $var_f_link4, $var_top4, $var_labellaengeInput, 21)
Global $Input35 = GUICtrlCreateInput($var_startzeit_f, $var_f_link2, $var_top5, $var_labellaengeInput, 21)
Global $Input36 = GUICtrlCreateInput($var_endzeit_f, $var_f_link3, $var_top5, $var_labellaengeInput, 21)
Global $Input37 = GUICtrlCreateInput($var_maxzeit_f, $var_f_link4, $var_top5, $var_labellaengeInput, 21)
Global $Input38 = GUICtrlCreateInput($var_startzeit_f, $var_f_link2, $var_top6, $var_labellaengeInput, 21)
Global $Input39 = GUICtrlCreateInput($var_endzeit_f, $var_f_link3, $var_top6, $var_labellaengeInput, 21)
Global $Input40 = GUICtrlCreateInput($var_maxzeit_f, $var_f_link4, $var_top6, $var_labellaengeInput, 21)
Global $Input41 = GUICtrlCreateInput($var_startzeit_f, $var_f_link2, $var_top7, $var_labellaengeInput, 21)
Global $Input42 = GUICtrlCreateInput($var_endzeit_f, $var_f_link3, $var_top7, $var_labellaengeInput, 21)
Global $Input43 = GUICtrlCreateInput($var_maxzeit_f, $var_f_link4, $var_top7, $var_labellaengeInput, 21)

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

GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 120, 16, 17, 17)
GUISetState(@SW_SHOW)

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

EndFunc ;==>_Admin
; Ende

[/autoit]

RR04

Hi, Du kannst den Ort der ini am Anfang in eine Variable legen (siehe auch IniRead).

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

$ini = @ScriptDir & "\Config.ini"

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

GUICreate("IniRead-IniWrite", 345, 165)
$Speichern = GUICtrlCreateButton("Speichern", 216, 10, 75, 25, 0)
$PWEingabe = GUICtrlCreateInput("Dein Name", 88, 10, 121, 21)
$Ausgabe = GUICtrlCreateButton("Ausgabe", 216, 60, 75, 25, 0)
GUICtrlCreateLabel("Name :", 48, 12, 32, 17)

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

GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop
Case $Speichern
IniWrite($ini, "Benutzerdaten", "Passwort", GUICtrlRead($PWEingabe))
Case $Ausgabe
$name = IniRead($ini, "Benutzerdaten", "Passwort", "Not Found")
MsgBox(0, "Ausgabe", "Dein Name : " & $name & @TAB)
EndSwitch
WEnd
; Ende

[/autoit]

RR04

Herzlich Willkommen!
Hier ist Ini- lesen und schreiben gut Beschrieben, auch die Beispiele verdeutlichen es.
http://wiki.autoit.de/wiki/index.php/Tutorial#Ini-Dateien

Beiträge von RR04

Problem mit $GUI_UNCHECKED

Func mit If Abfrage

Func mit If Abfrage

Autoit Script vor decompiling schützen

Button Funktion..

Verschiedene Objekte in der Gui einrahmen

Programm Ersteller

Programm Ersteller

Programm Ersteller

Programm Ersteller

Kleinen Rechner

Input-Feld soll nur bei {enter} Aktionen auslösen

Input-Feld soll nur bei {enter} Aktionen auslösen

Input-Feld soll nur bei {enter} Aktionen auslösen

Input-Feld soll nur bei {enter} Aktionen auslösen

CHM Hilfe Datei erstellen (AutoIt Hilfe)

Iniwrite iniread via GUI

Externe au3 Datei via Include wird nicht gezogen

Iniwrite iniread via GUI

Problem beim Speichern von Werten in eine .ini Datei