Beiträge von Greenhorn

  • jpg-Datei in die Zwischenablage legen

    Bin jetzt soweit gekommen:

    [autoit]

    #include<Clipboard.au3>
    #Include <GDIPlus.au3>

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

    $sFileName = "J:\Eigene Dateien\Eigene Bilder\Diverses\AutoIt3port.jpg"
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($sFileName)
    _ClipBoard_Open(0)
    _ClipBoard_Empty()
    _ClipBoard_SetData($hImage, $CF_METAFILEPICT ) ; failes
    _ClipBoard_Close()
    _GDIPlus_ShutDown()

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

    While 1
    Sleep(250)
    WEnd

    [/autoit]


    Läuft aber auch nicht. :cursing:
    Aber ich denke, es geht in die richtige Richtung ...
    Aus $hImage muss jetzt irgendwie ein $hMemory erzeugt werden, aber wie ???

    Gruß

  • Textzeilen zusammenführen ...

    Ich will nur sicher gehen, dass die Zeilen Hex Code enthalten, denn die eigentlichen *.reg Dateien, die ich verarbeiten möchte enthalten natürlich noch alle anderen Werte, also REG_SZ usw., und ich weiß nicht, ob in diesen Werten nicht auch zufallig ähnliche Merkmale zu finden sind ...

    Gruß
    Greenhorn

  • Textzeilen zusammenführen ...

    Habe es hinbekommen! 8o
    Es lag am FileRead ! Man muss den Parameter Count benutzen : FileRead($fhRegFile, FileGetSize($sPathRegFile)), dann klappt es.
    Wenn ich es nicht tue, dann wird die Datei nur bis zum Hex Code 15 (NAK - Negative acknowledge/Negative Rückgabe) eingelesen !!

    Ich habe es nun so gelöst:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    $sPathRegFile = @DesktopDir & '\Redo.reg'
    $fhRegFile = FileOpen($sPathRegFile, 0)
    ; Tempfile öffnen in die der modifizierte Text geschrieben werden soll.
    $fhRegFileTMP = FileOpen(StringReplace($sPathRegFile, '.reg', '.tmp'), 2)
    ; Datei in Array einlesen == _FileReadToArray
    $arText = StringSplit(StringStripCR(FileRead($fhRegFile, FileGetSize($sPathRegFile))), @LF)
    ;_ArrayDisplay($arText)
    Dim $sConvText
    For $i = 1 To $arText[0]
    If StringRegExp($arText[$i], '((hex\(?0?3?\)?:)[[:xdigit:]]{2}(,[[:xdigit:]]{2})*,\\)\z') Then
    $sConvText &= StringReplace($arText[$i], "\", '')
    ElseIf StringRegExp($arText[$i], '((,[[:xdigit:]]{2})*,\\)\z') Then
    $sConvText &= StringStripWS(StringReplace($arText[$i], "\", ''), 8)
    ElseIf StringRegExp($arText[$i], '(,[[:xdigit:]]{2})\z') Then
    $sConvText &= StringStripWS($arText[$i], 8) & @CRLF
    Else
    $sConvText &= $arText[$i] & @CRLF
    EndIf
    Next

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

    FileWrite($fhRegFileTMP, $sConvText)
    FileClose($fhRegFile)
    FileClose($fhRegFileTMP)
    Exit

    [/autoit]

    Ergebnis:

    Code
    [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG]
"Seed"=hex(03):ea,8d,d8,7d,2c,82,21,2f,bb,85,91,62,a2,3a,b3,44,61,d3,55,de,49,3c,3e,55,b6,ef,f0,78,9f,99,2f,5c,f6,73,12,af,82,e7,26,8f,85,0f,17,17,3e,73,39,91,4b,0f,03,4e,11,6f,b2,34,51,5c,0a,77,77,b0,65,ee,8d,8f,00,3d,a3,9a,68,41,15,49,3c,62,5b,12,b3,4a


    Nochmals vielen Dank, Mega !!!
    Ohne den _FileReadToArray wäre ich nie drauf gekommen !

    Gruß
    Greenhorn

  • Umwandlung vbs-Code in AutoIt & Stringbearbeitung

    Ist 'n Ansatz, jedoch nur speziell für dein aktuelles 'shedule.vbs'!
    Du möchtest aber sicherlich dass das Script generell mit VBScripts dieser Art klar kommt, oder ?

    Spoiler anzeigen
    [autoit]

    $sPathVBS = 'C:\example.vbs'
    $fhNewVBS = FileOpen('C:\new.vbs', 2)
    Dim $arTextVBS

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

    If Not _FileReadToArray($sPathVBS, $arTextVBS) Then
    MsgBox(4112, 'Error', 'Datei konnte nicht eingelesen werden!', 5)
    Else
    For $i = 1 To $arTextVBS[0]
    Select
    Case StringInStr($arTextVBS[$i], 'Notepad.exe')
    StringReplace($arTextVBS[$i], '0130', $zeit1, 1)
    Case StringInStr($arTextVBS[$i], 'True , 16')
    StringReplace($arTextVBS[$i], '16', $tag, 1)
    EndSelect
    Next
    _FileWriteFromArray($fhNewVBS, $arTextVBS)
    EndIf

    [/autoit]

    Gruß
    Greenhorn

  • Textzeilen zusammenführen ...

    Klappt einwandfrei !!! Vielen Dank, Mega ! :thumbup:

    Aber kannst Du mir bitte sagen, was an meinen beiden Versuchen nicht stimmt ?
    Die Pattern stimmen, habe ich mit StringRegExpGUI getestet.
    Auch die andere Version (',\' & @CRLF & ' ' in einem FileRead) werden 'gemached', nur der StringReplace schlägt fehl !?

    Gruß
    Greenhorn

  • Textzeilen zusammenführen ...

    @Mega

    Jawollja, genau das soll es werden.
    Ich möchte die hex Werte in eine Zeile bekommen !!!

    @Micha

    Die hex Werte für REG_MULTI_SZ und REG_EXPAND_SZ in 'Windows Registry Editor Version 5.00' sind Unicode und haben, wie Du ganz richtig gesagt hast, immer ein Nullzeichen hinter dem hex Wert, aber die *.reg Datei selbst ist ANSI ...

  • Textzeilen zusammenführen ...

    Moin,

    ich habe ein Problem zum Haare raufen ... :cursing:

    Und zwar möchte ich ein Textfile einlesen und bestimmte Zeilen bearbeitet zusammenführen und das ganze dann wieder in ein Textfile schreiben.
    Der Text wird auch geschrieben, aber nicht in veränderter Form, sondern unbearbeitet, also praktisch eine Kopie. 8|

    Geht nicht ...

    Spoiler anzeigen
    [autoit]

    $sPathRegFile = 'J:\AutoIt\Re.reg'

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

    $fhRegFile = FileOpen($sPathRegFile, 0)
    If FileReadLine($fhRegFile, 1) = 'REGEDIT4' Then
    $iVersionRegedit = 4
    Else
    $iVersionRegedit = 5
    EndIf
    $fhTmpFile = FileOpen(FileCopy($sPathRegFile, StringReplace($sPathRegFile, '.reg', '.tmp')), 2)
    FileWrite($fhTmpFile, StringReplace(FileRead($fhRegFile), ',\' & @CRLF & ' ', ','))
    FileClose($fhRegFile)
    FileClose($fhTmpFile)

    [/autoit]


    ... geht auch nicht !

    Spoiler anzeigen
    [autoit]

    #include-once
    #include <Array.au3>

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

    $sPathRegFile = 'J:\AutoIt\Re.reg'

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

    $fhRegFile = FileOpen($sPathRegFile, 0)
    If FileReadLine($fhRegFile, 1) = 'REGEDIT4' Then
    $iVersionRegedit = 4
    Else
    $iVersionRegedit = 5
    EndIf
    $fhTmpFile = FileOpen(StringReplace($sPathRegFile, '.reg', '.tmp'), 2)
    $arText = StringSplit(FileRead($fhRegFile), @LF)
    ;_ArrayDisplay($arText)
    Dim $sConvText
    For $i = 1 To $arText[0]
    Select
    Case StringRegExp($arText[$i], '((hex\(?0?3?\)?:)[[:xdigit:]]{2}(,[[:xdigit:]]{2})*,\\)\z') = 1
    $sConvText &= StringTrimRight($arText[$i], 1)
    Case StringRegExp($arText[$i], '\A( [:xdigit:]]{2}(,[[:xdigit:]]{2})*,\\)\z)') = 1
    $sConvText &= StringTrimLeft(StringTrimRight($arText[$i], 1), 2)
    Case StringRegExp($arText[$i], '\A( [[:xdigit:]]{2}(,[[:xdigit:]]{2})*)\z') = 1
    $sConvText &= StringTrimLeft($arText[$i], 2)
    Case Else
    $sConvText &= $arText[$i]
    EndSelect
    Next

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

    FileWrite($fhTmpFile, $sConvText)
    FileClose($fhRegFile)
    FileClose($fhTmpFile)
    Exit

    [/autoit]

    Re.reg

    Spoiler anzeigen
    Code
    Windows Registry Editor Version 5.00


[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Cryptography\RNG]
"Seed"=hex(03):ea,8d,d8,7d,2c,82,21,2f,bb,85,91,62,a2,3a,b3,44,61,d3,55,de,\
  49,3c,3e,55,b6,ef,f0,78,9f,99,2f,5c,f6,73,12,af,82,e7,26,8f,85,0f,17,17,3e,73,\
  39,91,4b,0f,03,4e,11,6f,b2,34,51,5c,0a,77,77,b0,65,ee,8d,8f,00,3d,a3,9a,68,\
  41,15,49,3c,62,5b,12,b3,4a

    Keine Ahnung, was los ist, eigentlich müssten beide Beispiele funktionieren ...

    Gruß
    Greenhorn

  • Frage zu Controlclick und anderen Befehlen

    Du weist der Variable $start, die Du als Button ID erstellt hast, einen neuen, völlig anderen Wert zu.
    Solltest Du nicht machen. Nimm $pixel = PixelSearch (0,0,1280,1024,0xFFFFFF) oder so ...

    Wenn Du $start gedrückt hast, dann wird alles ausgeführt was Du unterhalb Case $start geschrieben hast. D.h. GuiGetMsg wird unterbrochen bis alles ausgeführt wurde.
    Also musst Du innerhalb dessen was ab $start läuft, regelmässig den $stop Button abfragen, damit Du unterbrechen kannst ...

    Ich seh's mir heute abend noc mal an, muss erst mal Einkaufen ...


    Gruß
    Greenhorn