Имя: Пароль:
IT
 
Приём аргументов в HTA
0 forforumandspam
 
23.02.12
14:11
Добрый день. Есть код на VBS:

   Dim lngI, objArgs
   Set objArgs = WScript.Arguments 'Создаём объект WshArguments
   For lngI = 0 To objArgs.Count - 1
       WScript.Echo (objArgs(lngI)) 'Выводим значение lngI-го параметра
   Next    

А как прочитать аргументы, если код VBS выполняется из HTML? Команда запуска типа: run.hta /arg1
1 forforumandspam
 
23.02.12
15:12
Уже нашёл.
2 smaharbA
 
23.02.12
15:56
как то так

<hta:application
id=xxx
/>
<script>
var argv=new String(xxx.commandLine).split('" ');
var comline=argv[0]
comline=comline.replace(/\\/g,'\\\\').replace(/"/g,'');
argv=argv[1].split(/["']{0,1}[ \t]+["']{0,1}/g);
alert(argv);
</script>
3 forforumandspam
 
24.02.12
09:21
(2) Всё равно спасибо!