Beiträge von autoBert

  • progress

    Hallo Bandito1,

    versuchs mal damit:

    Spoiler anzeigen
    [autoit]


    #include <INet.au3>

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

    $size = InetGetSize("http://www.autoit.de/index.php?page=Attachment&attachmentID=4318&h=973977700e03f30dc8cec3b5bd14090956c5f876")
    $data=InetGet("http://www.autoit.de/index.php?page=Attachment&attachmentID=4318&h=973977700e03f30dc8cec3b5bd14090956c5f876", "C:\mydownload.zip", 1,1)
    GUICreate(" Fortschritt",350,100,100,200)
    $progressbar1 = GUICtrlCreateProgress(25, 25, 300, 20)

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

    While @InetGetActive
    GUICtrlSetData($progressbar1, INT(@InetGetBytesRead/$size * 100))
    GUISetState()
    WEnd

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

    Den Download den ich eingetragen habe ist aus Tutorial-Engine - mein Beitrag zur Hilfe von MatthiasG (irgendwas muss ich ja zum Test downloaden).

    mfg (Auto)Bert

  • Worddatei aulesen?

    Hallo team2way,

    dieses Beispiel hab ich in der deutschen Hilfe gefunden,

    Spoiler anzeigen
    [autoit]


    ; *******************************************************
    ; Example 1 - Create an empty word window and open an existing document
    ; *******************************************************
    ;
    #include <Word.au3>
    $oWordApp = _WordCreate ("")
    $oDoc = _WordDocOpen ($oWordApp, @ScriptDir & "\Test.doc")

    [/autoit]

    es geht also Worddokumente zu öffnen, ich hab mich aber selbst noch nicht damit beschäftigt. Must halt die Hilfe durcharbeiten

    mfg (Auto)Bet

  • Makros in kette funktionieren nicht?

    Verketten funktioniert

    Spoiler anzeigen
    [autoit]


    $systemzeit = @YEAR & "/" &@MON &"/" & @MDAY & @HOUR & ":" &@MIN & ":" &@SEC
    MsgBox(0,"",$systemzeit)

    [/autoit]

    und das Beispiel aus der Hilfe auch:

    Spoiler anzeigen
    [autoit]


    #include <Date.au3>

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

    ; Berechnet die Anzahl der Sekunden seit EPOCH (1970/01/01 00:00:00)
    $iDateCalc = _DateDiff('s', "1970/01/01 00:00:00", _NowCalc())
    MsgBox(4096, "", "Anzahl der Sekunden seit EPOCH: " & $iDateCalc)

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

    ; Berechnet die Anzahl der Stunden des Jahres
    MsgBox(4096, "", "Anzahl der Stunden dieses Jahres: " & $iDateCalc)

    [/autoit]

    ich denke damit ist dein Problem gelöst

    mfg (Auto)Bert

  • Videos von YouTube mit AutoIt?

    Bei den Links die auf You-Tube Videos verweisen, kannst du die direkte Downloadadresse über Rechstklick auf den Link und danach Eigenschaften erfahren

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Auf der Downloadseite selbst ist er auch vermerkt:

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    mfg (Auto)Bert

  • Zur bereits gestarteten Instanz des Programmes wechseln

    habe kurz vor dem Einfügen von _Singleton und WinActivate den Fenster-Titel in einer Varibalen abgelegt und dann dummerweise die Variable innerhalb der Anführungszeichen hineinkopiert. Kleiner Fehler, maximale Wirkung.
    funkey Danke für die Tipps, jetzt klappt alles wunderbar :thumbup:.

    Spoiler anzeigen
    [autoit]


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

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

    Opt('GUIOnEventMode', 1)
    Opt('MUSTDECLAREVARS' ,1)

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

    Global $sTitel = 'Test AutoAdress Version 0.8.1'
    If _Singleton($sTitel, 1) = 0 Then
    MsgBox(64, $sTitel, $sTitel & ' ist bereits gestartet')
    ;WinSetState($sTitel, "", @SW_SHOW)
    WinActivate($sTitel) ;dies Zeile funktioniert nicht obwohl AutoAdress gestartet
    ;WinActivate("Unbenannt -") ;diese Zeile funktioniert wenn Notepad.exe gestartet
    Exit
    EndIf

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

    Global $hfrmMain ;HauptFenster

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

    _Main()

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

    Func _Main()
    Local $hmnuitmFile, $hmnuitmExit
    $hfrmMain = GUICreate($sTitel, 800, 540, -1, -1, $WS_SIZEBOX + $WS_SYSMENU +$WS_MAXIMIZEBOX +$WS_MINIMIZEBOX)
    GUISetOnEvent($GUI_EVENT_CLOSE, '_exitMain')

    $hmnuitmFile = GUICtrlCreateMenu("&Datei")
    $hmnuitmExit = GUICtrlCreateMenuItem("Be&enden", $hmnuitmFile)
    GUICtrlSetOnEvent(-1, '_exitMain')
    GUISetState(@SW_SHOW,$hfrmMain)
    While 1
    Sleep(1000)
    WEnd
    EndFunc

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

    Func _exitMain()
    Switch @GUI_WINHANDLE
    Case $hfrmMain
    Exit
    EndSwitch
    EndFunc

    [/autoit]

  • Zur bereits gestarteten Instanz des Programmes wechseln

    Hallo,

    ich möchte nur eine Instanz meines Programmes zulassen und wenn der Anwender es noch einmal zu starten versucht automatisch zur 1. Instanz gewechselt wird.

    Edit1:
    Dies versuche ich mit folgendem Code zu erreichen

    Edit2: größeren Auszug aus Code in Spoiler

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_outfile=Adressenverwaltung.exe
    #AutoIt3Wrapper_Res_LegalCopyright=autoBert
    #AutoIt3Wrapper_Res_Language=1031
    #AutoIt3Wrapper_Add_Constants=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    ; *** Start added by AutoIt3Wrapper ***
    #include <EditConstants.au3>
    ; *** End added by AutoIt3Wrapper ***
    ; *** Start added by AutoIt3Wrapper ***
    #include <StaticConstants.au3>
    ; *** End added by AutoIt3Wrapper ***
    #include<ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <GuiTreeView.au3>
    #include <GuiListView.au3>
    #include <TreeViewConstants.au3>
    #include <WindowsConstants.au3>
    #include <GuiStatusBar.au3>
    #include <SQLite.au3>
    #include <SQLite.dll.au3>
    #Include <Misc.au3>

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

    Opt('GUIOnEventMode', 1)
    Opt('MUSTDECLAREVARS' ,1)

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

    Global $sTitel = 'AutoAdress Version 0.8.1'
    If _Singleton($sTitel, 1) = 0 Then
    MsgBox(64, $sTitel, $sTitel & ' ist bereits gestartet')
    WinSetState($sTitel, "", @SW_SHOW)
    WinActivate($sTitel) ;dies Zeile funktioniert nicht obwohl AutoAdress gestartet
    ;WinActivate("Unbenannt -") ;diese Zeile funktioniert wenn Notepad.exe gestartet
    Exit
    EndIf

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

    Das Verhindern einer 2. Instanz klappt, aber er wechselt nicht zur bereits gestarteten EXE, kommischer weise kann ich aber ohne Probleme zu Notepad wechseln.

    Wäre toll wenn jemanden eine Lösung zu dem Problem einfällt

    mfg (Auto)Bert

  • Youtube-links aus .txt raussuchen lassen

    Hallo Der_Noob,

    um Daten aus einer Textdatei zu lesen benutzt man FileRead
    um Daten zu schreiben benutzt man FileWrite
    um Daten zu manipulieren verschiedene String-Funktionen z.B. _StringBetween, StringInStr, StringTrimLeft, StringLeft
    eigentlich sollte _StringBetween schon ausreichen, damit habe ich aber in diesem Fall keine Lösung zustande gebracht

    StringSplit kann mann nehmen um die eingelesenen Daten in ein Array zu lesen

    Wenn du dir die Beispiele zu den Stichwörtern anschaust, kommst du auf die Lösung,

    wenn du es selbst lösen möchtest den Spoiler nicht aufmachen

    Hier ist mein Lösungsansatz (geht sicher noch schöner, kürzer und flexibler) funktioniert nur mit dem Text Datei-Schema wie eine von dir hochgeladen wurde

    Spoiler anzeigen
    [autoit]


    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Add_Constants=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #Include <GuiListBox.au3>
    #include <String.au3>
    #include<Array.au3>

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

    $hGUI = GUICreate("Test", 639, 440, 202, 127)
    $hList = GUICtrlCreateList("", 16, 16, 624, 424)
    GUISetState(@SW_SHOW)

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

    $FileRead = FileRead (@ScriptDir & "\Neu Textdokument (2).txt")
    If $FileRead = -1 Then ;<---------- nur vorsichtshalber
    MsgBox(24, "Fehler", "Datei kann nicht geöffnet werden.")
    Else
    $Split = StringSplit ($FileRead, @CR)
    ;_ArrayDisplay($Split) damit kann man sich das Original anschauen
    For $i = 1 to UBound($Split,1) -1 Step 2 ;Step 2 kann auch weggelassen werden da Zeile 25 auf YouTube prüft
    ;mit 1 anfangen (=2.Zeile bei 0 basiertem Index)
    ;Step 2 weil in jeder 2 Zeile am Anfang der YouTube-Link steht
    $tZeile=$Split[$i]
    $j = StringInStr($tZeile,'http://de.youtube.com')
    if $j<>0 then
    ;$tZeile = _Stringbetween($tZeile,'http://','" ADD_DATE="') müsste auch funktionieren
    $tZeile=StringTrimLeft($tZeile,StringInStr($tZeile,'http://')+6) ;alles was vor dem eigentlichen Link steht wegschmeissen
    $tZeile=StringLeft($tZeile,StringInStr($tZeile,'" ADD_DATE=')-1) ;alles was danach steht auch wegschmeissen
    if $tZeile <> "" then GUICtrlSetData($hList,$tZeile)
    EndIf
    Next
    FileClose($FileRead)
    EndIf

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

    $File=FileOpen (@ScriptDir & "\YouTube.TXT", 2)
    If $File = -1 Then ;<---------------------nur vorsichtshalber
    MsgBox(24, "Fehler", "Datei kann nicht geöffnet werden.")
    Else
    $List1Count = _GUICtrlListBox_GetCount ($hList)
    For $i = 0 To $List1Count-1 ;0-basierter Index hat 1. Zeile = Zeile[0]
    FileWrite ($File, _GUICtrlListBox_GetText ($hList, $i) & @CRLF)
    Next
    FileClose($File)
    EndIf

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]


    in der Hoffnung, das du nicht nur auf die schnelle ein Script abstauben wolltest wünsche ich dir viel Spass mi AuotoIT und verbleibe

    mfg (Auto)Bert

  • einen button über ein bild bwegen ohne flackern

    Hallo moritz1243,

    dein Programm löst bei mir diesen Effekt aus:

    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Edit: so funktionierst bei mir kein Flackern und Scite wird auch nicht verschoben

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Add_Constants=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    ; *** Start added by AutoIt3Wrapper ***
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    ; *** End added by AutoIt3Wrapper ***
    Local $mGUI, $Button[2], $move_in
    Local $hGUI ;<------------------------------------------------------------------------------------------|
    ; |
    $Titel = "sollte man schon definieren" ;<---------------------
    ;$mGUI = GUICreate($Titel, 640, 375,0,25,$WS_POPUP, $WS_EX_TOPMOST + $WS_EX_MDICHILD + $WS_EX_LAYERED,$hGUI) ;<---------
    $hGUI = GUICreate($Titel, 640, 375,0,25) ;,$WS_POPUP, $WS_EX_TOPMOST + $WS_EX_MDICHILD + $WS_EX_LAYERED,$mGUI)
    GUISetBkColor (0xFFFFFF)
    GUICtrlCreatePic("BK.gif", 0, 0, 640, 400)
    GUICtrlSetState(-1, $GUI_DISABLE)

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

    $Button[0] = GUICtrlCreateButton ("1 Spieler",250,100,140,50)
    GUICtrlSetColor (-1,0xFF0000)
    GUICtrlSetFont(-1, 18, 400, 0, "Ellis")
    ;GUICtrlSetOnEvent (-1,"_info_button")
    $Button[1] = GUICtrlCreateButton ("2 Spieler",250,170,140,50)
    GUICtrlSetColor (-1,0xFF0000)
    GUICtrlSetFont(-1, 18, 400, 0, "Ellis")
    ;GUICtrlSetOnEvent (-1,"_info_button")

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

    GUISetState (@SW_SHOW)

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

    For $move_in = 0 To 400 ;Step 20 <------------ damit die buttons nicht so rasen

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

    ControlMove("","",$Button[0], -150 + $move_in, 100)
    ControlMove("","",$Button[1], 650 - $move_in, 170)

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

    Sleep (10)

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

    Next

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

    While 1 ;<---------- damit die GUI nicht sofort wieder geschlossen wird
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

    [/autoit]

    die Stellen an denen ich Änderungen vorgenommen habe

    mfg (Auto)Bert

  • Suche Exit-Strategie für GUI

    Hallo MacroStop,

    nach deinem letzten Post bin ich der Überzeugung, das deine Programmidee so nicht zu verwirklichen ist. Wenn die Platzersparnis so stark differiert (15% und 50%) kannst du dir ja nie sicher sein, ob wirklich alles abgearbeitet wurde.

    Google mal nach CT Offline Update und lade es dir herunter ist ein nützliches Tool einerseits und andererseits arbeitet da ein Vollprofi mit AutoIT, VBS und CMD-Programmierung und MKSiofs.

    Ich hoffe du findest in den Skripten Anregungen für einen möglichen Lösungsweg.


    mfg (Auto)Bert