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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

   

bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
http://ru.wikipedia.org/wiki/Windows_Script_Host
 
мона
 
Добавлено:
   
а сами кнопки? на вбс нет незя только из стандартного набора
Выводится кнопка ОК.  
Выводятся кнопки ОК и Отмена (Cancel).  
Выводятся кнопки Стоп (Abort), Повтор (Retry) и Пропустить (Ignore).  
Выводятся кнопки Да (Yes), Нет (No) и Отмена (Cancel).  
Выводятся кнопки Да (Yes) и Нет (No).  
Выводятся кнопки Повтор (Retry) и Отмена (Cancel).  
Отмена Повторить Продолжить  
и Help

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 16:04 08-10-2009 | Исправлено: bomzzz, 16:09 08-10-2009
Titans01



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А можно сделать при нажатии кнопки отмена вернуться на преды
дущие окно(inputbox)?
И ещё как сделать чтоб окно было с названием программы а не пустое?
И можно написать компилятор vbs в exe с помощью vbs?

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 15:22 09-10-2009 | Исправлено: Titans01, 15:38 09-10-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1 можно елси я правельно понил о чем речь
2 параметр указать в свойствах функции
3 не вижу препятствий

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 16:41 09-10-2009
Titans01



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Плиз напиши код к 1!
И какой параметр?

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 17:20 09-10-2009 | Исправлено: Titans01, 17:22 09-10-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
справку открой там все параметры расписаны  
WshShell.Popup
MsgBox
 
просто если отмена снова вернуться на строку с инпутом, да и все

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 17:55 09-10-2009
Titans01



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Типо этого или как?

Код:
n=inputbox ("ляля")
if n="ляля" then y=msgbox ("ляля", vbOkCancel)  
if y=vbcancel then n

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 18:09 09-10-2009 | Исправлено: Titans01, 18:10 09-10-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Dim result
Do
result = InputBox("Please enter a path", "MyTitle", "C:\", 100, 100)
Loop While result=""
WScript.Echo "You entered " & result
 
Добавлено:
WshShell.Popup "Соопчение", 0, "Заголовок", vbOKOnly + vbInformation

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 18:09 09-10-2009
Titans01



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А зачем так много всяких команд не проще так  

Код:
t=inputbox ("Введите:", "Заголовок")

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 18:23 09-10-2009 | Исправлено: Titans01, 18:38 09-10-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
пример на то и премир чтоб все возможности показать

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 19:37 09-10-2009
Titans01



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Можешь помочь с калькулятором?
вот
Код:
x1=inputbox ("a+b=? Введите a", "Калькулятор: Сумма")
x2=inputbox (x1& "+b=? Введите b", "Калькулятор: Сумма")
x3=clng(x1)+clng(x2)
msgbox x1& "+"& x2& "="& x3,"Калькулятор: Сумма"

Что компу ненравится в 4 строке ?
 

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 14:12 10-10-2009 | Исправлено: Titans01, 14:17 10-10-2009
niichavo



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

Цитата:
Что компу ненравится в 4 строке ?

Так надо:

Код:
MsgBox x1 & "+" & x2 & "=" & x3, , "Калькулятор: Сумма"

 
Добавлено:
MsgBox(prompt[,buttons][,title][,helpfile,context])
подробно

Всего записей: 836 | Зарегистр. 14-09-2005 | Отправлено: 14:39 10-10-2009
Titans01



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

Всего записей: 12 | Зарегистр. 08-10-2009 | Отправлено: 14:41 10-10-2009
SANIOK_AV



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток!  
При помощи скрипта вытаскиваю из журнала системных событий события по ID:

Код:
cscript EVTQUERY.vbs /FO LIST /V /L Security /FI "ID eq 512" /FI "Datetime eq 10.10.2009,01:00:00AM-11.10.2009,01:00:00AM" > sec.log
cscript EVTQUERY.vbs /FO LIST /V /L Security /FI "ID eq 513" /FI "Datetime eq 10.10.2009,01:00:00AM-11.10.2009,01:00:00AM" >> sec.log
cscript EVTQUERY.vbs /FO LIST /V /L Security /FI "ID eq 529" /FI "Datetime eq 10.10.2009,01:00:00AM-11.10.2009,01:00:00AM" >> sec.log
 

или так будет лучше:

Код:
cscript EVTQUERY.vbs /FO LIST /V /L Security /FI "ID eq 512 OR ID eq 513 OR ID eq 529" /FI "Datetime eq 10.10.2009,01:00:00AM-11.10.2009,01:00:00AM" > sec.log
 

 
каким из вариантов лучше будет воспользоваться?
возможно второй вариант отработает быстрее по времени т.к. будет искать сразу по 3м ID, в то время как в первом вариате по каждому ID журнал будет целиком проганяться ...
 
Заранее благодарен!

Всего записей: 485 | Зарегистр. 31-03-2009 | Отправлено: 17:30 12-10-2009 | Исправлено: SANIOK_AV, 18:50 12-10-2009
TYMAH3003

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот есть скрипт с зацикливанием, то есть на постояне висит в процессах WScript.exe,
чем дополнить скрипт чтобы при повторном его запуске не появлялся ещё 1 процесс WScript.exe и при ещё 1 запуске ещё 1 WScript.exe WScript.exe WScript.exe, нужно чтоб был только 1 WScript.exe и всё  

Код:
dim app  
i=0  
do while i = 0  
If Not myProc Then  
Set Processes = GetObject("winmgmts://localhost")  
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")  
myProc = False  
For Each Proc In myProcEnum  
    If Proc.Name = "notepad.exe" Then  
        myProc = True  
    End If  
Next  
If Not myProc Then  
    WScript.Echo "Что то я НЕ вижу что запущен Блокнот." & vbNewLine & "Ща я его запушу!..."  
    Set WshShell = CreateObject("WScript.Shell")  
    WshShell.Run "notepad.exe", 1, true  
Else  
    WScript.Echo "Блокнот уже запущен!"  
End If  
 
Else  
End If
WScript.Sleep 100
loop


Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 11:29 13-10-2009
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
проверкой что такой процесс запущен в начале

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 13:43 13-10-2009
TYMAH3003

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bomzzz
Да я впринципе понимаю я не могу сам код написать(((
черкани если не сложно

Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 14:10 13-10-2009
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TYMAH3003
Проверять наличие в процесах wscript - это только четверть дела
Код:
' Защита от повторного запуска скрипта
proc_count = 0
For Each Proc In GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("select * from Win32_Process")
   
If InStr(
Proc.Name, "script.exe") > 0 Then ' наличие wscript или cscript
       
If InStr(Proc.CommandLine, WScript.ScriptFullName) > 0 Then ' наличие ком.строки с данным скриптом
           
proc_count = proc_count + 1
       
End If
    End If
Next
 
If
proc_count > 1 Then
   
WScript.Echo "Этот скрипт уже запущен!"
   
WScript.Quit
End If
 
WScript.Echo "Работаю"
' А тут уже пишите Ваш код....
 ?  Код создан и опубликован с помощью SciTE-Ru

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 22:13 13-10-2009
MoRTaL SaTAnO

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток!
 
Eважаемые гуру своего собственного дела, есть вопрос:
 
Возможно ли управлять различными устройствами (девайсами) средствами WSH + WMI  (к примеру - веб-камера USB)
 
Пробовал смотреть в сторону принтеров (встречаются такие скрипты), но там идет копание в сторону .network
 
(А задача собственно состоит в том, чтобы запуская скрипт можно было использовать методы работы с классом устройства)

Всего записей: 5 | Зарегистр. 04-09-2008 | Отправлено: 05:31 15-10-2009
Deft



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здравствуйте.
Требуется создать объект в сетевом окружении. Причем тип должен быть такой же как при создании через Сетевое окружение-добавить новый элемент. т.е. тип ПАПКА.
нашел только скрипт  

Код:
 
Const NETHOOD = &H13&  
Set objWSHShell = CreateObject("Wscript.Shell")  
Set objShell = CreateObject("Shell.Application")  
Set objFolder = objShell.Namespace(NETHOOD)  
Set objFolderItem = objFolder.Self  
strNetHood = objFolderItem.Path  
strShortcutName = "F на I2724-app005"  
strShortcutPath = "\\i2724-app005\F"  
Set objShortcut = objWSHShell.CreateShortcut(strNetHood & "\" & strShortcutName & ".lnk")  
objShortcut.TargetPath = strShortcutPath  
objShortcut.Save  
 

но он создает ярлык что мне не подходит. т.к. этот объект должен быть виден в одной местной проге, а она не видит объект "ярлык", только  "папка".

Всего записей: 114 | Зарегистр. 15-12-2005 | Отправлено: 08:31 15-10-2009
TYMAH3003

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mozers
Хочу сделать уточнение по поводу этой строки

Код:
If InStr(Proc.Name, "script.exe") > 0 Then ' наличие wscript или cscript

script.exe > WScript.exe , регистр символов учитывается если написать маленькими он не видит процесс и запускает его повторно.

Всего записей: 241 | Зарегистр. 15-03-2009 | Отправлено: 09:19 15-10-2009
   

Страницы: 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