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

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

   

Free_Soft



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

Всего записей: 1536 | Зарегистр. 19-04-2010 | Отправлено: 22:20 10-01-2011
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
конечно мона. они для этого и притумканы
 
Добавлено:
окно легко мона сделкать - к любому языку програмирования обычно к компилятору прилагается самодельщик окон с гуем.
 
Добавлено:
 

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 22:23 10-01-2011
Free_Soft



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

Всего записей: 1536 | Зарегистр. 19-04-2010 | Отправлено: 22:30 10-01-2011
bomzzz



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

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 22:32 10-01-2011
ComradG



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bomzzz
да ладно тебе издеваться над комрадом то! не обязательно WinAPI трахать!
Free_Soft
если очень надо, можно сварганить HTA с нужным кодом. он, HTA, кстати, тоже чекбоксы и прочую мешуру поддерживает.

Всего записей: 2038 | Зарегистр. 05-07-2008 | Отправлено: 11:49 11-01-2011
bomzzz



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

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 11:53 11-01-2011 | Исправлено: bomzzz, 11:56 11-01-2011
ComradG



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

Всего записей: 2038 | Зарегистр. 05-07-2008 | Отправлено: 12:22 11-01-2011
cambit

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

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 12:26 11-01-2011
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
можно , но я его сколько уже знаю может год даже, он постоянно что то хитрючие пишет.

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 14:52 11-01-2011
ComradG



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

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

Цитата:
постоянно что то хитрючие пишет
у кажого свои нужды.

Всего записей: 2038 | Зарегистр. 05-07-2008 | Отправлено: 16:31 11-01-2011
cambit

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

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

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

Всего записей: 601 | Зарегистр. 09-06-2008 | Отправлено: 19:11 11-01-2011 | Исправлено: cambit, 20:46 11-01-2011
ComradG



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
cambitесли файл читать, то выглядит это примерно так
Код:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(имя_файла_с_полным_путём)
 
objFile.ReadAll
то есть здесь заставляем читать весь файл целиком, если тебе придется читать файл построчно, то
Код:
objFile.ReadLine
на мой взгляд, если ты собираешься писать в файл каждый тик, то логичнее воспользоваться последним методом.

Всего записей: 2038 | Зарегистр. 05-07-2008 | Отправлено: 22:02 11-01-2011
htgrfrbn



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

Всего записей: 68 | Зарегистр. 11-01-2011 | Отправлено: 22:44 11-01-2011
Free_Soft



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

Всего записей: 1536 | Зарегистр. 19-04-2010 | Отправлено: 23:55 11-01-2011
htgrfrbn



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Free_Soft
а если брат переустановит винду... а я где-нибудь отлучусь на пару дней? )))

Всего записей: 68 | Зарегистр. 11-01-2011 | Отправлено: 00:23 12-01-2011
Accessor



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
htgrfrbn
Сделай себе отдельный раздел. Можно даже скрытый. И не морочь людям голову.

Всего записей: 2863 | Зарегистр. 31-10-2003 | Отправлено: 11:11 12-01-2011
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
htgrfrbn
свои фото без трусов можешь заархивировать в архив с паролем, или использовать кодирующую файлы программы какую нибудь Ashampoo WinOptimizer Platinum Suite 2

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 11:32 12-01-2011
htgrfrbn



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bomzzz
мои фото в трусах ))) без трусов там другие люди )))))))  
мне казалось гораздо проче и удобнее скриптом воспользоваться... ладно.. не хотите помогать- не надо.

Всего записей: 68 | Зарегистр. 11-01-2011 | Отправлено: 12:40 12-01-2011
bomzzz



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
в рар архив с паролем запаковать куда уж проще.
 
Добавлено:
Free_Soft
получается окошко???

Всего записей: 13343 | Зарегистр. 13-01-2008 | Отправлено: 13:24 12-01-2011
Rush

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

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

Ну не сказать что проще.
Что ж обижаться-то сразу - поможем.

Код:
Option Explicit
 
If WScript.Arguments.Count = 1 Then
  XorBytes WScript.Arguments.Item(0)
End If
 
WScript.Quit 0
 
Sub XorBytes(FileName)
  Dim InStream
  Dim OutStream
  Dim bLen
  Dim n
    Set InStream = CreateObject("ADODB.Stream")
      InStream.Type = 1
      InStream.Open
    Set OutStream = CreateObject("ADODB.Stream")
      OutStream.Type = 1
      OutStream.Open
    InStream.LoadFromFile(FileName)
    bLen = InStream.Size
    If  bLen > 1024 Then bLen = 1024
    For n = 0 To bLen - 1
      InStream.Position = n
      OutStream.Write ToByte(InStream.Read(1))
    Next
    InStream.CopyTo(OutStream)
    InStream.Close
    Set InStream = Nothing
    OutStream.SaveToFile FileName, 2
    OutStream.Close
    Set OutStream = Nothing
End Sub
 
Function ToByte(nByte)
  Dim RecSet
    Set RecSet = CreateObject("ADODB.Recordset")
    RecSet.Fields.Append "a", 205, 1
    RecSet.Open
    RecSet.AddNew
    RecSet("a").AppendChunk ChrB(AscB(nByte) Xor 127) & ChrB(0)
    RecSet.Update
    ToByte = RecSet("a").GetChunk(1)
End Function

Запуск из комстроки - в качестве параметра файл, который требуется испортить.
Запуск, где параметром испорченный файл, естественно, восстанавливает оригинал.

Всего записей: 3551 | Зарегистр. 20-11-2003 | Отправлено: 17:54 12-01-2011 | Исправлено: Rush, 17:58 12-01-2011
   

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