Страница: 1 |
Ответ на вопрос находится на VBNet! Раздел Библиотека кодов >>> Информация о компьютере Вот чё там написано: Установить новую дату и время на компьютере Данный пример установит новое время на компьютере. Для установления новой даты на компьютере, снимите комментарии в функции SetNewTime. Одна проблема: после выполнения кода, не происходит обновления времени в SystemTray. Если кто знает, как обновить время в SysTray, то напишите ведущему раздела. --- Private Type SystemTime wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type Private Declare Function SetLocalTime Lib "kernel32.dll" (lpSystemTime As SystemTime) As Long Public Sub SetNewTime(NewHour As Integer, NewMinute As Integer, NewSecond As Integer) Dim SetTime As SystemTime Dim RetVal As Long SetTime.wHour = NewHour SetTime.wMinute = NewMinute SetTime.wSecond = NewSecond SetTime.wMilliseconds = 0 SetTime.wDay = Day(Date) 'SetTime.wDay = 14 SetTime.wMonth = Month(Date) 'SetTime.wMonth = 3 SetTime.wYear = Year(Date) 'SetTime.wYear = 1997 RetVal = SetLocalTime(SetTime) End Sub Private Sub Command1_Click() Call SetNewTime(13, 20, 50) End Sub Для обновления времени можно отправить сообщение окну: Private Declare Function SendMessage Lib "user32" _ Вставь после вызова своей функции: SendMessage HWND_BROADCAST, WM_TIMECHANGE, 0, 0 Вроде должно работать, только, например, при выставлении значения "час","мин",0 (т.е. 0 секунд) время устанавливается на секунду меньше и будет "час", "мин-1",59. Удачи! Вы бы еще системный таймер программировать полезли!!! Date = Format("01.01.02", "Short Date") Time="11:11:11" SAVok! Tak ob etom wed i bil wopros ! Pochitaj wnimatelno! "Как при помощи VB установить другое системное время?" Po moemu otwet udowletworitelnij. DAN Много и красиво, но не то demon Все работает, почти SAVok Все гениальное просто. Сенкью вери мач Страница: 1 |
Вопрос: Системное время
Добавлено: 21.08.02 14:04
Автор вопроса: Алексей | Web-сайт:
Как при помощи VB установить другое системное время?
Ответы
Всего ответов: 7
Номер ответа: 1
Автор ответа:
DAN
ICQ: 234826
Вопросов: 10
Ответов: 124
Web-сайт:
Профиль | | #1
Добавлено: 21.08.02 14:25
Номер ответа: 2
Автор ответа:
demon
Вопросов: 2
Ответов: 7
Профиль | | #2
Добавлено: 21.08.02 20:37
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Private Const WM_TIMECHANGE = &H1E
Private Const HWND_BROADCAST = &HFFFF&
------
-----
Номер ответа: 3
Автор ответа:
SAVok
ICQ: 155153916
Вопросов: 2
Ответов: 126
Профиль | | #3
Добавлено: 22.08.02 07:55
Номер ответа: 4
Автор ответа:
SAVok
ICQ: 155153916
Вопросов: 2
Ответов: 126
Профиль | | #4
Добавлено: 22.08.02 08:51
Номер ответа: 5
Автор ответа:
MAGNUS
Вопросов: 12
Ответов: 430
Профиль | | #5
Добавлено: 22.08.02 13:13
Номер ответа: 6
Автор ответа:
Алексей
black admin
ICQ: 261779681
Вопросов: 87
Ответов: 633
Web-сайт:
Профиль | | #6
Добавлено: 23.08.02 07:11
Спасибо всем! Родина Вас не забудет! Обязательно передам Путину, если увижу, что Вы ответили на мой вопрос, может он Вам пару лишьних миллиардов рубликов подбросит
Номер ответа: 7
Автор ответа:
Алексей
black admin
ICQ: 261779681
Вопросов: 87
Ответов: 633
Web-сайт:
Профиль | | #7
Добавлено: 23.08.02 19:06