Beiträge von Tigger1975

  • AutoIt lernen

    Zitat von Fire

    Klingt ganz gut. Aber die Hilfe "durchackern" was soll das bringen? Ich meine stehen da wirklich Dinge drin mit denen man was anfangen kann? Und vor allem was steht da tolles drin?

    Da frag ich mich doch was soll das? Willst du nun autoit lernen oder nicht. Eine programmiere Sprache ist einer Fremdsprache nicht unähnlich, sie hat Vokabeln (Befehle) und eine Grammatik (Syntax) beides kann man sich aus der Hilfe aneignen.
    ABER das Programmieren wirst du Tatsächlich nicht aus der Hilfe lernen, da gehört etwas mehr dazu. z.B. Kreativität mid. ein Ziel und Phantasie.
    Natürlich auch das anschauen von anderen Scripten und der versuch diese zu verstehen.

    P.S. Jeder Befehl hat ein Beispiel in der hilfe welches du so Laufen lassen kannst, damit man den Befehl besser Versteht.
    Die Hilfe von autoit ist echt gut besser wie die von MS für VB u.s.w.

    Ich würde sagen Fang erstmals mit was an wozu du nicht unbedingt eine GUI benötigt. Denn auch der KODA Formbuilder ist ein kleines Studium wert.

  • AutoIt lernen

    Hallo,

    Ersteinmal Willkommen hier im Forum

    die Autoit Hilfe durchgeackert der reihe nach lesen oder Kreatives suchen nach befehlen die das machen könnten es du möchtest.

    P.S. die Hilfe gibt es auch in deutsch hier im Forum zu download

  • Onlinespiele

    Na ja es ginge schon,

    es gibt eine udf Sammlung mit der du Autoit in einen Webserver als cgi einbinden kannst. Dann kannst du los programmieren aber einfach ist das dann immer noch nicht. Du solltest vielleicht erst mal mit einer lokalen Variante beginnen die könntest du möglicherweise hinterher umbauen.
    Aber bedenke am ende muss HTML (möglicherweise mit Javascript) herauszukommen. sonst wird das nix.
    Oder du nimmst Flash oder Java.

  • Devcon - Unverständliche Rückgabeparamter

    Hallo,

    ich vermute das im devcon ein bug ist, denn es scheint kein Error Stream geschrieben zu werden.

    ich habe das mal hiermit getestet:

    Spoiler anzeigen
    [autoit]

    ConsoleWrite("Test beginnt")
    ConsoleWriteError(1)
    Exit

    [/autoit]

    Das als exe Compiliert

    und das Script zum testen:

    Spoiler anzeigen
    [autoit]


    ; Demonstriert StdoutRead()
    #include <Constants.au3>

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

    ;Local $foo = Run("devcon.exe restart 12345", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    Local $foo = Run("Return Werte Testen.exe", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
    Local $line = ""
    Local $lineErr = ""

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

    While 1
    $lineErr &= StderrRead($foo)
    If @error Then ExitLoop
    WEnd
    MsgBox(0, "STDERR gelesen:", $lineErr)
    While 1
    $line &= StdoutRead($foo)
    If @error Then ExitLoop
    WEnd
    MsgBox(0, "STDOUT gelesen:", $line)

    [/autoit]

    Mit meiner Test exe kommen beide Streams, bei devcon kommt nur der Strdout

  • EXIF von Bilddateien Lesen (Datum)

    Hallo ich möchte ein kleines Verwaltungstool für Fotos Scheiben,

    allerdings bekomme ich das Datum (EXIF) nicht aus dem Bild, andere Infos aus dem Bild wären auch noch toll, ich möchte das alles in eine DB Schreiben und den Link auf das Bild dazu u.s.w.

    Ich habe was von prospeed.dll gelesen wie kann ich damit das Fotodatum auslesen?

    Danke für die Hilfe

  • Aus Func tieferer Ebene nach ganz oben springen?

    Hallo Seterror() und dann prüfen ob @error eine wert ungleich 0 enthält oder

    Spoiler anzeigen
    [autoit]

    Func F1()
    if F2() then
    F3()
    endif
    EndFunc

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

    Func F2()
    Irgendwas machen....
    If @error then Return 0 ;hier möchte ich auch aus F1() springen, damit F3() nicht ausgeführt wird.
    noch mehr machen...
    return 1
    EndFunc

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

    Func F3()
    irgendwas anderes machen...
    EndFunc

    [/autoit]

  • XML Dateien auslesen und erzeugen

    Hallo,

    oder hiermit


    Spoiler anzeigen
    [autoit]

    ; Get the xml file
    $filename = @ScriptDir & "\Test123.xml"

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

    ; Parse the result
    $oXML = _CreateMSXMLObj()
    If Not IsObj($oXML) Then
    MsgBox(0, "_CreateMSXMLObj()", "ERROR!: Unable to create MSXML Object!!", 10)
    Exit 1
    EndIf

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

    $oXML.async = False
    $error = $oXML.Load ($filename)
    If Not $error Then
    MsgBox(0, "Load XML", "An error occurred loading " & $filename, 10)
    Exit 1
    EndIf

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

    $oXMLRoot = $oXML.documentElement
    $oAppNode = $oXML.selectSingleNode ("//customers")

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

    For $oXmlNode In $oAppNode.childNodes
    $new_name = "Hans Wurst"
    $new_age = "23"

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

    $oSubdataNode = $oXmlNode.firstchild
    ConsoleWrite("Debug: Changing Attributes." & @LF)

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

    $oSubdataNode.setAttribute ("name", $new_name)
    $oSubdataNode.setAttribute ("age", $new_age)
    Next

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

    $oXML.Save ($filename)

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

    Func _CreateMSXMLObj() ; Creates a MSXML instance depending on the version installed on the system
    $xmlObj = ObjCreate("Msxml2.DOMDocument.6.0") ; Latest available, default in Vista
    If IsObj($xmlObj) Then Return $xmlObj

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

    $xmlObj = ObjCreate("Msxml2.DOMDocument.5.0") ; Office 2003
    If IsObj($xmlObj) Then Return $xmlObj

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

    $xmlObj = ObjCreate("Msxml2.DOMDocument.4.0")
    If IsObj($xmlObj) Then Return $xmlObj

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

    $xmlObj = ObjCreate("Msxml2.DOMDocument.3.0") ; XP and w2k3 server
    If IsObj($xmlObj) Then Return $xmlObj

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

    $xmlObj = ObjCreate("Msxml2.DOMDocument.2.6") ; Win98 ME...
    If IsObj($xmlObj) Then Return $xmlObj

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

    Return 0
    EndFunc ;==>_CreateMSXMLObj

    [/autoit]

    XML Beispiel File:

    Spoiler anzeigen

    <xml>
    <customers>
    <jc>
    <subdata name="Hans Wurst" age="23" sex="male" city="cork">
    </subdata>
    </jc>
    <ts>
    <subdata name="Hans Wurst" age="23" sex="male" city="cork">
    </subdata>
    </ts>
    <bg>
    <subdata name="Hans Wurst" age="23" sex="male" city="DC">
    </subdata>
    </bg>
    </customers>
    </xml>

  • newbie AUTOIT: Bestimmte Dateitypen inkl. Unterverzeichnisse kopieren

    Hallo oder eine Funktion von BugFix:

    Diese kann dir Dateien auch Rekursiv zurück geben.

    Spoiler anzeigen
    [autoit]

    ;==================================================================================================
    ; Function Name: _GetFilesFolder_Rekursiv($sPath [, $sExt='*' [, $iDir=-1 [, $iRetType=0 ,[$sDelim='0']]]])
    ; Description: Rekursive Auflistung von Dateien und/oder Ordnern
    ; Parameter(s): $sPath der Basispfad für die Auflistung ('.' -aktueller Pfad, '..' -Parentpfad)
    ; $sExt Erweiterung für Dateiauswahl '*' oder -1 für alle (Standard)
    ; $iDir -1 Dateien+Ordner(Standard), 0 nur Dateien, 1 nur Ordner
    ; optional: $iRetType 0 gibt Array, 1 gibt String zurück
    ; optional: $sDelim legt Trennzeichen für Stringrückgabe fest
    ; 0 -@CRLF (Standard) 1 -@CR 2 -@LF 3 -';' 4 -'|'
    ; Return Value(s): Array (Standard) od. String mit den gefundenen Pfaden der Dateien und/oder Ordner
    ; Array[0] enthält die Anzahl der gefundenen Dateien/Ordner
    ; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
    ;==================================================================================================
    Func _GetFilesFolder_Rekursiv($sPath, $sExt='*', $iDir=-1, $iRetType=0, $sDelim='0')
    Global $oFSO = ObjCreate('Scripting.FileSystemObject')
    Global $strFiles = ''
    Switch $sDelim
    Case '1'
    $sDelim = @CR
    Case '2'
    $sDelim = @LF
    Case '3'
    $sDelim = ';'
    Case '4'
    $sDelim = '|'
    Case Else
    $sDelim = @CRLF
    EndSwitch
    If ($iRetType < 0) Or ($iRetType > 1) Then $iRetType = 0
    If $sExt = -1 Then $sExt = '*'
    If ($iDir < -1) Or ($iDir > 1) Then $iDir = -1
    _ShowSubFolders($oFSO.GetFolder($sPath),$sExt,$iDir,$sDelim)
    If $iRetType = 0 Then
    Local $aOut
    $aOut = StringSplit(StringTrimRight($strFiles, StringLen($sDelim)), $sDelim, 1)
    If $aOut[1] = '' Then
    ReDim $aOut[1]
    $aOut[0] = 0
    EndIf
    Return $aOut
    Else
    Return StringTrimRight($strFiles, StringLen($sDelim))
    EndIf
    EndFunc

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

    Func _ShowSubFolders($Folder, $Ext='*', $Dir=-1, $Delim=@CRLF)
    If Not IsDeclared("strFiles") Then Global $strFiles = ''
    If ($Dir = -1) Or ($Dir = 0) Then
    For $file In $Folder.Files
    If $Ext <> '*' Then
    If StringRight($file.Name, StringLen($Ext)) = $Ext Then _
    $strFiles &= $file.Path & $Delim
    Else
    $strFiles &= $file.Path & $Delim
    EndIf
    Next
    EndIf
    For $Subfolder In $Folder.SubFolders
    If ($Dir = -1) Or ($Dir = 1) Then $strFiles &= $Subfolder.Path & '\' & $Delim
    _ShowSubFolders($Subfolder, $Ext, $Dir, $Delim)
    Next
    EndFunc

    [/autoit]

  • Probleme mit $CmdLine[$CmdLine[0]] in Script für Kontextmenü

    Hallo,

    ich denke es Liegt daran das du deinen Dateinamen nicht richtig aufgebaut hast du hast an das Verzeichnis einfach nur ein .txt an gehangen und nicht nicht & "\" & Verzeichnisnamen & ".txt"

    ich hab dir das mal aufgebaut

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    Opt('MustDeclareVars', 1)

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

    Local $DirName, $notename, $text, $handle,$szDrive, $szDir, $szFName, $szExt

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

    ;Der Ordnername wird definiert
    $DirName = StringSplit($CmdLine[$CmdLine[0]], "\")
    ;Dateiname wird Ordnernamen gleichgesetzt
    $notename = $CmdLine[$CmdLine[0]] & "\" & $DirName[$DirName[0]] & ".txt"
    ;Zwischenablage wird in die Variabel $text geschrieben
    $text = ClipGet()
    ;Die Beschreibungstextdatei ($notename.txt) wird erstellt
    $handle = FileOpen($notename, 2)
    FileWrite($handle, $text)
    FileClose($handle)
    ShellExecuteWait('notepad.exe', $notename)
    Exit

    [/autoit]