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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как передать программе на VBS параметр 
V
    Опции темы
E_v_g
Дата 15.11.2006, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Есть программа, записанная в файлике *.vbs. Как из этой программы прочитать параметр, переданный ей в командной строке?
PM ICQ   Вверх
Дмит
Дата 15.11.2006, 18:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9
Set arg=Wscript.Arguments

For i=0 To arg.count-1
  msg=msg & arg(i) & ", "
Next

If msg="" Then
  MsgBox "Забыли указать параметры!"
else
  MsgBox "Параметры - " & msg
End If
PM MAIL WWW   Вверх
E_v_g
Дата 16.11.2006, 14:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Спасибо!
PM ICQ   Вверх
Kirill89
Дата 28.11.2006, 11:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
Цитата(Дмит @ 15.11.2006,  18:59)
Set arg=Wscript.Arguments

For i=0 To arg.count-1
  msg=msg & arg(i) & ", "
Next

If msg="" Then
  MsgBox "Забыли указать параметры!"
else
  MsgBox "Параметры - " & msg
End If

Я пробовал на vb6, неполучилось... Если не трудно можно готовый примерчик с текстом кода формы.  smile 


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
mihanik
Дата 28.11.2006, 13:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109
Эу-Эу-Эу!!!
Kirill89, ты определись!

VBS или VB6!

Вещи немного разные!!!




--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
Kirill89
Дата 28.11.2006, 13:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
Именно на visual basic 6.0


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
Дмит
Дата 28.11.2006, 23:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 1
Всего: 9
 В VB6 используй Command()
например

 Private Sub Form_Load()
  If Len(Command()) > 0 Then MsgBox Command()

Это сообщение отредактировал(а) Дмит - 28.11.2006, 23:13
PM MAIL WWW   Вверх
cardinal
Дата 28.11.2006, 23:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
И пользуйся поиском...


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
Kirill89
Дата 29.11.2006, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 4
Спасибо большое!!! Всё работает!


--------------------
user posted image
GSteam[dot]info
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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