Huhu ich hab mal ein kleines skript geschrieben in dem man sich animes anschauen kann.
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.5.1 (beta)
Author: Zocker5656
Script Function:
-Animes Anschauen
-Updater eingebaut
#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>
$oIE = _IECreateEmbedded ()
#NoTrayIcon
$flag = "0"
$auswahlfolge = 1
Dim $user = '*****'
Dim $pwd = '******'
Dim $server = '*************'
Dim $port = **
Dim $Versionftpfile = '******'
Dim $ftpverzeichnis = '******'
#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 ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
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
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
$Pfad1 = $Pfad
$Pfad1 = StringSplit($Pfad1,".")
$Pfad1 = StringSplit($Pfad1[1],"\")
$pfad1maxarray = $Pfad1[0]
GUICtrlSetData($Link,$Pfad1[$pfad1maxarray] & " Folge: " & $auswahlfolge)
$vlf = fileopen("Verlauf.vlf",0+1+8)
FileWrite($vlf,$auswahlfolge & "," & @CRLF)
$verlauf = FileRead($vlf)
$verlauf = stringsplit($verlauf,",")
FileClose($vlf)
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")
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
Case $back
msgbox(0,"Error","Sorry funktioniert noch nicht",1)
Case $forward
msgbox(0,"Error","Sorry funktioniert noch nicht",1)
EndSwitch
WEnd
Die FTP daten hab ich mal verschlüsselt 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