Hilfe beim Script

Pinguin

Hallo ich komme nicht weiter da es immer kleine unterschiede gibt

wie schafft man es diese infos auf alles webstiten von https://autoit.de/www.kino.de zu bekommen
Bei diesen Links
http://www.kino.de/videofilm/7eventy-5ive-dvd/111228.html
http://www.kino.de/kinofilm/aliens-vs-predator-2/98765.html
http://www.kino.de/kinofilm/I%20Am%20Legend/100203.html?channel=kino&pos=kino_hp_toptitel_Preview_der_Woche_I_Am_Legend

Inhalt

Genre

Dauer

mein schript bisher

Spoiler anzeigen

[autoit]

#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 ****

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

#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)

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

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)

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

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

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

$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

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

Case $i_msg = $h_connbt

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

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

$OSOURCE=FileOpen($Source,0)

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

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

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

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

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

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

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

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

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

;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

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

;Hier holt es den Inhalt <meta name="Description" content="
$aINHALT = _StringBetween($str, 'target="_blank">Website</a></td></tr></table>', ' ')
;_ArrayDisplay($aGenre, 'Users')

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

_FileWriteFromArray("TempI.txt",$aINHALT)

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

;Hier holt es die Genre...

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

$aGenre = _StringBetween($str, ' ', ' -')
;_ArrayDisplay($aGenre, 'Users')
_FileWriteFromArray("TempG.txt",$aGenre)

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

;Holt hier die Dauer...

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

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

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

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

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

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

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

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

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

EndIf

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

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

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

$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'

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

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

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

; 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)

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

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

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

FileClose($OSOURCE)
FileDelete($SOURCE)

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

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

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

FileDelete("TempI.txt")

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

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

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

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

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

FileDelete($SOURCE)
Exit
EndSelect
WEnd

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

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

[/autoit]

**Xenobiologist**

Hi,

kannst du die Probleme etwas anschaulicher machen. Ich habe keine Lust alle Links zu beusuchen und den Quelltext zu analysieren um dein Problem zu verstehen.

So long,

Mega

Pinguin

klar kann ich das

also, ich bin mit meinen Script von der kino.de seite ausgegangen, sprich mit http://www.kino.de/kinofilm/aliens-vs-predator-2/98765.html

also bin ich von

Code

<title>Aliens vs. Predator 2 | Infos zum Film | KINO.DE</title>

ausgegangen, also links und rechts abschneiden, dann passt es.

aber bei den anderen Seiten schaut so aus

Code

<title>7eventy 5ive | Video | KINO.DE</title>

Also müsste man allses was zwischen

Code

<title>

und

Code

ok das ist kein Problem, das bekomme ich hin denke ich, das Hauptproblem habe ich bei den Inhalt und den Rest.

bei Alien ist es so

Code

<td><table width="100%" cellpadding="0" cellspacing="0" border="0" align="left"><tr><td><table cellpadding="0" cellspacing="0" border="0" align="left"><tr><td width="120"><img src="http://images.kino.de/flbilder/max07/auto07/auto45/07450524/w120.jpg" width="120" height="169" align="left" alt="Aliens vs. Predator 2" border="" vspace="0"  hspace="0" /></td><td><img src="/pix/clear.gif" width="2" height="100%" alt="" /></td></tr><tr><td align="center"><a href="http://avp2.de" target="_blank">Website</a></td></tr></table><span style="line-height: 15px;">Als ein Aufklärungsschiff der Predatoren in einem entlegenen Kaff im Gebirgsstaat Colorado abstürzt, steht es schlecht um die Bewohner der kleinen Gemeinde. Sheriff Morales (<a href="/mitwirk.php4?nr=81477&amp;channel=kino&amp;PHPSESSID=244599741af76f53c259fb43d219523a">John Ortiz</a>) muss mit ansehen, wie die an Bord gefangenen Aliens entkommen und alle Predatoren bis auf einen töten. Der schreitet unverdrossen zur Tat, die Brut auszulöschen, bekommt es aber auch mit einem Pred-Alien-Hybriden zu tun. Im Duell der mythischen Kreaturen bangt Dallas (<a href="/mitwirk.php4?nr=211317&amp;channel=kino&amp;PHPSESSID=244599741af76f53c259fb43d219523a">Steven Pasquale</a>) um sein Leben.<br />
<br />

das habe ich mit

[autoit]

$aINHALT = _StringBetween($str, 'target="_blank">Website</a></td></tr></table>', ' ')

[/autoit]

rausbekommen, hat auch gut funktioniert, nun gibt es aber auch solche Beschreibungen dort
also müsste ich fals das oben fehlschlägt eine 2te erkennung durchführen, aber wie?

Code

navi/navi3/dreieck_V.gif" width="8" height="8" alt="" border="0" /> <a href="/videofilm/7eventy-5ive-dvd/inhalt/111228.html?PHPSESSID=03d00681bb46391bdce99c7a08ea0109">Kritik</a></td></tr><tr><td class="navi3"><img src="/pix/navi/navi3/dreieck_V.gif" width="8" height="8" alt="" border="0" /> <a href="/videofilm/7eventy-5ive-dvd/features/111228.html?PHPSESSID=03d00681bb46391bdce99c7a08ea0109">DVD-Features</a></td></tr></table></td><td width="1"><img src="/pix/clear.gif" width="1" height="1" alt="" /></td><td class="navi3" width="33%"><table cellpadding="0" cellspacing="0" border="0"><tr><td class="navi3"><img src="/pix/navi/navi3/dreieck_V.gif" width="8" height="8" alt="" border="0" /> <a href="/videofilm/7eventy-5ive-dvd/credits/111228.html?PHPSESSID=03d00681bb46391bdce99c7a08ea0109">Cast & Crew</a></td></tr><tr><td class="navi3">&nbsp;</td></tr></table></td></tr><tr><td colspan="5"><img src="/pix/clear.gif" width="100%" height="5" alt="" /></td></tr></table></td></tr><tr><td><table width="100%" cellpadding="0" cellspacing="0" border="0" align="left"><tr><td><table cellpadding="0" cellspacing="0" border="0" align="left"><tr><td width="120"><img src="http://images.kino.de/flbilder/max07/mbiz07/mbiz41/z0741083/w120.jpg" width="120" height="169" align="left" alt="7eventy 5ive" border="0" vspace="0"  hspace="0" /></td><td><img src="/pix/clear.gif" width="2" height="100%" alt="" /></td></tr></table>Beim Telefonstreichspiel 75 gilt es, das Opfer mit Drohungen wenigstens 75 Sekunden am Hörer zu halten. Marcus, Brandon und die anderen Mitglieder der Studentenverbindung "The Crew" haben es darin zur Meisterschaft gebracht und ziehen sich so unter anderem den Zorn eines anhänglichen Axtmörders zu. Der knöpft sich die Gruppe anlässlich eines rauschenden Partywochenendes in einer Nobelvilla vor. Können Detective Criton und seine junge Assistentin das Schlimmste verhindern?</td></tr>
		<tr><td></td></tr><tr><td><script type="text/javascript" src="http://ad.de.doubleclick.net/adj/kino-contentad/dvd_video;pg=dvd_video;!category=stop;ind=no;sz=1x1;tile=3;ord=81168882?"></script>
<script type="text/javascript">
checkContentAd('dvd_video');
</script></td></tr>


<tr><td valign="top" align="left"><img src="/pix/clear.gif" width="100%" height="9" vspace="0" alt="" /></td></tr><tr><td valign="top" align="left"><table width="100%" cellpadding="0" cellspacing="8" border="0"><tr><td valign="top" align="left" width="50%"><span class="headline3white">KRITIK</span><br /><img class="dbtrefferdark" src="/pix/clear.gif" width="100%" height="1" vspace="4" alt=""/><br /><table width="100%" border="0" cellpadding="0" cellspacing="0" align="left">
			<tr>
				<td align="left" valign="top"><span class="dachzeile"><img src="/pix/icons/V_welle5x3hell_lr.gif" width="14" height="8" alt=""/>  FÜR SIE ANGESEHEN</span> 
					<br /><span class="headline3"><a href="/videofilm/7eventy-5ive-dvd/inhalt/111228.html?PHPSESSID=03d00681bb46391bdce99c7a08ea0109">7eventy 5ive</a></span>
				</td>
			</tr>
			<tr>
				<td valign="top" align="left"><img src="http://www.ki

Alles anzeigen

Dauer ist kein Problem, scheint bei allen zu funktionieren

bei der Genre happert es wieder, weil wieder andere erkennung ist, da steht eben bei manchen DVD dabei

hier geht es

Code

</h1><span class="standardsmall">(Aliens vs. Predator: Requiem)</span><br /><span class="standardsmall"><strong>Science Fiction/Horror</strong> - <strong>USA 2007</strong><br /> <strong>FSK: keine Jugendfreigabe</strong> - <strong>93 Min.</strong> - <strong>Verleih: Fox</strong><br /></span><span class="standardsmall"><strong>Start: 26.12.2007</strong></span>

und hier auch

Code

</h1><span class="standardsmall"><strong>DVD</strong> - <strong>Thriller/Horror</strong> - <strong>USA 2007</strong><br /></span>Beim Telefonstreichspiel 75 gilt es, das Opfer mit Drohungen wenigstens 75 Sekunden am Hörer zu halten. Marcus, Brandon und die anderen Mitglieder der Studentenverbindung "The Crew" haben es darin zur Meisterschaft <a href="/videofilm/7eventy-5ive-dvd/113302.html?PHPSESSID=47b304f2d5217a963d050237be225198">mehr</a><br /><span class="standardsmall"><strong>Kaufstart:&nbsp;10.01.2008</strong></span>

habe ich es versucht falls error auftritt die andere erkunng zu machen und es geht auch!

hier das script teil

[autoit]

$aGenre = _StringBetween($str, ' ', ' - ')
if @error Then
$aGenre=_StringBetween($str,'</h1>DVD - ', ' - ')
endif
;_ArrayDisplay($aGenre, 'Genre')
_FileWriteFromArray("TempG.txt",$aGenre)

[/autoit]

nun dachte ich, habe ich es geschafft, er hier filter er mir wieder nichts raus...
http://www.kino.de/kinofilm/i-am-legend/100203.html

Code

</h1><span class="standardsmall"><strong>Science Fiction/Action</strong> - <strong>USA 2007</strong><br /><strong>100 Min.</strong> - <strong>Verleih: Warner</strong><br /></span><span class="standardsmall"><strong>Start: 10.01.2008</strong></span>

eigentlich müsste es gehen, da es ja in script genau so drinnen steht... ich verstehe es nicht....

Frage ist wie ich das alles so umbaue das es immer alles findet?

und optimierung, eventuell alles gleich in in ein array rein.

hat wer ideen, und mach micht nciht fertig für diesen Scriptcode, bin halt kein Profi und werde es so schnell leider auch nicht werden

schönen Sontag wünsche ich

**BugFix**

??
Das hatten wir doch schon mal in einem anderen Thread gelöst. *verwirrt-bin*
Aber ist es hier nicht günstiger, statt des Quelltextes sich den Text der Seite ausgeben zu lassen? _IEBodyReadText()

Pinguin

Hatten wir, da ging es um die Beschreibung die Gefunden wurde, nur findet es hier die Beschreibung bei ähnlichen Links nicht (alle auf der selben Website)

ich glaube du hats recht, diesen Befehl versuch ich mal, wenn das das macht was ich mir vorstelle ises leicht

EDIT

Ich glaube BugFix hat bei mir was gut, ist ja so um einiges leichter, berichte heute Abend wieder, muss wieder mal pendeln

EDIT 2

Ok, nun habe ich ein anderes Problem....
Der Inhalt steht immer in einer anderen Zeile, wie mache ich es da?

Das Programm weiß ja nichte was die Beschreibung ist

AlkoholiX

Kannst du mal deinen Aktuell überarbeitetes Skript posten?

Grüßle AlkoholiX

Pinguin

naja es ist ja praktisch nutzlos das der inhalt immer woanders steht, und ich keinen anhalspunkt habe... habe praktisch nur eine msgbox mit kompletten inhalt des textes der seite

aber dennoch

Spoiler anzeigen

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

#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

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

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)

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

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

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

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

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

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

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

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

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

$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

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

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)

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

;$RIEO=FileOpen($RIE,0)

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

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

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

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

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

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

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

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

Exit
EndSelect
WEnd

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

EndFunc

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

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

[/autoit]

AlkoholiX

Vielleicht nicht die beste Lösung, aber eine Lösung
Die variablen solltest du vielleicht noch ein bisschen umbenennen, um Klarheit zu schaffen

Spoiler anzeigen

[autoit]

Global $lines
;Opt("GUICloseOnESC", 0)
;Opt("MustDeclareVars", 1)
$Mon=@MON
MsgBox(0,"",$mon)
if $mon = 1 Then
start()
EndIf
if $mon = 2 Then
start()
EndIf
dim $TITEL, $titel0
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)
_IEQuit($oie)
Global $file='TEMP.txt'
FileWrite($file,$RIE)
$titel0 = FileReadLine($file,3)
$titel0 = StringTrimLeft($titel0,350)
$titel0 = StringTrimRight($titel0,1)

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

$LMR = StringTrimLeft($LMR,19)
Global $stringlen = StringLen($lmr)
$LMR= StringTrimRight($LMR,$stringlen-4) ;zerpflückt den link
Global $xxx = 1
Global $test = ""
If $LMR = "kino" Then ;falls kinofilm
Do
$test = FileReadLine($file,$xxx)
$xxx +=1
Until $test="Website"
$info = FileReadLine($file,$xxx)
$info = $info&@CRLF&FileReadLine($file,$xxx+2)
$xxx = 1
Do
$xxx +=1
$test = FileReadLine($file,$xxx)
$test = StringTrimRight($test,13)
Until $test = "Start"
Global $start = FileReadLine($file,$xxx)
$start = StringTrimLeft($start,7)
MsgBox(0,"Infos","Titel:"&@TAB&@TAB&$titel0&@CRLF&"Starttermin:"&@TAB&$start&@CRLF&"Info:"&@CRLF&$info) ;infos ausgeben
ElseIf $LMR="vide" Then ;falls videofilm
Do
$test = FileReadLine($file,$xxx)
$xxx +=1
Until $test = " Cast & Crew"
$info = FileReadLine($file,$xxx+5)
MsgBox(0,"Infos","Titel:"&@TAB&@TAB&$titel0&@CRLF&"Info:"&@CRLF&$info)
Else
EndIf
;FileMove($file,$titel0&".txt") ;DEBUG
;MsgBox(0,"Titel :",$titel0)
;MsgBox(0,"Info :",$info)
FileDelete($file)

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

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

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

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

Exit
EndSelect
WEnd

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

EndFunc

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

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

[/autoit]

Gibt noch einiges dran zu verbessern, aber es läuft soweit...
Grüßle AlkoholiX