![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] MsgBox как отобразить картинку, шрифт изменить и таймер установить |
|
|
VBS/WSH/JS - [решено] MsgBox как отобразить картинку, шрифт изменить и таймер установить
|
Новый участник Сообщения: 15 |
Здравствуйте.
есть скрипт 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
|
Профиль | Отправить PM | Цитировать boha, реализовать все Ваши хотелки на WSH не реально. Поменяйте тематику на PowerShell — там можно будет реализовать на форме.
|
Отправлено: 18:34, 29-10-2012 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 15
|
Профиль | Отправить 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
|
Профиль | Отправить PM | Цитировать Dr.DG, Вы прочитали все пожелания автора
Цитата boha:
?! |
|
Отправлено: 22:36, 29-10-2012 | #4 |
Новый участник Сообщения: 15
|
Профиль | Отправить PM | Цитировать Iska
а можно тогда сделать чтоб 3000 символов можно было отобразить в одной окошке? и эту окошку пользователь не мог бы закрыть в течении 5 минут. |
|
Отправлено: 07:36, 30-10-2012 | #5 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать boha, на PowerShell, думаю, можно.
P.S. Из опыта: не читали, и читать не будут. Хоть красными буквами пишите, хоть жирными, хоть аршинными. Не будут. |
Отправлено: 08:23, 30-10-2012 | #6 |
Новый участник Сообщения: 15
|
Профиль | Отправить PM | Цитировать тема закрыта.
спасибо Iska. |
Отправлено: 08:36, 30-10-2012 | #7 |
Новый участник Сообщения: 15
|
Профиль | Отправить PM | Цитировать Цитата Iska:
Хотя зачем оно, если никто всё равно не читает... :-) |
|
Последний раз редактировалось Dr.DG, 30-10-2012 в 23:54. Отправлено: 23:33, 30-10-2012 | #8 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Dr.DG, ничто не мешает. Но это будет ровно такой же выверт, как и здесь: Серый форум / vbscript: «незакрываемый» MsgBox на заданное время.
Цитата Dr.DG:
|
|
Отправлено: 00:55, 31-10-2012 | #9 |
Новый участник Сообщения: 15
|
Профиль | Отправить 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 |
|
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Помогите изменить картинку | 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 |
|