Pilm palim,
Ih wollte hier mal meine SCript einstellen welches quasi aus purer Faulheit entstanden ist^^
Es ist ein Script welches alle 5 min. überprüft ob neue German-Bash Zitate vorhanden sind, und gib auch an wieviele es an dem Tag waren.
Bitte nich erschrecken der Quelltext is noch nich wirklich geordnet, das muss alles noch gemacht werden, weil ich gerade eine Funktion einfüge die einem die Zitate Direkt ausgibt, in einer eigenen Textdatei, GUI, HTML.... bin mir noch nich ganz schlüssig was es werden soll.
Spoiler anzeigen
#include<inet.au3>
#include <array.au3>
#include <string.au3>
while 1
Inidatum()
$ini_anzahl=IniRead(@ScriptDir&"\"&"GBO.ini", "GBO", "Anzahl", "")
$gbo_anzahl=call("anzahl_holen")
ConsoleWrite("gbo: "&$gbo_anzahl[1])
If $ini_anzahl<> $gbo_anzahl[1] Then
TrayTip("Gbo Quotes", "Es gibt neue GBO Quotes"&@CRLF&$gbo_anzahl[0], 15, 1)
IniWrite(@ScriptDir&"\"&"gbo.ini", "gbo", "anzahl", $gbo_anzahl[1])
TraySetToolTip($gbo_anzahl[1]&" neue Quotes Heute")
EndIf
sleep(1000*60*5)
WEnd
func anzahl_holen()
$source=_INetGetSource("http://german-bash.org/action/latest")
$Anzahl_full=_StringBetween($source, 'heute: <span class="zahl">', "</span></span>")
Global $Anzahl[2]
$Anzahl[0]=$Anzahl_full[0]-IniRead(@ScriptDir&"\"&"GBO.ini", "GBO", "Anzahl", "")
$Anzahl[1]=$Anzahl_full[0]
return $Anzahl
EndFunc
Func Inidatum()
$ini_datum=IniRead(@ScriptDir&"\"&"gbo.ini", "Datum", "Datum","")
$datum=@MDAY&@MON&@YEAR
if $ini_datum <> $datum Then
IniWrite(@ScriptDir&"\"&"gbo.ini", "gbo", "anzahl", "0")
IniWrite(@ScriptDir&"\"&"gbo.ini", "Datum", "Datum" ,$datum)
EndIf
EndFunc
Ich wäre froh wenn ich eure meinung darüber erfahren könnte
ToDo:
-Ausgabe der einzelnen Zitate
-Traymenü