VBNet - Форум - Изменить системную дату?

Вопрос: Изменить системную дату? Добавлено: 30.06.03 23:01

Автор вопроса: Firewall

1)А как можно сделать , что бы при нажатии командной кнопки запускался EXE-шник, (!) и при этом системная дата автоматически изменялась на 30.06.02.
2).... и если можно что бы при закрытии программы дата возвращалась на место (Но это необязательно, главное первый вопрос)

Ответить

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

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

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | Цитата | #1

Добавлено: 01.07.03 00:49

Option Explicit
Private Declare Function SetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) As Long

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 Sub Form_Load()
'по первому вопросу
Dim newtime As SYSTEMTIME
Dim retval As Long
newtime.wYear = 2002
newtime.wMonth = 6
newtime.wDay = 30
newtime.wHour = 1
newtime.wMinute = 10
newtime.wSecond = 0
newtime.wMilliseconds = 0
retval = SetSystemTime(newtime)
'запуск ЕХЕ_шника
Call Shell("C:\WINDOWS\CALC.EXE", 1)
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'по второму вопросу
'здесь так же как в Form_Load, только значения поставь другие
End Sub

Ответить

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

freeloader

ICQ: 50804884

Вопросов: 72
Ответов: 642

Web-сайт: freeloader.folder-pro.net
Профиль | Цитата | #2

Добавлено: 01.07.03 06:44

Ну ты замутил, а не проще

mydate="30.06.02"

date=mydate

Ответить

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

Justas

ICQ: 259418212

Вопросов: 24
Ответов: 325

Web-сайт: justas.newmail.ru
Профиль | Цитата | #3

Добавлено: 01.07.03 06:54

2 |¤™•†Raven†•™¤I

да проще конечно )

с Апи гадом как раз возился, ну и зациклился... ))

Ответить

Номер ответа: 4 Автор ответа: msv Вопросов: 34 Ответов: 312	Web-сайт: msvprogs.narod.ru Профиль \| Цитата \| #4	Добавлено: 01.07.03 07:24
	Firewall ты что, пишешь что-то типа AntiTrial'а? У меня есть такой пример - DesTrial. Я его уже давно писал. Ответить

Номер ответа: 5 Автор ответа: msv Вопросов: 34 Ответов: 312	Web-сайт: msvprogs.narod.ru Профиль \| Цитата \| #5	Добавлено: 01.07.03 07:28
	Кстати, по второму вопросу. Ты должен перед изменением системной даты на "фиктивную" сохранить значение настоящей даты в переменную, а когда настанет пора менять ее обратно, просто присвой Date=<переменная с действительной датой>. Ответить

Номер ответа: 6 Автор ответа: denver_t Вопросов: 8 Ответов: 25	Профиль \| Цитата \| #6	Добавлено: 01.07.03 07:55
	msv: по поводу возврата даты, а если пора настанет через сутки или через неделю, тогда часики-то отставать будут ... Ответить

Номер ответа: 7 Автор ответа: msv Вопросов: 34 Ответов: 312	Web-сайт: msvprogs.narod.ru Профиль \| Цитата \| #7	Добавлено: 01.07.03 17:57
	Значит, сохранять в реестр или в файл Ответить

Страница: 1 |