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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Скрипт вывода сообщения при входе пользователя 
:(
    Опции темы
Gloft
Дата 20.8.2007, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Здравствуйте
помогите думаю для знающих любей задачка простая
нужен VBS скрипт который бы выводил сообщение в окне, а после нажатия кнопочки (желательно чтобы название кнопки можно было поменять) запускал программу
Буду очень благодарен
Заранее спасибо
PM MAIL   Вверх
RussianHero
Дата 20.8.2007, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

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

    Begin Dialog myDialog 50,50,240,70,"Вот твое окно:"
        TextBox 5,8,228,14,."Nadpis"
        PushButton 113,30,120,14,"Открыть твою прогу",.Retry
                                PushButton 5,50,228,14,"Закрыть",.Close
    End Dialog
    Dim Okno As myDialog 
                Okno.Nadpis = "Привет"
    r% = Dialog(Okno,2,0)
    Select Case r%
        Case 1
            ЗДесь описываешь запуск проги
                 End Select

Разберешься?

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


Новичок



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

Репутация: нет
Всего: нет
насколько я разобрался 
вместо надписи "ЗДесь описываешь запуск проги"
нужно поставить 
set wshshell = CreateObject("WScript.Shell")
wshshell.Run "notepad.exe"
я прав?

Это сообщение отредактировал(а) Gloft - 20.8.2007, 13:44
PM MAIL   Вверх
mihanik
Дата 20.8.2007, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 11
Всего: 109
RussianHero!!!
Твоя русский язык читать умела?

Цитата(Gloft @  20.8.2007,  13:01 Найти цитируемый пост)
нужен VBS скрипт 


А у тебя что?

Переменные типизированы
Код

 Dim Okno As myDialog 


Чего в VBS в принципе быть не может.
Там все переменные типа Variant.




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


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

Репутация: нет
Всего: нет
Эм, я думаю ты прав 8)
Правдо откуда ты взял этот wshshell ?? ЧТо это за звирь такой?
PM MAIL WWW ICQ   Вверх
mihanik
Дата 20.8.2007, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 11
Всего: 109
Цитата(Gloft @  20.8.2007,  13:33 Найти цитируемый пост)
set wshshell = CreateObject("WScript.Shell")
wshshell.Run "notepad.exe"


Типа того...

Код

'********************************************************************
'*
'* Функция   StartProgram ( ByVal AppName )
'* Описание: Запускает программу с именем AppName
'* Вход    : полное имя запускаемой программы
'* Выход   : ProcessID запущенной программы
'*
'********************************************************************
Function StartProgram ( ByVal AppName )
Dim WshShell, oExec

        StartProgram = 0
        On Error Resume Next

                Set WshShell = CreateObject("WScript.Shell")

                Set oExec = WshShell.Exec( AppName )

                StartProgram = oExec.ProcessID

                Set oExec    = Nothing
                Set WshShell = Nothing

        If Err.Number Then Err.Clear

        On Error Goto 0

End Function



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


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

Репутация: нет
Всего: нет
И раз уж хочешь запускать ккой-то экзешник, то прописывай полный путь.. ттипа - C:\Windows\...\Proga.exe
PM MAIL WWW ICQ   Вверх
mihanik
Дата 20.8.2007, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 11
Всего: 109
Цитата(mihanik @  20.8.2007,  15:14 Найти цитируемый пост)
'* Вход    : полное имя запускаемой программы




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


Опытный
**


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

Репутация: нет
Всего: 6
Цитата(RussianHero @  20.8.2007,  15:14 Найти цитируемый пост)
И раз уж хочешь запускать ккой-то экзешник, то прописывай полный путь.. ттипа - C:\Windows\...\Proga.exe 


 smile как раз для C:\Windows не надо писать полный путь
Код

Dim wshshell
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run "notepade.exe"


Такой код полностью работает.


--------------------
...не убивайся ни о чем - все временно,
хоть ночь темна но светлым днем беременна...

Саади
PM MAIL   Вверх
Akina
Дата 20.8.2007, 22:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454
Цитата(_Michael @  20.8.2007,  16:55 Найти цитируемый пост)
как раз для C:\Windows не надо писать полный путь

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

Цитата(RussianHero @  20.8.2007,  16:14 Найти цитируемый пост)
прописывай полный путь.. ттипа - C:\Windows\...\Proga.exe 

А вот путь к каталогу Windows надо получать программно - не у всех он на C: и не у всех - Windows


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


Опытный
**


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

Репутация: нет
Всего: 6
Цитата(Akina @  20.8.2007,  22:18 Найти цитируемый пост)
Цитата(_Michael @  20.8.2007,  16:55 )
как раз для C:\Windows не надо писать полный путь


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

ну я же знаю какую я программу запускаю.  Т-е мне заведомо известно что такая ехе-шка там присутствует smile


--------------------
...не убивайся ни о чем - все временно,
хоть ночь темна но светлым днем беременна...

Саади
PM MAIL   Вверх
RussianHero
Дата 21.8.2007, 07:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 88
Регистрация: 14.8.2007
Где: г. Балашиха, МО

Репутация: нет
Всего: нет
Цитата(mihanik @  20.8.2007,  15:11 Найти цитируемый пост)
RussianHero!!!
Твоя русский язык читать умела?


Цитата(Gloft @  20.8.2007,  13:01 )
нужен VBS скрипт 



А у тебя что?

Переменные типизированы

код Visual Basic
1:

 Dim Okno As myDialog 


Чего в VBS в принципе быть не может.
Там все переменные типа Variant.


Миханик, зря ругаешься, у меня все отлично работает... Не знаю, при чем тут типизированность, щас же идет речь о диалоговом окне а не о самом файле.
Это скрипт на Васике, как и просили, а не на чем-то еще... Я-то его запускаю откуда? Это ж не Сишный код.
PM MAIL WWW ICQ   Вверх
Akina
Дата 21.8.2007, 08:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: 34
Всего: 454
Цитата(_Michael @  21.8.2007,  00:33 Найти цитируемый пост)
Т-е мне заведомо известно что такая ехе-шка там присутствует 

То есть это только на твоем компе, и на другой комп никогда не попадет? ну тогда делай как тебе удобнее.

PS. У меня на компе, например, диск С: - это сидюковод.

Добавлено через 50 секунд
Цитата(RussianHero @  21.8.2007,  08:40 Найти цитируемый пост)
Миханик, зря ругаешься, у меня все отлично работает... Не знаю, при чем тут типизированность

При том что ты натыкал в файл лишнего кода, который все одно игнорируется скриптхостом.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

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

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


 




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


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

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