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
-