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

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

   

Yuan

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Уже потратил кучу времени безрезультатно , не могу запустить Riva tuner из под WSH;
проблема кроется в пробелах в пути к программе, вот этот кусок скрипта.
WshShell.Run"d:\proggi\tools\RivaTuner v2.0 RC 15.6\RivaTuner.exe "
 
Мож подскажет кто как это реализовать, заранее благодарю

Всего записей: 242 | Зарегистр. 17-07-2003 | Отправлено: 16:02 09-05-2006
EZH



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Yuan
Попробуй заменить длинные части пути с пробелами на их 8.3 аналоги (как в DOS). Т.е. вместо "RivaTuner v2.0 RC 15.6" чтобы было что-то типа "RivaTu~1".

Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 19:20 09-05-2006
Yuan

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EZH
Спасибо, таки получилось, вот таk:
WshShell.Run("""d:\proggi\tools\RivaTuner v2.0 RC 15.6\RivaTuner.exe """"/L:44560e05")  
где /L:44560e05 - клуч созданного в в Riva-tunere профиля ....
 
Зы: посмотрел щас VBSedit , там такаая куча самплесов, на все случаи жизни так-сказать.

Всего записей: 242 | Зарегистр. 17-07-2003 | Отправлено: 22:44 09-05-2006 | Исправлено: Yuan, 22:45 09-05-2006
yurinb



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
А как узнать и записать в  переменную скрипта кол-во свободных байт на диске?

Всего записей: 341 | Зарегистр. 06-05-2002 | Отправлено: 22:13 16-05-2006
pAnatoliy

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Специфическая тема ..
 
Господа, кто наверняка знает, как можно определить,
какая из клавиатур была нажата, если на компьютере
установлены 2 USB или например usb+ps/2 клавиатуры.
 
Чтобы не писать драйвер-фильтр клавиатуры
и желательно не работать с USB hid
 
Я так пониманию, задача №1 - это какое событие и где будем
ловить, чтобы имея связанную с ним информацию добраться
до идентификатора клавиатуры, или хотия бы определить  
тип клавиатуры - usb или ps/2, с которой было произведено
нажатие.
 
Огромная просьба написать прямой ответ на panatoly17@ukr.net
 
Спасибо

Всего записей: 1 | Зарегистр. 29-05-2006 | Отправлено: 15:06 29-05-2006
jONES1979



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

Цитата:
А как узнать и записать в  переменную скрипта кол-во свободных байт на диске?

 
The following example demonstrates how to use the Drive object in VBScript:  
 
Sub ShowDriveInfo(drvPath)
  Dim fso, drv, s
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set drv = fso.GetDrive(fso.GetDriveName(drvPath))
  s = "Drive " & UCase(drvPath) & " - "
  s = s & drv.VolumeName & "<br>"
  s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)
  s = s & " Kb" & "<br>"
  s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)
  s = s & " Kb" & "<br>"
  Response.Write s
End Sub
 
 
 
Добавлено:
Reznikoff
 

Цитата:
Вопрос номер третий.  
Создал папку. Как задать ей права на доступ?  
Имеется актив директори, вин2000 сервер.  

 
У майкрософт есть Adsi SDK. Там есть екзамплы. Проще найти там, чем выкладывать здесь - уж больно много констант описано и прочих служебных данных

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 21:24 30-05-2006
Victor N

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Можно ли создать библиотеку функций и процедур и обращаться к ней из различных скриптов.

Всего записей: 7 | Зарегистр. 16-05-2005 | Отправлено: 18:41 15-06-2006
Crash2002



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот ведь я озаботился Короче нужно неким макаром заставить VBS вывести сообщение в systray во всплывающей подсказке (baloon или notify, какая там у MS сейчас терминология?) Понятно, что встроенных функций нет, нужна, как я понимаю, утилитка командной строки, которую можно вызвать из скрипта. Может кто встречал?

Всего записей: 87 | Зарегистр. 10-01-2003 | Отправлено: 12:39 18-07-2006
zoric

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А через VBA пробовал?

Всего записей: 159 | Зарегистр. 29-07-2005 | Отправлено: 13:16 18-07-2006
Crash2002



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
zoric
А там есть что-то похожее? Не смотрел

Всего записей: 87 | Зарегистр. 10-01-2003 | Отправлено: 13:31 18-07-2006
zoric

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

Всего записей: 159 | Зарегистр. 29-07-2005 | Отправлено: 15:14 18-07-2006
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Доброго времени суток уважаемые программисты специалисты!
 
Есть такой вопрос - Как можно имитировать нажатие двух клавиш (Ctrl Shift), и желательно, чтобы они были беспрерывно зажатыми до тех пор, пока в сстеме запущенный определённый процесс (т.е когда процесс закроется, то клавиши не должный быть зажатыми).
А вообще было бы идеально, если бы они оставались быть зажатыми в границах определённого активного окна (т.е когда это определённое окно не активно, то клавиши как бы будут отжиматься, а скрипт как бы будет уходить во временную спячку, и 'просыпаться' в момент активности того самого определённого окна).
 
У меня есть скрипт, который имитирует нажатие одной клавиши:

Код:
DIM Wsh
Set Wsh = WScript.CreateObject("WScript.Shell")
Wsh.SendKeys "{Тут клавиша}"
'quit
Set Wsh = nothing
WScript.Quit

И если мой вопрос выше, исходит из сферы фантастики   , то хотябы как сделать чтобы этот скрипт (в коде), имитировал нажатие двух клавиш на клавиатуре? (одновременно)
 
Благодарю за внимание!

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 18:26 18-07-2006
osmor66



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите как из VBS запустить существующее и настроенно VPN соединение.
А потом после того как будут выполнены нужные операции (как операции сделать знаю)
его (соединение) закрыть.
Спасибо

Всего записей: 1 | Зарегистр. 09-08-2006 | Отправлено: 18:45 09-08-2006
zoric

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
При запуске скрипта стало появляться ошибка
Цитата:
Невозможно создание объекта контейнером ActiveX: "Microsoft.XMLDOM"

Пробовал в сети поискать - не нашёл НИЧЕГО. Неужели это только у меня?

Всего записей: 159 | Зарегистр. 29-07-2005 | Отправлено: 14:53 11-08-2006
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Есть такой вопрос - как в VBScript, проверить наличие на существование процесса в системе? что-то типа такого:
 

Код:
If ProcessExists(process.exe) Then
do somthing...


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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 15:26 11-08-2006
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR
Код:
Set Processes = GetObject("winmgmts://localhost")
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")
For Each Proc In myProcEnum
    WScript.Echo Proc.Name & " " & Proc.ProcessId & " " & Proc.ExecutablePath & " " & Proc.CommandLine
Next



----------
Интересно только неизведанное...

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 16:00 11-08-2006
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
mozers
Спасибо за отзыв, но если честно, я не совсем понимаю что с этим делать. Куда нужно прописывать нужный для опознания процесс, и как сделать чтобы в случае его отсутствия, происходило определённое действие?

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 19:41 11-08-2006
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR
Да... RFTM вообще то...
Сначала запускаем Блокнот, а потом этот скрипт (назовем его KillNotepad.vbs):
Код:
Set Processes = GetObject("winmgmts://localhost")  
Set myProcEnum = Processes.ExecQuery("select * from Win32_Process")  
For Each Proc In myProcEnum
    If Proc.Name = "notepad.exe" Then
        ' пример действий если найден заданный процесс
        WScript.Echo "Я вижу что запущен Блокнот!" & vbNewLine & "Ща его грохну..."
        Proc.Terminate
        ' Все! Можно и че нить другое делать...
    End If
Next

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 23:39 11-08-2006
popinou



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый вечер,
Кто может помочь внести изменения в макрос, написанный в VBS ?
Речь идет о макрос к программе перевода Промт -  
Я хочу включить информацию, находящуюся в тексте макроса в формате  
 
          Dictionary.Add "мама", "maman"
          Dictionary.Add "папа", "papa"
 
в последовательный файл в формате txt - Но я не умею это делать. Помогите пожалуйста.
Заранее благодарю всех за помочь -  
 
       
Цитата:
код:

 
Set RE = New RegExp
RE.Global = True
'
Set Dictionary = CreateObject("Scripting.Dictionary")
 
Dictionary.Add "папа", "papa"
Dictionary.Add "мама", "maman"
Dictionary.Add "марина", "Marina"
 
Sub PreserveForDictionary(ParaIndex)
    a = Dictionary.Keys
    For i = 0 To Dictionary.Count -1
        RE.Pattern = a(i)
        Set Matches = RE.Execute(Paragraphs(ParaIndex).SourceText)
        For Each Match in Matches
            Call Paragraphs(ParaIndex).Preserve(Match.FirstIndex, Match.Length, False, 0)
        Next
    Next
End Sub
 
Sub ReplaceFromDictionary(ParaIndex)
    Set TargetRanges = Paragraphs(ParaIndex).Ranges
    For I = 0 To TargetRanges.Count - 1
        Set TargetRange = TargetRanges(I)
        Value = Paragraphs(ParaIndex).SourceText(TargetRange.OriginStart, TargetRange.OriginLength)
        If Dictionary.Exists(Value) Then
            Value = Dictionary(Value)
            Call Paragraphs(ParaIndex).ReplaceTarget(TargetRange.Start, TargetRange.Length, Value)
            TargetRange.Length = Len(Value)
            TargetRange.Property("PROMT_MACROS") = "This text was changed by macro!!!"
        End If
    Next
End Sub
 
Sub Document_BeforeTranslation(ParaIndex)
    PreserveForDictionary(ParaIndex)
End Sub
 
Sub Document_AfterTranslation(ParaIndex)
    ReplaceFromDictionary(ParaIndex)
End Sub

Всего записей: 4 | Зарегистр. 15-06-2005 | Отправлено: 00:10 12-08-2006
ViSiToR



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

Цитата:
Сначала запускаем Блокнот, а потом этот скрипт (назовем его KillNotepad.vbs):

Но таким образом, всё что будет между For и Next, в любом случае будет выполнятся, а мне нужно, чтобы при условии отсутствия процесса, он же и будет запускаться. Т.е, допустим, в системе висит процесс dmaster.exe, и при запуске скрипта, должна произойти проверка, и если был найден процесс, то скрипт по сути должен завершить работу (Set WshShell = Nothing или в этом роде), а если процесс не был определён (т.е нет такого процесса в системе), то скрипт должен запустить программу (dmaster) - но сам акт запуска я умею делать, мне нужно именно условие и проверка на существование процесса.

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 00:50 12-08-2006
   

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