Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запустить .vbs из VB6, Как запустить скрипт .vbs bp VB6 
:(
    Опции темы
ted1
Дата 29.4.2011, 10:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.4.2011

Репутация: нет
Всего: нет
Так не работает:
Dim res
res = Shell(App.Path & "\" & "test.vbs", vbNormalFocus)

Выдается сообщение Неправильный вызов процедуры или аргумент.

а так работает:
Dim res
res = Shell(App.Path & "\" & "test.bat", vbNormalFocus)

Как запустить правильно VBS-скрипт ?
PM MAIL   Вверх
Akina
Дата 29.4.2011, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Код

res = Shell("cmd /c " App.Path & "\" & "test.vbs", vbNormalFocus)

Код

res = Shell("start """" " App.Path & "\" & "test.vbs", vbNormalFocus)




--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ted1
Дата 29.4.2011, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.4.2011

Репутация: нет
Всего: нет
Цитата(Akina @ 29.4.2011,  11:03)
Код

res = Shell("cmd /c " App.Path & "\" & "test.vbs", vbNormalFocus)



Так тоже не работает, но дало наводку "почему". Запустил  cmd /k получил "D:\VB6 " не является .... Проблема похоже в пробелах в пути к файлу. На это кому жаловаться - не подскажешь?

За ответ спасибо.
PM MAIL   Вверх
ted1
Дата 29.4.2011, 12:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.4.2011

Репутация: нет
Всего: нет

Модератор: Сообщение скрыто.
PM MAIL   Вверх
Akina
Дата 29.4.2011, 13:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(ted1 @  29.4.2011,  12:35 Найти цитируемый пост)
На это кому жаловаться - не подскажешь?

Себе. На себя. За безграмотность вопиющую.
Код

res = Shell("cmd /c """ App.Path & "\" & "test.vbs""", vbNormalFocus)



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ted1
Дата 29.4.2011, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.4.2011

Репутация: нет
Всего: нет
Цитата(Akina @ 29.4.2011,  13:07)
Цитата(ted1 @  29.4.2011,  12:35 Найти цитируемый пост)
На это кому жаловаться - не подскажешь?

Себе. На себя. За безграмотность вопиющую.
Код

res = Shell("cmd /c """ App.Path & "\" & "test.vbs""", vbNormalFocus)

Лан лан
У тебя тоже "&" пропущен.
А код который ты убрал - работает
PM MAIL   Вверх
Akina
Дата 29.4.2011, 14:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(ted1 @  29.4.2011,  14:41 Найти цитируемый пост)
код который ты убрал - работает 

Есть ещё куча вариантов работающего кода. Но код должен соответствовать задаче. Кто-нить потом скопипастит без понимания... не надо.

Цитата(ted1 @  29.4.2011,  14:41 Найти цитируемый пост)
У тебя тоже "&" пропущен.

Да, есть такой грешок. Писалось тут - не проверять же в среде такое...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
ted1
Дата 29.4.2011, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 5
Регистрация: 29.4.2011

Репутация: нет
Всего: нет
Согласен. Твой вариант ладнее

Вот токо может еще подскажешь как черное окно убрать после shella?

Это сообщение отредактировал(а) ted1 - 29.4.2011, 14:17
PM MAIL   Вверх
iff
Дата 29.4.2011, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Администратор
**


Профиль
Группа: Участник
Сообщений: 949
Регистрация: 23.3.2007

Репутация: -1
Всего: 16
А ещё для запуска VBS можно воспользоваться контролом Microsoft Script Control.


--------------------
DOS... Синей пеленой экран заполнил чистый DOS 
Мышь... Стала вдруг квадратной, потеряла форму мышь... 
Я разбил окно, девяностопятое мастдайное окно, 
И поставил DOS, и тогда увидел: Это счастье, — вот оно.  
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0535 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.