Beiträge von Pinguin

Quelltext

<div class="fl" style="width:170px;margin-top:4px;margin-left:6px">
	<img src="/captcha.php?1214034805" alt="Captcha" id="captchaImage" />
			<div class="pd5"><a href="javascript:regenerateCaptcha();">Code unlesbar?</a></div>
		</div>
	<div class="fl" style="width:25px;padding-top:15px">
		<img src="http://s1.jappy.tv/i/a/sub/selectplz.gif" alt="Code rechts eingeben"

if StringLen($code)=4 Then

$Captchafelder = _IEFormGetCollection ($oIE, 0);Holt die Bereiche

$Codefeld = _IEFormElementGetObjByName($Captchafelder, "userCaptchaHash");Findet das TExtfeld


_IEFormElementSetValue ($Codefeld, $code);fügt text2 ein
Sleep(2000)

_IEFormSubmit ($Captchafelder); Sendet den GB


if StringinStr(_IEBodyReadHTML($oIE),"Der eingegebene Code ist falsch! Versuche es noch einmal.") Then
$PFADZUCAPTCHAS='D:\Gastebuch\GBAUTO';Dient zur Sicherung des nicht eraknnten Captchas
FileCopy($PFADZUCAPTCHAS&"\Erkennung\captcha_filtered.png",$PFADZUCAPTCHAS&'\Erkennung\Captchas\'&@YEAR&"-"&@MON&"-"&@MDAY&"-"&@HOUR&"-"&@MIN&"-"&@SEC&'.png')
FileDelete(@ScriptDir&"\code.jpg")
call("captcha")


Else; wenn code keine 4 zeichen ist, gleich neuen holen spart zeit!

$captcha_no_image = _IEGetObjById ($oIE, "captchaImage")
_IEAction ($oSubmit, "click")
_IELoadWait ($oIE)
captcha() ;<= zum nochmailigen bildspeichern und erkeenung starten, geht aber nicht, er ignoriert es und geht statdessen zum nächsten seite über, ielickbytext geht auch nicht

endif

#include <GUIConstants.au3>
#include <Date.au3>
#include <INet.au3>
#include <string.au3>
#include<array.au3>
#include<file.au3>
#include<IE.au3>
#include<File.au3>
Global $lines
;Opt("GUICloseOnESC", 0)
;Opt("MustDeclareVars", 1)
$Mon=@MON
if $mon = 1 Then
start()
EndIf

if $mon = 2 Then
start()
EndIf
dim $TITEL
func start()
GUICreate("Movie Info getter", 500, 410)
GUICtrlCreateLabel("Link zum Film", 10, 30)
$LM = GUICtrlCreateInput("", 100, 30, 370, 20)

GUICtrlCreateLabel("Link zum Cover", 10, 150)
$cover=GUICtrlCreateInput('', 100, 150, 370, 20)

GUICtrlCreateLabel("Format", 10, 190)
$Format =GUICtrlCreateInput('XviD', 100, 190, 370, 20)

GUICtrlCreateLabel("Größe", 10, 230)
$Size=GUICtrlCreateInput('700', 100, 230, 370, 20)

$Bilder1 = GUICtrlCreateLabel("Cover Suche", 10, 310, 170, 14)
GUICtrlSetColor(-1, 0x0000cc)
GUICtrlSetFont(-1, Default, Default, 4)
GUICtrlSetCursor(-1, 0)

$h_connbt = GUICtrlCreateButton("Hole Infos", 220, 330)
$h_endbt = GUICtrlCreateButton("Schließen", 220, 360)
;$status=GUICtrlCreateLabel("Warte auf Daten...", 10, 200);, 50, 50)
GUISetState()
While 1
$i_msg = GUIGetMsg()
Select

Case $i_msg = $h_connbt
$LMR = GUICtrlRead($LM)

$FormatR = GUICtrlRead($Format)
$SizeR = GUICtrlRead($Size)
$FormatR = GUICtrlRead($Format)
$coverR = GUICtrlRead($cover)
$oie=_IECreate($LMR,0,0)
;$RIE=_IEBodyReadText($oie)
$RIE=_IEBodyReadText($oie)
MsgBox(0,"",$RIE)
$file='TEMP.txt'
FileDelete($file)
FileWrite($file,$RIE)

;$RIEO=FileOpen($RIE,0)

_FileReadToArray($RIE, $lines)
;_ArrayDisplay($lines,'TEST')

For $i = 1 To UBound($lines) - 1
If StringInStr($lines[$i],'Min') <> 0 Then
For $G = $i - 1 To $i

MsgBox(0,"Genre",$lines[$G])
ExitLoop
;EndIf
Next
For $I = $i + 29 To $i
MsgBox(0,"Inhalt",$lines[$I])
Next
EndIf
Next

case $i_msg = $Bilder1
_GuiCtrlCreatePointrect(9, 9, 21, 15)
GUICtrlSetColor($Bilder1, 0x551A8B)
$oIE=_IECreate('http://www.cover-paradies.to/?Module=ExtendedSearch')


if not $TITEL="" then

$oForm = _IEFormGetCollection ($oIE, 0);Holt die Bereiche
sleep(1000)


$oQuery = _IEFormElementGetObjByName($oForm, "SearchString");Findet das TExtfeld

_IEFormElementSetValue ($oQuery, $TITEL);fügt text2 ein
Sleep(2000)
_IEFormSubmit ($oForm); Sendet den GB
endif

Case $i_msg = $h_endbt Or $i_msg = $GUI_EVENT_CLOSE

Exit
EndSelect
WEnd

EndFunc

Func _GuiCtrlCreatePointrect($iLeft, $iTop, $iWidth = 50, $iHeigth = 50, $iStyle = -1,$iColor = 0)
Local $hGraphic, $i = 0, $xy = 0
;$hGraphic = GUICtrlCreateGraphic($iLeft, $iTop, $iWidth, $iHeigth, $iStyle)
GUICtrlSetState($hGraphic, $GUI_DISABLE + $GUI_ONTOP)
While 1
$i += 1
Switch $i
Case 1
$x = 0
$xy = 0
Case 2
$x = $iWidth
$xy = 0
Case 3
$y = 0
$xy = 1
Case 4
$y = $iHeigth
$xy = 1
Case Else
ExitLoop
EndSwitch
GUICtrlSetGraphic($hGraphic, $GUI_GR_COLOR, $iColor)
If Not $xy Then
For $y = 0 To $iHeigth Step 2
GUICtrlSetGraphic($hGraphic, $GUI_GR_PIXEL, $x, $y)
Next
Else
For $x = 0 To $iWidth Step 2
GUICtrlSetGraphic($hGraphic, $GUI_GR_PIXEL, $x, $y)
Next
EndIf
WEnd
GUICtrlSetGraphic($hGraphic, $GUI_GR_REFRESH)
Return $hGraphic
EndFunc ;==>_GuiCtrlCreatePointrect

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\..\..\..\icon.ico
#AutoIt3Wrapper_outfile=..\Exen\1.1
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseAnsi=y
#Obfuscator_Parameters=/cs=1 /cn=1 /cf=1 /cv=1 /sf=1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <GUIConstants.au3>
#include <Date.au3>
#include <INet.au3>
#include <string.au3>
#include<array.au3>
#include<file.au3>
#include<IE.au3>
;Opt("GUICloseOnESC", 0)
;Opt("MustDeclareVars", 1)

dim $TITEL

GUICreate("Movie Info getter ", 500, 310)
GUICtrlCreateLabel("Link zum Film", 10, 30)
$LM = GUICtrlCreateInput("http://www.kino.de/kinofilm/aliens-vs-predator-2/98765.html", 100, 30, 370, 20)
GUICtrlCreateLabel("Format", 10, 70)
$Format =GUICtrlCreateInput('XviD', 100, 70, 370, 20)

$Bilder1 = GUICtrlCreateLabel("Cover Suche", 10, 230, 170, 14)
GUICtrlSetColor(-1, 0x0000cc)
GUICtrlSetFont(-1, Default, Default, 4)
GUICtrlSetCursor(-1, 0)

$h_connbt = GUICtrlCreateButton("Hole Infos", 220, 250)
$h_endbt = GUICtrlCreateButton("Schließen", 220, 280)
;$status=GUICtrlCreateLabel("Warte auf Daten...", 10, 200);, 50, 50)
GUISetState()
While 1
$i_msg = GUIGetMsg()
Select

Case $i_msg = $h_connbt

$Source=@ScriptDir&'\Source.txt'

$OSOURCE=FileOpen($Source,0)

FileClose($OSOURCE)
FileDelete("TempG.txt")
FileDelete("TempD.txt")
FileDelete($SOURCE)

$LMR = GUICtrlRead($LM)
$FormatR = GUICtrlRead($Format)
$LMR=_INetGetSource($LMR)
If @error Then MsgBox(64, "Error", "Konnte URL-Source nicht laden")

FileDelete($SOURCE)
FileWrite($Source,$LMR)
$OSOURCE=FileOpen($Source,0)

while 1
$INFO=FileReadLine($OSource)
if @error =-1 Then
ExitLoop
endif
Global $str = $INFO

;Hier den Titel
if StringInStr($INFO,'Infos zum Film | KINO.DE</title>') Then
$INFO=StringTrimLeft($INFO,7)
$INFO=StringTrimRight($INFO,35)
$TITEL=$INFO
;MsgBox(0,"",$TITEL)
EndIf

;Hier holt es den Inhalt <meta name="Description" content="
$aINHALT = _StringBetween($str, 'target="_blank">Website</a></td></tr></table><span style="line-height: 15px;">', '<br />')
;_ArrayDisplay($aGenre, 'Users')

_FileWriteFromArray("TempI.txt",$aINHALT)

;Hier holt es die Genre...

$aGenre = _StringBetween($str, '</span><br /><span class="standardsmall"><strong>', '</strong> -')
;_ArrayDisplay($aGenre, 'Users')
_FileWriteFromArray("TempG.txt",$aGenre)

;Holt hier die Dauer...

$aDauer = _StringBetween($str, '</strong> - <strong>', '.</strong> - <')
;_ArrayDisplay($aDauer, 'Users')
_FileWriteFromArray("TempD.txt",$aDauer)

WEnd
$DAUER=FileReadLine("TempD.txt",2)

;Code Stück für min rausfiltern
$len = StringLen($DAUER)
$lenG=$len-5
$DAUERA = StringMid($DAUER, $lenG)

if $DAUERA="00 Min" Then
$len=$len-6
$DAUERA = StringMid($DAUER, $len)

EndIf

;MsgBox(0,"",$DAUERA)
$DAUERA=StringTrimRight($DAUERA,4)

$zahl_in_minuten = $DAUERA
$h_1 = $zahl_in_minuten/60
$stunde=StringLeft($h_1,1)
$minute=$zahl_in_minuten-$stunde*60
$DauerA=$stunde&':'&$Minute&':00'

$GENRE=FileReadLine("TempG.txt",2)
$INHALT2=FileReadLine("TEMPI.txt",2)

; der Abschnitt um die klammern wo die links zu den schauspielern sind loszuwerden
$Array = _StringBetween($INHALT2, '\(', '\)', -1, 1)
For $i = 0 To UBound($Array) -1
$INHALT2 = StringReplace($INHALT2, ' (' & $Array[$i] & ')', '')
Next
;MsgBox(0, '', $INHALT2)

$FOLDER=@ScriptDir&'\'&$TITEL&'\'
DirCreate($FOLDER)
FileDelete($FOLDER&$TITEL&".txt")
FileWrite($FOLDER&$TITEL&".txt",$INHALT2&@CRLF&@CRLF&@CRLF&@CRLF&$DAUERA&@CRLF&$FormatR)

FileClose($OSOURCE)
FileDelete($SOURCE)

FileDelete("TempG.txt")
FileDelete("TempD.txt")

FileDelete("TempI.txt")

case $i_msg = $Bilder1
_GuiCtrlCreatePointrect(9, 9, 21, 15)
GUICtrlSetColor($Bilder1, 0x551A8B)
$oIE=_IECreate('http://www.cover-paradies.to/?Module=ExtendedSearch')


if not $TITEL="" then

$oForm = _IEFormGetCollection ($oIE, 0);Holt die Bereiche
sleep(1000)

$fehler6 = "Fehler beim finden des Texfeldes"
$oQuery = _IEFormElementGetObjByName($oForm, "SearchString");Findet das TExtfeld

_IEFormElementSetValue ($oQuery, $TITEL);fügt text2 ein
Sleep(2000)
_IEFormSubmit ($oForm); Sendet den GB
endif

Case $i_msg = $h_endbt Or $i_msg = $GUI_EVENT_CLOSE
FileClose($OSOURCE)
FileClose($OSOURCE)

FileDelete($SOURCE)
Exit
EndSelect
WEnd

Func _GuiCtrlCreatePointrect($iLeft, $iTop, $iWidth = 50, $iHeigth = 50, $iStyle = -1,$iColor = 0)
Local $hGraphic, $i = 0, $xy = 0
;$hGraphic = GUICtrlCreateGraphic($iLeft, $iTop, $iWidth, $iHeigth, $iStyle)
GUICtrlSetState($hGraphic, $GUI_DISABLE + $GUI_ONTOP)
While 1
$i += 1
Switch $i
Case 1
$x = 0
$xy = 0
Case 2
$x = $iWidth
$xy = 0
Case 3
$y = 0
$xy = 1
Case 4
$y = $iHeigth
$xy = 1
Case Else
ExitLoop
EndSwitch
GUICtrlSetGraphic($hGraphic, $GUI_GR_COLOR, $iColor)
If Not $xy Then
For $y = 0 To $iHeigth Step 2
GUICtrlSetGraphic($hGraphic, $GUI_GR_PIXEL, $x, $y)
Next
Else
For $x = 0 To $iWidth Step 2
GUICtrlSetGraphic($hGraphic, $GUI_GR_PIXEL, $x, $y)
Next
EndIf
WEnd
GUICtrlSetGraphic($hGraphic, $GUI_GR_REFRESH)
Return $hGraphic
EndFunc ;==>_GuiCtrlCreatePointrect