практическое занятие по освоению vbs

Тема в разделе "Изучение основ языка", создана пользователем Kиpилл, 31 июл 2014.

  1. Kиpилл
    Оффлайн

    Kиpилл Команда форума Администратор

    Лучший автор месяца

    Сообщения:
    12.199
    Симпатии:
    4.970
    Привет.

    Решил немного освоить vbs на практике,так как уже часто нужно но толком не умею.

    Итак,задача № 1

    Создать скрипт,который позволит выбрать действие,а затем ввести имя объекта.

    На bat это выглядит так:
    Код (DOS):
    :Menu

    call :setto
    echo.
    echo Установить или удалить пункт меню?
    echo (Введите цифру и нажмите клавишу Enter)
    echo.
    echo 1. Установить пункт
    echo 2. Настроить меню
    echo 3. Удалить пункт
    echo.
    set /p "ch=Ваш выбор: "
    if "%ch%"=="1" (goto install || (
       echo Ошибка установки.
        echo Обратитесь за поддержкой на форум.
         pause
          exit /b))
                   
    if "%ch%"=="2" (goto setting)
    if "%ch%"=="3" (goto DelMenu)
    if not Defined VerbName (cls
                              echo Вы выбрали неверное значение.
                               echo Попробуйте еще раз^:^
                               pause
                                goto Menu)

    :install
    call :querydublemenu


    set /p NameMenu="Ведите имя пункта меню и нажмите клавишу Enter: "
    echo Введено "%NameMenu%"

    copy "%~dp0ttools\ishodnik\reg.reg" "%~dp0ttools\UserReg\%name%.reg"
    echo Windows Registry Editor Version 5.00 >"%~dp0ttools\UserReg\%name%.reg"
    echo.>>"%~dp0ttools\UserReg\%name%.reg"
    echo ^[^HKEY_CLASSES_ROOT\DesktopBackground\Shell\%name%]>>"%~dp0ttools\UserReg\%name%.reg"
    reg import "%~dp0ttools\UserReg\%name%.reg"
    reg add "%key1%\%name%" /v MUIVerb /d "%NameMenu%" /f
    reg add "%key1%\%name%" /v "SubCommands" /d "redmi;AddLog;prochee" /f
    reg add "%key1%\%name%" /v "Icon" /d "imageres.dll,104" /f
    goto setting

    pause
    exit /b



                               

    Пока что без операций с реестром,просто и на пальцах пробую создать нечто подобное:
    Код (vb.net):
    Option Explicit

    Dim menu
    result = MsgBox("Выберите необходимое дествие:", vbOkCancel+ vbInformation, "Меню установки:")
    If result = vbOK Then
    WScript.Echo "Нажата клавиша ОК"
    Else
    WScript.Echo "Нажата клавиша Отмена"
    End If


    Dim Message, result
    Dim Title, Text1, Text2
    Message = "Введите имя пункта контексного меню:"
    Title = "Создание пункта контексного меню "
    Text1 = "Операция отменена."
    Text2 = "Вы ввели:" & vbCrLf
    result = InputBox(Message, Title, "Введите имя пункта контексного меню:", 100, 100)
    If result = "" Then        
    WScript.Echo Text1
    Else
    WScript.Echo Text2 & result
    End If

     
    В чем проблема:
    я так понял окно выбора с чекбоксом или кнопкой не создать на vbs,только заложенные стандартные?
    под каждую операцию будет вызываться новое окно?
    нельзя ли делать последовательно операции в одном окне?
    правильно ли я начинаю?
     
    Последнее редактирование: 31 июл 2014
  2. Dragokas
    Оффлайн

    Dragokas Very kind Developer Команда форума Супер-Модератор Разработчик Клуб переводчиков

    Сообщения:
    4.476
    Симпатии:
    4.305
    Привет. Рад, что решился.
    Да ты и без меня смотрю неплохо пишешь.
    Да. Только стандартные.
    То есть максимум, что вытянешь, это например такое:

    InputBox.png

    Код (vb.net):
    Title = "Создание пункта контексного меню"
    Message = _
        "1. Установить пункт" & vbCrLf & _
        "2. Настроить меню"   & vbCrLf & _
        "3. Удалить пункт"    & vbCrLf & vbCrLf & _
        "Введите номер действия:"

    result = InputBox(Message, Title)

    Select case result
    case 1
        Msgbox "Вы выбрали 1"
    case 2
        Msgbox "Вы выбрали 2"
    case 3
        Msgbox "Вы выбрали 3"
    case else
        Msgbox "Вы выбрали что-то другое"
    End Select
    Поясни.

    Возможно, нет.
    Если хочешь организовать меню в виде кнопок / чекбоксов,
    вероятно лучше сразу перейти к среде разработки VB6 IDE, где доступно создание полноценных форм. Ссылку отправлю в личку.
     
    Kиpилл нравится это.

Поделиться этой страницей