Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 3
Регистрация: 22.06.2017
Сообщений: 55
1
VBS

Скролл в сообщении

01.09.2017, 12:27. Показов 978. Ответов 3
Метки нет (Все метки)

есть скрипт вывода установленного ПО но выводит не корректно можно ли добавить скрол или может как то разбить на несколько частей и добавить кнопку перехода между ними

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
WScript.Echo InstalledApplications(".")
 
Function InstalledApplications(node)
 Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
 Set oRegistry = GetObject("winmgmts://" _
  & node & "/root/default:StdRegProv")
 sBaseKey = _
  "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
 iRC = oRegistry.EnumKey(HKLM, sBaseKey, arSubKeys)
 
 For Each sKey In arSubKeys
 
  iRC = oRegistry.GetStringValue( _
   HKLM, sBaseKey & sKey, "DisplayName", sValue)
  If iRC <> 0 Then
   oRegistry.GetStringValue _
    HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
  End If
  If sValue <> "" Then
   InstalledApplications = _
    InstalledApplications & sValue & vbCrLf
  End If
 Next
End Function
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.09.2017, 12:27
Ответы с готовыми решениями:

Отступ в сообщении
Внутри дива, есть два дива с текстом. Как сделать с помощью css, чтобы красный текст располагался...

Кодировка в сообщении
Здравствуйте! На одном из Linux-серверов в лог syslog-сервера пишутся сообщения с кириллицей,...

Степень в сообщении
Как поставить степень в сообщении(MessageBox.Show(&quot;8x&quot;);) ?? ...

отправка сообщении
Привет всем. У меня в Базе есть роль Kontroller/ как мнев скрипте сделать что при сохранении...

__________________

Записывайтесь на профессиональные курсы DevOps-инженеров
3
2616 / 546 / 109
Регистрация: 21.03.2012
Сообщений: 1,051
01.09.2017, 12:38 2
_Alex_91, запускайте сценарий в консольном режиме и получите желаемое.
0
0 / 0 / 3
Регистрация: 22.06.2017
Сообщений: 55
01.09.2017, 12:42  [ТС] 3
Dmitrii, это понятно но очень хотелось бы именно обычного вывода
я уже и вывод в тхт файл сделал но это все не то
0
2616 / 546 / 109
Регистрация: 21.03.2012
Сообщений: 1,051
01.09.2017, 14:00 4
Лучший ответ Сообщение было отмечено _Alex_91 как решение

Решение

Цитата Сообщение от _Alex_91 Посмотреть сообщение
... хотелось бы именно обычного вывода...
Разделите ваш список на части и выводите каждую из них отдельно в составе цикла. Например, так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
arrTemp = Split(InstalledApplications("."), vbNewLine)
For i = 1 To (UBound(arrTemp) + 1) \ 10
    strTemp = vbNullString
    For j = (i - 1) * 10 To (i - 1) * 10 + 9
        strTemp = strTemp & arrTemp(j) & vbNewLine
    Next
    WScript.Echo strTemp
Next
If j <= UBound(arrTemp) Then
    strTemp = vbNullString
    For i = j To UBound(arrTemp)
        strTemp = strTemp & arrTemp(i) & vbNewLine
    Next
    WScript.Echo strTemp
End If
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.09.2017, 14:00

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Уведомление о сообщении
Привет, ребят. Хочу получить красивое уведомление о сообщении как в Skype, Steam, ICQ и т.д. Буду...

Ссылка в сообщении
Хочу функцией mail отправить сообщение содержащее ссылку. При отправке к правильному адресу...

Уведомление о сообщении
И снова привет, ребят. Хочу получить красивое уведомление о сообщении как в Skype, Steam, ICQ и...

Цвет шрифта в сообщении
Привет Встретился с такой проблемой: на лабе надо написать гостевую с поддержкой изменения...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.