Beiträge von blubbstar

[autoit]

$str = 'C:\Dokumente und Einstellungen\Benutzer\Desktop\Homepage\galerie\irgendwas\irgend-ein-bild.jpg'
$Datei = StringTrimLeft(StringLeft($str, StringInStr($str, ".", "", -1) - 1), StringInStr($str, "\", "", -1))
$Pfad = StringLeft($str, StringInStr($str, "\", "", -1) - 1)
$Endung = StringTrimLeft($str, StringInStr($str, ".", "", -1))
MsgBox(26144, "", "Pfad: " & $Pfad & @CRLF & "Datei: " & $Datei & @CRLF & "Endung: " & $Endung)

[/autoit]

[autoit]

$str = 'C:\Dokumente und Einstellungen\Benutzer\Desktop\Homepage\galerie\irgendwas\irgend-ein-bild.jpg'
$str = StringTrimRight(StringTrimLeft($str, StringInStr($str, "\", "", -1)), 4)
MsgBox(0, "", $str)

[/autoit]

[autoit]

$GUI = GUICreate("hallo", 220, 140)

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

$Button1 = GUICtrlCreateButton("hallo1", 10, 10, 200, 20)
$Button2 = GUICtrlCreateButton("hallo2", 10, 40, 200, 20)
$Button3 = GUICtrlCreateButton("hallo3", 10, 80, 200, 20)
$Button4 = GUICtrlCreateButton("hallo4", 10, 110, 200, 20)

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

GUISetState()
Sleep(1000)

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

$ControlID = _GetControlByPos($GUI, 10, 80)
GUICtrlSetData($ControlID, ":-) ID " & $ControlID)

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

Sleep(2000)

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

Func _GetControlByPos($hGui, $iX, $iY)
For $i = 1 To 100
$aPos = ControlGetPos($GUI, "", $i)
If IsArray($aPos) And $iX = $aPos[0] And $iY = $aPos[1] Then Return $i
Next
Return -1
EndFunc ;==>_GetControlByPos

[/autoit]

[autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
For $i = 0 To UBound($Field) - 1
For $h = 0 To UBound($Field) - 1
If $nMsg = $Field[$i][$h] Then
MsgBox(262144, "", "Button[" & $i & "][" & $h & "]")
GUICtrlSetBkColor($Field[$i][$h], 0xff0000)
EndIf
Next
Next
WEnd

[/autoit]

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Login", 301, 110, 192, 124)
$BenutzerID = GUICtrlCreateLabel("Benutzer-ID:", 8, 8, 76, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$BenutzerIDEingabe = GUICtrlCreateInput("", 85, 6, 209, 21)
$Passwort = GUICtrlCreateLabel("Passwort:", 8, 32, 62, 20)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$PasswortEingabe = GUICtrlCreateInput("", 85, 30, 209, 21)
$Speichern = GUICtrlCreateButton("Daten speichern", 149, 56, 145, 25, 0)
$Login = GUICtrlCreateButton("Einloggen", 5, 56, 145, 25, 0)
$LoginBeenden = GUICtrlCreateButton("Loginprozess abbrechen", 5, 80, 289, 25, 0)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
$GesicherteBenutzerID = GUICtrlRead($BenutzerIDEingabe)
$GesichertesPasswort = GUICtrlRead($PasswortEingabe)
IniWrite(@ScriptDir & "\Logindaten.ini", "Login", "Username", $GesicherteBenutzerID)
IniWrite(@ScriptDir & "\Logindaten.ini", "Login", "Password", $GesichertesPasswort)
Case $LoginBeenden
Exit
Case $Login
$BID = GUICtrlRead($BenutzerIDEingabe)
$PW = GUICtrlRead($PasswortEingabe)
$GesicherteBenutzerID = IniRead(@ScriptDir & "\Logindaten.ini", "Login", "Username", "")
$GesichertesPasswort = IniRead(@ScriptDir & "\Logindaten.ini", "Login", "Password", "")
If $PW = $GesichertesPasswort And $BID = $GesicherteBenutzerID Then
MsgBox(0, "Loginprozess", "Sie haben sich erfolgreich eingeloggt!")
Else
MsgBox(0, "Loginprozess", "Die von ihnen eingegebene Benutzer-ID oder das Passwort sind nicht korrekt.")
EndIf

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

EndSwitch
WEnd

[/autoit]

[autoit]

#include <WindowsConstants.au3>
#include <EditConstants.au3>
GUICreate("abc", 500, 200)
GUICtrlCreateEdit("", 10, 10, 480, 180, $WS_VSCROLL+$ES_WANTRETURN)
GUISetState()

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

While True
$msg = GUIGetMsg()
If $msg = -3 Then Exit
WEnd

[/autoit]