Имя пользователя:
Пароль:
 | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] MsgBox как отобразить картинку, шрифт изменить и таймер установить

Ответить
Настройки темы
VBS/WSH/JS - [решено] MsgBox как отобразить картинку, шрифт изменить и таймер установить

Новый участник


Сообщения: 15
Благодарности: 0


Конфигурация

Профиль | Отправить PM | Цитировать


Изменения
Автор: boha
Дата: 29-10-2012
Здравствуйте.
есть скрипт vbs, домен, win ХР и 7, (скрипт указан ниже)
Сам скрипт писать не умею.
Нужно сделать так, чтоб всем пришло сообщение на экран при логоне или же по другому методу. Некоторые сотрудники не выключают компьютера и логон не у всех сработает. пока у меня только метод логона.
этот скрипт выводит сообщение и хотелось бы чтоб были еще дополнительные функции. Помогите решить с этим:

1. Нужно чтоб в диалоговом окошке по мимо текста на всех следующих окошках отображался картинка (ссылку я могу указать на общий ресурс)
2. Нужно чтоб каждую окошку пользователь не мог закрыть в течении 1 минуты, после при нажатии ОК переходит на следующ. Это для того чтоб пользователь прочитал ). У меня просто текст не помещается и он состоит из 3000 символов, поэтому разделил на 3 страницы. Я не смог их поместить в одну страницу. Если есть возможность чтоб поместить 3 тыс символов в одной странице, то можно поставить лимит на окно в 5 минуты
3. Можно ли увеличить размер буквы? или жырными шрифтами.


спасибо.


Option Explicit
Dim objWMIService, objItem, colItems
Dim strComputer, strMbox
'On Error Resume Next
strMbox = "."

strMbox = MsgBox("Внимание!")
strMbox = MsgBox("Уважаемые коллеги! Сообщаем всем, что....!")
strMbox = MsgBox("Прошу учесть данную инфу...!")
If strMbox = 1 Then
strMbox ="."
End if

Отправлено: 14:49, 29-10-2012

 

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


boha, реализовать все Ваши хотелки на WSH не реально. Поменяйте тематику на PowerShell — там можно будет реализовать на форме.

Отправлено: 18:34, 29-10-2012 | #2



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

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 15
Благодарности: 5

Профиль | Отправить PM | Цитировать


boha, вот как можно управлять IE с помощью VBS. В качестве примера показываю страницу для ввода пароля. Вы можете создать свою страницу с нужным функционалом.
Код: Выделить весь код
strPassword = GetPassword("User", "Domain")

Function GetPassword(strUser, strDomain)

    Dim objIE
    
    Set objIE = CreateObject("InternetExplorer.Application")

    With objIE
    
        .AddressBar = False
        .Menubar = False
        .Navigate "about:blank"
        .ToolBar = 0
        .Resizable = False
        .StatusBar = False
        .Width = 340
        .Height = 230
        .Left = (.Document.ParentWindow.Screen.AvailWidth - .Width) \ 2
        .Top = (.Document.ParentWindow.Screen.AvailHeight - .Height) \ 2

        Do While .Busy
           WScript.Sleep 200
        Loop

        .Document.title = "Logon"
        .Document.body.scroll = "no"
        .Document.body.innerHTML = "<font face=Arial>" & _
            "<h3>Logon to " & strDomain & " domain</h3>" & _
            "<table><tbody><tr><td>User name:</td><td>" & strUser & "</td></tr>" & _
            "<tr><td>Password:</td><td><input type=password id=txtPassword></td></tr>" & _
            "<tr><td><input type=hidden id=txtHidden value=0></td>" & _
            "<td><input type=submit value=OK onClick=vbscript:txtHidden.Value=1>" & _
            "</td></tr></tbody></table></font>"
        
        .Visible = True

        'wait for user input
        Do While .Document.all.txtHidden.value = "0" 
            WScript.Sleep 200
        Loop

        GetPassword = .Document.all.txtPassword.value

        .Quit
        
    End With

    Set objIE = Nothing

End Function

Отправлено: 22:28, 29-10-2012 | #3


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Dr.DG, Вы прочитали все пожелания автора
Цитата boha:
Нужно чтоб каждую окошку пользователь не мог закрыть »

?!

Отправлено: 22:36, 29-10-2012 | #4


Новый участник


Сообщения: 15
Благодарности: 0

Профиль | Отправить PM | Цитировать


Iska
а можно тогда сделать чтоб 3000 символов можно было отобразить в одной окошке?
и эту окошку пользователь не мог бы закрыть в течении 5 минут.

Отправлено: 07:36, 30-10-2012 | #5


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


boha, на PowerShell, думаю, можно.

P.S. Из опыта: не читали, и читать не будут. Хоть красными буквами пишите, хоть жирными, хоть аршинными. Не будут.
Это сообщение посчитали полезным следующие участники:

Отправлено: 08:23, 30-10-2012 | #6


Новый участник


Сообщения: 15
Благодарности: 0

Профиль | Отправить PM | Цитировать


тема закрыта.
спасибо Iska.

Отправлено: 08:36, 30-10-2012 | #7


Новый участник


Сообщения: 15
Благодарности: 5

Профиль | Отправить PM | Цитировать


Цитата Iska:
Вы прочитали все пожелания автора »
Не понял, что мешает обрабатывать события окна браузера или после закрытия так же открывать новое окно скриптом?
Хотя зачем оно, если никто всё равно не читает... :-)

Последний раз редактировалось Dr.DG, 30-10-2012 в 23:54.


Отправлено: 23:33, 30-10-2012 | #8


Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Dr.DG, ничто не мешает. Но это будет ровно такой же выверт, как и здесь: Серый форум / vbscript: «незакрываемый» MsgBox на заданное время.

Цитата Dr.DG:
Хотя зачем оно, если никто всё равно не читает... :-) »
И я про то же. Делал. Незакрываемое, непередвигаемое, неубиваемое, поверх всех… Если не хотят читать — не заставишь. Только организационные меры. Причём, это куда более действенный способ.
Это сообщение посчитали полезным следующие участники:

Отправлено: 00:55, 31-10-2012 | #9


Новый участник


Сообщения: 15
Благодарности: 0

Профиль | Отправить PM | Цитировать


Я опять столкнулся с одни нюансом.
помогите решить если возможно.

ниже скрипт, я запускаю его через планировщик задании на всех пользователей.
окошко с сообщение выскакивает на монитор даже тогда, когда компьютер заблокирован.
Нужно чтоб не выходила сообщение по верх блокировки, Чтоб пользователь видел окошко только при входе в сеанс.

Код: Выделить весь код
Option Explicit

Dim objWshShell

Dim intTime4Show                                                               ' Заданное (оно же максимально возможное) время показа сообщения
Dim intMinimumTime                                                             ' Минимальное время показа сообщения
Dim intTimeStartShowing                                                        ' Время начала показа сообщения
Dim intRetValue                                                                ' Возвращаемое значение метода .Popup


Set objWshShell = WScript.CreateObject("WScript.Shell")

intTime4Show    = 60                                                           ' Заданное    время показа сообщения — 1 минута
intMinimumTime  = 5                                                           ' Минимальное время показа сообщения — 10 секунд

intTimeStartShowing = Timer                                                    ' Засекаем время

Do
    ' Выводим сообщение поверх всех окон [&H40000] на оставшееся на текущий момент,
    ' от заданного, время [intTime4Show - (Timer - intTimeStartShowing)]
    intRetValue = objWshShell.Popup( _
        "   УВАЖАЕМЫЕ КОЛЛЕГИ!" & Chr(13) & _
"Администратор домена сообщает, что....!", _
        intTime4Show - (Timer - intTimeStartShowing), _
        "СЛУЖБА СООБЩАЕТ!", _
        vbOKOnly + vbInformation + &H40000)
    
    ' Повторяем вывод сообщения, пока не будет выполнено одно из условий:
    ' 1. Истечёт отведённое время и сообщение будет закрыто по таймауту [intRetValue = -1]
    ' 2. Сообщение будет закрыто вручную и с момента первого показа
    '    сообщения до текущего момента пройдёт не менее минимального [intMinimumTime]
    '    времени [(Timer - intTimeStartShowing) > intMinimumTime]
Loop Until intRetValue = -1 Or (Timer - intTimeStartShowing) > intMinimumTime

Set objWshShell = Nothing

WScript.Quit 0

Отправлено: 17:03, 20-11-2012 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] MsgBox как отобразить картинку, шрифт изменить и таймер установить

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Помогите изменить картинку tyt Хочу все знать 2 18-04-2010 11:14
Изменить текст кнопки MSGBOX'a sashadeg AutoIt 13 20-11-2009 18:00
Как отобразить картинку по ссылке не в IE? Twix1124 AutoIt 1 30-05-2009 11:59
Установка - [решено] кто знает как картинку установки windows xp изменить и какой программой krazy Microsoft Windows 2000/XP 1 19-01-2008 21:18
Как изменить загрузочную картинку в Xp Professional EXTRIMIST Microsoft Windows 2000/XP 10 16-08-2006 18:37




 
Переход