Программирование "удобняшек" на VBScript (Часть 2) - [68] :: Прикладное программирование

Вставить цитату X

Программирование "удобняшек" на VBScript (Часть 2) - [68] :: Прикладное программирование :: Компьютерный форум Ru.Board

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Вопросы, задачи и их решения по VBScript.

Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1 [?]

Смежные темы:
Сценарии Windows [?]
Командная строка, батники\сценарии (bat, cmd) [?]
Скрипты KiXtart [?]

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018

esys

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

В маткаде (Mathcad) компонент выпадающего списка сделан так:

Код:

Sub ScriptObjEvent_Start()
End Sub
Sub ScriptObjEvent_Exec(Inputs,Outputs)

Dim ValueArray(4)
Dim ListArray(3)

ValueArray(0) = 8.5
ValueArray(1) = 11.5
ValueArray(2) = 14.5
ValueArray(3) = 17

ListArray(0) = "В15"
ListArray(1) = "В20"
ListArray(2) = "В25"
ListArray(3) = "В30"

ScriptObj.List() = ListArray
If (ScriptObj.ListIndex < 0) Then Outputs(0).Value = 0 Else Outputs(0).Value = ValueArray(ScriptObj.ListIndex)
End Sub
Sub ScriptObjEvent_Stop()
Rem TODO: Add your code here
End Sub

В W7 нормально работает, в W10 и W11 перестало работать. В чем может быть причина?

Всего записей: 594 | Зарегистр. 22-06-2016 | Отправлено: 18:25 16-01-2025 | Исправлено: esys, 18:40 16-01-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору esys удалил
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 05:57 17-01-2025 \| Исправлено: wewqasasdx12321, 18:29 01-02-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору VBScript с WinAPI это просто Нарушение п. 2.20.2. главы VIII Соглашения по использованию
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 05:40 26-03-2025 \| Исправлено: wewqasasdx12321, 15:30 02-04-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Я в шоке Нарушение п. 2.20.2. главы VIII Соглашения по использованию
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 04:26 27-03-2025 \| Исправлено: wewqasasdx12321, 15:29 02-04-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Буду делать по типу такого Нарушение п. 2.20.2. главы VIII Соглашения по использованию
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 20:00 27-03-2025 \| Исправлено: wewqasasdx12321, 15:29 02-04-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Ну всё получилось. Нарушение п. 2.20.2. главы VIII Соглашения по использованию
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 08:55 28-03-2025 \| Исправлено: wewqasasdx12321, 15:29 02-04-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору А не пора ли нам замахнуться на Вильяма...?... И замахнёмся. Нарушение п. 2.20.2. главы VIII Соглашения по использованию
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 11:55 29-03-2025 \| Исправлено: wewqasasdx12321, 15:28 02-04-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору сюда не буду класть, ложить, бросать утилиту от миурософта mt.exe. Нарушение п. 2.20.2. главы VIII Соглашения по использованию
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 22:42 29-03-2025 \| Исправлено: wewqasasdx12321, 15:28 02-04-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ПОБЕДА!!! причём ВБ6 СП3. Нарушение п. 2.20.2. главы VIII Соглашения по использованию
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 10:21 31-03-2025 \| Исправлено: wewqasasdx12321, 15:27 02-04-2025

wewqasasdx12321 BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору По поводу портабле. Нарушение п. 2.20.2. главы VIII Соглашения по использованию
	Всего записей: 132 \| Зарегистр. 23-12-2024 \| Отправлено: 18:09 31-03-2025 \| Исправлено: wewqasasdx12321, 15:27 02-04-2025

wewqasasdx12321

BANNED

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Посмотрел я на то что было вчера с этих хостом и понял, что толку тут чего то вбивать. Всё равно скоро ЭТО всё вылетит в трам тарарам.
Вчера был первый звонок. Я так думаю что вчера это было с оплатой хоста.
На тем откланиваюсь и забываю ЭТО место как не существующее.
Всем пока. Не кашляйте.

Всего записей: 132 | Зарегистр. 23-12-2024 | Отправлено: 15:33 02-04-2025

Valivan77777

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Есть такой скрипт для перезагрузки роутера. Отрабатывает нормально, но окно приходиться закрывать вручную. Можно сделать чтобы окно закрывалось автоматом?

Цитата:

Set WshShell = CreateObject("Wscript.Shell")
RetCode = WshShell.Run("cmd", 1, False)
WScript.Sleep 100
WshShell.SendKeys "telnet 192.168.0.1{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "admin{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "admin{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "reboot{ENTER}"
WScript.Sleep 100
WshShell.SendKeys "exit{ENTER}"

Всего записей: 1736 | Зарегистр. 11-12-2019 | Отправлено: 10:42 28-05-2025

Harry True Man Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Valivan77777 А если добавить ещё одну строчку? WScript.Sleep 100 WshShell.SendKeys "exit{ENTER}"
	Всего записей: 60 \| Зарегистр. 12-12-2024 \| Отправлено: 10:24 29-05-2025

Valivan77777

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Harry True Man

Цитата:

А если добавить ещё одну строчку?

Во блин, никогда бы не подумал про добавление ещё такой же команды. Сейчас скрывает. Спасибо.

Всего записей: 1736 | Зарегистр. 11-12-2019 | Отправлено: 21:32 31-05-2025

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC