Beiträge von Kleiner

  • Verzeichnisstruktur in Array einlesen

    Hi!


    versuch mal!

    Spoiler anzeigen
    [autoit]

    #include 'FileListRekursiv.au3'

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

    Local $a = _FileListToRekursiv('D:\', '*', 2, 0, 2, False, 0)
    ;oder _FileListToRekursiv('D:\', '*besonderes zeichen*', 2, 0, 2, False, 0)
    For $For In $a
    If StringRegExpReplace(FileGetTime($For, 1, 1) , '(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})', '$3.$2.$1 $4:$5:$6') = '23.06.2011 22:24:13' Then ConsoleWrite($For & @CR)
    Next

    [/autoit]

    Lg Kleiner

  • Fehler abfangen und speichern

    Hi!

    Wie ich das lese möchtest du ein Fehlermanagement aufstellen, besser ist gleich darauf zu achten das die geupdateten Programme geschlossen sind u. bei der Installation zu prüfen was angelegt werden konnte und was nicht Fehler in ein Log Schreiben, ggf die Routine beim Herunterfahren o. Neustart des Rechners auszuführen.


    Hilfreiche Funktionen:

    [autoit]

    _WinAPI_GetLastError

    [/autoit]
    Spoiler anzeigen
    [autoit]

    ; #FUNCTION# ====================================================================================================================
    ; Name...........: _WinAPI_GetErrorMessage
    ; Description ...: Returns the calling threads last error message
    ; Syntax.........: _WinAPI_GetErrorMessage($iError)
    ; Parameters ....: $iError - the error code to transalte to a message
    ; Return values .: Success - Last error message
    ; Author ........: Paul Campbell (PaulIA)
    ; Modified.......: jpm, danielkza, Valik, ProgAndy
    ; Remarks .......:
    ; Related .......: _WinAPI_GetLastError
    ; Link ..........:
    ; Example .......:
    ; ===============================================================================================================================
    Func _WinAPI_GetErrorMessage($iError)
    Local $tBufferPtr = DllStructCreate("ptr")
    Local $pBufferPtr = DllStructGetPtr($tBufferPtr)

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

    Local $nCount = _WinAPI_FormatMessage(BitOR($__WINAPICONSTANT_FORMAT_MESSAGE_ALLOCATE_BUFFER, $__WINAPICONSTANT_FORMAT_MESSAGE_FROM_SYSTEM), _
    0, $iError, 0, $pBufferPtr, 0, 0)
    If @error Then Return SetError(@error, 0, "")

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

    Local $sText = ""
    Local $pBuffer = DllStructGetData($tBufferPtr, 1)
    If $pBuffer Then
    If $nCount > 0 Then
    Local $tBuffer = DllStructCreate("wchar[" & ($nCount + 1) & "]", $pBuffer)
    $sText = DllStructGetData($tBuffer, 1)
    EndIf
    _WinAPI_LocalFree($pBuffer)
    EndIf

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

    Return $sText
    EndFunc ;==>_WinAPI_GetErrorMessage

    [/autoit]

    lg Keiner

  • ModernMenuRaw.au3 macht Buttons unsichtbar

    Hi Moins!

    Es ligt nicht an ModernMenuRaw.au3.

    "Happy in Moscow" hat eine schöne Funktion geschrieben für diese Situation.

    Spoiler anzeigen
    [autoit]

    #Include <GUIButton.au3>
    #Include <GUIImageList.au3>
    #Include <WinAPI.au3>
    #Include <WindowsConstants.au3>

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

    GUICreate('MyGUI', 200, 200)
    GUICtrlCreateButton('', 65, 170, 70, 23)
    _GUICtrlButton_SetTextColor(-1, 'OK', 0xff0000)
    GUISetState()

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

    Do
    Until GUIGetMsg() = -3

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

    Func _GUICtrlButton_SetTextColor($iCtrlID, $sText, $iTextColor);Author(s)........: Happy in Moscow

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

    Local $hWnd, $hTheme, $hImageList, $hBitmap, $hBack, $hDC, $hMemDC, $hSrcDC, $tRect, $pRect, $Width, $Height, $Prev, $Flags = BitOR($DT_CENTER, $DT_SINGLELINE, $DT_VCENTER)

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

    $hWnd = GUICtrlGetHandle($iCtrlID)
    If Not $hWnd Then
    Return 0
    EndIf
    $hTheme = DllCall('uxtheme.dll', 'ptr', 'OpenThemeData', 'hwnd', $hWnd, 'wstr', 'BUTTON')
    If (@error) Or (Not $hTheme[0]) Then
    GUICtrlSetColor($iCtrlID, $iTextColor)
    GUICtrlSetData($iCtrlID, $sText)
    Return 1
    EndIf
    $Width = _WinAPI_GetClientWidth($hWnd)
    $Height = _WinAPI_GetClientHeight($hWnd)
    $hImageList = _GUIImageList_Create($Width - 8, $Height - 8, 4, 4)
    $tRect = DllStructCreate('int[4]')
    DllStructSetData($tRect, 1, -4, 1)
    DllStructSetData($tRect, 1, -4, 2)
    DllStructSetData($tRect, 1, $Width - 4, 3)
    DllStructSetData($tRect, 1, $Height - 4, 4)
    $pRect = DllStructGetPtr($tRect)
    $hDC = _WinAPI_GetDC(0)
    $hMemDC = _WinAPI_CreateCompatibleDC($hDC)
    $hSrcDC = _WinAPI_CreateCompatibleDC($hDC)
    $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $Width - 8, $Height - 8)
    $hBack = _WinAPI_CreateCompatibleBitmap($hDC, $Width - 8, $Height - 8)
    _WinAPI_ReleaseDC(0, $hDC)
    _WinAPI_SelectObject($hSrcDC, $hBack)
    _WinAPI_SelectObject($hMemDC, _SendMessage($hWnd, $WM_GETFONT))
    _WinAPI_SetTextColor($hMemDC, BitOR(BitAND($iTextColor, 0x00FF00), BitShift(BitAND($iTextColor, 0x0000FF), -16), BitShift(BitAND($iTextColor, 0xFF0000), 16)))
    _WinAPI_SetBkMode($hMemDC, $TRANSPARENT)
    ; PBS_NORMAL, PBS_HOT, PBS_PRESSED, PBS_DISABLED, PBS_DEFAULTED
    For $i = 1 To 5
    $Prev = _WinAPI_SelectObject($hMemDC, $hBitmap)
    DllCall('uxtheme.dll', 'int', 'DrawThemeBackground', 'ptr', $hTheme[0], 'hwnd', $hSrcDC, 'int', 1, 'int', $i, 'ptr', $pRect, 'ptr', 0)
    _WinAPI_BitBlt($hMemDC, 0, 0, $Width - 8, $Height - 8, $hSrcDC, 0, 0, $MERGECOPY)
    If $i = 4 Then
    DllCall('uxtheme.dll', 'int', 'DrawThemeText', 'ptr', $hTheme[0], 'hwnd', $hMemDC, 'int', 1, 'int', 4, 'wstr', $sText, 'int', -1, 'dword', $Flags, 'dword', 0, 'ptr', $pRECT)
    Else
    _WinAPI_DrawText($hMemDC, $sText, $tRect, $Flags)
    EndIf
    _WinAPI_SelectObject($hMemDC, $Prev)
    _GUIImageList_Add($hImageList, $hBitmap)
    Next
    ; PBS_HOT (Stylus Hot)
    _GUIImageList_SetImageCount($hImageList, 6)
    _GUIImageList_Copy($hImageList, 1, 5)
    _WinAPI_DeleteDC($hMemDC)
    _WinAPI_DeleteDC($hSrcDC)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_DeleteObject($hBack)
    DllCall('uxtheme.dll', 'int', 'CloseThemeData', 'ptr', $hTheme[0])
    $Prev = _GUICtrlButton_GetImageList($hWnd)
    If $Prev[0] Then
    _GUIImageList_Destroy($Prev[0])
    EndIf
    GUICtrlSetData($iCtrlID, '')
    If Not _GUICtrlButton_SetImageList($hWnd, $hImageList, 4) Then
    _GUIImageList_Destroy($hImageList)
    Return 0
    EndIf
    Return 1
    EndFunc ;==>_GUICtrlButton_SetTextColor

    [/autoit]


    Lg Kleiner

  • ComboBox starten, auswählen dann öffnet sich HauptGUI und dort Funktionen mit HotKeySet belegen

    Hi guten Morgen!


    Auf basis deiner vorstellung habe ich ein beispiel erstellt.
    In dem beispiel wurde GUIGetMsg endfernt durch GUIOnEventMode ersetzt, was ich denke die einfachste lösung ist wobei das beispiel noch einfacher gehalten werden kann.

    Beispiel:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Opt('GUIOnEventMode', 1)

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

    HotKeySet("{F1}", "Go")

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

    Global $hGUI

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

    $hStart = GUICreate('', 200, 100)
    GUISetOnEvent(-3, 'GUI_Exit')
    $combo = GUICtrlCreateCombo("macht nichts", 4, 4)
    GUICtrlSetData(-1, "öffnet GUI")
    $button = GUICtrlCreateButton("start", 4, 40)
    GUICtrlSetOnEvent(-1, '_Menue')
    GUISetState()

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

    Func _Menue()
    Switch @GUI_CtrlId
    Case $button
    If GUICtrlRead($combo) = 'öffnet GUI' Then GUIDelete($hStart)
    _main()
    EndSwitch
    EndFunc ;==>_Menue

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

    Func _main()
    $hGUI = GUICreate('GUI', 200, 200)
    GUISetOnEvent(-3, 'GUI_Exit')
    GUISetState()
    EndFunc ;==>_main

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

    Func Go()
    If Not HWnd($hGUI) Then Return
    MsgBox(0, 0, 'Bin Active')
    EndFunc ;==>Go

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

    Func GUI_Exit()
    Exit
    EndFunc ;==>GUI_Exit

    [/autoit]

    Warum soll die GUI gelöscht werden, verstecken reicht doch aus!

    Lg kleiner

  • Passwortabfrage mit Problemen über .ini-Datei

    Hi!


    zu der Verschlüsselung

    Spoiler anzeigen
    [autoit]

    ;===================================================================================================================================#
    ;~ Function Name......: VerEnd_S($sEncDec, $sPass)
    ;~ Description........: Verschlüsselung von String´s
    ;
    ;~ $sEncDec...........: String der Verschlüsselt werden soll
    ;~ $sPass.............: Verslüsselung metode ( Passwor ) kann leer gelassen werden
    ;
    ;~ Return Value(s)....: Erfolg String mit der Verschlüsslung
    ;
    ;~ Author(s).........: Kleiner27 (http://www.autoit.de)
    ;====================================================================================================================================#
    Func VerEnd_S($sEncDec, $sPass)
    If Not StringLen($sPass) Then $sPass = 'abcdefghijklmnopqrstuvwxyz'
    If Not StringLen($sEncDec) Then Return ''
    Local $iEncDec, $iPass, $UB, $UB_1, $UB_2
    $UB = StringLen($sEncDec)
    $UB_1 = StringLen($sPass)
    For $i = 1 To $UB_1
    $iPass &= Asc(StringMid($sPass, $i, 1))
    Next
    $sPass = ''
    $UB_2 = Round($UB / StringLen($iPass)) + 1
    For $i = 0 To $UB_2
    $sPass &= $iPass
    Next
    For $i = 1 To $UB
    $iEncDec &= Chr(BitXOR(Asc(StringMid($sEncDec, $i, 1)), Asc(StringMid($sPass, $i, 1))))
    Next
    Return $iEncDec
    EndFunc ;==>VerEnd_S

    [/autoit]

    Lg kleiner