Hey Leute!
Ich hab meinen Schueler.cc Foto Downloader! Fertig...
Oh man der Source manchmal check ich den selber nicht mehr aber es Funktioniert sogar sehr gut...
Viel spaß damit!
Mfg Nilsdiedose
hier:
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Nils Dose
Script Function:
Schueler.cc Foto Downloader!
Grund: schueler.cc hat es verboten Bilder runterzuladen Privat Fotos etc...
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
#include <GUIConstants.au3>
#include <IE.au3>
#include <String.au3>
#include <array.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
global $seite ,$mail , $pass ,$aArray1, $sString ,$name,$x ,$radio1 ,$msg , $nMsg ,$radio2 , $dumm , $seite2
[/autoit] [autoit][/autoit] [autoit]ie()
[/autoit] [autoit][/autoit] [autoit]func gui()
Opt("GUIOnEventMode",1)
GUISetIcon(@ScriptDir & "\autoitdeicon.ico")
GUISetIcon(@ScriptDir & '\k-cm-system.ico')
$Schueler = GUICreate("Schueler.cc Foto/Album Downloader!-v 1.0 by Nilsdiedose", 499, 52, 284, 171)
GUISetFont(8, 800, 0, "Comic Sans MS")
GUISetBkColor(0xFFFFFF)
$seite2= GUICtrlCreateInput("", 48, 0, 353, 31)
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
$Label1 = GUICtrlCreateLabel("Link:", 0, 0, 47, 31)
GUICtrlSetFont(-1, 14, 800, 0, "Comic Sans MS")
$Radio1 = GUICtrlCreateRadio("Bild", 0, 32, 57, 17)
$geil=GUICtrlRead($Radio1)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Radio2 = GUICtrlCreateRadio("Ganzes Album", 56, 32, 145, 17)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Download = GUICtrlCreateButton("Download", 408, 8, 81, 25, 0)
GUICtrlSetOnEvent($Download,"check")
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE,"OnExit")
endfunc
func check()
$dumm = GUICtrlRead($seite2)
iniwrite("Link.ini", "text", "yeah", $dumm)
$geil=GUICtrlRead($Radio1)
if $geil=("1") then
call("loop")
else
call("album")
endif
endfunc
func ie()
$oIE = _IECreate ("schueler.cc")
$oIE = _IEAttach ("schueler.cc")
If IsObj($oIE) Then
_IELoadWait($oIE)
endif
TrayTip("Bitte Einloggen!!!", "Jetzt bei schueler.cc einloggen", 20, 1)
_IELoadWait($oIE)
call("gui")
EndFunc
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
func OnExit()
Exit
endfunc
func loop()
local $seite,$oIE ,$seite ,$mail , $pass ,$aArray1, $sString ,$name,$x
$seite= iniread("link.ini" , "text", "yeah" , "NotFound")
$oIE = _IEAttach ("schueler.cc")
_IENavigate ($oIE, $seite)
$sHTML = _IEDocReadHTML ($oIE)
iniwrite("settings.ini", "text", "yeah", $sHTML)
sleep(500)
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, "url(", ");" )
For $x = 0 to $aArray1[0]
FileWrite("array.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("array.txt", @CRLF )
next
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, "| Foto ", "</div></td>" )
For $x = 0 to $aArray1[0]
FileWrite("number1.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("number1.txt", @CRLF )
next
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, "Fotos von", "</title>" )
For $x = 0 to $aArray1[0]
FileWrite("path.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("path.txt", @CRLF )
next
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, ">zum Album ", "</B></A>" )
For $x = 0 to $aArray1[0]
FileWrite("album.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("album.txt", @CRLF )
next
$aArray2 = FileRead("array.txt")
$aArray6 = FileRead("path.txt")
$aArray7 = FileRead("number1.txt")
$aArray5=("Fotos von")
DirCreate($aArray5 & $aArray6)
$lol=(".jpg")
$album=("album")
$aArray10 = FileRead("album.txt")
DirCreate($aArray5 & $aArray6 & "\" & $aArray10)
InetGet($aArray2 ,$aArray7 & $lol , 1, 0)
FileMove($aArray7 & $lol, $aArray5 & $aArray6 & "\" & $aArray10 )
FileDelete("settings.ini")
FileDelete("array.txt")
FileDelete ("array.ini")
FileDelete ("path.txt")
FileDelete ("number1.txt")
FileDelete ("album.txt")
FileDelete("albumnummer.ini")
FileDelete("user.txt")
FileDelete("xd.txt")
FileDelete("link.ini")
EndFunc
func album()
local $seite,$oIE ,$seite ,$mail , $pass ,$aArray1, $sString ,$name,$x
$seite= iniread("link.ini" , "text", "yeah" , "NotFound")
$oIE = _IEAttach ("schueler.cc")
iniwrite("albumnummer.ini", "text", "yeah", $seite)
_IENavigate ($oIE, $seite)
$sHTML = _IEDocReadHTML ($oIE)
iniwrite("settings.ini", "text", "yeah", $sHTML)
sleep(500)
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, 's,profil,fotoalbum,foto.php?id=', '&album=' )
For $x = 0 to $aArray1[0]
FileWrite("user.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("user.txt", @CRLF )
next
FileWrite("albumnummer.ini", "lol" )
$sString = fileread ("albumnummer.ini")
$aArray2 = _StringBetween ( $sString, '&album=', 'lol' )
For $x = 0 to $aArray2[0]
FileWrite("xd.txt", $aArray2[$x] )
If $x<>$aArray2[0] then FileWrite("xd.txt", @CRLF )
next
call ("albumdl")
endfunc
func albumdl()
$oIE = _IEAttach ("schueler.cc")
$1=("http://www.schueler.cc/s,profil,fotoalbum,foto.php?id=")
$2= fileread ("user.txt")
$3=("&album=")
$4=fileread ("xd.txt")
$5=("&foto=")
$h= iniread("123456.ini" , "text", "yeah" , "0")
$zahl= ($h+1)
$dumm = iniread("number7.ini" , "text", "yeah" , "1")
if $zahl= $dumm+1 then
call("delete")
else
iniwrite("123456.ini", "text", "yeah", $zahl)
$6 = iniread("123456.ini" , "text", "yeah" , "0")
$seite = ($1 & $2 & $3 & $4 & $5 & $6)
_IENavigate ($oIE, $seite)
$sHTML = _IEDocReadHTML ($oIE)
iniwrite("settings.ini", "text", "yeah", $sHTML)
sleep(500)
call("dl")
endif
endfunc
func dl()
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, "url(", ");" )
For $x = 0 to $aArray1[0]
FileWrite("array.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("array.txt", @CRLF )
next
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, "| Foto ", "</div></td>" )
For $x = 0 to $aArray1[0]
FileWrite("number1.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("number1.txt", @CRLF )
next
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, "Fotos von", "</title>" )
For $x = 0 to $aArray1[0]
FileWrite("path.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("path.txt", @CRLF )
next
$sString = fileread ("settings.ini")
$aArray1 = _StringBetween ( $sString, ">zum Album ", "</B></A>" )
For $x = 0 to $aArray1[0]
FileWrite("album.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("album.txt", @CRLF )
next
$aArray2 = FileRead("array.txt")
$aArray6 = FileRead("path.txt")
$aArray7 = FileRead("number1.txt")
$aArray5=("Fotos von")
DirCreate($aArray5 & $aArray6)
$lol=(".jpg")
$album=("album")
$aArray10 = FileRead("album.txt")
DirCreate($aArray5 & $aArray6 & "\" & $aArray10)
InetGet($aArray2 ,$aArray7 & $lol , 1, 0)
FileMove($aArray7 & $lol, $aArray5 & $aArray6 & "\" & $aArray10 )
FileDelete("settings.ini")
FileDelete("array.txt")
FileDelete ("array.ini")
FileDelete ("path.txt")
FileDelete ("album.txt")
FileDelete("link.ini")
if FileExists("number7.ini") then
FileDelete ("number1.txt")
call("albumdl")
else
$freund=fileread("number1.txt")
iniwrite("number1.ini", "text", "yeah", $freund)
FileWrite("number1.ini", "lol" )
$sString = fileread ("number1.ini")
$aArray1 = _StringBetween ( $sString, "von ", "lol" )
For $x = 0 to $aArray1[0]
FileWrite("number2.txt", $aArray1[$x] )
If $x<>$aArray1[0] then FileWrite("number2.txt", @CRLF )
next
$lolo=FileRead("number2.txt")
iniwrite("number7.ini", "text", "yeah", $lolo)
FileDelete ("number1.txt")
FileDelete ("number1.ini")
call("albumdl")
endif
EndFunc
func delete()
FileDelete("settings.ini")
FileDelete("array.txt")
FileDelete ("array.ini")
FileDelete ("path.txt")
FileDelete ("number1.txt")
FileDelete ("album.txt")
FileDelete("albumnummer.ini")
FileDelete("user.txt")
FileDelete("xd.txt")
FileDelete("123456.ini")
FileDelete("number2.txt")
FileDelete("number7.ini")
FileDelete("link.ini")
endfunc