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

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

   

AndVGri

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

Код:
 
set obj = CreateObject("MSComDlg.CommonDialog") 'Microsoft Common Dialog Control  
obj.Filter = "All Files (*.*)|*.*"
obj.Flags = 512 + 524288
'...
 

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 07:37 30-11-2007
ViSiToR



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

Цитата:
Добавь к примеру mozers

Спрасибо, но почему то возвращается только корень папки...

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 17:00 30-11-2007
mozers



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

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



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

Цитата:
Тут все варианты.

Спасибо, то что нужно.

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

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



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Каким образом средствами VBS можно закрыть процесс? Именно закрыть, имитировав нажатие Alt+F4 или пункта меню Exit, а не просто убить? Чтобы соответственно, если это Notepad.exe например, и в нем есть не сохраненный текст,  блокнот выдал подтверждение сохранить или нет.
 

Код:
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'Notepad.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate(0)
Next
 

 
Этот пример не подходит, т.к. просто убивает процесс. Ничего при этом не сохраняется.
 

Всего записей: 671 | Зарегистр. 19-11-2004 | Отправлено: 01:37 03-12-2007
garniv



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gen4gen
set WShell = CreateObject("WScript.Shell")
WShell.AppActivate "Блокнот", TRUE
WScript.Sleep 300
WShell.SendKeys "%{F4}"
 
Это очень криво, конечно, т.к. необходимо проверять открыт ли Блокнот вообще, и только в положительном случае жать "%{F4}"

Всего записей: 1102 | Зарегистр. 23-12-2004 | Отправлено: 03:37 03-12-2007
gen4gen



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А если приложение в трее? Или я не знаю заголовка окна, а только имя процесса?

Всего записей: 671 | Зарегистр. 19-11-2004 | Отправлено: 12:26 03-12-2007 | Исправлено: gen4gen, 12:27 03-12-2007
Sun Ray

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Скрипт подставляющий имя юзера из переменной среды...

Код:
 
Dim user
    Set REObj = CreateObject("VBScript.RegExp")
    user=WshShell.ExpandEnvironmentStrings("%USERNAME%")
    REObj.IgnoreCase = True
    REObj.Global = False
    REObj.Pattern = "\n\s*LastUserName=\w*"
    MyFileText = vbCrLf & FSO.OpenTextFile("conf.INI", 1, False).ReadAll
    If REObj.Test(MyFileText) Then
        Set REMObj = REObj.Execute(MyFileText).Item(0)
        MyFileText = Left(MyFileText, REMObj.FirstIndex) & vbCrLf & LastUserName=" & user & " & Mid$(MyFileText, REMObj.FirstIndex + REMObj.Length + 1)
        FSO.OpenTextFile("conf.INI", 2, False).Write Mid(MyFileText, 3)
    End IfLastUserName

Ругается на 10 строку 100'ый символ, говоритчто недопустимый знак.

Всего записей: 461 | Зарегистр. 17-03-2006 | Отправлено: 10:47 05-12-2007
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sun Ray
Строки в VBS просто так не переносятся. Функции Mid$ не существет (есть Mid).
Кроме этого в скрипте полно других элементарных ошибок, возникших в результате бездумного копирования чужого кода.
Может все таки с чего нить простенького начать?... Мануалы почитать?...
Так ведь скоро вообще никто отвечать не будет...

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 12:27 05-12-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите, плиз, написать калькулятор, работающий в командной строке. Здесь есть статья по этому поводу, но автор выложил только кусок. Может, допишете остальное?

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



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tipulatoid
Пробегала как то давно подобная темка на RSDN...
Консольный вариант меня как то не впечатлил, поэтому, использовав эту идею, сделал HTA приложение: http://mozers.net.ru/files/JSCalc.rar
 
 
Добавлено:
Вот, нашел таки этот скрипт, который послужил мне отправной точкой: Подробнее...
Запускать с помощью SCRIPT !

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 18:34 05-12-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mozers
Отличная штука. Однако я думаю проводить вычисления из батника, потому мне нужно было, чтоб умел работать в пакетном режиме тоже, а не только в интерактивном. Написал письмо автору той статьи, он мне прислал ссылку То, что нужно!
mozers
Спасибо Вам.

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 22:38 05-12-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возможен ли скрипт, автоматически помещающий сообщения на форум? Я веду деловую игру по Интернету и каждый период мой батник подготавливает текстовый файл с отчетами, интересными всем участникам ветки. Хотелось бы скрипт, который бы:
 
1. Открывал текстовый файл report.txt
2. Копировал его содержимое в буфер обмена
3. Закрывал файл.
4. Открывал в браузере (Opera) страницу форума для добавления сообщения.
5. Делал паузу до нажатия пробела, чтоб можно было подождать загрузки страницы.
6. Передавал активному окну браузера 22 нажатия клавиши "Tab", чтоб  
появился курсор в поле для ввода сообщения.
6. Вставлял содержимое буфера обмена.
7. Передавал активному окну еще 7 нажатий "Tab"
8. Передавал нажатие пробела или Enter.
 
Возможно ли средствами VBS? Если нет, то какой инструмент сгодится? Если кто-нибудь возьмется написать, буду ОЧЕНЬ благодарен и вышлю в PM URL страницы, логин и пароль для тестов.

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 07:47 06-12-2007
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tipulatoid
Цитата:
Возможно ли средствами VBS?
ДА.

Цитата:
Если нет, то какой инструмент сгодится?
AutoIt

Цитата:
Если кто-нибудь возьмется написать
Имхо тут - учатся писать. Если кому то (не мне) будет интересно поупражнятся ...

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



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

Цитата:
какой инструмент сгодится?

Имхо, для Opera - самое оптимальное, это кнопка с Javascript-кодом + внешний скрипт (AutoIt, VBS, или любой другой умеющий работать с файлами и буфером обмена).
 
Если всё это сделать одним скриптом, то будет не очень надёжно, на AutoIt могу помочь написать, там ничего сложного

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 11:19 06-12-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR
Помогите, если не сложно. Насколько я понял, AutoIt скрипт можно скомпилировать в exe - файл и будет он работать без всякого доп. софта или библиотек. Правильно? Информацию о форуме скинул в PM.

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 13:15 06-12-2007
ViSiToR



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

Цитата:
AutoIt скрипт можно скомпилировать в exe - файл и будет он работать без всякого доп. софта или библиотек. Правильно?

 
Верно... скрипт отправил в PM, если что можем обсуждать в теме по AutoIt, я если честно PM недолюбливаю, не очень удобно там (предпросмотра нет, и вообще, не чувствую там комфортности ).

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 14:41 06-12-2007
gen4gen



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR, парой-тройкой постов выше я спрашивал о том, можно ли средствами VBS закрывать приложения (именно корректно закрывать, а не убивать). К сожалению, никто так и не ответил.  
 
Возможно ли эту проблему решить средствами AutoIt? Пробовал поковырять сам, но ничего не получилось. Могу ли попросить Вас написать скрипт для AutoIt, если конечно он сгодится для этого?
 
Спасибо.

Всего записей: 671 | Зарегистр. 19-11-2004 | Отправлено: 20:20 06-12-2007
ViSiToR



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

Цитата:
Возможно ли эту проблему решить средствами AutoIt?

Да (если у приложения имеется окно/а), но не будем офтопить , возможно помогу в соответствующем топике (запостите туда вопрос).

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 21:07 06-12-2007
Desytroyed

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет.
Есть пример, написанный на WSH, как патчить бинарник. Мне надо тоже самое на VBS без использования сторонних библиотек.. Такое возможно?
Задача следующая. Есть 32 переменных (каждая из них HEX значение), их надо сохранить именно в бинарник. Что то типа
0000: 12 2A 4F FF 0A BA 12 34 54 5A 45 18 02 09 FB BB  
0010: 34 34 55... и тд.

Всего записей: 1 | Зарегистр. 07-12-2007 | Отправлено: 19:13 07-12-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