Beiträge von Bitnugger

;-- TIME_STAMP   2018-09-21 17:04:11   v 0.1

#include <Array.au3>

Local $sPath = 'm:\Zeilen.txt'

;~ Local $aFile = FileReadToArray($sPath)
Local $aFile = [ _
    '# 2 beliebiger Text', _
    '# 1 juhu ein Sandkorn', _
    '... viele Zeilen', _
    '# 2 beliebiger Text', _
    '# 1 juhu ein Korn', _
    '... viele Zeilen']

For $i = 0 To UBound($aFile) -1 Step 1
    If $i < UBound($aFile) -1 And StringLeft($aFile[$i], 3) = '# 2' And StringLeft($aFile[$i + 1], 3) = '# 1' Then
        _ArraySwap($aFile, $i, $i + 1)
        _ArrayInsert($aFile, $i + 2, '# 3' & StringMid($aFile[$i], 4))
    EndIf
Next

_ArrayDisplay($aFile, '$aFile')

;~ Local $hFile = FileOpen($sPath, $FO_OVERWRITE) ; $FO_APPEND (1), $FO_OVERWRITE (2), $FO_CREATEPATH (8), $FO_BINARY (16), $FO_UTF8 (128), $FO_UTF8_NOBOM (256), $FO_ANSI (512)
;~ Local $iWrite = FileWrite($hFile, '') + FileClose($hFile) ? FileGetSize($sPath) : -1
;~ If $iWrite < 1 Then
;~     ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : Error $hFile = ' & $hFile & ' $iWrite = ' & $iWrite & ' FileWrite('&$sPath&')' & @CRLF)
;~     ; Exit 1
;~ EndIf

;-- TIME_STAMP   2018-09-17 15:08:10   v 0.1

#include <Array.au3>

Global $g_aLizenzstatus = _Get_Lizenzstatus()

;~ Name: Windows(R), Professional edition
;~ Beschreibung: Windows(R) Operating System, RETAIL channel
;~ Teil-Product Key: XXXXX
;~ Lizenzstatus: Lizenziert

;~ _ArrayDisplay($g_aLizenzstatus, '$g_aLizenzstatus')
If UBound($g_aLizenzstatus) = 4 And $g_aLizenzstatus[3][1] = 'Lizenziert' Then
    MsgBox(64, @ScriptName, _ArrayToString($g_aLizenzstatus, ': '))
    ; ...
EndIf

Func _Get_Lizenzstatus()
    Local $iPID, $sText, $aText, $aSplit
    $iPID = Run('cscript //nologo C:\Windows\System32\slmgr.vbs -dli', '', @SW_HIDE, $STDOUT_CHILD)
    If Not $iPID Then Return SetError(1, 0, False)
    ProcessWaitClose($iPID)

    $sText = StdoutRead($iPID)
    If $sText Then
        $aText = StringSplit($sText, @CRLF, 3)
        _ArrayColInsert($aText, 1)
        For $i = UBound($aText) -1 To 0 Step -1
            If $aText[$i][0] = '' Then
                _ArrayDelete($aText, $i)
            Else
                $aSplit = StringSplit($aText[$i][0], ': ', 3)
                $aText[$i][0] = $aSplit[0]
                $aText[$i][1] = $aSplit[1]
            EndIf
        Next
        Return $aText
    EndIf

    Return SetError(2, 0, False)
EndFunc

;-- TIME_STAMP   2017-05-12 21:48:19

#Region    ;************ Includes ************
#include-once
#Include <FileConstants.au3>
#include <WinAPIShPath.au3>
#EndRegion ;************ Includes ************

Local $iCopy = Example()
If @error Then MsgBox(262160, '_CopyWhithProgress', "$iCopy --> " & $iCopy & @CRLF & "!@ " & @TAB & "#Error: " & @error & @TAB & "#Extended: " & @extended & @CRLF)

Func Example()
    Local $sCopyFrom = FileOpenDialog('Was soll kopiert werden?', @DesktopDir, 'All (*.*)', $FD_PATHMUSTEXIST) ; $hWnd)
    If @error Then Return SetError(@error +1, 1, '$sCopyFrom = ' & $sCopyFrom)
    Local $sCopyTo   = FileSaveDialog('Wohin soll es kopiert werden?', @DesktopDir, 'All (*.*)', $FD_PATHMUSTEXIST, StringInStr(FileGetAttrib($sCopyFrom), 'D') ? $sCopyFrom : _WinAPI_PathStripPath($sCopyFrom)) ; $hWnd)
    If @error Then Return SetError(@error +2, 2, '$sCopyTo = ' & $sCopyTo)

    _CopyWhithProgress($sCopyFrom, $sCopyTo)
    If @error Then Return SetError(@error +3, 3, '_FileCopy()')
EndFunc

; Windows - copy with progress
; Author - JdeB

;~    4 Do not display a progress dialog box.
;~    8 Give the file being operated on a new name in a move, copy, or rename operation if a file with the target name already exists.
;~   16 Respond with "Yes to All" for any dialog box that is displayed.
;~   64 Preserve undo information, if possible.
;~  128 Perform the operation on files only if a wildcard file name (*.*) is specified.
;~  256 Display a progress dialog box but do not show the file names.
;~  512 Do not confirm the creation of a new directory if the operation requires one to be created.
;~ 1024 Do not display a user interface if an error occurs.
;~ 2048 Version 4.71. Do not copy the security attributes of the file.
;~ 4096 Only operate in the local directory. Don't operate recursively into subdirectories.
;~ 8192 Version 5.0. Do not copy connected files as a group. Only copy the specified files.
Func _CopyWhithProgress($sCopyFrom, $sCopyTo)
    Local $FOF_RESPOND_YES = 16
    Local $FOF_SIMPLEPROGRESS = 256
    $oShell = ObjCreate("shell.application")
    If Not IsObj($oShell) Then Return SetError(3, 3, '$oShell = ' & $oShell)

    Local $iDirCreate, $sCopyTargetDir = StringInStr(FileGetAttrib($sCopyTo), 'D') ? $sCopyTo : _WinAPI_PathStripPath($sCopyTo)
    If Not FileExists($sCopyTargetDir) Then $iDirCreate = DirCreate($sCopyTargetDir)
    If $iDirCreate = 0 Then Return SetError(4, 4, '$iDirCreate = ' & $iDirCreate)

    $oShell.namespace($sCopyTo).CopyHere($sCopyFrom, $FOF_RESPOND_YES)

    Return True
EndFunc

Local $sRegValue, $hTimer = TimerInit(), $hWnd, $hBtnOK
Do
    Sleep(150)
    $sRegValue = RegRead('key', 'valuename')
Until $sRegValue = 'match' Or TimerDiff($hTimer) > 10000 ; warten bis Registry-Key gesetzt ist oder Timer > 10000

If $sRegValue = 'match' Then ; wurde der Registry-Key gesetzt?
    $hWnd = WinGetHandle('[CLASS:#32770]') ; Handle des Fenster holen... hat kein Title, deshalb versuchen wir es mit dem ClassName
    If IsHWnd($hWnd) Then
        $hBtnOK = ControlGetHandle($hWnd, 'OK', '') ; Handle des OK-Buttons holen
        If IsHWnd($hBtnOK) Then ControlClick($hBtnOK, '', '') ; Button klicken
    EndIf
EndIf
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $sRegValue --> " & $sRegValue & @CRLF)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $hWnd      --> " & $hWnd & @CRLF)
ConsoleWrite("@@ Debug line" & @TAB & @ScriptLineNumber & "   var: $hBtnOK    --> " & $hBtnOK & @CRLF)