Ich habe hier mal wieder einen Fehler den ich nicht beheben kann
#include "WebTcp.au3"
#include <Array.au3>
#Include <File.au3>
TCPStartup()
_AutoITObject_Startup()
Global $oWebTcp = _WebTcp_Create(False,False)
$seite= "http://sternenmailer.de/"
$user = ""
$pw = ""
$oWebTcp.Navigate("http://sternenmailer.de/")
;$oWebTcp.Referer ="http://sternenmailer.de/"
$oWebTcp.Navigate("http://sternenmailer.de/index.php?mod=login","username="&$user&"&password= "&$pw&"&area=site&mod=login&do=do_login") ; ihr deine logindaten rein
$oWebTcp.Navigate('http://sternenmailer.de/index.php?area=user&mod=start')
;ClipPut($oWebTcp.body) ; kann auskommentiert werden
;msgbox(64,"Seitenwquellcode","in Zwischenablage") ; kann auskommentiert werden
for $m =1 to 10 ; anzahl der paidbanner durchgänge
;$oWebTcp.Referer ="http://www.paiduniversum.de/index.php?page=user.login&schritt=weiter"
$oWebTcp.Navigate("http://sternenmailer.de/index.php?area=user&mod=paidbanner")
;ClipPut($oWebTcp.body) ; kann auskommentiert werden
;msgbox(64,"Seitenwquellcode_banner","in Zwischenablage") ; kann auskommentiert werden
$bannerlinks= StringRegExp($oWebTcp.body,'(
[^"]*)',3)sleep(1000)
$filter_Verguetung= StringRegExp($oWebTcp.body,'Vergütung:.([^P]*)',3)
;_ArrayDisplay($bannerlinks,"Paidbanner") ; kann auskommentiert werden
;_arraydisplay($filter_Verguetung,"Vergütung") ; kann auskommentiert werden
if IsArray($bannerlinks) then
dim $array_paidbannerlink[1]
For $i = 0 To UBound($bannerlinks)-1
If $filter_Verguetung[$i] < 1 Then ; das ist die abfrage für minusbanner wenn minus -50 vorhanden ist dann nicht aufnehmen in den array
Else
_ArrayAdd($array_paidbannerlink, $bannerlinks[$i])
endif
Next
endif
_ArrayDelete($array_paidbannerlink,0)
;_ArrayDisplay($array_paidbannerlink,"array_paidba nnerlink") ; kann auskommentiert werden
for $i =0 to UBound($array_paidbannerlink)-1
$oWebTcp.navigate($array_paidbannerlink[$i])
sleep(1000)
;ClipPut($oWebTcp.body) ; kann auskommentiert werden
;msgbox(64,"Paidbanner1","in Zwischenablage") ; kann auskommentiert werden
$paidbannerlink=StringRegExp($oWebTcp.body,'(
[^"]*)',3);_ArrayDisplay($paidbannerlink,"paidbannerlinks") ; kann auskommentiert werden
if IsArray($paidbannerlink) then
$oWebTcp.Referer=$array_paidbannerlink[$i]
$oWebTcp.navigate($paidbannerlink[0])
sleep(1000)
;ClipPut($oWebTcp.body) ; kann auskommentiert werden
;msgbox(64,"Paidbanner2","in Zwischenablage") ; kann auskommentiert werden
else
EndIf
$paidbannerlinkfertig=StringRegExp($oWebTcp.body,' (
[^"]*)',3);_ArrayDisplay($paidbannerlinkfertig,"paidbannerli nkfertig")
sleep(1000)
$oWebTcp.Referer=$bannerlinks[$i]
$oWebTcp.navigate($paidbannerlinkfertig[0])
;ClipPut($oWebTcp.body) ; kann auskommentiert werden
;msgbox(64,"Paidbanner fertig","in Zwischenablage") ; kann auskommentiert werden
Next
next
msgbox(64,"alle Paidbanner","fertig")
_AutoITObject_Shutdown()
TCPShutdown()
hier der fehler
C:\Dokumente und Einstellungen\Feuerfrau\Desktop\Mailer\Sternenmail er.au3 (47) : ==> Variable used without being declared.:
_ArrayDelete($array_paidbannerlink,0)
_ArrayDelete(^ ERROR
Mal läuft es ohne Probleme und manschmal gehts gar nicht, das finde ich seltsam, weiß aber nicht wie ich den Fehler umgehen soll.
