Aktualisierung von Skripten [gelöst]

[Cesideem]

Moin,

ich habe mal ein bisschen mit Samurize und und diesem Skript gespielt.
Ich habe mir das dortige Skript für die Europäischen XML-Dateien angepasst - soweit sogut...
Nun habe ich jedoch das Problem, daß die Aktualisierung auf dem Desktop scheinbar nicht richtig funktioniert

Code: Alles auswählen

SERVER_URL = "http://daoc.goa.com/herald/nb_connected2.xml"

Function Server_Population()
	FIRST_CHECK = "name="""
	FIRST_CHECK2 = "pop="""
	END_CHECK = " status"
	Dim htmlResult, output, newsItem, mainFeature
	htmlResult = ReturnHTML(SERVER_URL)
	output = Null
	startPos = InStr(htmlResult, Server_Name)
	posOne = InStr(startPos, htmlResult, FIRST_CHECK2)+5
	posTwo = InStr(posOne, htmlResult, END_CHECK)-1
	If posOne > 0 And posTwo > posOne Then
		newsItem = Right(Mid(htmlResult, posOne , posTwo - posOne ), posTwo - posOne)
	End If
	output = newsItem
	Server_Population = TrimHTML(output)
End Function

Ich frage mit dieser Funktion die Poplation eines in der Variablen "Server_Name" festgelegten Servers ab. Die XML-Datei wird im Minutentakt aktualisiert. In der Config von Samurize habe ich es so eingestellt, daß das Skript alle 1 Minute ausgeführt werden soll (Unter QUELLE, Alle X Minuten ausführen).
Dennoch wird die Anzeige auf dem Desktop nicht aktualsiert (Überrpüfen kann ich es ja, wenn ich die XML-Datei im Browser starte...)
Auch wenn ich die Config manuell neu lade, wird der Wert nicht aktualisiert...
Auch wenn ich im Config-Editor im Minutentakt auf "Skript testen" klicke, wird der Wert nicht aktualisiert

Jemand ne Idee, wo der Fehler liegt?
Hier der vollständigkeithalber auch noch die Funktion ReturnHTML:

Code: Alles auswählen

Private Function ReturnHTML(sURL)
	Dim objXMLHTTP,HTML
	Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")
	objXMLHTTP.Open "GET", sURL, False
	objXMLHTTP.Send
	HTML = objXMLHTTP.responseBody
	Set objRS = CreateObject("ADODB.Recordset")
	objRS.Fields.Append "txt", 200, 45000, &H00000080
	objRS.Open
	objRS.AddNew
	objRS.Fields("txt").AppendChunk HTML
	ReturnHTML = objRS("txt").Value
	objRS.Close
	Set objRS = Nothing
	Set objXMLHTTP = Nothing
End Function

Gruß
Cesideem

[Tante Google]

[tallman0815]

Hi,

ein ähnliches Problem haben wir ja mit dem Ebay-Script, vieleicht ist es die gleiche Ursache ...

talli

[Cesideem]

Naja, das mit dem Blocken vom Anbieter aus wie beim Ebay-Skript glaub ich nicht (zumindest hab ich das so verstanden in dem Thread).
Ich habe auf einer Webseite aus den selben Quellen wie im Skript die Daten mit PHP ausgelesen. Und dort werden die Daten mit jedem Reload aktualisiert.
Diese speziellen XML-Daten sind ja für die Community direkt vom Anbieter zur Auswertung zur Verfügung gestellt...
Ich werd mal versuchen, im Skript selbst nen Refresh einzubauen... Vielleicht hilft das ja schon...

[Cesideem]

Ich weiss nicht, ob es Euch bei dem eBay-Problem hilft, aber bei mir hat folgendes geholfen:

Ich habe die Zeile:
Set objXMLHTTP = CreateObject("Microsoft.XMLHTTP")

durch:
Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")

ersetzt. (Funktion ReturnHTML)
Habe den Tip vom offiziellen Samurizeforum bekommen. Damit läuft das Skript nun und aktualisiert sich alle 60 Sekunden.

[tallman0815]

Hi,

habe es bei dem Script geändert, nach dem ersten Eindruck klappt es. Danke Dir

talli

.- http://www.mydorf.de/DM -.