Работа exe определенное время

[Saturn.65]

О каком MD5 речь?

Идея такая, чтобы идентифицировать файлы не по имени или названию окна, а по контрольной сумме. А то переименовали QIP и опять работай?

[Хакер]

«А то добавили байтик в конец файла, и опять работай»

[Saturn.65]

«А то добавили байтик в конец файла, и опять работай»

Так то да, но ориентация программы идет не на совсем продвинутых пользователей, которые смогут добавлять. А интересно, а есть такие параметры, которые нельзя изменить? Если по CRC сравнивать? Но это тоже... Сперва сравнить, записать результат в зашифрованном виде в скрытый файл и реестр, а потом, если вдруг что, то сравнивать название окна, MD5, CRC, имя файла, дату создания. И чтоб реестр совпадал с записью в ini файле. А то почистят реестр или удалят ini файл с записями данных. Это будет не победимо.

[Хакер]

Программа сама может байтик записать.

[Vova_2581]

Программа сама может байтик записать.

Если правильно понимаю -- записать байтик в конец самого себя?
Да MD5 станет другим при полном сохранении функциональности.
В таком случаи может ли программа записать байтик в заголовок самой себя или в середину тела с таким же сохранением функциональности, если она не является Stealth-вирусом?
Не обязательно вычислять хэш всего файла, можно взять фрагмент – снова возвращаемся к сигнатуре.

[Vova_2581]

Вот как привинтить ListView со списком программ и времени ограничения к одному таймеру? Вот это задача! Если это решится, тогда можно думать и о MD5.

У тебя есть временной диапазон в рамках одного дня от 8.00 до 22.00. Можно ведь вычислить сколько эта разница будет в секундах: (8.00 до 22.00) -- 14 часов * 60 = 840 минут * 60 = 50400 секунд – вот это число будет числом декремента. Также для других программ, число будет свое.
Таймер пробегая по списку процессов находит искомые и уменьшает число декремента каждой подконтрольной программы на величину значения Interval, перезаписывает до следующего скана. Когда число обнулится, то убивает процесс. Всё.

[Saturn.65]

Таймер пробегая по списку процессов находит искомые и уменьшает число декремента каждой подконтрольной программы на величину значения Interval, перезаписывает до следующего скана. Когда число обнулится, то убивает процесс. Всё.

Согласен. Вся проблема в том, чтобы он пробегал по этому списку. В данный момент список имеется либо в тхт файле, либо в ListView, куда он загружается из этого же файла. Тут нужно читать по строчно либо от туда, либо от сюда. Как это сделать я не знаю. Я в VB могу только переработать рабочий пример под свои нужды. Поэтому тупик. Идеально бы подошел контрол DATA с базой данных. Щелкай кнопку и пробегайся по списку. Но как это делать, когда форма не видима?

[Twister]

Saturn.65

О каких DATA-контролах идет речь? Что Вы придумываете? Динамических массивов что, уже нет в VB?
Прочитали данные из файла в массив, продублировали содержимое массива на ListView. Все.

Может стоит начать с книг?

[Vova_2581]

Saturn.65, зачем лично Вам нужна эта программа, для каких целей?

[Saturn.65]

Saturn.65, зачем лично Вам нужна эта программа, для каких целей?

У нас один товарищ жаловался, что дочь допоздна сидит в мирке: "...Это конечно выход, но мне нужно блокировать mIRC по времени. А то младшая сестра ни как спать не уляжется." Вот как бы ее автоматически выключать в определенное время, чтоб знала меру и занималась еще уроками. На одну программу то легко сделать ограничения, но если она включит Qip, майл ру агент и т.д. Т.е. нужно чтобы накладывать ограничение на нужный список. Своего рода родительский контроль. Вот я и решил попробовать. На одну программу то слепил набросок, но на список возникли вот такие сложности.

[SLIM]

У нас один товарищ жаловался, что дочь допоздна сидит в мирке: "...Это конечно выход, но мне нужно блокировать mIRC по времени. А то младшая сестра ни как спать не уляжется." Вот как бы ее автоматически выключать в определенное время, чтоб знала меру и занималась еще уроками. На одну программу то легко сделать ограничения, но если она включит Qip, майл ру агент и т.д. Т.е. нужно чтобы накладывать ограничение на нужный список. Своего рода родительский контроль. Вот я и решил попробовать. На одну программу то слепил набросок, но на список возникли вот такие сложности.

Может проще отрубать интернет?

[Vova_2581]

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

[Vova_2581]

Я в VB могу только переработать рабочий пример под свои нужды. Поэтому тупик.

Посмотри пример и переработай или доработай, как угодно. В поле сеанса поставь время на 3-4 минуты больше текущего, для примера, в формате hh:nn:ss

[Saturn.65]

Может проще отрубать интернет?

Может быть и проще, но это не серьезно. Во первых у меня кабельный инет и пример Vova_2581 не сработал. А во вторых проще тогда дать пинка и загнать в постель любого засидевшегося, либо выдернуть шнур из компа. Да тут не столько дело в сестре, сколько самому стало интересно, как это можно было бы сделать. Список вывел, каждый файл отслеживается и отключается, но мне не хватает примера, чтоб при событии Click происходило чтение одной строчки с ListView. Нажал еще -прочитал следующую. На вроде работы контрола Data с базами данных. В принципе я бы и базы сделал, но как нажимать контрол в невидимом режиме? А кнопкой его же не заменишь? И чтоб это делалось при невидимой форме. Конечно с такой программой куча других заморочек, по поводу ее невозможного отключения, деинсталляции, но это уже другая тема.

[SLIM]

Список вывел, каждый файл отслеживается и отключается, но мне не хватает примера, чтоб при событии Click происходило чтение одной строчки с ListView. Нажал еще -прочитал следующую. На вроде работы контрола Data с базами данных. В принципе я бы и базы сделал, но как нажимать контрол в невидимом режиме? А кнопкой его же не заменишь? И чтоб это делалось при невидимой форме. Конечно с такой программой куча других заморочек, по поводу ее невозможного отключения, деинсталляции, но это уже другая тема.

Не сказал бы что все это трудно сделать. Просто нужно почитать тебе инфы побольше. Может попоже я попробую что-то написать для примера если будет время

[Vova_2581]

Список вывел, каждый файл отслеживается и отключается, но мне не хватает примера, чтоб при событии Click происходило чтение одной строчки с ListView.

Зачем тебе этот Click здался? Вот тебе еще пример с ListView - чтение каждой строчки.

Код: Выделить всё

Private Sub Form_Load()
'Формируем список
With ListView.ColumnHeaders
  .Add , , "Путь", ListView.Width / 3
  .Add , , "Файл", ListView.Width / 4
  .Add , , "Начало", ListView.Width / 5.5
  .Add , , "Конец", ListView.Width / 5.5
End With
With ListView
  .FullRowSelect = True
  .GridLines = True
  .Checkboxes = True
  .View = lvwReport
End With

Dim LI As ListItem
Set LI = ListView.ListItems.Add(, , "C:\Program Files\QIP\QIP.exe")
With LI
  .SubItems(1) = "QIP.exe"
  .SubItems(2) = "22.00"
  .SubItems(3) = "08.00"
End With

Dim LC As Long, strLV As String
  LC = ListView.ListItems.Count
  If LC <> 0 Then 'если список не пустой
   For i = 1 To LC 'i - номер строки
    strLV = ListView.ListItems.Item(i) 'читаем содержимое первой ячейки i-ой строки
    For n = 1 To ListView.ListItems(i).ListSubItems.Count 'кол. подстрок строки i
     'n - номер подстроки
     'читаем содержимое последующих подстрок i-ой строки
     strLV = strLV & " || " & ListView.ListItems.Item(i).SubItems(n)
    Next n
    MsgBox strLV 'вся строка
   Next i
  End If
End Sub

[Saturn.65]

Vova_2581
Спасибо! Самое то! Такой я пример и просил. Сейчас обмозгую. Огромное спасибо!

[Vova_2581]

Saturn.65 Ок.

Конечно с такой программой куча других заморочек, по поводу ее невозможного отключения, деинсталляции, но это уже другая тема.

Ну это врядли получится так просто сделать. Сестра не должна знать какая именно программа работает, а то ведь просто завершит процесс в диспетчере и потом найдет через поиск и удалит папку с программой. Что ей помешает?

На всякий случай можешь сделать скрытую автозагрузку проги, например, по ветке -- HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\Run - многие viewautorun-программы этого не увидят.

[Twister]

Сделай NativeDLL и засунь ее в AppInitDlls, сестра точно не найдет + левые процессы светиться не будут.