|
|
|
Что не так в скрипте от производителя.
|
|||
|---|---|---|---|
|
#18+
При установке софтины предлагаются примеры скриптов . Текст файла примера (example1.vbs): #$language = "VBScript" #$interface = "1.0" Sub main ' turn on synchronous mode so we don't miss any data crt.Screen.Synchronous = True ' Wait for a string that looks like "login: " or "Login: " ' Occasionally, a host needs to be kicked to display a ' login prompt. If (Not crt.Screen.WaitForString("ogin: ", 5)) Then crt.Screen.Send vbCr crt.Screen.WaitForString "ogin: " End If ' Send your username followed by a carriage return crt.Screen.Send "username" & VbCr ' Wait for a tring that looks like "password: " or "Password: " crt.Screen.WaitForString "assword:" ' Send your password followed by a carriage return crt.Screen.Send "password" & VbCr ' turn off synchronous mode for normal input processing crt.Screen.Synchronous = False End Sub Если этот файл стартануть, то выдаётся ошибка : Строка : 1 Символ : 1 Ошибка : Предполагается раличие инструкции. Код : 800A0400 Что не так ? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.03.2008, 18:48 |
|
||
|
Что не так в скрипте от производителя.
|
|||
|---|---|---|---|
|
#18+
Скорее всего эти файлы не предназначены для запуска из командной строки. Строки #$language = "VBScript" #$interface = "1.0" не являются правильными с точки зрения VBScript. Это во-первых. Во-вторых, внутри main используется необъявленная переменная crt и объявляется процедура Sub которая никем не вызывается. Отсюда и предположение что данный скрипт запускается внутри самой софтины которая подготавливает для него необходимую среду. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.03.2008, 19:20 |
|
||
|
Что не так в скрипте от производителя.
|
|||
|---|---|---|---|
|
#18+
Буду разбираться. Просто не понятно как подключается скрипт при использовании проги из командной строки. Table of Standard Command-Line Options: Standard Option | Arguments | Description /SCRIPT | filename | Runs script contained in filename Получилось. в командной строке: proga.exe /SCRIPT SCRIPT.vbs komp.sys И скрипт чуть поправил. #$language = "VBScript" #$interface = "1.0" Sub main() If (Not crt.Screen.WaitForString("ogin: ", 5)) Then crt.Screen.Send vbCr crt.Screen.WaitForString "ogin: " End If ' Send your username followed by a carriage return crt.Screen.Send "username" & VbCr ' Wait for a tring that looks like "password: " or "Password: " crt.Screen.WaitForString "assword:" ' Send your password followed by a carriage return crt.Screen.Send "password" & VbCr ' turn off synchronous mode to restore normal input processing crt.Screen.Synchronous = False End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.03.2008, 21:07 |
|
||
|
|

start [/forum/topic.php?fid=22&tid=1456757]: |
0ms |
get settings: |
11ms |
get forum list: |
20ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
60ms |
get topic data: |
13ms |
get forum data: |
3ms |
get page messages: |
51ms |
get tp. blocked users: |
2ms |
| others: | 222ms |
| total: | 390ms |

| 0 / 0 |
