ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Время включения и выключения компьютера
25 сообщений из 31, страница 1 из 2
  1  все
Время включения и выключения компьютера
    #36757448
Грустный кот
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Грустный кот
Гость
Подскажите пожалуйста, как на своем и как на чужом в сетке компьютере узнать последнее время включения и выключения?
Где именно в Win XP, Win Vista и Win7 фиксируется такая информация и как средствами VB вытащить ее?
Начальник поставил мне задачу написать программку, которая будет фиксировать реальное время работы сотрудников в офисе, а я программирую на уровне первоклашки.
...
Рейтинг: 0 / 0
23.07.2010, 22:53
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757467
Фотография Relic Hunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Relic Hunter
Участник
Грустный кот,

Windows32 programmer's ReferenceThe GetTickCount function retrieves the number of milliseconds that have elapsed since Windows was started.

DWORD GetTickCount(VOID)

Parameters

This function has no parameters.

Return Values

If the function succeeds, the return value is the number of milliseconds that have elapsed since Windows was started.

Remarks

The elapsed time is stored as a DWORD value. Therefore, the time will wrap around to zero if Windows is run continuously for 49.7 days.
Windows NT: To obtain the time elapsed since the computer was started, look up the System Up Time counter in the performance data in the registry key HKEY_PERFORMANCE_DATA. The value returned is an 8 byte value.
...
Рейтинг: 0 / 0
23.07.2010, 23:33
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757562
Валентин67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валентин67
Участник
Грустный котНачальник поставил мне задачу написать программку, которая будет фиксировать реальное время работы сотрудников в офисе, а я программирую на уровне первоклашки.

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

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

Программа состоит из двух модулей – администраторского, который устанавливается на компьютер администратора, и пользовательского (агента). Агенты устанавливаются на компьютеры пользователей, осуществляют сбор информации об активности сотрудников и передают ее администраторскому модулю. Агент представляет из себя драйвер небольшого размера, работающий как служба Windows. По умолчанию агент работает в невидимом режиме, как программа-шпион – пользователь компьютера будет знать, что за ним ведется наблюдение, только если вы сами захотите этого.

Грустный котПодскажите пожалуйста, как на своем компьютере узнать последнее время включения и выключения? Где именно в Win XP фиксируется такая информация?

Как средствами VB вытащить ее?

1. Панель управления\Администрирование\Просмотр событий->Система
ищешь события eventlog, соответсвенно о запуске и о остановке службы и смотришь на дату и время
Последнее событие за день - "Служба журнала событий остановлена", код (если не ошибаюсь) 6006
Последующие события - а именно "Запущена служба журнала событий", код 6005.

2. Само приложение Windows (служба) "Просмотр событий" расположена C:\WINDOWS\system32\eventvwr.msc или библиотека eventlog.dll
...
Рейтинг: 0 / 0
24.07.2010, 03:15
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757612
Грустный кот
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Грустный кот
Гость
Спасибо за советы, буду пробовать.
...
Рейтинг: 0 / 0
24.07.2010, 09:48
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757615
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Советы советами а по существу:
как средствами VB вытащить ее?
Ничего то нет
...
Рейтинг: 0 / 0
24.07.2010, 09:56
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757721
Валентин67
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Валентин67
Участник
Ципихович ЭндрюСоветы советами а по существу: как средствами VB вытащить ее?

Вопрос конечно интересный - ранее уже приходилось задумываться.
Решил "копать" и вот - класс EventLog - http://msdn.microsoft.com/ru-ru/library/system.diagnostics.eventlog.aspx

У кого получиться правильно использовать этот класс, что бы реализовать то, о чем пишет Грустный кот, то выложите код в студию (просьба).
...
Рейтинг: 0 / 0
24.07.2010, 14:10
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757734
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Валентин67,

присоединяюсь:
У кого получиться правильно использовать этот класс, что бы реализовать то, о чем пишет Грустный кот, то выложите код в студию (просьба).
...
Рейтинг: 0 / 0
24.07.2010, 14:43
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757845
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Это .NET класс, а тема была про VB6. Так на чём всё-таки будет проект?
...
Рейтинг: 0 / 0
24.07.2010, 19:24
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757850
Грустный кот
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Грустный кот
Гость
VSVLADЭто .NET класс, а тема была про VB6. Так на чём всё-таки будет проект?

На VB6.
...
Рейтинг: 0 / 0
24.07.2010, 19:45
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757885
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
WPI в помощь
...
Рейтинг: 0 / 0
24.07.2010, 21:12
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757887
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
ЗЫ: или количество тиков с момента старта. Молодой человек, выбирайте любой метод. Если со знаниями совсем грустно - вешайте на каждую тачку демона, который будет сечь время старта и финиша ОС, после чего, синхронизировать свою инфу с сервером.
...
Рейтинг: 0 / 0
24.07.2010, 21:18
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757922
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
можно и vbscript использовать
ставьте на загрузку windows и нет проблем
Код: plaintext
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.
option explicit
dim fso ,ts , ForAppending
dim a,b , c
' msgbox len(now()) ' подсчитываем кол-во символов
' Функция CStr(Conversion to String) используется для приведения 
' числового выражения в строку (тип String)
  a=CStr(NOW)
  ' Функция Mid(Middle) используется для считывания заданного числа символов или байт 
  ' подряд от заданной позиции в строке слева направо. Нумерация 
  'символов в строке всегда начинается с единицы. Для определения 
  'числа символов в строке следует использовать функцию Len
  ' Mid(String,Start,[Length])
  b=Mid(a, 1 , 2 )
  b=b&"-" &Mid(a, 4 , 2 )
  b=b&"-" &Mid(a, 7 , 4 )
  c=Mid(a, 12 , 2 )
  c=c&":" &Mid(a, 15 , 2 )
  c=c&":" &Mid(a, 18 , 2 )
  b="ДАТА ЗАПУСКА :" & b
  c="ВРЕМЯ ЗАПУСКА :" & c
'Создаем объект FileSystemObject
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
ForAppending =  8  ' открываем записываем в конец файла
' открываем log.txt в текущем каталоге
Set ts = fso.OpenTextFile("log.txt", ForAppending, True)
'запись даты и времени в файл 'log.txt'
ts.Write b & chr( 13 ) & chr( 10 ) & c & chr( 13 ) & chr( 10 )
'закрываем файл
ts.Close
a=""
b=""
c=""
выглядеть будет так

ДАТА ЗАПУСКА :24-07-2010
ВРЕМЯ ЗАПУСКА :22:50:02
...
Рейтинг: 0 / 0
24.07.2010, 22:52
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757937
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
также и на VB6 можно создать чисто модуль
и вписать туда и поставить в планировщик на загрузку windows
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Option Explicit
Public Sub Main()
On Error GoTo my_err
Dim Fnum As Long
Dim FileName As String
Dim FileDate As String
Dim FileTime As String
Dim isOpen As Boolean
FileName = "C:\log.txt"
Fnum = FreeFile
FileDate = "start-up date :" & Format(Date, "DD-MM-YYYY")
FileTime = "start-up time :" & Format(Time, "HH:MM:SS")
Open FileName For Append As #Fnum
isOpen = True
Print #Fnum, FileDate + Chr( 13 ) + FileTime
my_err:
If isOpen Then Close #Fnum
End Sub
...
Рейтинг: 0 / 0
24.07.2010, 23:41
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757940
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
А лучше добавить в Logon Startup групповой политики, тогда можно фиксировать как запуск компьютера, так и его остановку.
...
Рейтинг: 0 / 0
24.07.2010, 23:46
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757943
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
VSVLADА лучше добавить в Logon Startup групповой политики, тогда можно фиксировать как запуск компьютера, так и его остановку.
это где?
...
Рейтинг: 0 / 0
24.07.2010, 23:56
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757944
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
aduka05adm,

Пуск -> Выполнить "gpedit.msc"
Далее: Конфигурация компьютера -> Конфигурация Windows -> Запуск компьютера

p.s. Очень много настроек полиси там, важная вещь для сисадмина = )
p.s.s. OS: XP Professional, права админа
...
Рейтинг: 0 / 0
24.07.2010, 23:59
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757946
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
VSVLAD,
не было надобности , а так спасибо)
...
Рейтинг: 0 / 0
25.07.2010, 00:06
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757947
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Да я и сам не админ )) просто так, хорошая вещь против вирусов (разбловировка реестра, диспетчера)
Пока колдую с API: OpenEventLog , ReadEventLog, CloseEventLog - хотелось бы прочитать данные из журнала событий
...
Рейтинг: 0 / 0
25.07.2010, 00:09
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757949
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
VSVLAD,
пользовался чисто локальной политикой безопасности
Администрирование-Локальная политика безопасности
ESET SMART SECURITY че то со временем мне там все сбивал
да и ZVER CD на многих машинах стоял , приходилось лазить туда
вот ссылка для вас ))))
...
Рейтинг: 0 / 0
25.07.2010, 00:12
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757951
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
VSVLAD,
VSVLADПока колдую с API: OpenEventLog , ReadEventLog, CloseEventLog - хотелось бы прочитать данные из журнала событий
просто для себя ? или стандартный не устраивает?
...
Рейтинг: 0 / 0
25.07.2010, 00:16
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757992
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
У мну предложение "интимного плана". Чтобы не угробить всю сетку на работе с последующим получением "антипряников" от руководителя, попробуйте договориться с руководством о присутствии в офисе специалиста с якобы готовым решением. За связку бананов или иные материальные ценности, думается, найдется нужный человек. Причем, он все протестит и за последствия этих действий сможет нести ответственность.
...
Рейтинг: 0 / 0
25.07.2010, 02:07
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757993
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
Кстати, у Вас сервак под чем на чем?
...
Рейтинг: 0 / 0
25.07.2010, 02:10
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757994
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
cynep kopoBkaУ мну предложение "интимного плана". Чтобы не угробить всю сетку на работе с последующим получением "антипряников" от руководителя, попробуйте договориться с руководством о присутствии в офисе специалиста с якобы готовым решением. За связку бананов или иные материальные ценности, думается, найдется нужный человек. Причем, он все протестит и за последствия этих действий сможет нести ответственность.
для такой задачи столько телодвижений зачем ?
...
Рейтинг: 0 / 0
25.07.2010, 02:11
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757995
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
Я просто предложил. Мало ли...
Можно найти человека, а можно, знаете ли (тьфу-тьфу-тьфу) новую работу. Если не уверены в своих действиях - стоит ли дергать судьбу за вымя?=)
...
Рейтинг: 0 / 0
25.07.2010, 02:18
| Ответить | Цитировать | Написать  
Время включения и выключения компьютера
    #36757997
Фотография aduka05adm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
aduka05adm
Участник
cynep kopoBka,
Грустный кот Начальник поставил мне задачу написать программку, которая будет фиксировать реальное время работы сотрудников в офисе, а я программирую на уровне первоклашки.
ну если из за этого увольняться , то тогда врядли че найдешь)
Грустный котфиксировать реальное время работы сотрудников в офисе
бедные начальники как им спится тяжело
...
Рейтинг: 0 / 0
25.07.2010, 02:28
| Ответить | Цитировать | Написать  
25 сообщений из 31, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Время включения и выключения компьютера
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]