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

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

   

Hugo121

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
nicka, два варианта, чтоб тут не мусорить:
http://hugo.nxt.ru/inimaker.v04'.vbs
http://hugo.nxt.ru/inimaker.v04.vbs
 
Добавлено:
Dimau1981
 
 
CreateObject("WScript.Shell").Popup "Это окно закроется через 5 секунд",5,"oops", 64  

Всего записей: 128 | Зарегистр. 14-08-2007 | Отправлено: 23:39 05-04-2010
nicka



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hugo121
выложите где нибудь ещё, невозможно загрузить...

Всего записей: 756 | Зарегистр. 01-10-2002 | Отправлено: 23:48 05-04-2010
Hugo121

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Странно, запрещённая закачка?
А так?
http://hugo.nxt.ru/inimaker.v04.zip
Тоже не хочет.
 
Добавлено:
Вспомнил, на народе есть местечко, проверил - качает:
http://ibay.narod.ru/other/inimaker.v04.zip

Всего записей: 128 | Зарегистр. 14-08-2007 | Отправлено: 23:59 05-04-2010 | Исправлено: Hugo121, 00:11 06-04-2010
nicka



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

Hugo121
 
фантастика!
 
работает и на 3 и на 4 фильма!
 
огромное спасибо за труд и за выделенное время.
 
сработал inimaker.v04 (без апострофа).

Всего записей: 756 | Зарегистр. 01-10-2002 | Отправлено: 00:20 06-04-2010
Dimau1981

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

Всего записей: 166 | Зарегистр. 29-12-2008 | Отправлено: 00:25 06-04-2010
Aterm

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток,
 
возникла необходимость искать файлы по параметрам (тип, размер, дата последнего доступа и т.д) с последующим сохранением результатов в текстовом файле (имя, полный путь, размер, тип и т.д.).  Как можно реализовать на VBS?

Всего записей: 6 | Зарегистр. 13-09-2005 | Отправлено: 16:12 06-04-2010
Hugo121

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

Код:
' List Detailed Summary Information for a File
 
 
Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace ("C:\Scripts")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim arrHeaders(13)
 
For i = 0 to 13
    arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i)
Next
 
For Each strFileName in objFolder.Items
    For i = 0 to 13
        If i <> 9 then
            Wscript.echo arrHeaders(i) _
                & ": " & objFolder.GetDetailsOf (strFileName, i)  
        End If
    Next
Next

 
А вообще тут можно примеры найти

Всего записей: 128 | Зарегистр. 14-08-2007 | Отправлено: 16:24 06-04-2010
Aterm

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

Всего записей: 6 | Зарегистр. 13-09-2005 | Отправлено: 16:54 06-04-2010
snailp4el

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

Всего записей: 11 | Зарегистр. 06-03-2007 | Отправлено: 12:46 07-04-2010
CruelCrow

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно сделать задержку перед выполнением основной части vbs для Visual Studio 2010 Setup Project.
 
Пытался писать "WScript.Sleep(10000)", "Sleep(10000)", "WScript.Sleep 10000", "Sleep 10000" - результат плачевен: когда .msi установщик пытается выполнить этот скрипт, он говорит, что не может его выполнить ("There is a problem with this Windows Installer package. A script required for this install to complete could not be run.") и делает Rollback (отменяет установку).
 
Есть какие-нибудь идеи по этому поводу? Ну, кроме написания exeшника вместо vbs.

Всего записей: 109 | Зарегистр. 21-05-2006 | Отправлено: 13:56 07-04-2010 | Исправлено: CruelCrow, 14:07 07-04-2010
Hugo121

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

Код:
msgbox 1
CreateObject("WScript.Shell").Popup "Это окно закроется через 5 секунд",5,"oops", 64  
msgbox 2

Всего записей: 128 | Зарегистр. 14-08-2007 | Отправлено: 17:05 07-04-2010
CruelCrow

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hugo121
И окно так и будет висеть?.. Мне нужна относительно большая задержка.
 
Вобщем, решил проблему обходным путём: добавил единичный Scheduled Task со сторокой, которую хочу выполнить.

Всего записей: 109 | Зарегистр. 21-05-2006 | Отправлено: 17:23 07-04-2010
Hugo121

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

Код:
msgbox 1
WScript.Sleep 10000
msgbox 2

Пауза 10 сек.

Всего записей: 128 | Зарегистр. 14-08-2007 | Отправлено: 22:48 07-04-2010 | Исправлено: Hugo121, 22:50 07-04-2010
CruelCrow

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Hugo121
Я же написал: это ГЛЮЧИТ при исполнении из-под .msi установщика.
 
Скажу даже больше: я написал-таки exeшник с задержкой и занёс его в скрипт установки. Вроде всё хорошо, но установщик впадал в полный ступор на время исполнения команды Sleep. Можно, конечно, было организовать перезапуск этого exeшника с заданными параметрами, потом - завершение оригинала. Но это геморрой и жуткий костыль. Scheduled Task - это тоже, конечно, костыль но ничего лучше я не придумал.

Всего записей: 109 | Зарегистр. 21-05-2006 | Отправлено: 02:51 08-04-2010
snailp4el

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

Всего записей: 11 | Зарегистр. 06-03-2007 | Отправлено: 14:22 08-04-2010
JekG

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужен скриптик для проверки активности определенной службы Windows. При неактивности скрипт должен эту службу запустить. Скрипт планируется использовать через планировщик Windows. Никто не натыкался на готовый?

Всего записей: 2691 | Зарегистр. 12-10-2005 | Отправлено: 15:15 09-04-2010
Hugo121

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Гланьте тут (выше уже было, только про файлы)

Всего записей: 128 | Зарегистр. 14-08-2007 | Отправлено: 16:11 09-04-2010
Alefandr

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ хэлп!нужен скрипт который постоянно сканит папку и при появлении в ней определённого файла сразу бы выдавал сообщение с содержанием того файла!Очень надо !спасибо!
 
Добавлено:
Либо хотябы скрипт чтобы просто мог прочитать текстовый файл и выдавал сообщение с содержимым файла!!!

Всего записей: 4 | Зарегистр. 13-04-2010 | Отправлено: 16:28 13-04-2010
GRom V

Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Подскажите ктонить...ПлИЗ!!!
Естьтакой скриптик:
 
Set oHTTP = WScript.CreateObject("winhttp.winhttprequest.5.1")  
iPeriod = 5
sSource = "http://sait.ru"
iTimer = Timer  
While 1  
WScript.Sleep 1000  
If (Timer - iTimer) >= (iPeriod * 60) Then  
oHTTP.open "GET", sSource, False  
on error resume next  
oHTTP.send  
iTimer = Timer  
End If  
WEnd
 
Можно ли както сделать чтоб на http://sait.ru отправлялось какое нить слово? например test???

Всего записей: 466 | Зарегистр. 31-10-2006 | Отправлено: 07:41 16-04-2010 | Исправлено: GRom V, 08:09 16-04-2010
mityamitya

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток.  
Такая вот проблема. Я с помощью программы Internet Content Logger сохранил в текстовый лог файл все, что мой интернет браузер пропускал через себя. А теперь полученный результат надо обработать. Тобишь мне надо поочередно найти все участоки текста, которые начинаются со слова <form action= и заканчивается словом </form> и все их скопировать в другой текстовый файл. Можно было бы в ручную, но это надо сделать 2000 раз !!!  
У меня самого никаких идей как это реализовать. В скриптах ничего не шарю.

Всего записей: 34 | Зарегистр. 18-06-2007 | Отправлено: 11:09 18-04-2010
   

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