Du bist nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies dein erster Besuch auf dieser Seite ist, lese dir bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.
|
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
'serioussamurize.vbs
'Script zum Anzeigen des aktuellen Standes der Serious Samurize Entwicklung
Function AktEntwStand()
GetURL = "[url]http://www.samurize.com/"[/url]
Dim Http
Set Http = CreateObject("Microsoft.XMLhttp")
Http.Open "GET",GetURL,False
Http.Send
htmlTmp = Http.ResponseText
Set Http = Nothing
arrHtml = split(htmlTmp, "Special:</span></b>")
If UBound(arrHtml) < 1 Then
htmlTmp = "N/A"
Else
htmlTmp = arrHtml(1)
htmlTmp2 = htmlTmp
arrHtml = split(htmlTmp, "done, until <br> Serious Samurize")
htmlTmp = arrHtml(0)
arrHtml = split(htmlTmp, "><br>")
htmlTmp = arrHtml(1)
htmlTmp = replace(htmlTmp, chr(10), "") 'Zeilenumbruch killen
End If
AktEntwStand = Trim(htmlTmp)
End Function
|

Oli
Full Member



Oli
Full Member



Oli
Full Member



-