Makros funzenbei mir geht das nämlich nich ^^
ich wollt halt das man in diesem Script :
PHP Code:
#include <WebTcp.au3>
#include <String.au3>
_AutoItObject_Startup()
TCPStartup()
$oWebTcp = _WebTcp_Create(false,false)
$body=$oWebTcp.Navigate("http://www.bismarckschule-vertretungsplan.de/")
if FileExists(@scriptdir&"\Vertretungsplan.html")=1 Then filedelete(@scriptdir&"\Vertretungsplan.html")
filewrite("Vertretungsplan.html",$body)
_Wochentag("Montag","08a")
_Wochentag("Dienstag","08a")
_Wochentag("Mittwoch","08a")
_Wochentag("Donnerstag","08a")
_Wochentag("Freitag","08a")
Func _Wochentag($vDay,$vKlasse)
if $vDay="Freitag" Then
$Wochentag = _StringBetween($oWebTcp.Body,". "&$vDay,"")
else
$Wochentag = _StringBetween($oWebTcp.Body,". "&$vDay,$vDay)
endif
if IsArray($Wochentag)=0 Then
MsgBox(16,"Nicht gefunden!!!","Der Wochentag wurde nicht gefunden!!!"&@crlf&"Bitte guck nach ob du den Wochentag richtig geschrieben hast."&@crlf&"Z.b. Montag")
exit
endif
if FileExists(@scriptdir&"\Wochentage")=0 Then dircreate(@scriptdir&"\Wochentage")
if FileExists(@scriptdir&"\Wochentage\"&$vDay&".html")=1 Then filedelete(@scriptdir&"\Wochentage\"&$vDay&".html")
filewrite(@scriptdir&"\Wochentage\"&$vDay&".html",$Wochentag[0])
$Klasse=StringRegExp ($Wochentag[0],$vKlasse)
if $Klasse = 1 Then MsgBox(262144,"Vetretungen - "&$vDay,"Für "&$vDay&" steht etwas am Vertretungsplan")
endfunc
@MDAY verwenden nur dann spuckt die _StringBetween Funktion 'n Error aus -.-






