Vous n’êtes pas connecté.
Bonjour, visiteur, bienvenue sur les forums Aqua Computer Forum. Si c’est votre première visite, nous vous invitons à consulter l’Aide. Elle vous expliquera le fonctionnement de cette page. Pour avoir accès à toutes les fonctionnalités, vous devez vous inscrire. Pour cela, veuillez utiliser le formulaire d’enregistrement, ou bien lisez plus d’informations sur la procédure d’enregistrement. Si vous êtes déjà enregistré, veuillez vous connecter.
|
|
Code source |
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



-