Beiträge von autoBert

  • Youtube Video in GUI einbinden.

    Hier einfach einmal Beispielcode wie ich den Tipp meinte:

    Spoiler anzeigen
    [autoit]

    ; *******************************************************
    ; Beispiel 1 - Erkennt und deaktiviert COM-Errors, sodass 'Back' (zurück) und
    ; 'Forward' (vorwärts) außerhalb der Historygrenzen das Skript nicht abbrechen.
    ; (außer COM-Errors, die an die Konsole gesendet werden)
    ; *******************************************************
    ;
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    _IEErrorHandlerRegister ()

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

    $oIE = _IECreateEmbedded ()
    GUICreate("EmbeddedWebControl-Test", 640, 580, _
    (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
    #cs
    $GUI_Button_Back = GUICtrlCreateButton("Zurück", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("Vorwärts", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("Startseite", 230, 420, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Anhalten", 340, 420, 100, 30)
    #ce
    GUISetState() ; Anzeigen der GUI

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

    $sFile = StringReplace("file:///" & @ScriptDir & "/derAffe.html","\","/")
    ConsoleWrite($sFile&@CRLF)
    _IENavigate ($oIE, $sFile)

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

    ; Wartet, bis der Benutzer das Fenster schließt
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    #cs
    Case $msg = $GUI_Button_Home
    _IENavigate ($oIE, "www.autoit.de")
    Case $msg = $GUI_Button_Back
    _IEAction ($oIE, "back")
    Case $msg = $GUI_Button_Forward
    _IEAction ($oIE, "forward")
    Case $msg = $GUI_Button_Stop
    _IEAction ($oIE, "stop")
    #ce
    EndSelect
    WEnd

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

    GUIDelete()

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

    Exit

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

    dazu noch die html-Seite: Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. einfach das .txt weglassen beim speichern! Die Seite wurde aus einem Template durch hineinkopieren der von YT bereitgestellten Infos zum Video einbetten erstellt.

    mfg autoBert

  • mkvmerge mit Variablen verwenden

    Zitat von PCMader

    Deute ich es richtig, dass consoleWrite den Sting nur in das Consolefenster schreibt. Muss die Console
    dazu nicht vorher offen sein.


    Stimmt es gibt den zusammengesetzten String in der Scitekonsole aus. Sollte dies nicht offen sein kannst du sie mit F8 öffnen. Die Ausgabe dient zur Kontrolle.

    Zitat von PCMader

    Fehlt hier nicht des Makro @ComSpec?

    Das Makro wird nur benötigt wenn interne Befehle des Kommndozeileninterpreters benutzt werden, da mkvmerge.exe aber ein eigenständiges Programm ist kann es weggelassen werden.

    Edit: du solltest das Thema noch auf gelöst stellen: 1. Beitrg bearbeiten Präfix (nähe Überschrift) umstellen und absenden.

    mfg autoBert

  • mkvmerge mit Variablen verwenden

    Du musst dir deinen gewünschten String mit Hilfe de & Prmeters zusammenketten. Und wenn es alle Dateien sein sollen, benötogst du ntürloch auch eine Schleife. Versuch es einmal so:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Array.au3>

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

    Local $arrFileList = _FileListToArray("F:\a", "*.264")
    If @error = 1 Then
    MsgBox(0, "", "Verzeichnis nicht gefunden!")
    Exit
    EndIf
    If @error = 4 Then
    MsgBox(0, "", "Datei nicht gefunden")
    Exit
    EndIf
    ;~ _ArrayDisplay($arrFileList, "$FileList") - Debug: ob Dateien eingelesen werden

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

    For $i = 1 To $arrFileList[0]
    ;~ eingelesene Dateien von $arrFileList in Bestandteile splitten
    ;~ prüfen, ob die dazugehörige mp2-Datei existiert und mkvmerge ausführen
    Local $szDrive, $szDir, $szFName, $szExt
    Local $arrDateiPath = _PathSplit("F:\a\" & $arrFileList[$i], $szDrive, $szDir, $szFName, $szExt)
    ;~ _ArrayDisplay($TestPath, "Demo _PathSplit()") - Debug: ob Dateien eingelesen werden

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

    Local $Datei_mkv = "F:\a\" & $szFName & ".mkv"
    Local $Datei_mkv2 = '"' & $Datei_mkv & '"'
    Local $Datei_264 = "F:\a\" & $szFName & ".264"
    Local $Datei_2642 = '"' & $Datei_264 & '"'
    Local $Datei_mp2 = "F:\b\" & $szFName & ".mp2"
    Local $Datei_mp22 = '"' & $Datei_mp2 & '"'
    ;~ MsgBox(0, "", $Datei_mkv2)

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

    If FileExists($Datei_mp2) Then
    $sCommand = 'mkvmerge.exe -o "' & $Datei_mkv2 & ' ' & $Datei_2642 & ' ' & $Datei_mp22 & '"'
    ConsoleWrite($sCommand & @CRLF)
    RunWait($sCommand, 'C:\mkvToolNix\')
    EndIf
    Next

    [/autoit]

    mfg autoBert

  • Backupscript

    Hallo Nici96,

    @Comspec wird nur für fest in die Konsole integrierten Befehle wie Dir, Copy etc. benötigt. Da XCopy ber ein eigenständiges Prgramm ist wird hier der Aufruf von @Comspec nicht benötigt. Hier ein kleines Kopiertool das mit XCopy arbeitet:

    Spoiler anzeigen
    [autoit]

    CopyWithProgress("d:\Programme\AutoIt3","c:\test") ;kopiert den kompletten AutoIt-Ordner nach c:\test

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

    #Include <Date.au3>
    Func CopyWithProgress($srcDir, $destDir) ;Original gigx siehe https://autoit.de/index.php?page…25989#post25989
    Local $tsBeginn = _NowCalc(), $tsDiff =-1, $tsRest ;eingefügt für Restdauer
    If StringRight($srcDir, 1) = "\" Then $srcDir = StringLeft($srcDir, StringLen($srcDir) - 1)
    If StringRight($destDir, 1) <> "\" Then $destDir = $destDir & "\"
    If Not FileExists($destDir) Then DirCreate($destDir)
    $srcSize = DirGetSize($srcDir, 1)
    $1_percent = $srcSize[0] / 100
    Run('XCOPY "'& $srcDir & '" "' & $destDir & '" /D /S /E /V /C /H /R /O /Y /F /G',"",@SW_HIDE)
    ProgressOn("Advanced status of file copying", "", "",10,10)
    Do
    if $tsDiff < 0 Then Sleep(5000)
    $destSize = DirGetSize($destDir, 1)
    $tsDiff = _DateDiff("s",$tsBeginn,_NowCalc())
    $tsRest = round($tsDiff / ($destSize[0] / $1_percent) * 100,0) - $tsDiff
    ConsoleWrite($tsDiff & " " & $1_percent & " " & $tsRest &@CRLF)
    ProgressSet(Round($destSize[0] / $1_percent, 2), Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2)& " MB copied" & @CRLF _
    & $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
    & $destSize[2] & " of " & $srcSize[2] & " Folders copied.", Round($destSize[0] / $1_percent, 2) & "% - Done! " & $tsRest & " sec. Rest")
    Sleep(($tsDiff+$tsRest)/2)
    Until $destSize[0] >= $srcSize[0]
    MsgBox(0,"Fertig in " & $tsDiff & " sec.",Round($destSize[0] / (1024 * 1024), 2) & " MB of " & Round($srcSize[0] / (1024 * 1024), 2)& " MB copied" & @CRLF _
    & $destSize[1] & " of " & $srcSize[1] & " Files copied." & @CRLF _
    & $destSize[2] & " of " & $srcSize[2] & " Folders copied." & @CRLF & Round($destSize[0] / $1_percent, 2) & "% - Done! ")
    ProgressOff()
    EndFunc

    [/autoit]

    mfg autoBert

  • OCR - aber wie?

    Zitat von Rodeojack

    Zuvor: Der Grund für mein Vorhaben ist es nicht CAPCHAs zu umgehen. Ich möchte mir ein Script schreiben, was den Kurs von Wertpapieren an der Börse zu einem festgelegten Zeitpunkt ausliest und diesen Wert dann in einer Excel-Tabelle (die auf meinem 2. Monitor liegt) speichert, damit ich diese später analysieren kann - so gesehen kann man sagen, ich versuche mir, meinen eigenen personalisieren Indikator zu bastern :) (was auch gegen keine Regeln verstößt).


    Und wozu dann OCR dies kann man mit den Funktionen der IE.au3 bzw. der FF.au3. Und wenn die Seite das Auslesen erlaubt bekmmt man sogar Hilfe dabei (so man die Adresse an gegeben hat).

    mfg autoBert

  • Tab funktioniert nicht mit $WS_EX_COMPOSITED

    Zitat von YaeroxXO

    Ich versteh nicht ganz worauf du hinaus magst, was damit zusammen hängen könnte das ich nicht ganz verstehe was dieser Style tun soll,

    Dafür gibt es die Hilfe und wenn du dort geschaut hättest wüsstest du das es keinen Style sondern einen exStyle dieses Namens gibt. Lass diese Beispiel laufen

    Spoiler anzeigen
    [autoit]

    ; *** Start added by AutoIt3Wrapper ***
    #include <WindowsConstants.au3>
    ; *** End added by AutoIt3Wrapper ***
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Add_Constants=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <GUIConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)

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

    Example()

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

    Func Example()
    Local $tab, $tab0, $tab0OK, $tab0input
    Local $tab1, $tab1combo, $tab1OK
    Local $tab2, $tab2OK, $msg

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

    GUICreate("Meine GUI mit Tabs",800,500,50,50,Default,$WS_EX_COMPOSITED)
    ; GUICreate("Meine GUI mit Tabs") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird

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

    GUISetBkColor(0x00E0FFFF)
    GUISetFont(9, 300)

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

    $tab = GUICtrlCreateTab(10, 10, 200, 100)

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

    $tab0 = GUICtrlCreateTabItem("Tab0")
    GUICtrlCreateLabel("Beschriftung0", 30, 80, 80, 20)
    $tab0OK = GUICtrlCreateButton("OK0", 20, 50, 50, 20)
    $tab0input = GUICtrlCreateInput("Standard", 80, 50, 70, 20)

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

    $tab1 = GUICtrlCreateTabItem("Tab----1")
    GUICtrlCreateLabel("Beschriftung1", 30, 80, 80, 20)
    $tab1combo = GUICtrlCreateCombo("", 20, 50, 60, 120)
    GUICtrlSetData(-1, "Trids|CyberSlug|Larry|Jon|Tylo", "Jon") ; Standard Jon
    $tab1OK = GUICtrlCreateButton("OK1", 80, 50, 50, 20)

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

    $tab2 = GUICtrlCreateTabItem("Tab2")
    GUICtrlSetState(-1, $GUI_SHOW) ; Lässt die GUI anzeigen
    GUICtrlCreateLabel("Beschriftung2", 30, 80, 80, 20)
    $tab2OK = GUICtrlCreateButton("OK2", 140, 50, 50)

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

    GUICtrlCreateTabItem("") ; Beendet die Tab Definition

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

    GUICtrlCreateLabel("Beschriftung3", 20, 130, 80, 20)

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

    GUISetState()

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

    ; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
    While 1
    $msg = GUIGetMsg()

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

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    WEnd
    EndFunc ;==>Example

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

    und du erkennst m-Obis Problem.

    mfg autoBert

  • Happy Birthday chesstiger (15) und Xenobiologist (33)

    Zitat von stayawayknight

    Auch herzlichen Glückwunsch Xeno! Nochmal so viele Jahre, dann fängt das Leben an :P ("mit 66 Jahren, da fängt das Leben an...")


    Auch wenn der "Frischling" erst ~ 1/3 seines Lebens hinter sich hat, glaub mir das Leben fängt mit dem 1. Tag an.
    Also @Xeno fordere genauso laut dein Freibeier ein wie du es damals mit dem 1. Softgetränk gemacht hast.
    @Chessi: ein :prost: darauf, dass du auch mit 66 noch um Schachbretter streichst

    @Armin: ich fordere einen Smily ähnlch diesem: http://www.lima-city.de/profile/action:jump/131780

    lg autoBert

  • Problem mit Auflistungs und Ausgabe Skript

    Hallo

    Zitat von x0r

    Wäre das nicht auch eine bzw eine einfachere Lösung?:


    Gier fehlt zum einen die Rekursion zum anderen ermittelst du die Dteigrösse und nicht die Abmessungen der Bilder. Hier die Lösung mit Rekursion und Bildbmessungen:

    Spoiler anzeigen
    [autoit]

    #include<Array.au3>
    #include <getjpegsize.au3>

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

    $sPath = 'D:\Dokumente und Einstellungen\Bert\Eigene Dateien' ;anpassen

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

    $ret = _GetFilesFolder_Rekursiv($sPath, 'jpg', 0, 0)
    If IsArray($ret) Then
    _ArrayDisplay($ret, 'Rekursiv alle jpg-Dateien')
    $file = FileOpen(@ScriptDir & "\test.csv", 2)
    If $file = -1 Then
    MsgBox(0, "Fehler", "Die Datei konnte nicht geöffnet werden.")
    Exit
    EndIf
    For $i = 1 To $ret[0]
    FileWrite($file, $i & ";" & $ret[$i] & ";")
    $img_size = _GetJpegSize($ret[$i])
    if IsArray($img_size) Then
    FileWrite($file,$img_size[0] & " x " & $img_size[1] & @CRLF)
    Else
    FileWrite($file,"Grösse nicht feststellbar!" & @CRLF)
    EndIf
    Next
    FileClose($file)
    Else
    MsgBox(0, 'keine Dteien gefunden', $ret & @CRLF)
    EndIf

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

    ;AUFLISTUNGSFUNKTION
    ;==================================================================================================
    ; 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 ;==>_GetFilesFolder_Rekursiv

    [/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 ;==>_ShowSubFolders

    [/autoit]

    mfg autoBert

  • hilfe bei der fehlersuche! programm beendet sich ohne fehlermeldung, log ist auf einmal weg.

    Zitat von WhiteLion

    ich weiss, es ist immer besser mit script, aber wenn man so lange an etwas arbeitet und noch das o.g. risiko hat dann möchte man es auch wohl überlegt machen, wenn man es veröffentlicht.


    Ohne Skript ist keie Hilfe möglich! Ich empfehle dir das [ offen ] Tutorial: Wie man Script-Fehler erfolgreich sucht/findet bzw. richtig debuggt zu lesen unbd wünsch dir viel Glück bei der Fehlersuche.

    mfg autBert

  • Logikfehler in einem Script

    Hallo Fliwatt,

    ich empfehle dir 1. innerhlb von Funktionen nur lokale Voriblen zu definieren, globale gehörenin den Abschnitt nach den Includes. Ausserdem empfehle ich die Lektüre von : [ offen ] Tutorial: Wie man Script-Fehler erfolgreich sucht/findet bzw. richtig debuggt.

    Die Datei wird jedenfalls korrekt hochgeladen.

    Du solltest

    [autoit]

    Until TimerDiff($TIMER) = 2000

    [/autoit]

    mit

    [autoit]

    Until TimerDiff($TIMER) >= 2000

    [/autoit]

    tauschen, denn es wäre absoluter Zufall dass TimerDiff genau nach 2000 ms aufgerufen wird. Aber dies ist ja beim Herunterladen als nicht dein derzeitiges Problem, trotzdem ändern dann kommt das nächste Problem nicht.

    mfg autoBert

  • 2 Verzeichnisse vergleichen und ein Array mit zeitlichen Unterschieden retournieren

    Zitat von mr_merlin

    Weiß nicht, wie ich mich außer auf diesem Weg, bei dir bedanken kann.


    Du kannst (und solltest) dir die Mühe machen Testdaten zu generieren und das erwartete Ergebnis davon zu bestimmen. Wenn es dann mit meiner Ausgabe des Arrays übereinstimmt meldest du die Func _Check als OK und stellst den Beitrag auf gelöst.

    Ich habe noch eimal Änderungen am Skript gemacht, du musst also den neuen Sourcecode dazu nehmem.

    mfg autoBert