Beiträge von stayawayknight

  • Filecopy () abbrechen

    habe dasselbe Problem bei meinem RoyalLoader - nur das sich während des Downloadvorgangs nichts drücken lässt.
    Hab auch keine Lösungsidee dazu...
    Könnte mir aber für dein Problem vorstellen, die einzlenen Kopiervorgänge mit größerem Abstand aufeinanderabfolgen zu lassen

  • BeeperGui

    Für den Anfang nicht schlecht ;)
    Bau doch ein Klavier draus, schau im Internet welche Frequenz die tasten haben und bastel mit den entsprechenden Bildern doch daraus ein "Destopklavier"!

  • Royalloader V2.1

    Danke für euer Feedback! Ich werde versuchen die Fehler und Bugs zu beheben.
    Die Datei kann sich leider nicht selber mit einem einfach Link herunterladen, da die Datei auf einem ftp-Account liegt.
    Um die Datei runterzuladen, bräuchtet ihr das Passwort und den Benutzerrnamen des FTP-Accounts, wenn man den in die URL einbaut klappt es - leider kann ich euch das Passwort und so nicht geben.

    Ich verstehe auch nicht, wieso man das Fenster während des Downloads nicht schließen kann, auch sonstige Buttons kann man nicht betätigen.
    Wenn man das Fenster verschiebt, dann verschwindet in der Regel bei GDI+ das gezeichnete, ich lasse das dann nachzeichnen, was das Flackern zur Folge hat.
    Mal sehen was ich da tun kann (Buffer vielleicht).

    Zum AboutFenster: Ich verwende hier ein Splash, bei dem der Text seltsamerweise manchmal erscheint, manchmal aber auch nicht ?(

    Ich weiß das beim Minimieren die obere Hälfte fehlt, die erscheint aber nach spätestens 60 Sekunden wieder, oder dann wenn du das Fenster bewegst.
    Die Buttons sind leider verpixelt, das kommt dadurch das ich die normalen Buttons (die beim Hover verwendet werden) mit IrfanView in Graustufen hab zeichnen lassen. Neue Version kommt bald raus, mit weiteren gefixten Bugs.

    Danke euch für das ausführliche Feedback!


    Neue Version, siehe #Post1
    Vieles behoben und verbessert!

  • [Hilfe] Silkroad Taxi Tool

    Ich glaube es wär für alle das Beste, (auch für die Mods die hier entscheiden sollen), wenn der Themenstarter sein Vorhaben nochmal genau erklären kann (auch den Sinn und Grund des Scriptes), da ich ehrlich gesagt von dem oben geschilderten Grund kein Wort verstanden hab, irgendwie ist das ein total seltsamer Satz.

    Glaub damit fängt man nicht so viel an:

    Zitat

    das ist ein Taxi tool sollte das werden d.h du gibst sein name ein den du z.b lvlst und dann die zeit wie lange er drinne bleibt drückst auf start und dann läuft die zeit einfach ab

  • Computer Schutz Programm

    achso ok ;)
    Kannst du mir mal bei Gelegenheit erklären wie du das machst mit der Serialabfrage? Ich vermute ja das du da ne Datenbank online hast in der die stehen...
    Nur wie du zu der verbindest würde ich gerne wissen, da ich das bei meinen nie hinbekomm xD

  • Inputfeld mit SetLimit - automatisch ins nächste Feld springen

    So vielleicht?

    Spoiler anzeigen
    [autoit]

    $NewBox3 = GUICtrlCreateInput("", 350, 63, 20, 21)
    GUICtrlSetLimit(-1, 2) ; Um die Eingabe auf 2 Zeichen zu begrenzen
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlSetBkColor(-1, 0xFFFBF0)
    $NewBox4 = GUICtrlCreateInput("", 375, 63, 20, 21)
    AdlibRegister("check", 500)

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

    While 1

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

    WEnd

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

    Func check()
    If StringLen(GuiCtrlRead($Newbox3)) = 2 Then
    ControlClick("Fenstertitel", "", $NewBox4)
    EndIf
    EndFunc

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

  • Royalloader V2.1

    So, ich veröffentliche hier mein neustes Script, dass ich in Zusammenarbeit mit zOioN geschrieben habe:

    Es handelt sich um einen sehr praktischen Download, mit ähnlichen Funktionen wie "JDownloader".
    Er kann z.B. Herunterladen, Entpacken, Öffnen und so weiter.
    Außerdem wird ein Protokoll mitgeschrieben, indem aufgelistet ist was passiert und wo der Fehler liegt, falls einer auftritt.
    In einem "Eventsystem" können "Events" zu einer Liste hinzugefügt werden, die diese Events der Reihe nach abarbeitet.
    Außerdem gibt es einen Afk-Modus, der verhindert das das System automatisch herunterfährt, da keine Benutzereingaben mehr kommen.

    Features:
    -Eventsystem
    -Leichte Bedienung
    -Downloadinformationen
    -GDIPlus Ladebalken (Download und Gesamtdauer)
    -Downloadzeitberechnung
    -Überprüfung, ob Internetverbindung besteht
    -Beepen, wenn Event abgeschlossen
    -Afk-Modus
    -Einstellungsmenü


    Events:
    -Download
    -Öffnen
    -Warten
    -Entpacken
    -Protokoll speichern
    -Protokoll drucken
    -Herunterfahren
    -Standby
    -Neustart
    -Abmelden


    Dank
    Danken möchte ich hier "Bugfix", von dem ich die Entpackfunktion für zip-Files habe.
    Auch Dank an alle autoit.de Mitglieder, die mir bei Fragen im Forum sowie der Shoutbox geholfen haben.
    Aber vor allem "zOioN", der mir die Grafiken gemacht hat und geholfen hat, das Script weiterzuentwickeln und zu verbessern.
    Dem Tester "RavensGate", der schon einige Bugs ausfindig gemacht hat.
    Und "Fabian" und "Ineluku", dafür, dass sie Bugs ausfindig gemacht und gemeldet haben.


    To-Do
    YoutubeDownloadFunktion
    Neue Events


    Script
    War leider zu groß für hier, daher hier der Download:

    Versionen:
    -V1.1 (alt, nicht mehr zum Download verfügbar)
    -V1.2 (alt, nicht mehr zum Download verfügbar)
    -V1.3 (alt, nicht mehr zum Download verfügbar)
    -V2.0 (alt, nicht mehr zum Download verfügbar)
    -V2.1 (neu. zum Download verfügbar)###Neue Version!###
    Download V2.1

    gerändert von V1.1 auf V1.2 und auf V1.3 und V2.0 und V2.1 hat sich:

    Spoiler anzeigen


    -größeres Protokollauszugsfenster
    -Tip bei "Stop" geändert
    -Nach dem minimieren bleibt Grafik erhalten
    -Kein Fehler mehr bei DeleteFunktion
    -InputBox bei Download geändert
    -Bei About kein Spash sondern MsgBox
    -Beep bei EventlistEnde eingefügt
    -beim Downloadzielordner: Standart ist @ScriptDir, als angezeigtes Verzeichnis wird das zuletzt gewählte Ziel genommen
    -Soundfunktion beim Ende eines Events hinzugefügt
    -Fehlerrückgabe funktioniert nun beim Downloadzielpfad korrekt
    -Abfrage falls Datei bereits existiert und Frage an den Benutzern bzl. ersetzen
    -Default bei InputBox gesetzt
    -keine Endung mehr bei InputBox "Dateiname" mehr benöigt
    -Downloadziel Pfadeingabe Benutzerfreundlicher gemacht (FileSaveDialog statt FileSelectFolder und InputBox) mit Default
    -Columbreite geändert
    -Einstellungsmenü hinzugefügt
    -Afk-Modus ergänzt
    -Download Funktion korrigiert (von "Fabian")


    Code:

    Code
    [autoit]


    #AutoIt3Wrapper_Icon=\pic\star.ico
    #AutoIt3Wrapper_Outfile=Royalloader.exe
    #AutoIt3Wrapper_UseUpx=n
    #AutoIt3Wrapper_Res_Description=Royalloader
    #AutoIt3Wrapper_Res_Fileversion=1.2.0.0
    #AutoIt3Wrapper_Res_LegalCopyright=stayawayknight

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

    ; Das oben sind Befehle falls man ne Exe draus macht

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

    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <GDIPlus.au3>
    #include <IE.au3>
    #include <WinApi.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <GuiImageList.au3>
    #include <EditConstants.au3>
    #include <File.au3>
    #include <Array.au3>
    #include <Inet.au3>
    #include <GuiComboBoxEx.au3>
    #include 'data/GUICtrlOnHover.au3'
    #include <GUIListBox.au3>
    #include <Misc.au3>
    #include <Sound.au3>
    #include <GUISlider.au3>

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

    ;Royalloader
    ;Script by stayawaynight
    ;Grafiken by zOioN
    ;Betatest by RavensGate und staywayknight
    ;für http://www.autoit.de // [email='stayawayknight@autoit.de'][/email], [email='zoion@autoit.de'][/email], [email='RavensGate@autoit.de'][/email]
    ;für http://www.nowpix.square7.ch
    ;Bugs und Verbesserungsvorschläge gemeldet von "Fabian" ([email='Fabian@autoit.de'][/email])

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

    ;###To Do Start
    ;Events hinzugefügt: Download, YoutubeDownload*, Öffnen, Warten, Entpacken, Heurnterfahren, Standby, Neustarten, Abmelden, Protokoll speichern, Protokoll drucken
    ;Funktionen testen
    ;*Nicht gemacht/nicht fertig
    ;Afk-Mausbewegung simulieren, damit nicht "autobeenden"
    ;###To Do Ende

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

    ;###ChangeLog Start
    ;größeres Protokollauszugsfenster
    ;Tip bei "Stop" geändert
    ;Nach dem minimieren bleibt Grafik erhalten
    ;Kein Fehler mehr bei DeleteFunktion
    ;InputBox bei Download geändert
    ;Bei About kein Spash sondern MsgBox
    ;Beep bei EventlistEnde eingefügt
    ;beim Downloadzielordner: Standart ist @ScriptDir, als angezeigtes Verzeichnis wird das zuletzt gewählte Ziel genommen
    ;Soundfunktion beim Ende eines Events hinzugefügt
    ;Fehlerrückgabe funktioniert nun beim Downloadzielpfad korrekt
    ;Abfrage falls Datei bereits existiert und Frage an den Benutzern bzl. ersetzen
    ;Default bei InputBox gesetzt
    ;keine Endung mehr bei InputBox "Dateiname" mehr benöigt
    ;DOwnloadziel Pfadeingabe Benutzerfreundlicher gemacht (FileSaveDialog statt FileSelectFolder und InputBox) mit Default
    ;Columbreite geändert
    ;Einstellungsmenü hinzugefügt
    ;Afk-Modus ergänzt
    ;Download Funktion korrigiert ([email='Fabian@autoit.de'][/email])
    ;###Changelog Ende

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

    ;###Variablen und Konstanten Start
    Global $CONTINUE = 0
    $title = "Royalloader - by stayawayknight und zoion (http://www.autoit.de)"
    $titleconfig = "Royalloader - Einstellungsmenü"
    $guiwidth = 625
    $guiheight = 416
    $guix = 363
    $guiy = 134
    $picpath = @ScriptDir & "\pic\"
    $inipath = @ScriptDir & "\data\todo.ini"
    $dllpath1 = @ScriptDir & "\data\icon.dll"
    $dllpath2 = @ScriptDir & "\data\inetcpl.cpl"
    $protocolpath = @ScriptDir & "\protocol\protocol.ini"
    $configpath = @ScriptDir & "\data\config.ini"
    $soundpath = @ScriptDir & "\sound\"
    $balkenlen = 358
    $LOADSTATE = 0
    $FULLSTATE = 0
    $brushdownloadcolor = IniRead($configpath, "config", "downloadcolor", "")
    $brushprogresscolor = IniRead($configpath, "config", "progresscolor", "")
    $LASTPATH = @HomeDrive
    $configgui = 0
    $ChooseDownloadColor = 0
    $ChooseProgressColor = 0
    $ChooseFrequenz = 0
    $done = 0
    $close = 0
    $nextdownloadcolor = IniRead($configpath, "config", "downloadcolor", "")
    $nextprogresscolor = IniRead($configpath, "config", "progresscolor", "")
    $AfkMode = 0
    ;###Variablen und Konstanten Ende

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

    ;###Settings Start
    Opt("TrayAutoPause", 0)
    Opt("TraymenuMode", 1)
    Opt("MouseCoordMode", 0)
    TraySetIcon($picpath & "star.ico")
    ;###Settings Ende

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

    ;###Check for Inet Start
    checkinet()
    ;###Check for Inet Ende

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

    ;###Gui Start
    $main = GUICreate($title, $guiwidth, $guiheight, $guix, $guiy)
    GUISetBkColor(0x000000)
    GUISetState(@SW_SHOW)
    GUISetIcon($picpath & "star.ico")
    Opt("TrayOnEventMode", 1)
    Opt("GuiOnEventMode", 1)
    Opt("GuiCloseOnEsc", 1)

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

    GUISetOnEvent($GUI_EVENT_CLOSE, "ende", WinGetHandle($title))
    $IconUp = GUICtrlCreateIcon($picpath & "up.ico", "", 235, 290, 30, 30)
    GUICtrlSetOnEvent(-1, "up")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    GUICtrlSetTip(-1, "Hoch")
    $IconDown = GUICtrlCreateIcon($picpath & "down.ico", "", 235, 320, 30, 30)
    GUICtrlSetOnEvent(-1, "down")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    GUICtrlSetTip(-1, "Runter")
    $IconAdd = GUICtrlCreateIcon($picpath & "add.ico", "", 225, 230, 50, 50)
    GUICtrlSetOnEvent(-1, "add")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    GUICtrlSetTip(-1, "Event aus Box links hinzufügen")
    $IconDelete = GUICtrlCreateIcon($picpath & "delete.ico", "", 225, 360, 50, 50)
    GUICtrlSetOnEvent(-1, "delete")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    GUICtrlSetTip(-1, "Event aus Eventliste Löschen")
    $IconStart = GUICtrlCreateIcon($picpath & "go.ico", "", 170, 230, 50, 50)
    GUICtrlSetOnEvent(-1, "startall")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    GUICtrlSetTip(-1, "Eventliste ausführen")
    $IconStop = GUICtrlCreateIcon($picpath & "stop.ico", "", 170, 295, 50, 50)
    GUICtrlSetOnEvent(-1, "stop")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    GUICtrlSetTip(-1, "Nächstes Event abbrechen")
    $IconConfig = GUICtrlCreateIcon($picpath & "config.ico", "", 170, 360, 50, 50)
    GUICtrlSetOnEvent(-1, "config")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    GUICtrlSetTip(-1, "Einstellungen")
    ;###Gui Ende

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

    ;###GDIPlus Start
    _GDIPlus_Startup()
    $graphics = _GDIPlus_GraphicsCreateFromHWND($main)
    $bk = _GDIPlus_ImageLoadFromFile($picpath & "bk.jpg")
    _GDIPlus_GraphicsDrawImageRect($graphics, $bk, 0, 0, $guiwidth, $guiheight)
    Global $brushdownload = _GDIPlus_BrushCreateSolid($brushdownloadcolor)
    Global $brushprogress = _GDIPlus_BrushCreateSolid($brushprogresscolor)
    Global $brushdelete = _GDIPlus_BrushCreateSolid(0xFF7C7C7C)
    Global $brushdelete2 = _GDIPlus_BrushCreateSolid(0xFF7C7C7C)
    GUIRegisterMsg($WM_MOVE, "refreshall")
    GUIRegisterMsg($WM_ACTIVATE, "refreshall")
    AdlibRegister("refreshall", 30000)
    ;###GDIPlus Ende

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

    ;###Controls Start
    $EventCombo = GUICtrlCreateCombo("Events:", 0, 235, 127, 500)
    GUICtrlSetData($EventCombo, "Download|YoutubeDownload|Öffnen|Entpacken|Warten|Herunterfahren|Standby|Neustart|Abmelden|Protokoll-speichern|Protokoll-drucken")
    GUICtrlSetBkColor($EventCombo, 0x000000)
    GUICtrlSetColor($EventCombo, 0xFFFFFF)
    $infolist = GUICtrlCreateList("Downloadinformationen:", 0, 260, 127, 500, BitOR($WS_BORDER, $WS_VSCROLL))
    GUICtrlSetBkColor($infolist, 0x000000)
    GUICtrlSetColor($infolist, 0xFFFFFF)
    $eventlist = GUICtrlCreateListView("", 282, 235, 342, 182, $WS_BORDER, $LVS_EX_CHECKBOXES)
    GUICtrlSetBkColor($eventlist, 0x000000)
    GUICtrlSetColor($eventlist, 0xFFFFFF)
    $imagelist = _GUIImageList_Create(16, 16, 5, 3)
    _GUIImageList_AddIcon($imagelist, $dllpath1, 17) ;Download 0
    _GUIImageList_AddIcon($imagelist, $dllpath2, 7) ;Youtube Download 1
    _GUIImageList_AddIcon($imagelist, $dllpath1, 261) ;Öffnen 2
    _GUIImageList_AddIcon($imagelist, $dllpath1, 42) ;Entpacken 3
    _GUIImageList_AddIcon($imagelist, $dllpath1, 239) ;Warten 4
    _GUIImageList_AddIcon($imagelist, $dllpath1, 215) ;Herunterfahren 5
    _GUIImageList_AddIcon($imagelist, $dllpath1, 217) ;Standby 6
    _GUIImageList_AddIcon($imagelist, $dllpath1, 176) ;Neustart 7
    _GUIImageList_AddIcon($imagelist, $dllpath1, 211) ;Abmelden 8
    _GUIImageList_AddIcon($imagelist, $dllpath1, 132) ;Protokoll speichern 9
    _GUIImageList_AddIcon($imagelist, $dllpath1, 225) ;Protokoll drucken 10
    _GUIImageList_AddIcon($imagelist, $dllpath1, 144) ;Done 11
    _GUIImageList_AddIcon($imagelist, $dllpath1, 109) ;Failed 12
    _GUIImageList_AddIcon($imagelist, $dllpath1, 137) ;is doing 13

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

    _GUICtrlListView_SetImageList($eventlist, $imagelist, 1)
    _GUICtrlListView_AddColumn($eventlist, "Sound? / Nr.", 80)
    _GUICtrlListView_AddColumn($eventlist, "Event", 260)

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

    GUICtrlSetState($eventlist, $GUI_ENABLE)
    GUICtrlSetState($EventCombo, $GUI_ENABLE)
    GUICtrlSetState($IconUp, $GUI_ENABLE)
    GUICtrlSetState($IconDown, $GUI_ENABLE)
    GUICtrlSetState($IconAdd, $GUI_ENABLE)
    GUICtrlSetState($IconDelete, $GUI_ENABLE)
    GUICtrlSetState($IconStart, $GUI_ENABLE)
    GUICtrlSetState($IconStop, $GUI_ENABLE)
    GUICtrlSetState($IconConfig, $GUI_ENABLE)

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

    refreshdata()
    ;###Controls Ende

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

    While 1

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

    $state = WinGetState($title)

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

    If BitAND($state, 16) Then
    Do
    $state = WinGetState($title)
    Sleep(100)
    Until BitAND($state, 16)
    refreshall()
    EndIf
    WEnd

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

    Func Hover($CtrlID)
    Switch $CtrlID
    Case $IconUp
    GUICtrlSetImage($IconUp, $picpath & "up1.ico")
    Case $IconDown
    GUICtrlSetImage($IconDown, $picpath & "down1.ico")
    Case $IconAdd
    GUICtrlSetImage($IconAdd, $picpath & "add1.ico")
    Case $IconDelete
    GUICtrlSetImage($IconDelete, $picpath & "delete1.ico")
    Case $IconStart
    GUICtrlSetImage($IconStart, $picpath & "go1.ico")
    Case $IconStop
    GUICtrlSetImage($IconStop, $picpath & "stop1.ico")
    Case $IconConfig
    GUICtrlSetImage($IconConfig, $picpath & "config1.ico")
    Case $close
    GUICtrlSetImage($close, $picpath & "close1.ico")
    Case $done
    GUICtrlSetImage($done, $picpath & "go1.ico")
    EndSwitch
    EndFunc ;==>Hover

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

    Func Leave($CtrlID)
    Switch $CtrlID
    Case $IconUp
    GUICtrlSetImage($IconUp, $picpath & "up.ico")
    Case $IconDown
    GUICtrlSetImage($IconDown, $picpath & "down.ico")
    Case $IconAdd
    GUICtrlSetImage($IconAdd, $picpath & "add.ico")
    Case $IconDelete
    GUICtrlSetImage($IconDelete, $picpath & "delete.ico")
    Case $IconStart
    GUICtrlSetImage($IconStart, $picpath & "go.ico")
    Case $IconStop
    GUICtrlSetImage($IconStop, $picpath & "stop.ico")
    Case $IconConfig
    GUICtrlSetImage($IconConfig, $picpath & "config.ico")
    Case $close
    GUICtrlSetImage($close, $picpath & "close.ico")
    Case $done
    GUICtrlSetImage($done, $picpath & "go.ico")
    EndSwitch
    EndFunc ;==>Leave

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

    Func startall()

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

    If FileExists($protocolpath) Then
    FileDelete($protocolpath)
    EndIf

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

    $FULLSIZE = 0
    $LOADEDSOFAR = 0
    $sizedoneold = 0

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

    For $a = 1 To _FileCountLines($inipath) - 1 ;vorbereitung für die Gesamtdauert - Bekomme gesamtgröße
    $commandx = IniRead($inipath, "ToDo", $a, "")
    $commandx = StringSplit($commandx, "|")

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

    Switch 1
    Case StringRegExp($commandx[1], "download")
    $FULLSIZE += InetGetSize($commandx[2])
    EndSwitch
    Next

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

    FileWrite($protocolpath, "_____Royalloader - by stayawayknight und zoion (http://www.autoit.de)_______" & @CRLF & "-----------------Protokoll-----------------" & @CRLF)
    FileWrite($protocolpath, "Startdatum:" & @MDAY & ". " & @MON & ". " & @YEAR & @CRLF)
    FileWrite($protocolpath, "Startzeit: " & @HOUR & ":" & @MIN & ":" & @SEC & @CRLF & @CRLF)
    For $a = 1 To _FileCountLines($inipath) - 1 ;beginne
    $command = IniRead($inipath, "ToDo", $a, "")
    $command = StringSplit($command, "|")
    $command = $command[1]

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

    GUICtrlSetData($infolist, "")

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

    If $CONTINUE = False Then
    $CONTINUE = True
    Return 1
    EndIf

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

    Switch 1
    Case StringRegExp($command, "download")
    Do
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    Sleep(100)
    MsgBox(0, "hi", "Lade Download....", 1)
    Until _GUICtrlListView_GetItemImage($infolist, $a - 1) = 0

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

    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $url = $splitted[2]
    $dest = $splitted[3]
    $sizefile = InetGetSize($url)
    $download = InetGet($url, $dest, 1, 1)
    $downloadtimer = TimerInit()
    FileWrite($protocolpath, @CRLF & @CRLF & "Download von " & $url & " nach " & $dest)
    If $dest = "" Or StringInStr($dest, "\") = 0 Or StringInStr($dest, ".") = 0 Then ;Ziel ist nur schrott
    FileWrite($protocolpath, " <= Error / ungültiges Ziel")
    EndIf

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

    FileWrite($protocolpath, @CRLF & ".....Größe: " & $sizefile & " Bytes")
    GUICtrlSetData($infolist, "Geladen: 0/" & Round(($sizefile / 1024) / 1024, 1) & " MB")
    GUICtrlSetData($infolist, "Dauer: 0/'rechne' Min")
    If $sizefile = 0 Then ;Fehler Datei im Internet hat keine Größe
    FileWrite($protocolpath, " <= Error / ungültige URL")
    EndIf
    FileWrite($protocolpath, @CRLF & ".....Download Start: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)

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

    If $sizefile = 0 Or $dest = "" Or StringInStr($dest, "\") = 0 Or StringInStr($dest, ".") = 0 Then ;fehlerrückgabe
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 12) ;Setze Fehler
    FileWrite($protocolpath, @CRLF & ".....Download Ende: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)

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

    Else
    Do
    $sizedone = InetGetInfo($download, 0)
    $LOADEDSOFAR += ($sizedone - $sizedoneold) ;erstelle die bisher geladenen Bytes
    $sizedoneold = $sizedone ;abrschift der alten bytes um differenz addieren zu könenn

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

    $percent = (100 / $sizefile) * $sizedone
    $percentduring = (100 / $FULLSIZE) * $LOADEDSOFAR
    GUICtrlSetData($infolist, "")
    GUICtrlSetData($infolist, "Downloadinformationen:")
    GUICtrlSetData($infolist, "Geladen: " & Round(($sizedone / 1024) / 1024, 1) & "/" & Round(($sizefile / 1024) / 1024, 1) & " MB")
    $timedone = Round((TimerDiff($downloadtimer) / 1000) / 60, 1)
    $timefull = Round(((100 / $percent) * ((TimerDiff($downloadtimer) / 1000) / 60)), 1)

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

    GUICtrlSetData($infolist, "Dauer: " & $timedone & "/" & $timefull & " Min")
    _setdownload($percent)
    _setduring($percentduring)
    Sleep(100)
    Until $percent >= 100
    $LOADEDSOFAR += $sizedone ;Addiere zu den LoadedSofar die komplette Größe des letzten Downloads

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

    InetClose($download)
    ToolTip("Download abgeschlossen!")
    FileWrite($protocolpath, ".....Download Ende: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    Sleep(2000)
    ToolTip("")
    ;a- 1 ist index
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    EndIf
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf

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

    Case StringRegExp($command, "youtube") ;MUSS Noch GEMACHT WERDEN
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    ;NOTHING DONE
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf

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

    Case StringRegExp($command, "offnen")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $path = $splitted[2]
    FileWrite($protocolpath, @CRLF & @CRLF & "Öffnen von " & $path)
    If FileExists($path) Then
    ShellExecute($path)
    FileWrite($protocolpath, @CRLF & "Geöffnet um: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    ToolTip("Öffnen von " & $path & " abgeschlossen!")
    Sleep(2000)
    ToolTip("")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    Else
    FileWrite($protocolpath, " <= Error / File existiert nicht")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 12)
    EndIf
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf

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

    Case StringRegExp($command, "entpacken")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $path = $splitted[2]
    $dest = $splitted[3]

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

    FileWrite($protocolpath, @CRLF & @CRLF & "Entpacken von " & $path & " nach " & $dest)

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

    _enzip($path, $dest, True, 1, True)

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

    If FileExists($path) And Not @error Then
    ToolTip("Entpacken von " & $path & " nach" & $dest & " abgeschlossen!")
    FileWrite($protocolpath, ".....Datei entpackt um: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    Sleep(2000)
    ToolTip("")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    Else
    If @error = 2 Then
    FileWrite($protocolpath, " <= Error / Datei endet nicht auf '.zip'")
    ElseIf Not FileExists($path) Then
    FileWrite($protocolpath, " <= Error / Datei nicht vorhanden")
    EndIf
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 12)
    EndIf
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf

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

    Case StringRegExp($command, "warten")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $wait = $splitted[2]
    FileWrite($protocolpath, @CRLF & @CRLF & $wait & " Millisekunden warten")

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

    If $wait <= 0 Or $wait = "" Then
    FileWrite($protocolpath, " <= Error / Kein Wert oder ungültiger Wert eingegeben")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 12)
    Else
    FileWrite($protocolpath, @CRLF & ".....Gewartet ab: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    For $z = 1 To $wait / 1000
    Sleep(1000)
    ToolTip($z * 1000 & " ms")
    Next
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    ToolTip("")
    FileWrite($protocolpath, ".....Gewartet bis: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    EndIf
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf

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

    Case StringRegExp($command, "shutdown")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    FileWrite($protocolpath, @CRLF & @CRLF & "Herunterfahren")
    FileWrite($protocolpath, @CRLF & @CRLF & ".....Herunterfahrenbefehl ausgelöst um: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf
    Shutdown(1)

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

    Case StringRegExp($command, "standby")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    FileWrite($protocolpath, @CRLF & @CRLF & "Standby-Modus")
    FileWrite($protocolpath, @CRLF & @CRLF & ".....Standbybefehl ausgelöst um: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf
    Shutdown(8)

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

    Case StringRegExp($command, "neustart")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    FileWrite($protocolpath, @CRLF & @CRLF & "Neustart")
    FileWrite($protocolpath, @CRLF & @CRLF & ".....Neustartbefehl ausgelöst um: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf
    Shutdown(2)

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

    Case StringRegExp($command, "abmelden")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    FileWrite($protocolpath, @CRLF & @CRLF & "Abmelden")
    FileWrite($protocolpath, @CRLF & @CRLF & ".....Abmeldebefehl ausgelöst um: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf
    Shutdown(0)

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

    Case StringRegExp($command, "saveprotocol")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $path = $splitted[2]
    FileWrite($protocolpath, @CRLF & @CRLF & "Abmelden")
    FileWrite($protocolpath, @CRLF & @CRLF & ".....Gespeichert nach " & $path & "\protocoll" & @HOUR & @MIN & @SEC & ".txt um : " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    FileMove($protocolpath, $path & "\protocoll" & @HOUR & @MIN & @SEC & ".txt")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf

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

    Case StringRegExp($command, "printprotocol")
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 13)
    FileWrite($protocolpath, @CRLF & @CRLF & "Protokoll drucken")
    FileWrite($protocolpath, @CRLF & @CRLF & ".....Druckbefehl ausgeführt um: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    _FilePrint($protocolpath)
    _GUICtrlListView_SetItemImage($eventlist, $a - 1, 11)
    If _GUICtrlListView_GetItemChecked($eventlist, $a - 1) = True Then
    Beep(IniRead($configpath, "config", "beepfr", ""), 5000)
    EndIf

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

    EndSwitch
    Next

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

    SplashTextOn($title, "Die Eventliste wurde abgeschlossen!" & @CRLF & "Auszug aus dem Protokoll:" & @CRLF & FileRead($protocolpath), 800, 500)
    Sleep(6000)
    SplashOff()

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

    FileWrite($protocolpath, @CRLF & @CRLF & "- Ende des Protokolls - um: " & @HOUR & ":" & @MIN & ":" & @SEC & " (" & @MDAY & ". " & @MON & ". " & @YEAR & ")" & @CRLF)
    _FileWriteToLine($protocolpath, 5, "Endzeit: " & @HOUR & ":" & @MIN & ":" & @SEC)
    EndFunc ;==>startall

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

    Func add()

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

    If FileExists($inipath) Then
    $key = IniReadSection($inipath, "ToDo")
    $nr = $key[0][0] + 1

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

    Else
    $nr = 1
    EndIf

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

    Switch GUICtrlRead($EventCombo)

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

    Case "Download" ;Danke an [email='Fabian@autoit.de'][/email] fürs verbessern
    $url = InputBox("URL", "Gib die zu herunterladene URL-Adresse ein! Falls ein Passwort benötigt wird, benutze diese Form: 'http://nutzer:passwort@http://www.eine-seite.de/pfad/seite.html'")
    If Not @error Then
    Dim $urldrive, $urldir, $urlfilename, $urlendung
    $pathsplit = _PathSplit($url, $urldrive, $urldir, $urlfilename, $urlendung)
    $urlendung = StringLeft($urlendung,4) ;Nur 4 Zeichen der Endung nehmen z.B. .zip
    $dest = FileSaveDialog("Gib das Speicherziel ein!", $LASTPATH, "(*" & $urlendung & ")", 0, $urlfilename)

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

    If Not @error = True Then
    IniWrite($inipath, "ToDo", $nr, "download|" & $url & "|" & $dest)
    $dest = $dest & $urlendung ;Neu hier rein verschoben
    EndIf
    EndIf

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

    Case "YoutubeDownload"

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

    MsgBox(16, "Fehler", "Dieses Element wurde noch nicht inplentimiert!")
    #cs
    $url = InputBox("URL", "Gib die zu herunterladene URL-Adresse ein!")
    If Not @error Then

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

    $dest = FileSelectFolder("Gib den Speicherort an!", @HomeDrive)
    $name = InputBox("Name", "Gib den Wunschnamen der fertigen Datei ein!Falls bereits vorhanden, wird die alte Datei überschrieben! Keine Endung angeben!")
    If Not @error Then
    IniWrite($inipath, "ToDo", $nr, "youtube|" & $url & "|" & $dest & "|" & $name)
    EndIf

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

    EndIf
    #ce

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

    Case "Öffnen"
    $path = InputBox("Pfad", "Gib den Weg zum Pfad der zu öffnenden Datei an!")
    If Not @error Then
    IniWrite($inipath, "ToDo", $nr, "offnen|" & $path)
    EndIf

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

    Case "Entpacken"
    $path = InputBox("Pfad", "Gib den Weg zum Pfad der zu entpackenden Datei an!")
    If Not @error Then
    $dest = FileSelectFolder("Gib den Speicherort an!", $LASTPATH)
    IniWrite($inipath, "ToDo", $nr, "entpacken|" & $path & "|" & $dest)
    EndIf

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

    Case "Warten"
    $time = InputBox("Zeit", "Gib die Zeit (in Millisekunden) ein, die gewartet werden soll!")
    If Not @error Then
    IniWrite($inipath, "ToDo", $nr, "warten|" & $time)
    EndIf

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

    Case "Herunterfahren"
    IniWrite($inipath, "ToDo", $nr, "shutdown")

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

    Case "Standby"
    IniWrite($inipath, "ToDo", $nr, "standby")

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

    Case "Neustart"
    IniWrite($inipath, "ToDo", $nr, "neustart")

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

    Case "Abmelden"
    IniWrite($inipath, "ToDo", $nr, "abmelden")

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

    Case "Protokoll-speichern"
    $path = FileSelectFolder("Gib den Speicherort an!", $LASTPATH)
    If Not $path = "" Then
    IniWrite($inipath, "ToDo", $nr, "saveprotocol|" & $path)
    EndIf

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

    Case "Protokoll-drucken"
    IniWrite($inipath, "ToDo", $nr, "printprotocol")

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

    EndSwitch

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

    refreshdata()

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

    EndFunc ;==>add

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

    Func refreshdata()
    If FileExists($inipath) Then

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

    _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($eventlist))

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

    For $a = 1 To _FileCountLines($inipath) - 1
    $command = IniRead($inipath, "ToDo", $a, "")
    $command = StringSplit($command, "|")
    $command = $command[1]
    Switch 1
    Case StringRegExp($command, "download")
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $url = $splitted[2]
    $dest = $splitted[3]
    _GUICtrlListView_AddItem($eventlist, $a, 0)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Download von " & $url & " nach " & $dest, 1) ;letze Zahl ist das nach rechts und links, erste hoch und runter

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

    Case StringRegExp($command, "youtube")
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $url = $splitted[2]
    $dest = $splitted[3]
    $name = $splitted[4]
    _GUICtrlListView_AddItem($eventlist, $a, 1)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Youtube-Download von " & $url & " nach " & $dest & "\" & $name & ".mp4", 1)

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

    Case StringRegExp($command, "offnen")
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $path = $splitted[2]
    _GUICtrlListView_AddItem($eventlist, $a, 2)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Öffnen der Datei " & $path, 1)

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

    Case StringRegExp($command, "entpacken")
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $path = $splitted[2]
    $dest = $splitted[3]
    _GUICtrlListView_AddItem($eventlist, $a, 3)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Entpacken der Datei " & $path & " nach " & $dest, 1)

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

    Case StringRegExp($command, "warten")
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $wait = $splitted[2]
    _GUICtrlListView_AddItem($eventlist, $a, 4)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Warten(" & $wait & " Millisekunden)", 1)

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

    Case StringRegExp($command, "shutdown")
    _GUICtrlListView_AddItem($eventlist, $a, 5)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Herunterfahren", 1)

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

    Case StringRegExp($command, "standby")
    _GUICtrlListView_AddItem($eventlist, $a, 6)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Standby-Modus", 1)

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

    Case StringRegExp($command, "neustart")
    _GUICtrlListView_AddItem($eventlist, $a, 7)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Neustart", 1)

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

    Case StringRegExp($command, "abmelden")
    _GUICtrlListView_AddItem($eventlist, $a, 8)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Abmelden", 1)

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

    Case StringRegExp($command, "saveprotocol")
    $splitted = StringSplit(IniRead($inipath, "ToDo", $a, ""), "|")
    $path = $splitted[2]
    _GUICtrlListView_AddItem($eventlist, $a, 9)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Protokoll speichern nach " & $path, 1)

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

    Case StringRegExp($command, "printprotocol")
    _GUICtrlListView_AddItem($eventlist, $a, 10)
    _GUICtrlListView_AddSubItem($eventlist, $a - 1, "Protokoll drucken", 1)

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

    EndSwitch
    Next

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

    EndIf
    EndFunc ;==>refreshdata

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

    Func stop()
    $CONTINUE = False
    EndFunc ;==>stop

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

    Func delete()

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

    GUICtrlSetState($IconDelete, $GUI_DISABLE)
    If FileExists($inipath) And _GUICtrlListView_GetSelectedIndices($eventlist, True) >= 0 And (_GUICtrlListView_GetSelectedIndices($eventlist)) <> "" Then
    $item = _GUICtrlListView_GetSelectedIndices($eventlist, True) ;Gibt bei $item[1] den ItemIndex zurück (hoch und runter)
    If IsArray($item) Then
    $item = $item[1] + 1 ;Korrektur
    IniDelete($inipath, "ToDo", $item)
    $sectioncontent = IniReadSection($inipath, "ToDo")

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

    If IsArray($sectioncontent) Then ;Ini-Datei neu ordnen (da nummerierung falsch ist)
    IniDelete($inipath, "ToDo")
    For $z = 1 To $sectioncontent[0][0]
    IniWrite($inipath, "ToDo", $z, $sectioncontent[$z][1])
    Next
    Else
    FileDelete($inipath)
    EndIf

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

    _GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($eventlist))
    refreshdata()
    EndIf
    EndIf
    GUICtrlSetState($IconDelete, $GUI_ENABLE)
    EndFunc ;==>delete

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

    Func config()
    $configgui = GUICreate($titleconfig, 600, 400)
    GUISetOnEvent($GUI_EVENT_CLOSE, "endeconfig", WinGetHandle($titleconfig))
    GUISetIcon($picpath & "config1.ico")
    GUISetBkColor(0x000000)
    $Label1 = GUICtrlCreateLabel("Download-Ladebalken:", 60, 40, 159, 23)
    GUICtrlSetFont($Label1, 12, 800, 0, "Times New Roman")
    GUICtrlSetColor($Label1, 0xFFFFFF)
    GUICtrlSetBkColor($Label1, 0x000000)
    $Label2 = GUICtrlCreateLabel("Fortschritt-Ladebalken:", 60, 80, 159, 23)
    GUICtrlSetFont($Label2, 12, 800, 0, "Times New Roman")
    GUICtrlSetColor($Label2, 0xFFFFFF)
    GUICtrlSetBkColor($Label2, 0x000000)
    $Label3 = GUICtrlCreateLabel("Sound-Frequenz: 250", 60, 120, 159, 23)
    GUICtrlSetFont($Label3, 12, 800, 0, "Times New Roman")
    GUICtrlSetColor($Label3, 0xFFFFFF)
    GUICtrlSetBkColor($Label3, 0x000000)
    $Label4 = GUICtrlCreateLabel("3000", 454, 120, 159, 23)
    GUICtrlSetFont($Label4, 12, 800, 0, "Times New Roman")
    GUICtrlSetColor($Label4, 0xFFFFFF)
    GUICtrlSetBkColor($Label4, 0x000000)
    $Label5 = GUICtrlCreateLabel("Afk-Modus:", 60, 160, 75, 23)
    GUICtrlSetFont($Label5, 12, 800, 0, "Times New Roman")
    GUICtrlSetColor($Label5, 0xFFFFFF)
    GUICtrlSetBkColor($Label5, 0x000000)
    $Label6 = GUICtrlCreateLabel("Script: stayawayknight" & @CRLF & "Grafiken: zOioN" & @CRLF & "Betatester: RavensGate & stayawayknight" & @CRLF & @CRLF & "Produkt erstellt für" & @CRLF & "www.nowpix.square7.ch" & @CRLF & "und" & @CRLF & "www.autoit.de", 60, 200, 200, 200)
    GUICtrlSetFont($Label6, 12, 800, 0, "Times New Roman")
    GUICtrlSetColor($Label6, 0xFFFFFF)
    GUICtrlSetBkColor($Label6, 0x000000)
    $ChooseDownloadColor = GUICtrlCreateButton("Wählen", 232, 40, 81, 25)
    GUICtrlSetOnEvent($ChooseDownloadColor, "choosecolordownload")
    GUICtrlSetBkColor($ChooseDownloadColor, StringReplace(IniRead($configpath, "config", "downloadcolor", ""), "FF", "", 1))
    $ChooseProgressColor = GUICtrlCreateButton("Wählen", 232, 80, 81, 25)
    GUICtrlSetOnEvent($ChooseProgressColor, "choosecolorprogress")
    GUICtrlSetBkColor($ChooseProgressColor, StringReplace(IniRead($configpath, "config", "progresscolor", ""), "FF", "", 1))
    $ChooseFrequenz = GUICtrlCreateSlider(232, 120, 200, 25)
    GUICtrlSetBkColor($ChooseFrequenz, 0x000000)
    GUICtrlSetOnEvent($ChooseFrequenz, "beeper")
    GUICtrlSetLimit($ChooseFrequenz, 3000, 250)
    GUICtrlSetData($ChooseFrequenz, IniRead($configpath, "config", "beepfr", ""))
    _GUICtrlSlider_ClearTics($ChooseFrequenz)
    $AfkMode = GUICtrlCreateCheckbox("", 200, 160, 81, 25)
    GUICtrlSetTip($AfkMode, "Afk-Modus" & @CRLF & "Wird beim Start der Eventliste aktiviert und nach der Beendigung der Liste wieder ausgeschaltet." & @CRLF & "Sorgt dafür, dass keine Einstellungen (z.B. Autobeenden wennn lange Zeit nichts gemacht wird) aktiv werden." & @CRLF & "Dadurch wird alle 30 Sekunden ein Tastensignal gesendet um dies zu verhindern." & @CRLF & "Diese Funktion sollte z.B. benutzt werden, wenn der Download stattfindet, ohne das dabei jemand am Rechner sitzt.")
    GUICtrlSetBkColor($AfkMode, 0x000000)
    GUICtrlSetColor($AfkMode, 0xFFFFFF)
    If IniRead($configpath, "config", "afk", "") = "True" Then
    GUICtrlSetState($AfkMode, $GUI_CHECKED)
    EndIf
    $done = GUICtrlCreateIcon($picpath & "go.ico", "", 300, 200, 50, 50)
    GUICtrlSetOnEvent($done, "doneandsave")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    $close = GUICtrlCreateIcon($picpath & "close.ico", "", 300, 250, 50, 50)
    GUICtrlSetOnEvent($close, "endeconfig")
    _GuiCtrl_OnHoverRegister(-1, "Hover", "Leave")
    GUISetState(@SW_SHOW)
    EndFunc ;==>config

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

    Func doneandsave()
    IniWrite($configpath, "config", "downloadcolor", $nextdownloadcolor)
    IniWrite($configpath, "config", "progresscolor", $nextprogresscolor)
    $brushdownload = _GDIPlus_BrushCreateSolid($nextdownloadcolor)
    $brushprogress = _GDIPlus_BrushCreateSolid($nextprogresscolor)
    IniWrite($configpath, "config", "beepfr", GUICtrlRead($ChooseFrequenz))
    If GUICtrlRead($AfkMode) = $GUI_CHECKED Then
    IniWrite($configpath, "config", "afk", "True")
    Else
    IniWrite($configpath, "config", "afk", "False")
    EndIf
    GUIDelete($configgui)
    EndFunc ;==>doneandsave

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

    ;BitOR(_ChooseColor(1), 0xff000000))
    Func choosecolordownload()
    $choosencolor = _ChooseColor(2) ;FEHLER
    If Not @error Then
    $choosencolorsplit = StringSplit($choosencolor, "x") ;Wandle rgb in Argb
    Else
    Return
    EndIf
    If IsArray($choosencolorsplit) And Not @error Then
    $nextdownloadcolor = $choosencolorsplit[1] & "xFF" & $choosencolorsplit[2]
    EndIf
    GUICtrlSetBkColor($ChooseDownloadColor, StringReplace($nextdownloadcolor, "FF", "", 1))
    EndFunc ;==>choosecolordownload

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

    Func beeper()
    Beep(GUICtrlRead($ChooseFrequenz), 1000)
    EndFunc ;==>beeper

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

    Func choosecolorprogress()
    $choosencolor = _ChooseColor(2)
    If Not @error Then
    $choosencolorsplit = StringSplit($choosencolor, "x") ;Wandle rgb in Argb
    Else
    Return
    EndIf
    If IsArray($choosencolorsplit) And Not @error Then
    $nextprogresscolor = $choosencolorsplit[1] & "xFF" & $choosencolorsplit[2]
    EndIf
    GUICtrlSetBkColor($ChooseProgressColor, StringReplace($nextprogresscolor, "FF", "", 1)) ;rückwandeln
    EndFunc ;==>choosecolorprogress

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

    Func endeconfig()
    GUIDelete($configgui)
    EndFunc ;==>endeconfig

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

    Func up()
    _GUICtrlListView_SetItemSelected($eventlist, _GUICtrlListView_GetSelectedIndices($eventlist) - 1)
    EndFunc ;==>up

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

    Func down()
    _GUICtrlListView_SetItemSelected($eventlist, _GUICtrlListView_GetSelectedIndices($eventlist) + 1)
    EndFunc ;==>down

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

    Func _setdownload($value)
    If $value > 100 Then ;Setze Limit
    $value = 100
    ElseIf $value < 0 Then
    $value = 0
    EndIf

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

    _GDIPlus_GraphicsFillRect($graphics, 151, 117, ($balkenlen / 100) * 100, 25, $brushdelete) ;buffer
    _GDIPlus_GraphicsFillRect($graphics, 151, 117, ($balkenlen / 100) * $value, 25, $brushdownload)
    _GDIPlus_GraphicsFillRect($graphics, 530, 117, 75, 25, $brushdelete2);buffer
    _GDIPlus_GraphicsDrawString($graphics, Round($value, 2) & "%", 550, 123, "Tahoma")
    $LOADSTATE = $value
    EndFunc ;==>_setdownload

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

    Func _setduring($value)
    If $value > 100 Then ;Setze Limit
    $value = 100
    ElseIf $value < 0 Then
    $value = 0
    EndIf
    _GDIPlus_GraphicsFillRect($graphics, 151, 171, ($balkenlen / 100) * 100, 25, $brushdelete) ;buffer
    _GDIPlus_GraphicsFillRect($graphics, 151, 171, ($balkenlen / 100) * $value, 25, $brushprogress)
    _GDIPlus_GraphicsFillRect($graphics, 531, 170, 75, 25, $brushdelete2);buffer
    _GDIPlus_GraphicsDrawString($graphics, Round($value, 2) & "%", 550, 171, "Tahoma")
    $FULLSTATE = $value

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

    EndFunc ;==>_setduring

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

    Func refreshall()
    _GDIPlus_GraphicsDrawImageRect($graphics, $bk, 0, 0, $guiwidth, $guiheight)
    GUICtrlSetState($eventlist, $GUI_ENABLE)
    GUICtrlSetState($EventCombo, $GUI_ENABLE)
    GUICtrlSetState($infolist, $GUI_ENABLE)
    GUICtrlSetState($IconUp, $GUI_ENABLE)
    GUICtrlSetState($IconDown, $GUI_ENABLE)
    GUICtrlSetState($IconAdd, $GUI_ENABLE)
    GUICtrlSetState($IconDelete, $GUI_ENABLE)
    GUICtrlSetState($IconStart, $GUI_ENABLE)
    GUICtrlSetState($IconStop, $GUI_ENABLE)
    GUICtrlSetState($IconConfig, $GUI_ENABLE)
    _setdownload($LOADSTATE)
    _setduring($FULLSTATE)
    If IniRead($configpath, "config", "afk", "") = "True" Then
    Send("{!}")
    EndIf
    EndFunc ;==>refreshall

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

    Func _enzip($sPath, $s_a_ToZip, $fUnZip = True, $iIndexBase = 1, $fOverwrite = True) ;Funktion erstellt von BugFix (http://www.autoit.de) /Danke!
    Local $fh, $sNul = '', $sZIPHeader, $objShell = ObjCreate("Shell.Application"), $objZipOrdner, $err = 0
    $sPath = FileGetLongName($sPath, 1)
    If $fUnZip Then
    Local $temp, $objZip
    If Not FileExists($s_a_ToZip) Then DirCreate($s_a_ToZip)
    $temp = $objShell.Namespace($s_a_ToZip)
    $objZip = $objShell.Namespace($sPath)
    $temp.CopyHere($objZip.Items)
    Return 1
    EndIf
    If (Not $fOverwrite) And FileExists($sPath) Then Return SetError(1, 0, 0)
    If StringRight($sPath, 4) <> '.zip' Then Return SetError(2, 0, 0)
    For $i = 1 To 18
    $sNul &= Chr(0)
    Next
    $sZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & $sNul
    $fh = FileOpen($sPath, 10)
    FileWrite($fh, $sZIPHeader)
    FileClose($fh)
    $objZipOrdner = $objShell.Namespace($sPath)
    If Not IsArray($s_a_ToZip) Then
    If Not FileExists($s_a_ToZip) Then Return SetError(3, 1, 0)
    $objZipOrdner.CopyHere($s_a_ToZip)
    Sleep(1000)
    Return 1
    EndIf
    For $i = $iIndexBase To UBound($s_a_ToZip) - 1
    If Not FileExists($s_a_ToZip[$i]) Then
    $err += 1
    ContinueLoop
    EndIf
    $objZipOrdner.CopyHere($s_a_ToZip[$i])
    Sleep(1000)
    Next
    If $err Then Return SetError(3, $err, 0)
    Return 1
    EndFunc ;==>_enzip

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

    Func checkinet()
    SplashImageOn($title, $picpath & "load.jpg", 500, 400, @DesktopWidth / 3, 200)
    Sleep(3000)
    While 1
    If Ping("www.google.de") >= 5 Then
    SplashOff()

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

    ExitLoop

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

    Else
    HotKeySet("{ESC}", "ende2")
    SplashOff()
    MsgBox(16, "Keine Internetverbindung", "Es wurde keine Internetverbindung gefunden. Es wird nun alle 30 Sekunden nach einer Verbindung gesucht. Falls du beenden willst, drücke ESC.")
    Do
    Sleep(30000)

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

    Until Ping("www.google.de") >= 5 Or Ping("www.amazon.de") >= 5
    ExitLoop
    EndIf
    WEnd
    EndFunc ;==>checkinet

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

    Func ende2()
    Exit
    EndFunc ;==>ende2

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

    Func ende()
    _GDIPlus_GraphicsDispose($graphics)
    _GDIPlus_Shutdown()
    Exit
    EndFunc ;==>ende

    [/autoit]