Hallo com,
hier möchte ich euch nun mein Projekt vorstellen. Es handelt sich um ein Programm das euch die neusten Animes
in einen Webbrowserobjekt oder in einem Skockwaveplayer Objekt anzeigt. Man wird auch darüber benachrichtigt falls eine neue Anime
online gestellt wurde (Es öffnet sich unten recht ein kleines Fenster ähnlich wie bei den Chatprogrammen Skype, ICQ...), danach wird die Liste aktualisiert. Das Programm umfasst zurzeit nur 3 verschiedene Subgruppen es werden noch mehr. Sonst gibt es eigentlich nichts mehr zu sagen, außer das die Source momentan noch sehr unübersichtlich ist und das bei dem Ger Sub noch nicht alles so läuft wie es laufen soll, wird aber noch geändert. Es werden noch mehr Funktionen wie z.B die Auswahl verschiedener alterer Animes die nicht aufgelistet wurden.
Wer mithelfen möchte es zu vollenden bei mir melden :).
Die AutoIT Source:
Verbesserungsvorschläge werden gern gesehen!
Der Download ist im Anhang vorhanden, das Rar-Archive beinhaltet die Source, die Complimierte .exe, einige Bilder und einen Updater.
Hier zum Schluss noch ein Screenshot:
[Only registered and activated users can see links. Click Here To Register...]
hier möchte ich euch nun mein Projekt vorstellen. Es handelt sich um ein Programm das euch die neusten Animes
in einen Webbrowserobjekt oder in einem Skockwaveplayer Objekt anzeigt. Man wird auch darüber benachrichtigt falls eine neue Anime
online gestellt wurde (Es öffnet sich unten recht ein kleines Fenster ähnlich wie bei den Chatprogrammen Skype, ICQ...), danach wird die Liste aktualisiert. Das Programm umfasst zurzeit nur 3 verschiedene Subgruppen es werden noch mehr. Sonst gibt es eigentlich nichts mehr zu sagen, außer das die Source momentan noch sehr unübersichtlich ist und das bei dem Ger Sub noch nicht alles so läuft wie es laufen soll, wird aber noch geändert. Es werden noch mehr Funktionen wie z.B die Auswahl verschiedener alterer Animes die nicht aufgelistet wurden.
Wer mithelfen möchte es zu vollenden bei mir melden :).
Die AutoIT Source:
Code:
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=icon.ico
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GDIPlus.au3>
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <WinHTTP.au3>
#include <INet.au3>
#include <Array.au3>
#include <IE.au3>
#include <INet.au3>
#include <Misc.au3>
#include <CoProc.au3>
#include <File.au3>
#Include <Constants.au3>
#NoTrayIcon
$hOpen = _WinHTTPOpen('')
$hConnect = _WinHTTPConnect($hOpen,'www.anime-stream24.com')
$sQuellcode = _WinHTTPSimpleRequest($hConnect,'GET','')
$aRegExp = StringRegExp($sQuellcode,"\Q<h3 class='title-only'><a href='http://\E([^']+)'>([^<]*)</a></h3>",3)
_ArrayDisplay($aRegExp)
MsgBox(0,"",UBound($aRegExp))
For $i = 0 To UBound($aRegExp)-1 Step +2
$sQuellcode = _WinHTTPSimpleRequest($hConnect,'GET',StringReplace($aRegExp[$i],'www.anime-stream24.com',''))
MsgBox(0,$aRegExp[$i+1],StringReplace($aRegExp[$i],'www.anime-stream24.com',''))
Next
Exit
Global $sVersion = "1.1"
Global $iWidth = 850, $iHeight = 600, $_GDI_Graphics, $_GDI_Bitmap, $_GDI_Buffer, $hBackground, $hBrush_HalbTrans, $hPen_Rand
Global $hFormat, $hFamily, $hFont, $tLayout, $hBrush, $hArrow, $hArrowHover, $hEngSub2_2, $hGerSub2_2
Global $aAnime[1], $y = 0, $hFullscreen, $hFullscreen_Hover, $ScrollDE = 0, $aAnime_Bild[1], $aAnime_Link[1]
Global $hArrow_Up, $hArrowHover_Up, $aAnime_Video_Link[1], $aLanguage[1], $hEngSub, $hGerSub, $current = 1, $s, $hClose
Global $hLoad, $hLoadBorder, $hMirror, $aAnime_Player_Link[100][100], $displayTyp = "d", $hGerSub2, $hEngSub2, $ScrollENG = 0, $ScrollOOB = 0
Global $aTemp[1], $aMirrorsENG[1][10], $aAnimeENG[1], $hNoImage, $hMinimize, $hMinimizeHover, $hCloseHover, $hShockwave
Global $hShockwave_Deaktiv, $hIEExplorer, $hIEExplorer_Deaktiv, $player = "SHOCK", $sCurrentUrl, $MirrorProReihe = 1, $HorrizontalAnzahlENG = 1
Global $HorrizontalAnzahlENG = 0, $positionHorizontal = 0, $hHost, $hHost_Deaktiv, $Hoster = "pure-anime", $aHosterENG[1], $aHosterDE[1]
Global $hFormatHoster, $hFamilyHoster, $hFontHoster, $tLayoutHoster, $hBrushHoster, $aAnimeOOB[1], $aAnimeMirrorOOB[1][1], $ReDraw = True
Global $hEpisodenAuswahl, $hScrollbalken
_CheckForUpdates()
$SecondProcess = _CoProc('_Check()')
Opt("TrayMenuMode",1)
TraySetState()
$hGUI = GUICreate("AnimeTV", $iWidth, $iHeight, -1, -1, $WS_POPUP)
GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
GUISetState(@SW_HIDE)
$pos = WinGetPos($hGUI)
$hChild = GUICreate("", 495, 420, $pos[0] + 25, $pos[1] + 45, $WS_POPUP, Default, $hGUI)
$oIE = _IECreateEmbedded()
$createObj = GUICtrlCreateObj($oIE, 0, 0, 495, 420)
GUISetState(@SW_HIDE)
GUISwitch($hGUI)
$shockGui = GUICreate("", 495, 420, $pos[0] + 25, $pos[1] + 45, $WS_POPUP, Default, $hGUI)
$Flash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$FlashObj = GUICtrlCreateObj($Flash, 0, 0, 495, 420)
GUISetState(@SW_HIDE)
$hDC = _WinAPI_GetDC($hGUI)
$hDC_Buffer = _WinAPI_CreateCompatibleDC($hDC)
$hDC_Bitmap = _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight)
_WinAPI_SelectObject($hDC_Buffer, $hDC_Bitmap)
_GDIPlus_Startup()
_DrawGui()
_GetAnime()
While Sleep(10)
;_ShowEpidsoden()
If $TRAY_EVENT_PRIMARYDOUBLE = TrayGetMsg() Then
GUISetState(@SW_SHOW)
EndIf
If _SuperGlobalGet("NewAnime") = 1 Then
_GetAnime()
_SuperGlobalSet("NewAnime","0")
EndIf
_Button($hArrow, 717, 445, "_ScrollDown", $hArrowHover)
_Button($hArrow_Up, 663, 445, "_ScrollUp", $hArrowHover_Up)
_Button($hFullscreen, 506, 487, "_Fullscreen", $hFullscreen_Hover)
_Button($hClose, 826, 3, "_Exit", $hCloseHover)
_Button($hGerSub2, 713, 477, "_GerSub", $hGerSub2)
_Button($hEngSub2, 561, 477, "_EngSub", $hEngSub2)
_Button($hMinimize, 804, 3, "_Minimize", $hMinimizeHover)
_Button($hShockwave, 324, 486, "_ChangePlayerSHOCK")
_Button($hIEExplorer, 410, 486, "_ChangePlayerIE")
If $ReDraw = True Then
_Aktualisieren()
_WinAPI_BitBlt($hDC, 0, 0, $iWidth, $iHeight, $hDC_Buffer, 0, 0, 0x00CC0020)
$ReDraw = False
EndIf
If _IsPressed("1B") Then
If $player = "IE" Then
$pos = WinGetPos($hGUI)
WinMove($hChild, "", $pos[0] + 25, $pos[1] + 45, 495, 420)
GUICtrlSetPos($createObj, 0, 0, 495, 420)
Else
$pos = WinGetPos($hGUI)
GUIDelete($shockGui)
GUICtrlDelete($FlashObj)
$shockGui = GUICreate("", 495, 420, $pos[0] + 25, $pos[1] + 45, $WS_POPUP, Default, $hGUI)
$Flash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$FlashObj = GUICtrlCreateObj($Flash, 0, 0, 495, 420)
_Navigate($sCurrentUrl, $current)
EndIf
EndIf
If $displayTyp = "e" Then
$MirrorProReihe = 0
$positionHorizontal = 0
$HorrizontalAnzahlENG = 1
If $Hoster = "anime44" Then
For $i = 1 To 4
If $i + $ScrollENG < UBound($aAnimeENG) - 1 And $i + $ScrollENG > 0 Then
If $current = $i + $ScrollENG Then
For $k = 1 To $aMirrorsENG[$i + $ScrollENG][0]
If $HorrizontalAnzahlENG > 3 Then
_Button("", 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe), "_Navigate", "", 64, 19, 1, $aMirrorsENG[$i + $ScrollENG][$k], $i + $ScrollENG)
$HorrizontalAnzahlENG = 1
$MirrorProReihe += 1
$positionHorizontal = 0
Else
_Button("", 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe), "_Navigate", "", 64, 19, 1, $aMirrorsENG[$i + $ScrollENG][$k], $i + $ScrollENG)
$HorrizontalAnzahlENG += 1
$positionHorizontal += 1
EndIf
Next
EndIf
_Button("", 561, 50 + (($i - 1) * 100) + $y, "_setcurrent", "", 258, 100, 1, $i + $ScrollENG, "")
EndIf
Next
EndIf
If $Hoster = "OnepieceOfBleach" Then
For $i = 1 To 4
If $i + $ScrollOOB < UBound($aAnimeOOB) And $i + $ScrollOOB > 0 Then
If $current = $i + $ScrollOOB Then
For $k = 1 To $aAnimeMirrorOOB[$i + $ScrollOOB][0]
If $HorrizontalAnzahlENG > 3 Then
_Button("", 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe), "_Navigate", "", 64, 19, 1, $aAnimeMirrorOOB[$i + $ScrollOOB][$k], $i + $ScrollOOB)
$HorrizontalAnzahlENG = 1
$MirrorProReihe += 1
$positionHorizontal = 0
Else
_Button("", 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe), "_Navigate", "", 64, 19, 1, $aAnimeMirrorOOB[$i + $ScrollOOB][$k], $i + $ScrollOOB)
$HorrizontalAnzahlENG += 1
$positionHorizontal += 1
EndIf
Next
EndIf
_Button("", 561, 50 + (($i - 1) * 100) + $y, "_setcurrent", "", 258, 100, 1, $i + $ScrollOOB, "")
EndIf
Next
EndIf
For $i = 1 To UBound($aHosterENG) - 1
_Button($hHost, 561, 510 + (($i - 1) * 23), "_sethoster", "", "", "", 1, $aHosterENG[$i], "")
Next
EndIf
If $displayTyp = "d" Then
$MirrorProReihe = 0
$positionHorizontal = 0
$HorrizontalAnzahlENG = 1
For $i = 1 To 4
If $i + $ScrollDE < UBound($aAnime) And $i + $ScrollDE > -1 Then
If $current = $i + $ScrollDE Then
For $k = 0 To $aAnime_Video_Link[$i + $ScrollDE]
If $HorrizontalAnzahlENG > 3 Then
_Button("", 45 + ($positionHorizontal * 66), 485, "_Navigate", "", 64, 19, 1, $aAnime_Player_Link[$i - 1 + $ScrollDE][$k], $i + $ScrollDE)
$HorrizontalAnzahlENG = 1
$MirrorProReihe += 1
$positionHorizontal = 0
Else
_Button("", 45 + ($positionHorizontal * 66), 485, "_Navigate", "", 64, 19, 1, $aAnime_Player_Link[$i - 1 + $ScrollDE][$k], $i + $ScrollDE)
$HorrizontalAnzahlENG += 1
$positionHorizontal += 1
EndIf
Next
EndIf
_Button("", 561, 50 + (($i - 1) * 100) + $y, "_setcurrent", "", 258, 100, 1, $i + $ScrollDE, "")
EndIf
Next
EndIf
WEnd
Func _DrawGui()
$_GDI_Graphics = _GDIPlus_GraphicsCreateFromHDC($hDC_Buffer)
$_GDI_Bitmap = _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $_GDI_Graphics)
$_GDI_Buffer = _GDIPlus_ImageGetGraphicsContext($_GDI_Bitmap)
$hBrush_HalbTrans = _GDIPlus_BrushCreateSolid(0x99FFFFFF)
$hPen_Rand = _GDIPlus_PenCreate(0xFFFFFFFF)
$hArrow = _GDIPlus_ImageLoadFromFile("data/images/gui/arrow.png")
$hArrowHover = _GDIPlus_ImageLoadFromFile("data/images/gui/arrow.hover.png")
$hArrow_Up = _GDIPlus_ImageLoadFromFile("data/images/gui/arrow_up.png")
$hArrowHover_Up = _GDIPlus_ImageLoadFromFile("data/images/gui/arrow.hover_up.png")
$hBackground = _GDIPlus_ImageLoadFromFile("data/images/gui/bg.jpg")
$hEngSub = _GDIPlus_ImageLoadFromFile("data/images/gui/eng_sub.png")
$hGerSub = _GDIPlus_ImageLoadFromFile("data/images/gui/ger_sub.png")
$hEngSub2 = _GDIPlus_ImageLoadFromFile("data/images/gui/eng_sub2.png")
$hGerSub2 = _GDIPlus_ImageLoadFromFile("data/images/gui/ger_sub2.png")
$hEngSub2_2 = _GDIPlus_ImageLoadFromFile("data/images/gui/eng_sub2_2.png")
$hGerSub2_2 = _GDIPlus_ImageLoadFromFile("data/images/gui/ger_sub2_2.png")
$hFullscreen = _GDIPlus_ImageLoadFromFile("data/images/gui/fullscreen.png")
$hFullscreen_Hover = _GDIPlus_ImageLoadFromFile("data/images/gui/fullscreen.hover.png")
$hLoadBorder = _GDIPlus_ImageLoadFromFile("data/images/gui/load.png")
$hLoad = _GDIPlus_ImageLoadFromFile("data/images/gui/load2.png")
$hMirror = _GDIPlus_ImageLoadFromFile("data/images/gui/Mirror.png")
$hClose = _GDIPlus_ImageLoadFromFile("data/images/gui/close.png")
$hCloseHover = _GDIPlus_ImageLoadFromFile("data/images/gui/close.hover.png")
$hNoImage = _GDIPlus_ImageLoadFromFile("data/images/gui/noimage.png")
$hMinimize = _GDIPlus_ImageLoadFromFile("data/images/gui/minimize.png")
$hMinimizeHover = _GDIPlus_ImageLoadFromFile("data/images/gui/minimize.hover.png")
$hShockwave = _GDIPlus_ImageLoadFromFile("data/images/gui/shockwave.png")
$hShockwave_Deaktiv = _GDIPlus_ImageLoadFromFile("data/images/gui/shockwave_deaktiv.png")
$hIEExplorer = _GDIPlus_ImageLoadFromFile("data/images/gui/ieexplorer.png")
$hHost = _GDIPlus_ImageLoadFromFile("data/images/gui/host.png")
$hHost_Deaktiv = _GDIPlus_ImageLoadFromFile("data/images/gui/host_deaktiv.png")
$hIEExplorer_Deaktiv = _GDIPlus_ImageLoadFromFile("data/images/gui/ieexplorer_deaktiv.png")
$hEpisodenAuswahl = _GDIPlus_ImageLoadFromFile("data/images/gui/episoden_liste.png.")
$hScrollbalken = _GDIPlus_ImageLoadFromFile("data/images/gui/scrollbalken.png")
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Arial")
$hFont = _GDIPlus_FontCreate($hFamily, 9)
$tLayout = _GDIPlus_RectFCreate(710, 50, 100, 100)
$hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
$hFormatHoster = _GDIPlus_StringFormatCreate()
$hFamilyHoster = _GDIPlus_FontFamilyCreate("Arial")
$hFontHoster = _GDIPlus_FontCreate($hFamily, 9, 1)
$tLayoutHoster = _GDIPlus_RectFCreate(563, 50, 121, 22)
$hBrushHoster = _GDIPlus_BrushCreateSolid(0xFFFFFFFF)
_GDIPlus_StringFormatSetAlign($hFormatHoster, 1)
_GDIPlus_GraphicsDrawImageRect($_GDI_Buffer, $hBackground, 0, 0, $iWidth, $iHeight)
_GDIPlus_GraphicsDrawImageRect($_GDI_Graphics, $_GDI_Bitmap, 0, 0, 35, 35)
EndFunc ;==>_DrawGui
Func _Aktualisieren()
_GDIPlus_GraphicsClear($_GDI_Graphics)
_GDIPlus_GraphicsDrawImageRect($_GDI_Graphics, $_GDI_Bitmap, 0, 0, $iWidth, $iHeight)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hArrow, 717, 445)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hArrow_Up, 663, 445)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hFullscreen, 506, 487)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hClose, 826, 3)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hMinimize, 804, 3)
If $player = "IE" Then
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hIEExplorer, 410, 486)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hShockwave_Deaktiv, 324, 486)
Else
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hIEExplorer_Deaktiv, 410, 486)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hShockwave, 324, 486)
EndIf
If $displayTyp = "d" And $Hoster = "pure-anime" Then
$MirrorProReihe = 0
$positionHorizontal = 0
$HorrizontalAnzahlENG = 1
For $i = 1 To 4
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hGerSub2, 713, 477)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hEngSub2_2, 561, 477)
DllStructSetData($tLayout, "y", 50 + (($i - 1) * 100) + $y)
If $i + $ScrollDE < UBound($aAnime) And $i + $ScrollDE > -1 Then
If $current = $i + $ScrollDE Then
_GDIPlus_GraphicsFillRect($_GDI_Graphics, 563, 47 + (($i - 1) * 100) + $y, 254, 90, $hBrush_HalbTrans)
_GDIPlus_GraphicsDrawRect($_GDI_Graphics, 563, 47 + (($i - 1) * 100) + $y, 254, 90, $hPen_Rand)
For $k = 0 To $aAnime_Video_Link[$i + $ScrollDE]
If $HorrizontalAnzahlENG > 3 Then
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hMirror, 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe))
$HorrizontalAnzahlENG = 1
$MirrorProReihe += 1
$positionHorizontal = 0
Else
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hMirror, 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe))
$HorrizontalAnzahlENG += 1
$positionHorizontal += 1
EndIf
Next
EndIf
_GDIPlus_GraphicsDrawImageRect($_GDI_Graphics, $aAnime_Bild[$i + $ScrollDE], 570, 50 + (($i - 1) * 100) + $y, 138, 84)
_GDIPlus_GraphicsDrawStringEx($_GDI_Graphics, $aAnime[$i + $ScrollDE], $hFont, $tLayout, $hFormat, $hBrush)
If $aLanguage[$i + $ScrollDE] = "e" Then
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hEngSub, 618, 109 + (($i - 1) * 100) + $y)
Else
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hGerSub, 618, 109 + (($i - 1) * 100) + $y)
EndIf
EndIf
Next
EndIf
If $displayTyp = "e" Then
If $Hoster = "anime44" Then
$MirrorProReihe = 0
$positionHorizontal = 0
$HorrizontalAnzahlENG = 1
For $i = 1 To 4
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hGerSub2, 713, 477)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hEngSub2_2, 561, 477)
DllStructSetData($tLayout, "y", 50 + (($i - 1) * 100) + $y)
If $i + $ScrollENG < UBound($aAnimeENG) - 1 And $i + $ScrollENG > 0 Then
If $current = $i + $ScrollENG Then
_GDIPlus_GraphicsFillRect($_GDI_Graphics, 563, 47 + (($i - 1) * 100) + $y, 254, 90, $hBrush_HalbTrans)
_GDIPlus_GraphicsDrawRect($_GDI_Graphics, 563, 47 + (($i - 1) * 100) + $y, 254, 90, $hPen_Rand)
For $k = 1 To $aMirrorsENG[$i + $ScrollENG][0]
If $HorrizontalAnzahlENG > 3 Then
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hMirror, 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe))
$HorrizontalAnzahlENG = 1
$MirrorProReihe += 1
$positionHorizontal = 0
Else
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hMirror, 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe))
$HorrizontalAnzahlENG += 1
$positionHorizontal += 1
EndIf
Next
EndIf
_GDIPlus_GraphicsDrawImageRect($_GDI_Graphics, $hNoImage, 570, 50 + (($i - 1) * 100) + $y, 138, 84)
_GDIPlus_GraphicsDrawStringEx($_GDI_Graphics, $aAnimeENG[$i + $ScrollENG], $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hEngSub, 618, 109 + (($i - 1) * 100) + $y)
EndIf
Next
EndIf
If $Hoster = "OnepieceOfBleach" Then
$MirrorProReihe = 0
$positionHorizontal = 0
$HorrizontalAnzahlENG = 1
For $i = 1 To 4
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hGerSub2, 713, 477)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hEngSub2_2, 561, 477)
DllStructSetData($tLayout, "y", 50 + (($i - 1) * 100) + $y)
If $i + $ScrollOOB < UBound($aAnimeOOB) And $i + $ScrollOOB > 0 Then
If $current = $i + $ScrollOOB Then
_GDIPlus_GraphicsFillRect($_GDI_Graphics, 563, 47 + (($i - 1) * 100) + $y, 254, 90, $hBrush_HalbTrans)
_GDIPlus_GraphicsDrawRect($_GDI_Graphics, 563, 47 + (($i - 1) * 100) + $y, 254, 90, $hPen_Rand)
For $k = 1 To $aAnimeMirrorOOB[$i + $ScrollOOB][0]
If $HorrizontalAnzahlENG > 3 Then
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hMirror, 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe))
$HorrizontalAnzahlENG = 1
$MirrorProReihe += 1
$positionHorizontal = 0
Else
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hMirror, 45 + ($positionHorizontal * 66), 485 + (22 * $MirrorProReihe))
$HorrizontalAnzahlENG += 1
$positionHorizontal += 1
EndIf
Next
EndIf
If $aPreviewImage[$i + $ScrollOOB] = "" Then
_GDIPlus_GraphicsDrawImageRect($_GDI_Graphics, $hNoImage, 570, 50 + (($i - 1) * 100) + $y, 138, 84)
Else
_GDIPlus_GraphicsDrawImageRect($_GDI_Graphics, $aPreviewImage[$i + $ScrollOOB], 570, 50 + (($i - 1) * 100) + $y, 138, 84)
EndIf
_GDIPlus_GraphicsDrawStringEx($_GDI_Graphics, $aAnimeOOB[$i + $ScrollOOB], $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hEngSub, 618, 109 + (($i - 1) * 100) + $y)
EndIf
Next
EndIf
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hGerSub2_2, 713, 477)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hEngSub2, 561, 477)
For $i = 1 To UBound($aHosterENG) - 1
DllStructSetData($tLayoutHoster, "y", 510 + (($i - 1) * 23))
If $aHosterENG[$i] = $Hoster Then
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hHost, 563, 506 + (23 * ($i - 1)))
Else
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hHost_Deaktiv, 563, 506 + (23 * ($i - 1)))
EndIf
_GDIPlus_GraphicsDrawStringEx($_GDI_Graphics, $aHosterENG[$i], $hFontHoster, $tLayoutHoster, $hFormatHoster, $hBrushHoster)
Next
EndIf
EndFunc ;==>_Aktualisieren
Func _Button($hImage, $X, $y, $function, $hHover_Image = $hImage, $Width = "", $Height = "", $param = 0, $param_value = 0, $param_value2 = 0)
If $Width = "" Then
$Height = _GDIPlus_ImageGetHeight($hImage)
$Width = _GDIPlus_ImageGetWidth($hImage)
EndIf
$pos = GUIGetCursorInfo()
If IsArray($pos) And $pos[0] >= $X And $pos[0] <= $X + $Width And $pos[1] >= $y And $pos[1] <= $y + $Height And $pos[2] = 1 Then
_GDIPlus_GraphicsClear($_GDI_Graphics)
_GDIPlus_GraphicsDrawImageRect($_GDI_Graphics, $_GDI_Bitmap, 0, 0, $iWidth, $iHeight)
_Aktualisieren()
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hHover_Image, $X, $y)
_WinAPI_BitBlt($hDC, 0, 0, $iWidth, $iHeight, $hDC_Buffer, 0, 0, 0x00CC0020)
Do
$pos = GUIGetCursorInfo()
Until IsArray($pos) And $pos[2] = 0
If IsArray($pos) And $pos[0] >= $X And $pos[0] <= $X + $Width And $pos[1] >= $y And $pos[1] <= $y + $Height Then
If $param = 0 Then
$call = Call($function)
Else
$call = Call($function, $param_value, $param_value2)
EndIf
EndIf
$ReDraw = True
EndIf
EndFunc ;==>_Button
Func _ShowEpidsoden()
$pos = GUIGetCursorInfo($hGUI)
If _IsPressed("02") And IsArray($pos) Then
_GDIPlus_GraphicsClear($_GDI_Graphics)
_GDIPlus_GraphicsDrawImageRect($_GDI_Graphics, $_GDI_Bitmap, 0, 0, $iWidth, $iHeight)
_Aktualisieren()
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hEpisodenAuswahl, $pos[0], $pos[1])
_WinAPI_BitBlt($hDC, 0, 0, $iWidth, $iHeight, $hDC_Buffer, 0, 0, 0x00CC0020)
Do
$pos2 = GUIGetCursorInfo($hGUI)
Until IsArray($pos2) And ($pos2[0] > $pos[0] + 173 Or $pos2[1] > $pos[1] + 304 Or $pos2[1] < $pos[1] Or $pos2[0] < $pos[0]) And ($pos2[2] = 1 Or $pos2[3] = 1)
$ReDraw = True
EndIf
EndFunc ;==>_Button
Func _GetAnime()
Global $aAnime[1], $aAnime_Bild[1], $aAnime_Link[1]
Global $aAnime_Video_Link[1], $aLanguage[1]
Global $aAnime_Player_Link[100][100]
Global $aTemp[1], $aMirrorsENG[1][10], $aAnimeENG[1]
Global $aHosterENG[1], $aHosterDE[1]
Global $aAnimeOOB[1], $aAnimeMirrorOOB[1][1], $aPreviewImage[1]
Local $pic = False
$hOpen = _WinHTTPOpen("Mozilla/5.0 (Windows NT 5.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1")
$hConnect = _WinHTTPConnect($hOpen, "onepieceofbleach.com")
$sQuellcode = _WinHttpSimpleRequest($hConnect, "GET", "")
$aRegExp = StringRegExp($sQuellcode, '\Qhref="\E(\Qhttp://OnePieceOfBleach.com/\E[^/]+)/">([^<]*)\Q</a></b></li>\E', 3)
For $i = 0 To (UBound($aRegExp) - 1) Step +2
ReDim $aAnimeOOB[UBound($aAnimeOOB) + 1]
$aAnimeOOB[UBound($aAnimeOOB) - 1] = $aRegExp[$i + 1]
$aSplit = StringSplit($aRegExp[$i], '/')
$sAnimeQuellcode = _WinHttpSimpleRequest($hConnect, "GET", $aSplit[$aSplit[0]])
$aRegExpOOB = StringRegExp($sAnimeQuellcode, '\Qsrc="\E(\Qhttp://www.dailymotion.com/embed/video/\E[^"]+)"></iframe>', 3)
_RegExpToArray($sAnimeQuellcode, $aRegExpOOB, '\Qsrc=http://www.onepieceofbleach.com/book.php?config="\E(\Qhttp://video.ak.fbcdn.net/cfs-ak-ash4/\E[0-9]+\/[0-9]+\/[^\.]+).mp4')
_RegExpToArray($sAnimeQuellcode, $aRegExpOOB, 'flashvars="file=(http://\Qwww.onepieceofbleach.com/sapo.php?id=\E[^"]+)')
If Not IsArray($aRegExpOOB) Then
_ArrayDelete($aAnimeOOB, UBound($aAnimeOOB) - 1)
Else
ReDim $aAnimeMirrorOOB[UBound($aAnimeMirrorOOB) + 1][5]
$aAnimeMirrorOOB[UBound($aAnimeMirrorOOB, 1) - 1][0] = UBound($aRegExpOOB) - 1
For $k = 0 To UBound($aRegExpOOB) - 1
If StringInStr($aRegExpOOB[$k],"dailymotion") <> 0 Then
$aRegExpDaily = StringRegExp($aRegExpOOB[$k],"http://www.dailymotion.com/embed/video/(.*)",3)
$aAnimeMirrorOOB[UBound($aAnimeMirrorOOB) - 1][0] = UBound($aRegExpOOB)
$aAnimeMirrorOOB[UBound($aAnimeMirrorOOB) - 1][$k + 1] = 'http://www.dailymotion.com/swf/' & $aRegExpDaily[0] & '&related=0'
$DailyMotionSource = _INetGetSource('http://www.dailymotion.com/embed/video/' & $aRegExpDaily[0])
$DailyMotionPrevPic = StringRegExp($DailyMotionSource,'"thumbnail_url":"([^"]+)',3)
$hImageName = 'data\images\gui\temp\' & Random(0,9,1) & Random(0,9,1) & Random(0,9,1) & Random(0,9,1) & ".jpg"
InetGet(StringReplace($DailyMotionPrevPic[0],'\/','/'),$hImageName)
If $pic = False Then
_ArrayAdd($aPreviewImage,$hImageName)
$pic = True
EndIf
ElseIf StringInStr($aRegExpOOB[$k],"ideo.ak.fbcdn.ne") <> 0 Then
$tempRegExp = StringRegExp($aRegExpOOB[$k],'\/[0-9]+\/[0-9]+\/(.*)',3)
$splitted = StringSplit($tempRegExp[0],'_')
$aAnimeMirrorOOB[UBound($aAnimeMirrorOOB) - 1][0] = UBound($aRegExpOOB)
$aAnimeMirrorOOB[UBound($aAnimeMirrorOOB) - 1][$k + 1] = 'http://www.facebook.com/v/'&$splitted[1]&'_'&$splitted[2]&'.mp4'
If $pic = False Then
_ArrayAdd($aPreviewImage,'')
$pic = True
EndIf
Else
$aAnimeMirrorOOB[UBound($aAnimeMirrorOOB) - 1][0] = UBound($aRegExpOOB)
$aAnimeMirrorOOB[UBound($aAnimeMirrorOOB) - 1][$k + 1] = $aRegExpOOB[$k]
If $pic = False Then
_ArrayAdd($aPreviewImage,'')
$pic = True
EndIf
EndIf
Next
$pic = False
EndIf
Next
For $i = 0 To UBound($aPreviewImage)-1
If $aPreviewImage <> '' Then
$aPreviewImage[$i] = _GDIPlus_ImageLoadFromFile($aPreviewImage[$i])
EndIf
Next
_WinHTTPCloseHandle($hOpen)
_WinHTTPCloseHandle($hConnect)
ReDim $aHosterENG[UBound($aHosterENG) + 1]
$aHosterENG[UBound($aHosterENG) - 1] = "OnepieceOfBleach"
$hOpen = _WinHTTPOpen("Mozilla/5.0 (Windows NT 5.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1")
$hConnect = _WinHTTPConnect($hOpen, "www.anime44.com")
$sQuellcode = _WinHttpSimpleRequest($hConnect, "GET", "/")
$aRegExp = StringRegExp($sQuellcode, '\Q<a href="http://www.anime44.com/\E[^>]+>[^<]*<\/a><font color="#00CC00">', 3)
For $i = 0 To UBound($aRegExp) - 1
$regExp2 = StringRegExp($aRegExp[$i], '">(?s)\s+([^<]*)<\/a>', 3)
$temp = StringStripWS($regExp2[0], 2)
$regExp2 = StringRegExp($aRegExp[$i], '<a href="([^"]+)">', 3)
$split = StringSplit($regExp2[0], "/")
$sSource = _WinHttpSimpleRequest($hConnect, "GET", $split[$split[0]])
_RegExpToArray($sSource, $aTemp, "<iframe src=\'([^']+)\' ")
_RegExpToArray($sSource, $aTemp, 'src="(\Qhttp://embed\E[^&]+)\Q&\E')
_RegExpToArray($sSource, $aTemp, "src='(\Qhttp://embed.\E[^\?]+\?)\Q?\E[^v]+(v=[^']+)'", 2)
_RegExpToArray($sSource, $aTemp, '<embed src="([^"]+)"')
$countMirrors = StringRegExp($sSource, '\Qhttp://www.anime44.com/\E(\Q' & $split[$split[0]] & '\E[^"]+)"', 3)
For $j = 0 To UBound($countMirrors) - 1
$sSource2 = _WinHttpSimpleRequest($hConnect, "GET", $countMirrors[$j])
_RegExpToArray($sSource2, $aTemp, "<iframe src=\'([^']+)\' ")
_RegExpToArray($sSource2, $aTemp, 'src="(\Qhttp://embed\E[^&]+)\Q&\E')
_RegExpToArray($sSource2, $aTemp, "src='(\Qhttp://embed.\E[^\?]+\?)\Q?\E[^v]+(v=[^']+)'", 2)
_RegExpToArray($sSource2, $aTemp, '<embed src="([^"]+)"')
Next
ReDim $aAnimeENG[UBound($aAnimeENG) + 1]
ReDim $aMirrorsENG[UBound($aAnimeENG) + 1][100]
$aAnimeENG[UBound($aAnimeENG) - 1] = $temp ;EPISODEN NAMEN
$aMirrorsENG[UBound($aAnimeENG) - 1][0] = UBound($aTemp) - 1
For $o = 1 To UBound($aTemp) - 1
$aMirrorsENG[UBound($aAnimeENG) - 1][$o] = $aTemp[$o]
Next
For $k = 0 To UBound($aTemp) - 1
_ArrayDelete($aTemp, $i)
Next
Local $aTemp[1]
Next
ReDim $aHosterENG[UBound($aHosterENG) + 1]
$aHosterENG[UBound($aHosterENG) - 1] = "anime44"
_WinHTTPCloseHandle($hOpen)
_WinHTTPCloseHandle($hConnect)
$hOpen = _WinHTTPOpen("Mozilla/5.0 (Windows NT 5.1; rv:9.0.1) Gecko/20100101 Firefox/9.0.1")
$hConnect = _WinHTTPConnect($hOpen, "pure-anime.biz")
$sQuellcode = _WinHttpSimpleRequest($hConnect, "GET", "/")
$aBetween = _StringBetween($sQuellcode, '<center><div style="', "</center>")
For $i = 0 To UBound($aBetween) - 4
$aRegExp = StringRegExp($aBetween[$i], '<a href="([^"]+)">', 3)
$split = StringSplit($aRegExp[0], "/")
$sSource = _WinHttpSimpleRequest($hConnect, "GET", "index.php/" & $split[$split[0]])
$aRegExp1 = StringRegExp($sSource, '<iframe ...="(http[^"]+)" ', 3)
_RegExpToArray($sSource, $aRegExp1, 'name="movie" value="([^"]*)">')
_RegExpToArray($sSource, $aRegExp1, '(\Qhttp://embed.novamov.com/embed.php?\E)[^v]+(v=[^&]+)&px=1', 2)
_RegExpToArray($sSource, $aRegExp1, '(\Qhttp://embed.videoweed.es/embed.php?\E)(v=[^&]+)&', 2)
_RegExpToArray($sSource, $aRegExp1, 'value="(\Qhttp://player.mixturecloud.com/video/\E)([^\.]+\.swf)', 2)
_ArrayAdd($aAnime_Video_Link, UBound($aRegExp1) - 1)
For $j = 0 To UBound($aRegExp1) - 1
$aAnime_Player_Link[$i][$j] = $aRegExp1[$j]
Next
$aRegExp = StringRegExp($aBetween[$i], '<a href="http\:\/\/pure-anime.biz\/index\.php\/([^"]+)">', 3)
_ArrayAdd($aAnime, $aRegExp[0])
$aRegExp = StringRegExp($aBetween[$i], '<img src="([^"]+)" alt="', 3)
_ArrayAdd($aAnime_Link, $aRegExp[0])
$aRegExp = StringRegExp($aBetween[$i], 'src="http:\/\/pure-anime\.biz\/wp\-content\/uploads\/category-images-ii\/([^"]+)" alt="', 3)
_ArrayAdd($aAnime_Bild, $aRegExp[0])
_ArrayAdd($aLanguage, "d")
Next
For $i = 1 To UBound($aAnime_Link) - 1
If Not FileExists("data\images\gui\temp\" & $aAnime_Bild[$i]) Then
InetGet($aAnime_Link[$i], "data\images\gui\temp\" & $aAnime_Bild[$i])
EndIf
$aAnime_Bild[$i] = _GDIPlus_ImageLoadFromFile("data\images\gui\temp\" & $aAnime_Bild[$i])
Next
GUISetState(@SW_SHOW, $hGUI)
_WinHTTPCloseHandle($hOpen)
_WinHTTPCloseHandle($hConnect)
$ReDraw = True
EndFunc ;==>_GetAnime
Func _ScrollDown()
If $displayTyp = "d" Then
If $ScrollDE + 4 < UBound($aAnime) - 1 Then
$ScrollDE = $ScrollDE + 4
ElseIf $ScrollDE + 3 < UBound($aAnime) - 1 Then
$ScrollDE = $ScrollDE + 3
ElseIf $ScrollDE + 2 < UBound($aAnime) - 1 Then
$ScrollDE = $ScrollDE + 2
ElseIf $ScrollDE + 1 < UBound($aAnime) - 1 Then
$ScrollDE = $ScrollDE + 1
EndIf
EndIf
If $displayTyp = "e" And $Hoster = "anime44" Then
If $ScrollENG + 4 < UBound($aAnimeENG) - 1 Then
$ScrollENG = $ScrollENG + 4
ElseIf $ScrollENG + 3 < UBound($aAnimeENG) - 1 Then
$ScrollENG = $ScrollENG + 3
ElseIf $ScrollENG + 2 < UBound($aAnimeENG) - 1 Then
$ScrollENG = $ScrollENG + 2
EndIf
EndIf
If $displayTyp = "e" And $Hoster = "OnepieceOfBleach" Then
If $ScrollOOB + 4 < UBound($aAnimeOOB) - 1 Then
$ScrollOOB = $ScrollOOB + 4
ElseIf $ScrollOOB + 3 < UBound($aAnimeOOB) - 1 Then
$ScrollOOB = $ScrollOOB + 3
ElseIf $ScrollOOB + 2 < UBound($aAnimeOOB) - 1 Then
$ScrollOOB = $ScrollOOB + 2
EndIf
EndIf
$ReDraw = True
EndFunc ;==>_ScrollDown
Func _ScrollUp()
If $displayTyp = "d" Then
If $ScrollDE - 4 > -1 Then
$ScrollDE = $ScrollDE - 4
ElseIf $ScrollDE - 3 > -1 Then
$ScrollDE = $ScrollDE - 3
ElseIf $ScrollDE - 2 > -1 Then
$ScrollDE = $ScrollDE - 2
ElseIf $ScrollDE - 1 > -1 Then
$ScrollDE = $ScrollDE - 1
EndIf
EndIf
If $displayTyp = "e" And $Hoster = "anime44" Then
If $ScrollENG - 4 > -1 Then
$ScrollENG = $ScrollENG - 4
ElseIf $ScrollENG - 3 > -1 Then
$ScrollENG = $ScrollENG - 3
ElseIf $ScrollENG - 2 > -1 Then
$ScrollENG = $ScrollENG - 2
ElseIf $ScrollENG - 1 > -1 Then
$ScrollENG = $ScrollENG - 1
EndIf
EndIf
If $displayTyp = "e" And $Hoster = "OnepieceOfBleach" Then
If $ScrollOOB - 4 > -1 Then
$ScrollOOB = $ScrollOOB - 4
ElseIf $ScrollOOB - 3 > -1 Then
$ScrollOOB = $ScrollOOB - 3
ElseIf $ScrollOOB - 2 > -1 Then
$ScrollOOB = $ScrollOOB - 2
ElseIf $ScrollOOB - 1 > -1 Then
$ScrollOOB = $ScrollOOB - 1
EndIf
EndIf
$ReDraw = True
EndFunc ;==>_ScrollUp
Func _Fullscreen()
If $player = "IE" Then
WinMove($hChild, "", 0, 0, @DesktopWidth, @DesktopHeight)
GUICtrlSetPos($createObj, 0, 0, @DesktopWidth, @DesktopHeight)
_Navigate(_IEPropertyGet($oIE, "locationurl"), $current)
Else
GUIDelete($shockGui)
GUICtrlDelete($FlashObj)
$shockGui = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, Default, $hGUI)
$Flash = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$FlashObj = GUICtrlCreateObj($Flash, 0, 0, @DesktopWidth, @DesktopHeight)
_Navigate($sCurrentUrl, $current)
EndIf
$ReDraw = True
EndFunc ;==>_Fullscreen
Func _setcurrent($cur, $nothing = "")
$current = $cur
$ReDraw = True
EndFunc ;==>_setcurrent
Func _Navigate($sUrl, $cur = 0)
$sCurrentUrl = $sUrl
If $player = "IE" Then
GUISetState(@SW_SHOW, $hChild)
GUISetState(@SW_HIDE, $shockGui)
$current = $cur
_IENavigate($oIE, $sUrl, 0)
$s = WinList()
ReDim $s[$s[0][0] + 2][2]
$s[$s[0][0] + 1][0] = "Anime Watcher"
$sTimer = TimerInit()
Do
_Aktualisieren()
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hLoadBorder, 710, 122 + (100 * ($cur - $ScrollDE - 1)))
$hBMP = _GDIPlus_BitmapCloneArea($hLoad, 0, 0, 106 / 10 * TimerDiff($sTimer) / 1000, 13, 0x00000000)
_GDIPlus_GraphicsDrawImage($_GDI_Graphics, $hBMP, 710, 122 + (100 * ($cur - $ScrollDE - 1)))
_WinAPI_BitBlt($hDC, 0, 0, $iWidth, $iHeight, $hDC_Buffer, 0, 0, 0x00CC0020)
_GDIPlus_BitmapDispose($hBMP)
_ClosePopup()
Until TimerDiff($sTimer) / 1000 > 10
Else
GUISetState(@SW_SHOW, $shockGui)
GUISetState(@SW_HIDE, $hChild)
$Flash.Movie = $sUrl
$Flash.loop = True
$current = $cur
EndIf
GUISwitch($hGUI)
$ReDraw = True
EndFunc ;==>_Navigate
Func _ClosePopup()
$t = WinList()
For $i = 1 To $t[0][0]
$search = _ArraySearch($s, $t[$i][0], 0, 0, 0, 0, 1, 0)
If $search <> -1 Then ContinueLoop
If StringInStr($t[$i][0], "Windows Internet Explorer") <> 0 Then
Do
$proc = WinGetProcess($t[$i][0], "")
ProcessClose($proc)
WinClose($t[$i][0], "")
Until WinExists($t[$i][0], "") = 0
TrayTip("Werbung", "Das Fenster " & $t[$i][0] & " wurde geschlossen.", 1000)
EndIf
Next
EndFunc ;==>_ClosePopup
Func _RegExpToArray($sSource, ByRef $aArray, $Pattern, $Results = 1)
$aRegExp = StringRegExp($sSource, $Pattern, 3)
If IsArray($aArray) Then
For $k = 0 To (UBound($aRegExp) - 1) / $Results
If $Results = 1 Then
If StringInStr($aRegExp[$k], "gamebox.swf") = 0 Then
_ArrayAdd($aArray, $aRegExp[$k])
EndIf
Else
_ArrayAdd($aArray, $aRegExp[$k] & $aRegExp[$k + 1])
EndIf
Next
Else
$aArray = StringRegExp($sSource, $Pattern, 3)
EndIf
EndFunc ;==>_RegExpToArray
Func _GerSub()
$displayTyp = "d"
$Hoster = "pure-anime"
$player = "IE"
$ReDraw = True
EndFunc ;==>_GerSub
Func _EngSub()
$displayTyp = "e"
$Hoster = "anime44"
$ReDraw = True
EndFunc ;==>_EngSub
Func _Exit()
For $i = 1 To UBound($aAnime_Bild) - 1
_GDIPlus_ImageDispose($aAnime_Bild[$i])
Next
_WinAPI_ReleaseDC($hGUI, $hDC_Buffer)
_WinAPI_ReleaseDC($hGUI, $hDC)
_GDIPlus_BitmapDispose($_GDI_Bitmap)
_GDIPlus_BrushDispose($hBrush_HalbTrans)
_GDIPlus_PenDispose($hPen_Rand)
_GDIPlus_ImageDispose($hArrow)
_GDIPlus_ImageDispose($hArrowHover)
_GDIPlus_ImageDispose($hArrowHover_Up)
_GDIPlus_ImageDispose($hArrow_Up)
_GDIPlus_ImageDispose($hBackground)
_GDIPlus_ImageDispose($hEngSub)
_GDIPlus_ImageDispose($hEngSub2)
_GDIPlus_ImageDispose($hEngSub2_2)
_GDIPlus_ImageDispose($hGerSub)
_GDIPlus_ImageDispose($hGerSub2)
_GDIPlus_ImageDispose($hGerSub2_2)
_GDIPlus_ImageDispose($hFullscreen)
_GDIPlus_ImageDispose($hFullscreen_Hover)
_GDIPlus_ImageDispose($hLoad)
_GDIPlus_ImageDispose($hLoadBorder)
_GDIPlus_ImageDispose($hMirror)
_GDIPlus_ImageDispose($hClose)
_GDIPlus_ImageDispose($hNoImage)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_FontDispose($hFont)
_GDIPlus_BrushDispose($hBrush)
For $i = 0 To UBound($aPreviewImage)-1
If $aPreviewImage <> '' Then
_GDIPlus_ImageDispose($aPreviewImage[$i])
EndIf
Next
_GDIPlus_Shutdown()
$hFile = _FileListToArray(@ScriptDir & '\data\images\gui\temp')
For $i = 1 To $hFile[0]
FileDelete(@ScriptDir & '\data\images\gui\temp\' & $hFile[$i])
Next
ProcessClose($SecondProcess)
Exit
EndFunc ;==>_Exit
Func _Minimize()
GUISetState(@SW_HIDE)
EndFunc ;==>_MinimizeGeschrieben
Func _ChangePlayerIE()
$player = "IE"
EndFunc ;==>_ChangePlayerIEVon
Func _ChangePlayerSHOCK()
$player = "SHOCK"
EndFunc ;==>_ChangePlayerSHOCKBlacky94
Func _sethoster($getHoster, $nothing = "")
$Hoster = $getHoster
EndFunc ;==>_sethoster
Func MY_WM_PAINT($hWnd, $Msg, $wParam, $lParam)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
$ReDraw = True
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc
Func _Check()
Local $hConnect[2]
$hHost = _WinHTTPOpen("")
$hConnect[0] = _WinHTTPConnect($hHost,"pure-anime.biz")
$hConnect[1] = _WinHTTPConnect($hHost,"www.anime44.com")
$sQuellcode = _WinHTTPSimpleRequest($hConnect[1],"GET","")
$AEAregExp = StringRegExp($sQuellcode, '\Q<a href="http://www.anime44.com/\E[^>]+>[^<]*<\/a><font color="#00CC00">', 3)
$sQuellcode = _WinHTTPSimpleRequest($hConnect[0],"GET","")
$StringRegExp = StringRegExp($sQuellcode,'\Q<font color="#F2F2F2" size="2">\E([^<]+)<',3)
For $i = 0 To 2
_ArrayDelete($StringRegExp,6)
Next
While Sleep(100)
$sQuellcode = _WinHTTPSimpleRequest($hConnect[0],"GET","")
$tempRegExp = StringRegExp($sQuellcode,'\Q<font color="#F2F2F2" size="2">\E([^<]+)<',3)
For $i = 0 To 2
_ArrayDelete($tempRegExp,6)
Next
For $i = 0 To UBound($tempRegExp)-1
If $tempRegExp[$i] <> $StringRegExp[$i] Then
_ShowNewAnime("Pure-Anime",$tempRegExp[0],"Deutsch")
$sQuellcode = _WinHTTPSimpleRequest($hConnect[0],"GET","")
$StringRegExp = StringRegExp($sQuellcode,'\Q<font color="#F2F2F2" size="2">\E([^<]+)<',3)
EndIf
Next
$sQuellcode = _WinHTTPSimpleRequest($hConnect[1],"GET","")
$AEAregExp2 = StringRegExp($sQuellcode, '\Q<a href="http://www.anime44.com/\E[^>]+>[^<]*<\/a><font color="#00CC00">', 3)
For $i = 0 To UBound($AEAregExp2) -1
$regExp2 = StringRegExp($AEAregExp2[$i], '">(?s)\s+([^<]*)<\/a>', 3)
$regExp = StringRegExp($AEAregExp[$i], '">(?s)\s+([^<]*)<\/a>', 3)
If StringStripWS($regExp2[0], 2) <> StringStripWS($regExp[0], 2) Then
$regExp2 = StringRegExp($AEAregExp2[0], '">(?s)\s+([^<]*)<\/a>', 3)
_ShowNewAnime("Anime44",StringStripWS($regExp2[0], 2),"Englisch")
$AEAregExp = StringRegExp($sQuellcode, '\Q<a href="http://www.anime44.com/\E[^>]+>[^<]*<\/a><font color="#00CC00">', 3)
EndIf
Next
WEnd
EndFunc
Func _ShowNewAnime($sSubGroup,$sAnime,$sLanguage)
SoundPlay("data\sounds\newanime.mp3",0)
$hGui = GUICreate("",250,150,@DesktopWidth - 250, @DesktopHeight, BitOR($WS_MINIMIZEBOX,$WS_POPUP,$WS_GROUP), BitOR($WS_EX_TOOLWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
GUISetState()
_GDIPlus_Startup()
$hGraphics = _GDIPlus_GraphicsCreateFromHWND($hGui)
$hBitmap = _GDIPlus_BitmapCreateFromGraphics(250,150,$hGraphics)
$hBuffer = _GDIPlus_ImageGetGraphicsContext($hBitmap)
$bg = _GDIPlus_ImageLoadFromFile("data\images\gui\new.png")
$sString = "Subgruppe: " & $sSubGroup & @CRLF & "Folge: " & $sAnime & @CRLF & "Untertitel: " & $sLanguage
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI)
$hBrush = _GDIPlus_BrushCreateSolid(0xFFff7200)
$hFormat = _GDIPlus_StringFormatCreate()
$hFamily = _GDIPlus_FontFamilyCreate("Arial")
$hFont = _GDIPlus_FontCreate($hFamily, 12, 1)
$tLayout = _GDIPlus_RectFCreate(5, 30, 250, 150)
For $i = 0 To 150
WinMove($hGui,"",@DesktopWidth - 250, @DesktopHeight - $i)
_GDIPlus_GraphicsDrawImage($hBuffer,$bg,0,0)
_GDIPlus_GraphicsDrawStringEx($hBuffer, $sString, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImageRect($hGraphics,$hBitmap,0,0,250,150)
Next
$sTimer = TimerInit()
Do
Sleep(100)
$pos = GUIGetCursorInfo($hGui)
_GDIPlus_GraphicsDrawImage($hBuffer,$bg,0,0)
_GDIPlus_GraphicsDrawStringEx($hBuffer, $sString, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImageRect($hGraphics,$hBitmap,0,0,250,150)
Until TimerDiff($sTimer) >= 5000 Or (IsArray($pos) And $pos[0] > 0 And $pos[1] > 0 And $pos[2] = 1)
For $i = 0 To 150
WinMove($hGui,"",@DesktopWidth - 250, @DesktopHeight - 150 + $i)
_GDIPlus_GraphicsDrawImage($hBuffer,$bg,0,0)
_GDIPlus_GraphicsDrawStringEx($hBuffer, $sString, $hFont, $tLayout, $hFormat, $hBrush)
_GDIPlus_GraphicsDrawImageRect($hGraphics,$hBitmap,0,0,250,150)
Next
_GDIPlus_BitmapDispose($hBitmap)
_GDIPlus_ImageDispose($bg)
_GDIPlus_FontDispose($hFont)
_GDIPlus_FontFamilyDispose($hFamily)
_GDIPlus_StringFormatDispose($hFormat)
_GDIPlus_BrushDispose($hBrush)
_GDIPlus_GraphicsDispose($hGraphics)
_GDIPlus_Shutdown()
_SuperGlobalSet("NewAnime","1")
EndFunc
Func _CheckForUpdates()
$sQuellcode = _INetGetSource('http://blacky94.1x.de/update.html')
$aRegExp = StringRegExp($sQuellcode,'Version:(.+)',3)
If $aRegExp[0] <> $sVersion Then
$Msg = MsgBox(36,'Updates vorhanden','Möchten Sie die Updates herunterladen und ihre Version auf ' & $aRegExp[0] & ' updaten?')
If $Msg = 6 Then
ShellExecute('Updater.exe')
Exit
EndIf
EndIf
EndFunc
Verbesserungsvorschläge werden gern gesehen!
Der Download ist im Anhang vorhanden, das Rar-Archive beinhaltet die Source, die Complimierte .exe, einige Bilder und einen Updater.
Hier zum Schluss noch ein Screenshot:
[Only registered and activated users can see links. Click Here To Register...]
Mfg
ShawnSpencer
ShawnSpencer