VBNet - Форум - Системное время

Вопрос: Системное время Добавлено: 21.08.02 14:04

Автор вопроса: Алексей | Web-сайт: aleksey.nemiro.ru | ICQ: 261779681

Как при помощи VB установить другое системное время?
Ответить

Ответы Всего ответов: 7

Номер ответа: 1
Автор ответа:

DAN

ICQ: 234826

Вопросов: 10
Ответов: 124

Web-сайт: visualbasic.boom.ru
Профиль | | #1

Добавлено: 21.08.02 14:25

Ответ на вопрос находится на 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

Ответить

Номер ответа: 2
Автор ответа:

demon

Вопросов: 2
Ответов: 7

Профиль | | #2

Добавлено: 21.08.02 20:37

Для обновления времени можно отправить сообщение окну:

Private Declare Function SendMessage Lib "user32" _
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&
------

Вставь после вызова своей функции:

SendMessage HWND_BROADCAST, WM_TIMECHANGE, 0, 0
-----

Вроде должно работать, только, например, при выставлении значения "час","мин",0 (т.е. 0 секунд) время устанавливается на секунду меньше и будет "час", "мин-1",59.

Удачи!

Ответить

Номер ответа: 3
Автор ответа:

SAVok

ICQ: 155153916

Вопросов: 2
Ответов: 126

Профиль | | #3

Добавлено: 22.08.02 07:55

Вы бы еще системный таймер программировать полезли!!!

Date = Format("01.01.02", "Short Date")

Ответить

Номер ответа: 4
Автор ответа:

SAVok

ICQ: 155153916

Вопросов: 2
Ответов: 126

Профиль | | #4

Добавлено: 22.08.02 08:51

Time="11:11:11"

Ответить

Номер ответа: 5
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #5

Добавлено: 22.08.02 13:13

SAVok! Tak ob etom wed i bil wopros ! Pochitaj wnimatelno! "Как при помощи VB установить другое системное время?" Po moemu otwet udowletworitelnij.

Ответить

Номер ответа: 6 Автор ответа: Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633	Web-сайт: aleksey.nemiro.ru Профиль \| \| #6	Добавлено: 23.08.02 07:11
	Спасибо всем! Родина Вас не забудет! Обязательно передам Путину, если увижу, что Вы ответили на мой вопрос, может он Вам пару лишьних миллиардов рубликов подбросит Ответить

Номер ответа: 7
Автор ответа:

Алексей

black admin

ICQ: 261779681

Вопросов: 87
Ответов: 633

Web-сайт: aleksey.nemiro.ru
Профиль | | #7

Добавлено: 23.08.02 19:06

DAN Много и красиво, но не то :-(

demon Все работает, почти ;-)

SAVok Все гениальное просто. Сенкью вери мач :-)

Ответить

Страница: 1 |