Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 05.03.2022
Сообщений: 65

При вводе "Открой ютуб" открывать сайт ютуб

06.03.2022, 15:33. Показов 589. Ответов 2

Студворк — интернет-сервис помощи студентам
Как сделать так чтобы при вводе "Открой ютуб" открывался сайт ютуб(если это возможно) в гугле?
Как сделать так чтобы при вводе "Выключи компьютер" выключался компьютер?(если это возможно) - Windows 8.1

Код:

Visual Basic
1
2
3
4
5
6
7
8
9
Do
msgbox "Это vbs файл",48,"vbs"
x = inputbox("Введите команду, если вы не знаете команд. То введите Список команд")
if (x = "Открой гугл") then createobject("Wscript.Shell").run "cmd /c C:\Users\IRINA\Desktop\test\test1.bat", 0:exit do
if (x = "Список команд") then createobject("Wscript.Shell").run "cmd /c C:\Users\IRINA\Desktop\test\vbs.txt", 0:exit do
if (x = "Арбуз") then createobject("Wscript.Shell").run "cmd /c C:\Users\IRINA\Desktop\test\HUISFHA.txt", 0:exit do
if x = "Закрыть" then exit do
msgbox"Такой команды нету",48,"Ошибочка"
loop
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
06.03.2022, 15:33
Ответы с готовыми решениями:

Всякое разное, ютуб и сайт
НЕ возможно посмотреть ютуб на полный экран, появляется черная полоса почти на половину экрана. Как это лечить? И на сайте Как мы поняли по...

BSOD 0x00000101 при просмотре видео Ютуб
Доброго времени суток! Собственно хотелось бы установить точную причину вот этого бсод-а (см.скриншот ниже), уже не однократно...

Компьютер жутко зависает при просмотре видео с Ютуб и ВК
Компьютер ужас как лагает при малейшей нагрузке. Летает по интернету без проблем с загрузкой ЦП не более 20-40%. Как только вхожу на ютуб -...

2
dive
 Аватар для I can
4961 / 4662 / 845
Регистрация: 13.04.2015
Сообщений: 9,866
06.03.2022, 16:51
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
   msgbox "Это vbs файл",48,"vbs"
Do
   x = inputbox("Введите команду, если вы не знаете команд. То введите Список команд")
   if  x = "Открой гугл" then 
        createobject("Wscript.Shell").run "cmd /c C:\Users\U\Desktop\test\test1.bat", 0 :exit do
   elseif x = "Список команд" then 
        createobject("Wscript.Shell").run "cmd /c C:\Users\U\Desktop\test\vbs.txt", 0 :exit do
   elseif x = "Арбуз" then 
        createobject("Wscript.Shell").run "cmd /c C:\Users\U\Desktop\test\HUISFHA.txt", 0 :exit do
   elseif x = "Закрыть" then 
        exit do
   elseif x = "Ютуб" then 
     CreateObject("WScript.Shell").run "http://www.youtube.com/", 1, False :exit do
   elseif x = "Выключить" then 
        CreateObject("WScript.Shell").Run("shutdown /s /d p:0:0 /t 10") :exit do 
   else
        msgbox"Такой команды нету",48,"Ошибочка"
   end if
Loop
0
0 / 0 / 0
Регистрация: 05.03.2022
Сообщений: 65
06.03.2022, 16:57  [ТС]
Спасибо большое, буду и дальше спрашивать на этом форуме
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
06.03.2022, 16:57
Помогаю со студенческими работами здесь

Остановить видео из ютуб при закрытии модального окна
Как остановить или поставить на паузу видео, если модальное окно закрывается? (там есть не только кнопка закрытия, окно закрывается еще и...

Не добавляется видео на сайт c ютуб с моим шаблоном а с другим добавляется
Помогите!!! не добавляется видео на сайт с ютуб c моим шаблоном а с другим добавляется.Не собираюсь из за этого менять шаблон.Вставляю...

Нестабильная исходящая скорость при прямой трансляции на Ютуб, Твич и др
Просадка скорости в программе OBS при стриме на Ютуб, Твич и др. сервера. Здесь видео, на котором я наглядно показываю и рассказываю что...

Будет ли лагать при просмотре 8к видео 60 фпс через ютуб на 9400ф?
Будет ли лагать при просмотре 8к 60 фпс видео через ютуб на 9400ф? и будет ли лагать 4к 60 фпс, если 8к 60 фпс будет лагать?

ютуб
подхватил вирус который не дает загрузить видео на ютуб а также изменять настройки канала просканировал компьютер антивирусом kaspersky...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
Использование значений реквизитов справочника в документе, с определенными условиями и правами
Maks 07.04.2026
1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru