You are not logged in.
Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
|
|
Source code |
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



-