Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

   

ViSiToR



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

Цитата:
По какому условию выход?

Просто основной выход, к примеру так:
 

Код:
While 1
   If 1 = 1 Then Exit Loop
Wend

 
Мне нужно проверить существование процесса, если он существует, выводить MsgBox пока он существует, если в MsgBox нажать отмена, то должен происходить выход из цикла, если нажать ОК, то проверяется если процесс ещё запущен, если запущен то опять это же сообщение выводить, если нет, то выйти из цикла (именно из цикла, не из скрипта). Теоретически я знаю как сделать всё, кроме выход из цикла и его продолжение (Continue Loop) - вроде должно быть элементарно, но никак немогу найти решение
 

Цитата:
Windows Script 5.6 Documentation

Там требуют что-то устанавливать, что мне не совсем охота - может есть альтернативные ссылки на справочники по основным концепциям vbs? (желательно на русском).

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 04:33 10-02-2007
Tipulatoid



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

Цитата:
Windows Script 5.6 Documentation

Майкрософт прежде чем дать скачать документацию требует скачать и установить софт, который проверит лицензионность моей Винды. Считаю это борзостью - пожирать трафик пользователя и инсталить абсолютно ненужные ему проги. Просто из принципа этого делать не буду. Посему не могли бы вы выложить его на rapidshare например. Спасибо.

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 05:56 10-02-2007 | Исправлено: Tipulatoid, 05:58 10-02-2007
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR Tipulatoid
Самое простое - вытащить HELP по VBA из MS Office 97 (он тогда был и на русском) - пошарьте в древних дистрибутивах.  
Пусть вас не смущает название VBA - синтакс там один и тот же.
А вообще справочной литературы по VB (какая, в принципе, разница VB, VBA, VBS ??? - все ОЧЕНЬ похоже.) в инете - до фига.
Цитата:
Инструкция Do...Loop
Повторяет выполнение набора инструкций, пока условие имеет значение True или пока оно не примет значение True.
 
Синтаксис
 
Do [{While | Until} условие]
[инструкции]
[Exit Do]
[инструкции]
Loop
 
Допустим также другой синтаксис:
 
Do
[инструкции]
[Exit Do]
[инструкции]
Loop [{While | Until} условие]
 
Синтаксис инструкции Do Loop содержит следующие элементы:
 
Элемент    Описание
условие    Необязательный.  Числовое выражение или строковое выражение, которое имеет значение True или False.  Если условие имеет значение Null,то аргумент условие рассматривается как значение False.
инструкции    Одна или несколько инструкций, выполнение которых повторяется, пока условие имеет значение True или пока оно не приобретет значение True.
Дополнительные сведения
 
В любом месте управляющей структуры Do…Loop может быть размещено любое число инструкций Exit Do, обеспечивающих альтернативные возможности выхода из цикла Do…Loop.  Часто используемая вместе с определением некоторого условия (например, If…Then), инструкция Exit Do передает управление инструкции, непосредственно следующей за инструкцией Loop.
Во вложенных циклах Do…Loop инструкция Exit Do передает управление циклу охватывающего уровня по отношению к циклу, в котором она вызывается.
 

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 12:36 10-02-2007
Elroir



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

Цитата:
выложить его на rapidshare например

Вот прямая ссылка - http://www.wilsonmar.com/w2kreskit/Script56.chm
P.S. Пятая страничка, выданная Google-ом

Всего записей: 2631 | Зарегистр. 05-02-2003 | Отправлено: 18:59 10-02-2007 | Исправлено: Elroir, 19:00 10-02-2007
Bug_Junior

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как с помощью VBScript получить ключ установленной Windows?

Всего записей: 810 | Зарегистр. 23-04-2003 | Отправлено: 21:01 10-02-2007
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Bug_Junior
http://forum.ru-board.com/topic.cgi?forum=8&topic=1908&start=828&limit=1&m=1

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 09:56 11-02-2007
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
mozers
Спасибо, вот в принципе что я хотел сделать (оказалось что и обычны For...Each...Next подходит) :
 

Цитата:
Ask = 0
Set Processes = GetObject("winmgmts://localhost")
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")
For Each Proc In myProcEnum
    If Proc.Name = "iexplore.exe" Then
        If Ask = 0 Then Ask = MsgBox ("Before continue, it is necessary to close all 'Internet Explorer' windows" & vbcrlf & "Close them now?", 256+65, "Attention")
        If Ask = 1 Then Proc.Terminate
    End If
Next

 
Вывести сообщение, и при положительном ответе закрыть все процессы iexplorer.
 
Elroir

Цитата:
Вот прямая ссылка

Класс, давно искал подобны справочник, спасибо! (надо бы его в шапку - если конечно включат её ).
 
Bug_Junior

Цитата:
Как с помощью VBScript получить ключ установленной Windows?

Ключ в каком смысле? серийны номер? тогда так:
 

Код:
Set SNSet = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem")
for each SN in SNSet
 MsgBox "The serial number for the installed OS is: " & SN.SerialNumber
next


----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 02:47 12-02-2007 | Исправлено: ViSiToR, 02:49 12-02-2007
Moris



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
О великие умы в написании скриптов!!!!
ПЛЗ - ХЕЛП
Я с программированием честно говоря не то что не дружу а вообще мы с ним в ссоре давным давно, но есть задача - и мне ее надо решить ! перечитал кучу литература (из инета конечно), ноне смог задача состоит в  том что бы написать скрипт который будет добавлять в реестр  пределенные значения (точнее не добавлять а создавать!!) Речь идет о месенджере, который надо сделать всем пользователям а их не мало ((( и на письмо с детальным разъяснением не ведутся ((( ).
ПЛЗ ХЕЛП !!!

Всего записей: 41 | Зарегистр. 30-10-2002 | Отправлено: 12:11 12-02-2007 | Исправлено: Moris, 13:26 12-02-2007
Bug_Junior

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mozers
ViSiToR
Спасибо!

Всего записей: 810 | Зарегистр. 23-04-2003 | Отправлено: 12:28 12-02-2007
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Moris
Цитата:
перечитал кучу литература  
И такого не нашел ??? НЕ ВЕРЮ!

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 20:55 13-02-2007
Moris



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Не я не говорю что инфы нет !!!!
но из того что я нашел, решить проблемму мне ниче не помогло !!!
просто проблемма не в том что бы просто добавить ветку в реестр, а втом что бы в зависимости от логин в винду менялся логин в месенджере

Всего записей: 41 | Зарегистр. 30-10-2002 | Отправлено: 11:13 14-02-2007
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Moris
И в чем проблема ???
Ты не можешь прочитать текущий логин ?
Код:
Set WshShell = CreateObject("WScript.Shell")
login = WshShell.ExpandEnvironmentStrings("%USERNAME%")
WScript.Echo login
А потом запихнуть его в нужное место реестра не можешь ???
Код:
WshShell.RegWrite "HKLM\SOFTWARE\Clients\IM\Windows Messenger\Logon", login, "REG_SZ"
В какую конкретно ветку на самом деле писать надо - я без понятия - ищи сам  
RFTM.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 12:16 14-02-2007
veles79

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Интересно, а можно ли скриптом имитировать нажатие ctrl+alt+D?  
с имитацией нажатия двух клавиш никаких проблем, а вот трех... чего-то не получается...
может кто помочь?

Всего записей: 8 | Зарегистр. 14-06-2006 | Отправлено: 14:46 14-02-2007
ViSiToR



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

Цитата:
 можно ли скриптом имитировать нажатие ctrl+alt+D?

По идее должно так сработать:
 

Код:
Dim Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.SendKeys "^!{d}"


----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 22:16 14-02-2007
veles79

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
по идее-то, по идее...но не пашет так, а еще комбинация alt+D(допустим) у меня имитируется так- "%{d}"... но "^%{d}" не срабатывает...мде...вопрос...

Всего записей: 8 | Зарегистр. 14-06-2006 | Отправлено: 10:45 15-02-2007
gap5



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

Цитата:
Set objWMIService = GetObject("Winmgmts:\\.\root\cimv2")  
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")  
For Each objItem in colItems  
    intHorizontal = objItem.ScreenWidth  
    intVertical = objItem.ScreenHeight  
Next  
 
Set objExplorer = CreateObject("InternetExplorer.Application")  
 
objExplorer.Navigate "File:c\\\"  
objExplorer.ToolBar = 1  
objExplorer.StatusBar = 1  
objExplorer.Left = (intHorizontal - 400) / 2  
objExplorer.Top = (intVertical - 200) / 2  
objExplorer.Width = 400  
objExplorer.Height = 200  
objExplorer.Visible = 1  

 
А можно усовершенствовать скриптец дабы:
 
1) Не было кнопки закрытия окна
2) Окно было Allways on top
3) Добавить кнопки а) зарытия окна б) логофа юзера?
 
Хочу сделать некий Legal Notice, если не согласен = логоф, если согласен = окно закрывается и продолжается работа.

Всего записей: 1070 | Зарегистр. 30-05-2006 | Отправлено: 20:41 15-02-2007 | Исправлено: gap5, 20:41 15-02-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
привет удобняшкам
ViSiToR
ты перепутал немного, нет специального кода !
veles79

Код:
CreateObject("WScript.Shell").SendKeys"^%D"


Код:
CreateObject("WScript.Shell").Run"taskmgr"

кто нить сталкивался с задачей копирования нескольких файлов на фтп заменой и запуском скриптов самими скритпами через определенный промежуток времени?

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 18:49 24-02-2007 | Исправлено: Nagual, 18:59 24-02-2007
igor_andreev

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

Цитата:
задачей копирования нескольких файлов на фтп

Сталкивался. Только я ставил бесплатный Chilcat FTP Activex (http://www.chilkatsoft.com), с ним очень гут было работать, любые задачи на FTP решались. Яб кучу примеров выложил, но жесткий диск того ноутбука, на котором и была уйма моих скриптов, приказал долго жить, все пропало. По новой я их писать не стал. (Зато это научило меня бэкапить все и всегда )

Всего записей: 1705 | Зарегистр. 08-12-2004 | Отправлено: 19:33 24-02-2007 | Исправлено: igor_andreev, 19:35 24-02-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
жалко, тогда выкладывай как бэкапишь

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 19:43 24-02-2007
igor_andreev

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

Цитата:
жалко,
А че жалко, там на сайте доки есть http://www.chilkatsoft.com/refdoc/xChilkatFtpRef.html и в инете примеров полно, тут например http://www.example-code.com/vbscript/ftp.asp
Пиши-не хочу.

Всего записей: 1705 | Зарегистр. 08-12-2004 | Отправлено: 19:52 24-02-2007
   

Страницы: 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 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru