Sie sind nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich 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



-