» Программирование "удобняшек" на VBScript

AndVGri
что к чему? я, например, имел в виду, что можно снять атрибут "только для чтения", скажем, так:

Код: Const ReadOnly = 1
strFolder = WScript.Arguments.Item(0)

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files

For Each objFile In colFiles
If objFile.Attributes AND ReadOnly Then
objFile.Attributes = objFile.Attributes XOR ReadOnly
End If
Next

Код: destF = "C:\Progra~1"
set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder(destF)
MsgBox "DateCreated: " & folder.DateCreated -1

кому нибудь удалось комп в ждущий режим перевести? я один раз самый первый вроде как перевел, теепрь все не хочет, начинает переходит и выключается. где он живет этот ждущий режим?
спящий у меня отключен.

quakerock
Можно
DateSerial(year, month, day)
TimeSerial(hour, minute, second)

AndVGri

-Можешь прикрутить к моему коду TimeSerial что бы на выходе изменялось время создания -папки?


Код: destF = "C:\Progra~1"
set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder(destF)
MsgBox "DateCreated: " & folder.DateCreated -1

quakerock

Код:
'...
MsgBox "DateCreated: " & FormatDateTime(folder.DateCreated, 2) & " " & FormatDateTime(TimeSerial(23, 59, 59), 3)
''';) с наступающим

AndVGri

Спасибо

Всех с наступающим!!!

Господа
А кто подскажет, как сделать рефреш всех открытых окон (включая рабочий стол)?

Evgeny972
не уверен, что возможно такое впринципе, чтобы рефрешануть все открытые окна, включая рабочий стол.

Господа, кто-нибудь пытался реализовывать UNIX тулзы посредством VBScript'а? если да, то можете привести пример хотя бы, скажем, аналога tail, - интересно посмотреть.

ComradG
Вернее, скажем так - окна Windows Explorerа. Если ты меняешь статус отображения расширений/скрытых файлов, изменения отображаются во всех окнах WE, после нажатия применить/ОК. Если же я меняю значения ключей реестра через VBS, то фиг вам, пока не нажмёшь рефреш. Внутри одного окна это просто, послал F5. А вот как изделать для всех - вот в чём загогулина.

Evgeny972
если правильно понимаю, то у тебя без рефреша не отображаются скрытые файлы, с которых был снят данный атрибут, так? если да, то каким образом ты меняешь их атрибуты через реестр, когда в комспеке есть команда attrib?
Код: attrib -h [path]files

ComradG
Дело в том, что нарисовал маленький скрипт для кнопки к Classic Shell
(http://forum.ru-board.com/topic.cgi?forum=5&topic=32717&start=80#9). Я не меняю атрибуты файлов, я меняю режим отображения в эксплорере.

Evgeny972
похоже штатными средствами то, о чем ты просишь не сделать. по крайней мере на msdn'е по сабжу ничего нет. может попробовать заиметь секс с WinAPI лучше? там то стопудово все получится. правда WinAPI из скриптов VB я еще ни разу не дрюкал.

Кто подскажет, можно ли на скрипте сделать меню с пунктами типа галок и переключателя опций - выбор точкой?

Free_Soft
неа

bomzzz
а через WinAPI?))

конечно мона. они для этого и притумканы

Добавлено:
окно легко мона сделкать - к любому языку програмирования обычно к компилятору прилагается самодельщик окон с гуем.

Добавлено:

ммм.. а нет у тя примерчиков?

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

Добавлено:
сидишь собираешь окошко как тебе надо, потом вжик сразу код готовый и откомпилировал

Добавлено:
чтоб по сто раз не писать одно и тоже, и так удобнее красоту подбирать, чтоб оконце смарелось

Добавлено:
это еще в масме позорный это м билдер. а встроенный вообще нищий

bomzzz
да ладно тебе издеваться над комрадом то! не обязательно WinAPI трахать!
Free_Soft
если очень надо, можно сварганить HTA с нужным кодом. он, HTA, кстати, тоже чекбоксы и прочую мешуру поддерживает.

я не издеваюсь, у фрисофтика уже давно круг задач вышел далеко за пределы возможностей используемых им инструментов, и то время что он потратил на батники и теперь как видим уже никак в батники не укладывается и на скрипты, лучше было потратить на нормлаьный язык програмирования. видимо ему не повезло в школе програмирование слабо преподавали, или ограничивались "знакомством с виндой"

bomzzz
ну не нам его судить! лично мне и со знанием нескольких языков программирования живется неспокойно, так как переодически клинит, например, пишешь прогу на си и незаметно для себя начинаешь писать код на асме или, скажем, на си шарпе. так что, лучше подмогнем парню. и, как уже говорилось выше, можно фейс с элементами управления а-ля чек-бокс или баттон замутить и на hta, а в него вставить код на жабаскрипте или VBScript'е.
P.S.кстати, в батниках тоже можно реализовывать графические фейсы с помощью mshta.exe и vbscript'а.

Здравствуйте, уважаемые спецы!
Помогите (или направте, если этот вопрос решался) в написании скрипта для ограничения времени работы на компьютере (для ребенка) не более, скажем, 2-х часов в сутки, не зависимо от количества сесий. Я не могу придумать, как отсчитывать, например минуты работы, а точнее куда их записать на тот случай, если комп перегрузят, чтобы отсчет продолжился с того же места.

можно , но я его сколько уже знаю может год даже, он постоянно что то хитрючие пишет.

cambit

Цитата:

точнее куда их записать на тот случай, если комп перегрузят

логичнее ныкать счетчик в текстовый файл в папку Temp профильного каталога. если нужен сам скрипт, то на днях может чего надумаю.
bomzzz

Цитата:

постоянно что то хитрючие пишет

у кажого свои нужды.

ComradG

Цитата:

если нужен сам скрипт

Буду очень признателен в помощи, но я из тех, кто любит мозги напрягать, поэтому прошу помочь советом - какой командой можно прочитать содержимое тхт-файла и присвоить это значение переменной?
Все остальное вроде догадываюсь как.
а если "ныкать счетчик" - это как?

Добавлено:
Я предполагаю сделать так : каждую минуту счетчик увеличивае значение переменной на единицу и записывает это значение в файл и если больше 120 - shutdown. Так вот как записать а потом прочитать это значение - не встречал описания. Наверное плохо искал...

cambitесли файл читать, то выглядит это примерно так
Код: Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(имя_файла_с_полным_путём)

objFile.ReadAll

Доброго времени суток, всем!
Ситуация такая. У нас дома компьютером пользуется вся семья. А я хочу сделать так, чтобы мои фотки никто не смог просмотреть. И я подумал, а вообще сложно так извратиться, чтобы vbscript изменил скажем первые 1024 байта у каждой фотки в папке по принципу Byte = Byte XOR 127 ?
проблема в том, что vbs я вообще не знаю... в приципе, без проблем могу подобное реализовать на паскале... но мне не дет покоя идея безобидного текстового файлика.. в общем помогите, кто чем может... если не кодом, то хотя бы направлением )

htgrfrbn
а не легче скажем пароль на папку поставить?

Free_Soft
а если брат переустановит винду... а я где-нибудь отлучусь на пару дней? )))