Wer ist online?

ich habe mir ein kleines Skript geschrieben, dass einen darauf hinweißt, wann jemand hier im Forum on kommt oder off geht. Bevor ich das hier poste, habe ich noch folgende Frage: Verstößt dieses Programm gegen die Forenregeln?

Zitat von Regeln

3. Folgende Inhalte sind absolut unerwünscht. Das Team behält es sich ausdrücklich vor, bei Verstoß gegen diese Regeln je nach Schweregrad zu verwarnen, zu löschen oder gar komplett zu sperren.:
- Automatisierung von Webseiten oder Tools, die das in ihren AGBs verbieten

Wenn es gegen die Regeln verstößt werde ich es selbstverständlich nicht posten.
Logischerweise habe ich ein Sleep eingebaut, weil sonst ging das ja auf den Traffic der Seite...

mfG
Developer30

; ###########################################
; AutoIt.de Status Checker
; 2010 by Developer30
; ###########################################
$allusers = ""
$fiststart = True
$link = "http://autoit.de/index.php?page=Portal"
$dummy = "&&dummy=" & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC ; Für den Fall, dass jemand eine veraltete IE Version hat
$url = $link & $dummy
$source = BinaryToString(InetRead($url, 1))
While 1
$dummy = "&&dummy=" & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC
$url = $link & $dummy
$source = BinaryToString(InetRead($url, 1))
$split1 = StringSplit($source, '<p class="smallFont">', 1)
$split2 = StringSplit($split1[2], "</div>", 1)
$split = $split2[1]
$split = StringReplace($split, '<span style="color:#33a; font-weight:bolder;">', "")
$split = StringReplace($split, '<span style="color:#0a0; font-weight:bolder;">', "")
$split = StringReplace($split, '<span style="color:#800000; font-weight:bolder;">', "")
$split = StringReplace($split, '<span style="color:#; font-weight:bolder;">', "")
$split = StringReplace($split, "</span", "</a>")
$split_4 = StringSplit($split, '">', 1)
Dim $users[$split_4[0] - 1]
$y = 0
For $x = 2 To $split_4[0]
$split_5 = StringSplit($split_4[$x], "</a>", 1)
If $split_5[1] <> "" Then
$result = $split_5[1]
$users[$y] = $result
$y = $y + 1
EndIf
Next
If $fiststart <> True Then
$moreusers = False
$online = ""
For $u = 0 To UBound($users) - 1
If Not StringInStr($allusers, $users[$u]) And StringLen($online) <> 0 Then
$online = $online & ", " & $users[$u]
$moreusers = True
EndIf
If Not StringInStr($allusers, $users[$u]) And StringLen($online) = 0 Then $online = $online & $users[$u]
Next
If $online <> "" Then
If $moreusers = True Then
TrayTip("AutoIt.de", $online & " sind online!", 1000)
Else
TrayTip("AutoIt.de", $online & " ist online!", 1000)
EndIf
EndIf
$tempusers = $allusers
For $t = 0 To UBound($users) - 1
$tempusers = StringReplace($tempusers, $users[$t] & ";", "")
Next
$tempsplit = StringSplit($tempusers, ";", 1)
$offline = ""
$moreusers = False
For $z = 1 To $tempsplit[0] - 1
If $offline <> "" Then
$offline = $offline & ", " & $tempsplit[$z]
$moreusers = True
Else
$offline = $offline & $tempsplit[$z]
EndIf
Next
If $offline <> "" Then
If $moreusers = True Then
TrayTip("AutoIt.de", $offline & " sind offline!", 1000)
Else
TrayTip("AutoIt.de", $offline & " ist offline!", 1000)
EndIf
EndIf

EndIf
$allusers = ""
For $z = 0 To UBound($users) - 1
$allusers = $allusers & $users[$z] & ";"
Next
If $fiststart = True Then $fiststart = False
$k = 1000
Sleep(Random(50 * $k, 90 * $k, 1))
WEnd

Bevor einer fragt

$dummy = "&&dummy=" & @YEAR & @MON & @MDAY & @HOUR & @MIN & @SEC & @MSEC

$dummy wird nur angehängt, weil es bei älteren IE-Versionen wohl vorkommen soll, dass Webseiten einfach aus dem Cache geladen werden und daher ist der "Refresh" Effekt bei diesem Script ja verloren. Kann sein, dass der $dummy nicht mehr benötigt wird, hab ihn zur Sicherheit mal trotzdem eingebaut.