Как записать значение в CMOS?

[JohnK]

Как записать и считать значения в CMOS?
В 9x и XP????

[Шурик]

Единственное, что я знаю так это снятие пароля, но не через VB:
попробуй утилиту DEBUG(c:\windows\command\debug), вводя следующее:

-O 70 17

-O 71 17

Q

[JohnK]

Да не, мне нужно это программно сделать для установки включения комка! Фактически мне нужно знать как записать и считать данные в\из порта!

[Шурик]

Я понимаю!!!!!!
Но не знаю!!!!!

[RayShade]

Скорее всего работа с портами напрямую в ВБ невозможна. Точнее я бы сказал, совсем невозможна. Так что CMOS там вряд ли можно как либо аксесить.

[xolod]

На VB реально все, и не надо смеяться.
К VB реально прикрутить фишечку и он начнет Native DLL делать!
Так что вот так

Скажи конкретно, что тебе надо, я постараюсь написать пример.
В общих чертах, твой вопрос можно сделать с помощью функции
CreateFile и еще нескольких.

[JohnK]

Вот что мне нужно!!!!!!!!

Public Function GetCMOSWakeUpTime() As String
'{Читаем из CMOS часы подъема}
' portwriteb($70,5);
' UpDown1.Position := Hex2Byte(portreadb($71));
'{Читаем из CMOS минуты подъема}
' portwriteb($70,3);
' UpDown2.Position := Hex2Byte(portreadb($71));
End Function

Public Sub SetCMOSWakeupTime(timewake As String)
'{Пишем в CMOS часы}
' portwriteb($70,5);
' portwriteb($71, Byte2Hex(UpDown1.Position));
'{Пишем в CMOS минуты}
' portwriteb($70,3);
' portwriteb($71, Byte2Hex(UpDown2.Position));
End Sub

[JohnK]

Вот так можно сделать на delphi под 9x!!! А как это перевести в VB??