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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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 | Цитировать | Сообщить модератору
XXXXL

Цитата:
реально с помощью VBScript сделать короткий диалог. Окошко с надписью введите свой логин и пароль.

Можно с InputBox, и в сообщении подметить что логин и пароль вводить через некий разделитель... а потом делить результат - Ну или выводить два InputBox'а

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 16:30 09-02-2008
XXXXL



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

Цитата:
Ну или выводить два InputBox'а  

Лучше в два

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 18:47 09-02-2008
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
XXXXL
В голом WSH отсутствует возможность создания диалоговых окон.
Для их создания лучше использовать HTA или какой нить сторонний COM-компонент.

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



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

Цитата:
А можеш с кодом помочь

 
Пример с одним:
 

Код:
Input = InputBox("Введите логин и пароль:", "Внимание!", "")
 
Login = Left(Input, InStrRev(Input, ":") - 1)
Password = Mid(Input, InStrRev(Input, ":") + 1)
 
Wscript.Echo "Login: " & Login & VBLF & VBLF & "Password: " & Password

 
Пример с двумя:
 

Код:
Login_Input = InputBox("Введите логин:", "Внимание!", "")
Password_Input = InputBox("Введите пароль:", "Внимание!", "")
 
Wscript.Echo "Login: " & Login_Input & VBLF & VBLF & "Password: " & Password_Input

 
Но полагаю что не это ожидалось - как сказал mozers, задача не для WSH.


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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 00:57 10-02-2008
Smitis



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
XXXXL
Можно использовать компонент на базе IE - InternetExplorer.Application
Ищи. В этой теме были примеры.

Всего записей: 3179 | Зарегистр. 09-02-2003 | Отправлено: 01:06 10-02-2008
AlessTO

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Имеется open.avs (формат txt)
Имеется переменная (путь) с кириллицей (%filepath1%)
Как можно вставить переменную в open.avs при помощи скрипта?
Примерно такого вида:
%filepath1%=E:\DownLoaded\Torrent\Оболочка\1.avi
было в тексте directshowsource
нужно directshowsource ("E:\DownLoaded\Torrent\Оболочка\1.avi")
 
при помощи bat это возможно, но там любой txt сохраняется в кодировке 866, а мне нужно 1251
хелп?

Всего записей: 253 | Зарегистр. 09-12-2006 | Отправлено: 09:01 10-02-2008
XXXXL



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

Цитата:
Пример с двумя:  
 
 

Код:
Код:Login_Input = InputBox("Введите логин:", "Внимание!", "")  
Password_Input = InputBox("Введите пароль:", "Внимание!", "")  
 
Wscript.Echo "Login: " & Login_Input & VBLF & VBLF & "Password: " & Password_Input  

 
ViSiToR это то что и нужно, но как реализовать запись пароля и логина в .set именно в определенные места. Извини если напрягаю.

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 09:15 10-02-2008
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
XXXXL

Цитата:
но как реализовать запись пароля и логина в .set именно в определенные места.

Для этого надо знать структуру set-файла и видеть где там что пишется.

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 09:53 10-02-2008
XXXXL



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

Цитата:
Для этого надо знать структуру set-файла и видеть где там что пишется.

 
вот и строка

Код:
-h 192.168.1.1 "login" root -p "password" -timeout 10000 -input disconn.txt

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 10:25 10-02-2008
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
XXXXL
Конкретно для этой строки:

Код:
    ' Окна ввода данных
Login_Input = InputBox("Введите логин:", "Внимание!", "")  
Password_Input = InputBox("Введите пароль:", "Внимание!", "")
    ' Читаем нужный файл
Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("имя файла", 1)
  setFile = f.ReadAll
f.Close
    ' Включаем регулярные выражения
Set regEx = New RegExp
  regEx.Global = True
  regEx.IgnoreCase = True
    ' Маски для замены
str="192.168.1.1 " & chr(34)& "[\D\d]*?" & chr(34) & " root -p " & chr(34)& "[\D\d]*?"  & chr(34)
str2="192.168.1.1 " & chr(34)& Login_Input & chr(34) & " root -p " & chr(34)&  Password_Input & chr(34)
    ' Меняем значения логина и пароля
setFile = ReplaceText (setFile, str, str2)
    ' Записываем в файл
Set f = fso.OpenTextFile("имя файла", 2)
 f.Write setFile  
f.Close
    ' Очищаем  
Set f = Nothing
Set fso = Nothing
Set regEx = Nothing
    ' Функция замены
Function ReplaceText(txt, patrn, replStr)
  regEx.Pattern = patrn
  ReplaceText = regEx.Replace(txt, replStr)
End Function

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 13:17 10-02-2008
Rush

Уже за тридцать...
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Блин, протупил.
Зачем
Код:
[\D\d]*?

когда можно просто
Код:
.*

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 15:21 10-02-2008
XXXXL



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

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 19:07 10-02-2008
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AlessTO
Цитата:
но там любой txt сохраняется в кодировке 866, а мне нужно 1251

Код:
help chcp
в начале кода поставь
Код:
chcp 1251>nul

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 01:14 11-02-2008
ViSiToR



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

Цитата:
Как можно вставить переменную в open.avs при помощи скрипта?

Переменная окружения? глобальная?
 
В скрипте можно получить переменную через WshShell.Environment, а чтобы из командной строки, то нужно передать скрипту как параметр.
 
Вот пример замены в файле на глобальную переменную:
 

Код:
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
 
FilePath = ".\open.avs"
 
'Тут будет получено значение глобальной переменной %filepath1%
'Если значение заранее известно, то можно просто подставить его как значение для DSSEnv
DSSEnv = WshShell.Environment("filepath1")  
 
'Открываем файл для чтения, и делаем замену текста
Set oFile = fso.OpenTextFile(FilePath, 1)
FileContent = Replace(oFile.ReadAll, "directshowsource", "directshowsource(" & DSSEnv & ")")
oFile.Close
 
'Пишем обратно после замены
Set oFile = fso.OpenTextFile(FilePath, 2)
oFile.Write FileContent
oFile.Close


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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 03:05 11-02-2008
titris



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Возможно ли создать скрипт,который будучи запущенным(через autorun) закрывал бы некоторые программы и(или)убивал процесс.Срабатыванме должно происходить скажем через полторы минуты,после запуска соответствующей программы,при запуске другой программы,прописанной в этом скрипте,закрывал бы и ее и так до ребута системы.
Если можно приведите пример написания соответств.скрипта и включите в него хотя бы стандартные Windows программы типа notepad и WordPad.Так же попрошу пояснить-какая будет разница в 3 случаях:английская версия Windows,английская с MUI,русская чисто.
А также место в этом скрипте прошу пояснить где заложена инфа о битности системы,т.е.32 или 64 bit.
Конечно не в тему,но можно ли такую штуку написать с помощью AutoIt?

Всего записей: 48 | Зарегистр. 10-07-2007 | Отправлено: 13:34 11-02-2008
ViSiToR



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

Цитата:
Возможно ли создать скрипт,который будучи запущенным(через autorun) закрывал бы некоторые программы и(или)убивал процесс.

Возможно.
Пример могу привести позже.
 

Цитата:
можно ли такую штуку написать с помощью AutoIt?

Всё что можно на wsh, можно и на AutoIt, и в несколько раз проще/быстрее/надёжнее

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 15:49 11-02-2008
ripev



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Друзья, вопрос немного не в тему, но все же.
Как/какой программой скомпилировать vbs в exe?

Всего записей: 167 | Зарегистр. 17-09-2006 | Отправлено: 17:38 11-02-2008
titris



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
VISIToR
Буду ждать с нетерпением твоего примера.AutoIt у меня установлен,начинаю его изучение,VBscript тоже интересен,если можно пример и в .vbs тоже покажи

Всего записей: 48 | Зарегистр. 10-07-2007 | Отправлено: 20:07 11-02-2008
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
titris
Если я верно понял, скрипт должен работать циклом, запускать определённую программу, ждать 1.5 м, закрывать её, и так по кругу?
 

Код:
Set WshShell = CreateObject("WScript.Shell")
 
Program = "Notepad.exe"
 
While True
    Set oNotepad = WshShell.Exec(Program)
    WScript.Sleep 90 * 1000 '90 секунд
    
    oNotepad.Terminate
WEnd

 
ripev

Цитата:
какой программой скомпилировать vbs в exe?

Интересно для чего? Можно тем же AutoIt'ом FileInstall'ить

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 01:13 12-02-2008
ripev



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

Цитата:
Интересно для чего? Можно тем же AutoIt'ом FileInstall'ить

Программа APC Power Chunte идущая в комплекте с Smart APC упсами. Может потушить сервер к которому подключен сам упс. И может выполнить перед тушеним "любой" скрипт.
Под любым понимается exe файл и только.

Код:
shutdown.exe /s /m \\server-name[1-3]

такое она выполнить не может. Поэтому и пришлось извращатся: писать скрипт, и компилировать его в exe.
Кстати я уже нашел простенький компилятор - ExeScript

Всего записей: 167 | Зарегистр. 17-09-2006 | Отправлено: 10:08 12-02-2008
   

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