• Huhu ich hab mal ein kleines skript geschrieben in dem man sich animes anschauen kann.

    Spoiler anzeigen
    [autoit]

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

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

    AutoIt Version: 3.3.5.1 (beta)
    Author: Zocker5656

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

    Script Function:
    -Animes Anschauen
    -Updater eingebaut

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

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

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

    ; Script Start - Add your code below here

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

    #include <GUIConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include <IE.au3>
    #include <array.au3>
    #include <WinINet.au3>

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

    $oIE = _IECreateEmbedded ()
    #NoTrayIcon
    $flag = "0"
    $auswahlfolge = 1

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

    Dim $user = '*****'
    Dim $pwd = '******'
    Dim $server = '*************'
    Dim $port = **
    Dim $Versionftpfile = '******'
    Dim $ftpverzeichnis = '******'

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

    #Region ### START Koda GUI section ### Form=c:\users\zocker5656\documents\autoit\animetix\main.kxf
    $Main = GUICreate("Animetix 1.0", 687, 523, 275, 146)
    GUISetIcon("clapperboard.ico")
    $Video = GUICtrlCreateGroup("Video", 8, 56, 665, 433)
    $GUIActiveX = GUICtrlCreateObj($oIE, 24, 72, 633, 433)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Link = GUICtrlCreateInput("", 8, 16, 409, 21)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetState(-1, $GUI_DISABLE)
    $GO = GUICtrlCreateButton("", 440, 0, 52, 52, $BS_BITMAP)
    GUICtrlSetImage(-1, "Button Play_48.bmp", 0)
    $back = GUICtrlCreateButton("", 512, 0, 52, 52, $BS_BITMAP)
    GUICtrlSetImage(-1, "Button Rewind_48.bmp", 0)
    $forward = GUICtrlCreateButton("", 584, 0, 52, 52, $BS_BITMAP)
    GUICtrlSetImage(-1, "Button Fast Forward_48.bmp", 0)
    $Datei = GUICtrlCreateMenu("&Datei")
    $open = GUICtrlCreateMenuItem("Öffnen...", $Datei)
    $MenuItem4 = GUICtrlCreateMenu("&Abspielen")
    $auswahl = GUICtrlCreateMenuItem("Folge...", $MenuItem4)
    $newLinks = GUICtrlCreateMenuItem("Neue Serien", $MenuItem4)
    $Copyright = GUICtrlCreateMenu("&Copyright")
    $Creditz = GUICtrlCreateMenuItem("Creditz..", $Copyright)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    Case $open
    $message = "Wähle eine Video-Galerie Datei aus."
    $var = FileOpenDialog($message, @ScriptDir & "\", "Video-Galerie (*.dat)", 1)
    If @error Then
    MsgBox(4096,"","Keine Datei ausgewählt")
    Else
    $Pfad = StringReplace($var, "|", @CRLF)
    $file = fileopen($Pfad,0)
    $text = FileRead($file)
    $folgen = StringSplit($text,",")
    $flag = "1"
    MsgBox(0,"Erfolgreich","Die Datei wurde Erfolgreich ausgelesen",1)
    EndIf

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

    Case $auswahl
    $auswahlfolge = InputBox("Schreibe die Folgen Nummer auf","Schreibe die Folgen Nummer auf.")
    if $auswahlfolge > $folgen[0] Then
    $auswahlfolge = $folgen[0]
    elseif $auswahlfolge < 1 then
    $auswahlfolge = 1
    EndIf

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

    $Pfad1 = $Pfad
    $Pfad1 = StringSplit($Pfad1,".")
    $Pfad1 = StringSplit($Pfad1[1],"\")
    $pfad1maxarray = $Pfad1[0]
    GUICtrlSetData($Link,$Pfad1[$pfad1maxarray] & " Folge: " & $auswahlfolge)

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

    $vlf = fileopen("Verlauf.vlf",0+1+8)
    FileWrite($vlf,$auswahlfolge & "," & @CRLF)
    $verlauf = FileRead($vlf)
    $verlauf = stringsplit($verlauf,",")
    FileClose($vlf)

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

    Case $newLinks

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

    _WinINet_Startup()
    $InternetOpen = _WinINet_InternetOpen()
    $InternetConnect = _WinINet_InternetConnect($InternetOpen, $INTERNET_SERVICE_FTP, $server, $port, 0, $user, $pwd)
    $searchresult = _WinINet_FtpFindFirstFile($InternetConnect,$Versionftpfile)
    If Not @error Then
    _WinINet_FtpGetFile($InternetConnect, $Versionftpfile, 'Video-Daten.ver')
    EndIf
    $f = FileOpen('Video-Daten.ver', 0)
    $serien = FileRead("Video-Daten.ver")
    FileClose($f)
    FileDelete("Video-Daten.ver")
    $serien = StringSplit($serien,",",1)
    $i = 0
    $imax = $serien[0]
    Do
    _WinINet_FtpGetFile($InternetConnect, $ftpverzeichnis & $serien[$i] & ".dat", $serien[$i] & ".dat")
    $i += 1
    until $i = $imax
    _WinINet_InternetCloseHandle($InternetConnect)
    _WinINet_InternetCloseHandle($InternetOpen)
    _WinINet_Shutdown()
    msgbox(0,"Erfolgreich",$serien[0] - 1 & " Serie(n) erfolgreich runtergeladen")

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

    Case $Creditz
    msgbox(0,"Credits:","Zocker5656 ©2010" & @crlf & "Megavideo" & @crlf & "Video-Uplouder")
    Case $GO
    if $flag = "0" then
    $linkcache = GUICtrlRead($Link)
    elseif $flag = "1" then
    _IENavigate($oIE,$folgen[$auswahlfolge])
    EndIf

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

    Case $back
    msgbox(0,"Error","Sorry funktioniert noch nicht",1)

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

    Case $forward
    msgbox(0,"Error","Sorry funktioniert noch nicht",1)

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

    EndSwitch
    WEnd

    [/autoit]


    Die FTP daten hab ich mal verschlüsselt :whistling: deswegen lad ich auch nur die exe hoch.

    -Bisher ist nur der Anime Bleach vorhanden ich adde aber alle 5 min neue serien und folgen, updater ist in dem skript dabei.

    -2 bugs gibt es bei zurück und weiter tasten hab noch keine ahnung wie ich die beiden funktionen hinbekomme, aber sonst klappt soweit alles.

    Freue mich über Kritik verbesserungsvorschläge usw