1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. autoBert

Beiträge von autoBert

  • Tool für universelle Ausfüllungen jeglicher Textfelder

    • autoBert
    • 19. Mai 2012 um 03:06
    Zitat von Sevemiyen

    Ich wünschte ich könnte anfangen :D allerdings hab ich kein plan von autoit oder einer sonstigen sprache mit der dies sich bewältigen lässt.


    Dann bist du im falschen Forum. Wenn du ein Tool suchst dessen Zweck auch fürs BOTen benutzt werden kann, solltest du zumindest in Programmieranfragen mit Gegenlesitung posten. Aber auch dort gelten die Forenregeln, du müsstest also dem Auftragnehmer sehr genau erklären was es mit den Captcha's auf sich hat.

    @Mod/Admin bitte schliessen, danke

    autoBert

  • Auflisten von: Ordner/Ordner/Datei und durchsuchen der Datei

    • autoBert
    • 14. Mai 2012 um 22:44
    Zitat von m-obi

    Was heißt denn für dich StringInStr??


    Dass was die Hilfe dazu sagt:

    Zitat

    StringInStr

    Prüft, ob ein String einen angegebenen Unterstring enthält.

    Da die Position innerhalb des zu prüfenden Strings zurückgegeben wird kann man damit gut weiter arbeiten,

    mfg autoBert

  • AutoIt's Word UDF - was fehlt?

    • autoBert
    • 14. Mai 2012 um 22:22

    Hallo water,

    im grossen un dganzen bin ich mit der Word-UDF sehr zufrieden. Du könntest aber Serienbrieffunktionen mit einbauen, so dass man nur noch eine Datenquelle und den Namen des gewünschten Serienbreifdokumtes angeben muss,

    mfg autoBert

  • Auflisten von: Ordner/Ordner/Datei und durchsuchen der Datei

    • autoBert
    • 13. Mai 2012 um 20:14

    Nach 2 1/2 Stunden schon pishen ist sehr unhöflich:

    Zitat von Zattoo

    weiß keiner ne lösung?

    Doch die SuFu findet mit dem Stichwort FileListRekursiv Lösungen für das Auflisten von Dateien. Mit StringInStr kannst du dann jede Datei des Arrays prüfen nachdem du sie in eine Vraible eingelesen hast ob das gewünschte Wort in der Variablen enthalten ist,

    mfg autoBert

  • Dropbox

    • autoBert
    • 13. Mai 2012 um 14:51

    Hallo Skilkor,

    so ein Skript kannst du dir ganz einfach selbst erstellen. Du holst dir mit _FileListToArray die Namen der ganzen Dateien. Danach gehts du diese in eienr Schleife durch und stellst dem Dateinamen deine Dropboxkennung davor z.B.: aus AutoAdress.exe wird http://dl.dropbox.com/u/08154711/AutoAdress.exe. wobei 08154711 deiner Kennung entspricht. Ausserdem musst du Umlaute,ß,Leerzeichen etc. nach den Regeln für eine gültige URL darstellen, also aus Einsatz des öffentlichen Ordners.rtf wird http://dl.dropbox.com/u/08154711/Ein…n%20Ordners.rtf.

    mfg autoBert

  • FTP-Sync wie Dropbox

    • autoBert
    • 12. Mai 2012 um 18:27

    Hallo Erictrials,

    du kannst nur mit einer AutoItlösung kein performantes Tool zusammen bekommen das lokal und Remote immer synchron hält. Um Änderungen an einer Datei auf dem FTP mit zu bekommen, müsstest du jede Datei unter einem temporären Namen downloaden, danach einen Hash bilden und mit dem Hash der entsprechenden Datei vergleichen.

    Zu deiner Frage warum sich die Dateiliste nicht ändert: Daran ist das Cache schuld. Benutze den Parametr $l_Flags von _Ftp_ListToArray.

    FTP_FilelistRekursiv (Link in Sugnatur) sollte dir bei deinem Vorhabennützlich sein,

    mfg autoBert

  • reinen IE Textseite lesen

    • autoBert
    • 7. Mai 2012 um 17:44

    Hallo Donsen64,

    teste einmal dieses Skript:

    Spoiler anzeigen
    [autoit]

    ; *******************************************************
    ; Example 1 - Trap COM errors so that 'Back' and 'Forward'
    ; outside of history bounds does not abort script
    ; (expect COM errors to be sent to the console)
    ; *******************************************************
    ;
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>
    #include <Array.au3>

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

    _IEErrorHandlerRegister()

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

    $oIE = _IECreateEmbedded()
    GUICreate("Embedded Web control Test", 640, 580, _
    (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $GUIActiveX = GUICtrlCreateObj($oIE, 10, 40, 600, 360)
    $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
    $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
    $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
    $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 420, 100, 30)

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

    ;GUISetState() ;Show GUI

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

    ;_IENavigate($oIE, "D:\Dokumente und Einstellungen\Bert\Desktop\test.html")
    _IENavigate($oIE, "https://server.test.com:8443/webservice/DataServiceServlet")

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

    $sText = _IEBodyReadText($oIE)

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

    ConsoleWrite("--------"&@CRLF &$sText &"--------"&@CRLF)

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

    $aVars = StringSplit($sText, "Group", 3)
    _ArrayDelete($aVars, 0)
    $iRows = UBound($aVars) ;+ 1 ???
    $aVars[0] = StringTrimLeft($aVars[0], 1)
    $aSplit = StringSplit($aVars[0], ",", 2)
    $iCols = UBound($aSplit) + 1
    ConsoleWrite("Zeilen: " & $iRows & @TAB & "Spalten: " & $iCols & @CRLF)
    Dim $a2D[$iRows][$iCols]
    _ArrayDisplay($aVars)
    For $i = 1 To $iRows - 1
    If $aVars[$i] <> "" Then
    $aSplit = StringSplit($aVars[$i], ",", 2)
    ;ConsoleWrite("Zeile: " & $i & @TAB)
    ;_ArrayDisplay($aSplit)
    For $j = 0 To $iCols - 1
    ;ConsoleWrite($j & @TAB)
    $a2D[$i][$j] = $aSplit[$j]
    Next
    EndIf
    ;ConsoleWrite(@CRLF)
    Next
    $a2D[0][0] = "Group"
    $a2D[0][1] = "Time"
    $a2D[0][2] = "Throughput"
    _ArrayDisplay($a2D)

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

    GUIDelete()

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

    Exit

    [/autoit]

    mit deinen Daten in eine Datei geschrieben funktioniert es Ich bezweifle allerdings dass dies der Quelltext der Seite ist, da ich keinerlei Beschreibungen zur Darstelling finde. Sollte dies so sein und die Variable $sText gefüllt werden dann poste den Inhalt dieser,

    mfg autoBert

  • reinen IE Textseite lesen

    • autoBert
    • 7. Mai 2012 um 16:09

    Hallo Donsen64,

    dann stelle einfach einmal den kompletten Quelltext der Seite wie ihn der IE anzeigt ein,

    mfg autoBert

  • ini read schleife wie?

    • autoBert
    • 7. Mai 2012 um 16:00
    Zitat von m-obi

    Wieso verwendest du nicht einfach eine richtige INI und schreibst alles in eine Zeile, ggf. mit CRLF dazwischen?


    CRLF kann in INI's nicht verwendet werden, deshalb arbeite ich in [Beispiel] Textbausteine verwalten (kleines Update) vor dem Speichern mit StringReplace und beim Einlesen vor dem Anzeigen auch wieder.

    @christiancdj: Stell einmal deine INI-Datei ein und beschreibe genau was du erreichen willst. Dein Beispiel aus dem Eröffnungsbeitrag würde auch nicht funktionieren, da du laufend Variablen mit neuen Inhalt aus der INI überschreibst,

    mfg autoBert

  • Wie mache ich des damit ich bei meinem musik Player vor und zurückspulen kann? und dazu noch mir anzeigt bei welcher zeit der abgespielte song ist?

    • autoBert
    • 7. Mai 2012 um 02:17

    Hallo Kiyubi97,

    ich habe dir jetzt einmal die Anzeige der Posution mit eingebaut und geleichzeitig den Quellcode für die beiden GUI's angepasst:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.8.1
    Author: Silver_Shadow97™

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

    Script Function: Infinity TrackZ Player™ [Alpha 0.5]
    Template AutoIt script.

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

    #ce ----------------------------------------------------------------------------

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

    ; Script Start - Add your code below here
    #include <SliderConstants.au3>
    #include <StaticConstants.au3>
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    #include <WindowsConstants.au3>
    #include <Sound.au3>
    #include <Date.au3>

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

    Global $h_Sound
    Global $max_sec
    Global $a_Sound
    $ver = "Infinity trackZ Player™ by Silver_Shadow97™ [Alpha 0.5]"

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

    #Region ### START Koda GUI section ### Form=
    $Options_GUI = GUICreate("Optionen", 412, 154, 445, 294)
    GUISetBkColor(0x00FF00)
    $option_text = GUICtrlCreateLabel("2012® Silver_Shadow97™ Alle Rechte vorbehalten.", 0, 136, 248, 17)
    $Copy_rights_btn = GUICtrlCreateButton("Kopier-Rechte", 320, 0, 91, 25)
    $contact_btn = GUICtrlCreateButton("Kontakt", 320, 32, 91, 25)
    $Close_btn = GUICtrlCreateButton("Schliessen", 336, 128, 75, 25)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

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

    #Region ### START Koda GUI section ### Form=
    $GUI = GUICreate("Infinity TrackZ Player by Silver_Shadow97™", 541, 314, 408, 166)
    $Exit_btn = GUICtrlCreateButton("Beenden", 224, 288, 91, 25)
    $Open_btn = GUICtrlCreateButton("Öffnen", 224, 168, 91, 81, $WS_GROUP)
    $Stop_btn = GUICtrlCreateButton("Stop", 136, 224, 75, 33, $WS_GROUP)
    $Replay_btn = GUICtrlCreateButton("Replay", 328, 224, 75, 33, $WS_GROUP)
    $Play_pause_btn = GUICtrlCreateButton("Play/Pause", 232, 136, 75, 25, $WS_GROUP)
    $Forward_btn = GUICtrlCreateButton("Vorspulen", 336, 176, 83, 33)
    $Reward_btn = GUICtrlCreateButton("Zurückspulen", 120, 176, 83, 33)
    $options_btn = GUICtrlCreateButton("optionen", 216, 256, 107, 25)
    $Progress1 = GUICtrlCreateProgress(120,120, 294, 9)
    $Slider1 = GUICtrlCreateSlider(0, 0, 150, 29)
    $idLblPosition = GUICtrlCreateLabel("",180,5,100,25)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg(1)
    Switch $nMsg[1] ;für welches Fenster ist die Message
    Case $GUI
    Switch $nMsg[0] ;für das Hauptfenster
    Case $GUI_EVENT_CLOSE, $Exit_btn
    Exit
    Case $Open_btn
    $f_open = FileOpenDialog("Suche nach Musiktiteln", @DesktopDir, "(*.*)")
    If Not @error Then
    _SoundClose($h_Sound)
    $h_Sound = _SoundOpen($f_open)
    $max_sec = _SoundLength($h_Sound, 2) * 1000
    _SoundPlay($h_Sound)
    WinSetTitle($GUI, "", $f_open)
    AdlibRegister("ShowSeek", 250)
    AdlibRegister("GetVol", 150)
    EndIf
    Case $Stop_btn
    _SoundStop($h_Sound)
    GUICtrlSetData($Progress1, 0)
    WinSetTitle($GUI, "", $ver)
    AdlibUnRegister("ShowSeek")
    AdlibUnRegister("GetVol")
    Case $Replay_btn
    If _SoundStatus($h_Sound) = "Playing" Or _SoundStatus($h_Sound) = "paused" Then
    _SoundStop($h_Sound)
    _SoundPlay($h_Sound)
    EndIf
    Case $Play_pause_btn
    If _SoundStatus($h_Sound) = "playing" Then
    _SoundPause($h_Sound)
    ElseIf _SoundStatus($h_Sound) = "paused" Then
    _SoundResume($h_Sound)
    EndIf
    Case $Forward_btn
    ConsoleWrite("Vorwärtsspulen" & @CRLF)
    Case $Reward_btn
    ConsoleWrite("Rückwärtsspulen" & @CRLF)

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

    Case $options_btn
    GUISetState(@SW_SHOW, $Options_GUI)
    GUISetState(@SW_DISABLE, $GUI)
    EndSwitch
    Case $Options_GUI
    Switch $nMsg[0] ;für das Optionsfnester
    Case $GUI_EVENT_CLOSE, $Close_btn
    GUISetState(@SW_ENABLE, $GUI)
    GUISetState(@SW_HIDE, $Options_GUI)
    Case $Copy_rights_btn
    MsgBox(49, "Kopier - Rechte", "Dieser player wurde erstellt von Silver_Shadow97™.Ich verbiete jegliche verbreitungs unter 'anderen namen' und jegliche vermarktung.Dieser Player ist eine Art Free Ware noch im Entwicklungs Status. ver: [Alpha 0.5]", 10, $Options_GUI)
    Case $contact_btn
    MsgBox(0, "Kontakt", "Ihr könnt mich über meiner E-mail : [email='www.Silver_Shadow97@web.de'][/email] erreichen oder über meinem Youtubechannel: http://www.youtube.com/user/Kiyubi97?feature=mhee . Ich stehe gern für fragen oder Bug berichte zur verfügung.2012® Silver_Shadow97™", 15,$Options_GUI)
    EndSwitch
    EndSwitch
    WEnd

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

    Func ShowSeek()
    $sLen = _SoundLength($h_Sound,1)
    $sLen = StringReplace($sLen,"00:0","")
    $sLen = StringReplace($sLen,"00","")
    $iLen =StringLen($sLen)
    $pos_sec = _SoundPos($h_Sound, 2) * 1000
    $set = $pos_sec / $max_sec * 100
    GUICtrlSetData($Progress1, $set)
    $sPos = _SoundPos($h_Sound,1)
    $sPos = StringRight($sPos,$iLen)
    GuiCtrlSetData($idLblPosition,"Pos: " & $sPos & "/" & $sLen)
    EndFunc ;==>ShowSeek

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

    Func GetVol()
    SoundSetWaveVolume(GUICtrlRead($Slider1))
    EndFunc ;==>GetVol

    [/autoit]

    Ein Vor- bzw Zurückspulen über Buttons geht imho nicht, da der Button nur ein Ereignis abfeuert wenn er losgelassen wird so dass man für jeden zu spulenden Zeitabschnitt einmal klicken müsstest, deshalb habe ich es bei mir über einen Slider gelöst, mit dem man genau die Stelle positionieren kann,

    mfg autoBert

  • Wie mache ich des damit ich bei meinem musik Player vor und zurückspulen kann? und dazu noch mir anzeigt bei welcher zeit der abgespielte song ist?

    • autoBert
    • 6. Mai 2012 um 12:58

    Hallo Kiyubi97,

    schau mal in meinen [Beispiel] NeMP3-P (MP3-Player) Version 0.8.4.7 rein. Vielleicht kannst du dir ja dort etwas abschauen,

    mfg autoBert

  • Bug mit bild als hintergrund der GUI alle tasten sind weg wenn man das Programm startet

    • autoBert
    • 6. Mai 2012 um 12:26

    Hallo Kiyubi97,

    hier ein Beispiel für den Umgang mit 2 GUI's:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include<WindowsConstants.au3>

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

    Global $idGui1, $idGui2=-99, $idMsgBox, $idZurueck, $idbtnExit2
    _CreateGui2() ;entweder hier oder erst wenn benötigt ($idbtmToGui2 Klick)

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

    $idGui1 = GUICreate('GUI 1', 400, 280, 140, 150, BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX, $WS_SIZEBOX))
    ;erzeugt eine GUI die zurückgebebene ID wird in der Variablen $idGui1 gespeichert
    ;die GUI hat BOXen für Mininmieren, Maximieren und ist in der Größe frei änderbar

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

    $idbtnToGui2 = GUICtrlCreateButton('&Aufruf GUI 2', 20, 20, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    $idbtnICQ = GUICtrlCreateButton('&ICQ', 20, 50, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "ICQ" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    $idbtnExit1 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "Afruf Gui 2" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    GUISetState(@SW_SHOW, $idGui1)

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

    While 1
    $nMsg = GUIGetMsg(1) ;extended Modus wichtig!!
    Switch $nMsg[1] ;für welches Fenster ist die Message
    Case $idGui1 ;ab hier ist Gui 1 dran
    Switch $nMsg[0] ;welche Message wurde ausgelöst
    Case $idbtnToGui2
    GUISetState(@SW_Hide, $idGui1) ;Gui 1 verstecken, damit nur Gui2 sichtbar ist und bearbeitet werden kann
    ;GUISetState(@SW_DISABLE, $idGui1) ;oder Gui 1 disablen, damit nur Gui2 bearbeitet werden kann
    ;If $idGui2 = -99 Then _CreateGui2() ;nur wenn nicht am Anfang bereits erzeugt nötig, dann auf Vorbelegung der Variable in Global achten)
    GUISetState(@SW_SHOW, $idGui2) ;Gui 2 anzeigen
    Case $idbtnICQ
    MsgBox(0,"","Jetzt würde ICQ gestartet",0,$idGui1)
    ;Run("C:\Program Files\ICQ7.0\ICQ.exe")
    Case $idbtnExit1, $GUI_EVENT_CLOSE
    _end()
    EndSwitch
    Case $idGui2 ;ab hier ist Gui 2 dran
    Switch $nMsg[0] ;welche Message wurde ausgelöst
    Case $idMsgBox
    MsgBox(0, 'Test', 'Test', 0, $idGui2)
    Case $idZurueck, $GUI_EVENT_CLOSE
    GUISetState(@SW_Show, $idGui1) ;Gui 1 wieder anzeigen
    ;GUISetState(@SW_ENABLE, $idGui1) ;oder Gui 1 wieder zur Bearbeitung zulsassen
    GUISetState(@SW_HIDE, $idGui2) ;Gui 2 verstecken
    Case $idbtnExit2
    _end()
    EndSwitch
    EndSwitch
    WEnd

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

    Func _CreateGui2()
    $idGui2 = GUICreate('GUI 2', 500, 300, 200, 50, -1, -1, $idGui1) ;wichtig ist der letzte Parameter falls beide gleichzeitig sichtbar sein sollen
    ;erzeugt eine GUI als Child von Gui1, die zurückgebebene ID wird in der Variablen $idGui2 gespeichert

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

    $idMsgBox = GUICtrlCreateButton('&MsgBox', 20, 20, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "MsgBox" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    $idZurueck = GUICtrlCreateButton('&Zurück zu GUI 1', 20, 50, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "zurück" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand

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

    $idbtnExit2 = GUICtrlCreateButton('be&enden', 20, 80, 100, 21)
    GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKLEFT + $GUI_DOCKTOP)
    ;verankert den Button "beenden" links und oben und fixiert die Größe
    ;beim Resizen bleibt es dadurch auf seiner Position am rechten Rand
    EndFunc ;==>_CreateGui2

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

    Func _end()
    GUIDelete($idGui2)
    GUIDelete($idGui1)
    Exit
    EndFunc ;==>_end

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

    mfg autoBert

  • Progressbar Problem

    • autoBert
    • 6. Mai 2012 um 12:13

    Hallo Mr. Script,

    herzlich wollkommen im Forum. Das ganze kannst du über AdLibRegister lösen:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Test", 402, 173, 193, 125)
    $Group1 = GUICtrlCreateGroup("", 8, 8, 385, 153)
    $Progress1 = GUICtrlCreateProgress(24, 112, 353, 33) ;<---Soll bei Programm Start anfangen sich zu füllen
    $Label1 = GUICtrlCreateLabel("Überschrift", 120, 32, 170, 41)
    GUICtrlSetFont(-1, 24, 800, 4, "MS Sans Serif")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    AdlibRegister("_incProgress") ;Hichzählen einschalten
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd

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

    Func _incProgress()
    Static $i
    $i += 1
    GUICtrlSetData($Progress1,$i)
    if $i = 100 then
    AdlibUnRegister("_incProgress") ;Hochzählen wieder abschalten
    ;hier kommt die Funktion rein die bei 100% ausgeführt werden soll
    MsgBox(0,"","") ;kann gelöscht werden
    EndIf
    EndFunc

    [/autoit]

    Du solltest dir aber auch die Funktionen Progress... in der Hilfeanschauen,

    mfg autoBert

  • Anzeige erweitern

    • autoBert
    • 26. April 2012 um 15:01

    Ha336 Fusel232,

    warum ist dein Thema im falschen Forum? Dieses Unterforim ist dafür da um Fehler in der dt. Hilfe zu melden. @Mod/Admin: bitte verschieben, besser löschen.

    Jetzt fragst du dich sicher warum dein Thema gellöscht werden soll?

    • Da aus den bisherigen Beiträgen hervorgeht, dass du nicht der Autor bist und wie du selbst schreibst, dieser "von sich sehr überzeugt" ist hat er als Urheber dieses Skriptes sicher etwas dagegen, dass andere es verbessern.
    • Ausserdem ist es ein Skript um bei IT-Prüfungen zu cheaten und es gibt schon genügend Luschen im IT-Bereich, wir sollten uns also vor weiteren schützen

    mfg autoBert

  • _FTP_ProgressUpload in GUI anzeigen

    • autoBert
    • 26. April 2012 um 13:51
    Zitat von drop

    Leider habe ich weder in der Autoithilfe noch im Forum etwas passendes gefunden und hoffe deshalb darauf, dass irgendjemand in diesem Forum diese Funktion versteht.

    anhand dessen solltest du es lösen können:

    Zitat

    Bemerkungen

    Information über $FunctionToCall:
    Parameter: $Percentage - Fortschritt in Prozent
    Rückgabewerte: Download fortsetzen - 1
    Download abbrechen - 0 oder negativ
    Diese Werte werden ebenfalls von _FTP_ProgressUpload() zurückgegeben,
    so kann man auf verschiedene Ereignisse reagieren, wie z.B. einen Abbruch vom Benutzer, Schließen der Anwendung oder ein TimeOut von irgendwas.
    Beispiele:
    Func _UpdateProgress($Percentage)
    ProgressSet($Percentage,$Percentage &"%")
    If _IsPressed("77") Then Return 0 ; Abbruch mit F8
    Return 1 ; Upload fortsetzen
    Endfunc

    Func _UpdateProgress($Percentage)
    GUICtrlSetData($ProgressBarCtrl,$Percentage)
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Return -1 ; _FTP_UploadProgress Bricht mit -1 ab, so kann man die Anwendung hinterher schließen
    Case $Btn_Cancel
    Return 0 ; Einfach abbrechen, ohne speziellen Rückgabewert
    EndSwitch
    Return 1 ; Ansonsten Upload fortsetzen
    Endfunc
    Quelle: dt. Hilfe Deutsch

    Alles anzeigen

    wenn du mit der Forensuche nichts gefunden hast lässt dies eigentlich nur den Schluss zu dass du der 1. bist der es nicht anhand der Hilfe lösen konnte. Ich kann dich breuhigen, dem ist nicht so, siehe https://autoit.de/index.php?page…4838#post244838 diesem Skript braucht man nur noch deine GUI verpassen und in der Func _UpdateProgress zwei Zeilen mit GuiCtrlSetData einfügen und 2 Zeilen (Progress...) löschen, das ganze sieht dann so aus:

    nur öffnen wenn du es nicht selbst schaffst
    [autoit]

    #AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <FTPEx.au3>
    #include <Misc.au3>

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

    Opt('MustDeclareVars', 1)

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

    _example1()
    _example2()

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

    #cs
    Beispiel mit externem Progressfenster zur Demostration der Fortschrittsanzeige mit einer Benutzerfunktion
    #ce
    Func _example1()
    #EndRegion ### END Koda GUI section ###
    #Region ### START Koda GUI section ### Form=
    GUICreate ("_FTP_ProgressUpload",620,55,-1,-1,BitOr($WS_SYSMENU,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS))
    Global $progressbar=GUICtrlCreateProgress (32,16,489,25)
    Global $prozent=GUICtrlCreateLabel ("0",544,16,25,24)
    Global $prozentzeichen=GUICtrlCreateLabel ("%",570,16,25,24)
    GUICtrlSetFont (-1,12,800,0,"MS Sana Serif")
    GUISetState (@SW_SHOW)
    Local $s_ServerName = 'autobert.bplaced.net' ;dieser Server existiert nicht
    Local $s_Username = "autobert"
    Local $s_Password = "13BPBert1158"
    Local $i_Passive = 0 ;aktive Verbindung nutzen wenn bei anderen Server Probleme dann auch mit 1 für passive Verbung testen

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

    Local $s_LocalFile = @ScriptDir & "\_FTP_FilePut3.au3"
    Local $s_RemoteFile = "test.tst"
    Local $s_RemoteDir = "/FTPTestfiles/"
    Local $l_InternetSession, $l_FTPSession
    Local $errOpen, $errFTP

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

    If FileExists(@TempDir & "\tmp.tmp") Then FileDelete(@TempDir & "\tmp.tmp") ;Nur um sicher zustellen dass das File nicht existiert

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

    $l_InternetSession = _FTP_Open('AuoItZilla') ;Öffnet eine FTP Sitzung
    $errOpen = @error
    If Not @error Then
    $l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
    $errFTP = @error
    If Not @error Then
    _FTP_DirSetCurrent($l_FTPSession,$s_RemoteDir)
    ConsoleWrite(_FTP_DirGetCurrent($l_FTPSession) & @CRLF)
    _FTP_ProgressUpload($l_FTPSession, $s_LocalFile, $s_RemoteFile,"_UpdateProgress")
    If @error Then ConsoleWrite("Fehler bei _FTP_ProgressUpload: " & @error & @CRLF)
    Else
    MsgBox(0, "Connect", "fehlgeschalagen")
    ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
    EndIf
    Else
    MsgBox(0, "Open", "fehlgeschalagen")
    ConsoleWrite("Open " & " " & $errOpen & @CRLF)
    EndIf
    _FTP_Close($l_InternetSession)
    EndFunc ;==>_example1

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

    Func _UpdateProgress($i_Percent)
    GUICtrlSetData($progressbar, $i_Percent)
    GUICtrlSetData($prozent, $i_Percent)
    If _IsPressed("77") Then Return 0 ; Abbruch bei F8
    Return 1 ; bei 1 Fortsetzten
    EndFunc ;==>_UpdateProgress

    [/autoit]

    die Anmeldedaten musst du natürlich noch auf dich anpassen,

    mfg autoBert

  • Array-Var Fehler

    • autoBert
    • 26. April 2012 um 13:43

    Hallo NetCode,

    mach einfach eine Fehlerbehandlung in deine func:

    Spoiler anzeigen
    [autoit]

    Func BefehlePruefen($oBefehl)
    Local $sStringSplit
    Local $Para1, $Para2, $Para3

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

    $sStringSplit = StringSplit($oBefehl, ";")
    If Not @error Then
    $Para1 = StringLen($sStringSplit[1])
    if sStringSplit[0] > 1 Then $Para2 = StringLen($sStringSplit[2])
    if sStringSplit[0] > 1 Then $Para3 = StringLen($sStringSplit[3])
    EndIf
    If $Para1 >= 1 And $Para2 >= 1 And $Para3 >= 1 Then
    If $sStringSplit[1] == "/start" Then
    Run($Pfad & $sStringSplit[2] & "\" & $sStringSplit[3])
    If ProcessExists($sStringSplit[3]) Then
    _LogWrite("Form :" & $BackAddress & " Program : " & $sStringSplit[3] & " Gestartet !", 2)
    ElseIf Not ProcessExists($sStringSplit[3]) Then
    _LogWrite("Form :" & $BackAddress & " Program : " & $sStringSplit[3] & " konnte nicht Gestartet werden !", 1)
    Else
    _LogWrite("Form :" & $BackAddress & " Program : " & $sStringSplit[3] & " Prüfen sie den Pfad des Programmes !", 3)
    EndIf
    EndIf
    EndIf

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

    EndFunc ;==>BefehlePruefen

    [/autoit]

    mfg autoBert

  • Run Fehler

    • autoBert
    • 26. April 2012 um 02:20

    also unter Win XP läuft das skript, vielleicht benötigt ja Win7 den kompletten Pfad zur EXE, da run nicht automatisch im Skriptverzeichnis gestartet wird,

    mfg autoBert

  • IniReadSection mit mehnren Feldern

    • autoBert
    • 24. April 2012 um 12:16
    Zitat von mcbaldrian

    Leider ist das so fest vorgegeben.

    [KEY1]
    keyname=123
    keytext=2
    keytext=3
    Keykey=25

    hat jemand ne Idee wie ich das sonst noch machen könnte.grussBaldrian

    Dann sind die Vorgaben nicht passend, ein Schlüssel kann immer nur einen Wert haben.

    mfg autoBert

  • SplashImage oder irgendwas für Transparente Bilder

    • autoBert
    • 23. April 2012 um 22:26

    Schau dir aucj einmal https://autoit.de/index.php?page=Thread&amp;threadID=30900 an,

    mfg autoBert

  • Growl Eigenes Messenger Basteln.

    • autoBert
    • 22. April 2012 um 23:59

    Schön, dann ist dein Problem ja gelöst. Schön wäre es auch wenn du das Thema auf gelöst setzt,

    danke autoBert

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™