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

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

   

Sun Ray

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как можно "подписать" скрипт на событие создания какого-либо объекта в АД?

Всего записей: 461 | Зарегистр. 17-03-2006 | Отправлено: 17:30 19-08-2007 | Исправлено: Sun Ray, 17:32 19-08-2007
UNHELPMAN



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Прочитал всю тему , но похожего не нашёл.  
Требуется ..  
Есть приложение . Пусть  - Блокнот. Необходимо послать ему ряд кодов.
 Цыфири  -  1 4 7 9 и так далее. В цикле.  
Цикл - раз 200.  
Между  посылками цифр интервал 5- 10  секунд .  
Вся загвоздка в том , что всё  должно происходить в ФОТОВОМ режиме -
Приложение запущено , затем свёрнуто. То есть  - неактивно .  
Таким образом  классический  вариант  с    
 

Цитата:
 if (WshShell.AppActivate("Блокнот"))  
{  
WshShell.SendKeys("1");  
WScript.Sleep(300);  
WshShell.SendKeys("4");  
WScript.Sleep(300);  
WshShell.SendKeys("3");  
WScript.Sleep(300);  
WshShell.SendKeys("6");  
WScript.Sleep(5000);  
}  
 
Не подходит.  
В общем  - как обойти  (чем  заменить) ???

Всего записей: 209 | Зарегистр. 28-11-2004 | Отправлено: 15:51 22-08-2007
MiK_85

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Все же наверняка знаю, что 1С для сертификации людей использует тест, так называемые "для профессионалов". Так вот, существует ли какая-нить обработка, которая дёргает правильные ответы из подобных тестов?! Заренее благодарен...
 
П.С. тесты написаны на ВБ...

Всего записей: 2 | Зарегистр. 23-08-2007 | Отправлено: 11:32 27-08-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возможен ли скрипт, который бы конвертил содержимое текстового файла из DOS (866) в Windows (1251) кодировку. В идеале он должен взять текст в input.txt а результат записать в output.txt
Я читал этот пост но 1-ых, он вроде только одну строку конвертит, и 2-ых я по ламерству своему не сообразил как тот код запустить - куда ему строку скармливать?

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 15:14 04-09-2007 | Исправлено: Tipulatoid, 15:16 04-09-2007
distance

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

Код:
 
function Recode( sourceText, srcEncoding, destEncoding )
{
    var adReadAll = -1;
    var adTypeText = 2;
     
    var result = "";
    var strm = WScript.CreateObject("ADODB.Stream");
     
    strm.Open();
    strm.Type = adTypeText;
    strm.Charset = destEncoding;
    strm.WriteText(sourceText);
    strm.Flush();
    strm.Position = 0;
    strm.Charset = srcEncoding;
    result = strm.ReadText(adReadAll);
    strm.Close();
    return (result);
}

 
для остального  

Код:
 
var FSO_ForReading = 1;
var FSO_ForWriting = 2;
function GetFileContent( filename )
{
    var fso = WScript.CreateObject( "Scripting.FileSystemObject" );
    // Check that file are exist
    if (!fso.FileExists(filename))  
        throw new Error(1, "GetFileContent: File not exist:" + filename);
    var f = fso.OpenTextFile(filename, FSO_ForReading);
    var c = f.ReadAll();
    f.Close();
    return(c);
}
         
function SetFileContent( filename, conents )
{
    var fso = WScript.CreateObject("Scripting.FileSystemObject");
    var f = fso.OpenTextFile(filename, FSO_ForWriting, true);
    f.Write(conents);
    f.Close();
    return (true);
}
 

 

Код:
 
var i = GetFileContent("input.txt");
var o = Recode(i, "cp866", "windows-1251");
SetFileContent("output.txt", o);
 

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 17:55 04-09-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
distance
Спасибо большое. Не могли бы эти части в готовый скрипт собрать? Так чтоб кликнул на скрипте - и результат в output.txt
Не шарю я абсолютно.

Всего записей: 349 | Зарегистр. 22-12-2006 | Отправлено: 18:33 04-09-2007
distance

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
distance
всё уже готово к работе. просто объединяешь все три части и сохраняешь в файл с расширением js. убедись, что рядом лежит input.txt и запускай скрипт.

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 12:58 05-09-2007
Tipulatoid



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
distance
Ясно, спасибо; я объединял все в файл *.vbs

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

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как реализовать прогрессбар при копировании файлов?
На худой конец - отображение окна "прошло столько то времени с начала запуска" ?

Всего записей: 4 | Зарегистр. 18-04-2006 | Отправлено: 13:35 06-09-2007
ViSiToR



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

Цитата:
Как реализовать прогрессбар при копировании файлов?

 
Например так:
 

Код:
CopyWithProgress "E:\Downloads\vista_live_cd.iso", "C:\Programms\"
 
Function CopyWithProgress(SourcePath, DestPath)
    Set Shell_Obj = WScript.CreateObject("shell.application")
    Shell_Obj.NameSpace(DestPath).CopyHere(SourcePath)
End Function


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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 13:49 06-09-2007
blackmanos



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

Цитата:
Народ всем привет у меня вопрос такой, есть веб страница на ней есть две кнопки обе type submit по полю name одинаковый отличаются только по value как можно выполнить submit нужной кнопки, а то на JS есть а вот как на VBS не знаю может кто подскажет??? Буду очень благодарен!!!

Отвечаю сам себе, а зачем париться через вебстраницу если можно эмулировать запросы через  
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
и вбивать там какую тебе надо информацию...
 
 

Всего записей: 1105 | Зарегистр. 06-11-2005 | Отправлено: 18:03 17-09-2007
Tinca

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста какие-нибудь ресурсы по изучению VBScript.
В инернете в основном попадаются статьи о веб-программировании, а про сценарии Windows ничего нет. Все ссылки на первой странице темы дохлые.
В принципе вот такого плана что-нибудь хотелось бы почитать.
 
http://vbrussian.com/Article.asp?ID=86
 
Только желательно для чайников. А то я запутался в методах, классах, функциях.

Всего записей: 52 | Зарегистр. 02-07-2007 | Отправлено: 20:01 22-09-2007 | Исправлено: Tinca, 21:07 22-09-2007
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Tinca
Цитата:
ресурсы по изучению VBScript.  
В инернете в основном попадаются статьи о веб-программировании
Это потому что ты в поисковой строке пишешь "VBScript", а надо писать "WSH".
Если не знаешь с чего начать - начни отсюда.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 21:33 22-09-2007
VikLabel

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть такой скриптик (учусь):

Код:
 
Dim PathRAR, Input, Output
PathRAR = "C:\Progra~1\WinRAR\WinRAR.exe U -pVic -ibck"
set WSHShell = WScript.CreateObject("WScript.Shell")
 
Input = "C:\Documents and Settings\Vic\Application Data\Mozilla"
Output = "D:\Catalog\Интернет и сеть\Браузеры и утилиты\Firefox\BackUpSettingFf.rar"
 
WSHShell.Run PathRAR&" "&Output&" "&Input
 

Я понимаю что такие пути не катят:
...C:\Documents and Settings...
и такое
...Интернет и сеть\Браузеры и утилиты...   но не знаю как сделать?
Если имена дать английские и в формате 8.3 то всё ОК!
Как всё это побороть? Уже подумываю что и WinRAR такое не принимает, во блин

Всего записей: 674 | Зарегистр. 05-03-2003 | Отправлено: 16:40 27-09-2007
KapralBel



Platinum Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
VikLabel
У тебя после подстановки кавычки пропадают
 
Output = "D:\Catalog\Интернет и сеть\Браузеры и утилиты\Firefox\BackUpSettingFf.rar"
WSHShell.Run PathRAR&" "&Output&" "&Input  
 
 
Надо
WSHShell.Run PathRAR&" "&chr(34)&Output&chr(34)&" "&chr(34)&Input&chr(34)

Всего записей: 11354 | Зарегистр. 16-02-2005 | Отправлено: 16:49 27-09-2007
VikLabel

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
KapralBel
Данке шон!
 
Не особо важно, но хотелось бы знать для своего развития в VBScriptах
написал "обычный путь" к WinRAR:
PathRAR = "C:\Program Files\WinRAR\WinRAR.exe U -pVic -ibck"
...
...
WSHShell.Run chr(34)&PathRAR&chr(34)&" "&chr(34)&Output&chr(34)&" "&chr(34)&Input&chr(34)
Ошибка!  Убирал слева, справа, добавлял - никак.
Видать не понял принцип расстановки chr(34)
Как надо сделать?  
 

Всего записей: 674 | Зарегистр. 05-03-2003 | Отправлено: 23:25 27-09-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VikLabel
Код:
PathRAR="""C:\Program Files\WinRAR\WinRAR.exe"""&" U -pVic -ibck "
Input_file="""C:\Documents and Settings\Vic\Application Data\Mozilla"""
Output_file="""D:\Catalog\Интернет и сеть\Браузеры и утилиты\Firefox\BackUpSettingFf.rar"""&" "
CreateObject("WScript.Shell").Run PathRAR&Output_file&Input_file

параметры можно вынести в отдельную переменную, но имхо и так все ясно

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 23:56 28-09-2007 | Исправлено: Nagual, 00:45 29-09-2007
VikLabel

BANNED
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Nagual
Спасибо, в книгах об этом " и этом """ никогда не читал, и даже не видел правил или не правил их расстановки. Почему аж три """?

Всего записей: 674 | Зарегистр. 05-03-2003 | Отправлено: 22:25 29-09-2007
Nagual



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VikLabel
очевидно, для того, чтобы экранировать среднюю кавычку боковыми и не писать каждый раз вместо кавычки ее ANSI-код, как делал это выше KapralBel
посмотри, ты в своем коде изначально использовал " " (не могу выделить пробел )
здесь же происходит тоже самое, то есть """
иными словами тройная кавычка будет эквивалентна одной для выполняемой команды там, где это необходимо, то есть в отрезках команд, путей и т.д., содержащих пробелы и т.д.

Всего записей: 528 | Зарегистр. 06-01-2006 | Отправлено: 19:38 01-10-2007 | Исправлено: Nagual, 19:41 01-10-2007
alur2005



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите можно ли с помощью скриптов проверить запущена служба или нет
например служба SpIDer Guard for Windows NT (программа DrWeb)

Всего записей: 824 | Зарегистр. 06-09-2005 | Отправлено: 09:42 19-10-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