Scriptas
Posted: 2018 Nov 08 14:32
Sveiki gal galite pasakyti toki dalyka , zodziu prisijungiau i serveri kazkoki rusiska, isijunge tas motd langas ir iskarto pradejo man siust scriptus kazkokius , paspaudziu cancel, vel ismeta is naujo, praso tipo paspausti run, as nespaudziau ant galo isjungiau zaidima. Po kiek laiko ijungiu automatiskai pakeistas masterserver listas viskas.. Kaip cia jie taip padaro? Kad automatiskai pakeicia mano failus net..
Radau lyg ir ta faila kuri man siunte
Radau lyg ir ta faila kuri man siunte
Code: Select all
Option Explicit Dim args, http, fileSystem, adoStream, url, target, status Set args = Wscript.Arguments Set http = CreateObject("WinHttp.WinHttpRequest.5.1") url = args(0) target = args(1) WScript.Echo "Getting '" & target & "' from '" & url & "'..." http.Open "GET", url, False http.Send status = http.Status If status <> 200 Then WScript.Echo "FAILED to download: HTTP Status " & status WScript.Quit 1 End If Set adoStream = CreateObject("ADODB.Stream") adoStream.Open adoStream.Type = 1 adoStream.Write http.ResponseBody adoStream.Position = 0 Set fileSystem = CreateObject("Scripting.FileSystemObject") If fileSystem.FileExists(target) Then fileSystem.DeleteFile target adoStream.SaveToFile target adoStream.Close