Sie sind nicht angemeldet.
|
|
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



-