中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-09-15 04:11 |
共 47,812 主题排行 / 349,917 发帖 / 今日 0 篇 / 48,268 会员排行 |
| DOS开发编程 & 发展交流 （开发室） » 用QB4。5保存恢复CMOS |
| 可打印版本 872 / 3 |
| 第1楼 qb45 | 发表于 2003-09-16 00:00 |
| 高级用户 发帖 194 积分 677 | |
|
用QB4。5保存恢复CMOS INPUT "file name = "; file$
INPUT "SELECT 1 =SAVE ，2=LOAD"; S OPEN file$ FOR BINARY AS #1 d$ = "1" SELECT CASE s CASE 1 'SAVE CMOS FOR i = 9 TO 128 OUT &H70, i d = INP(&H71) d$ = CHR$(d) PUT #1, i, d$ NEXT i PRINT file$; "ok!!" CASE 2 'load cmos FOR i = 9 TO 128 GET #1, i, d$ d = ASC(d$) OUT &H70, i OUT &H71, d NEXT i SELECT END CLOSE END |
|
| 第2楼 iceboy | 发表于 2003-10-04 00:00 |
| 银牌会员 发帖 512 积分 1,681 | |
|
好程序，顶一下
|
|
| 第3楼 cn_archer | 发表于 2003-10-04 00:00 |
| 元老会员 发帖 991 积分 2,903 来自 福建省 | |
|
我来支持一下！
|
|
| 第4楼 lemonhall | 发表于 2003-10-04 00:00 |
| 高级用户 发帖 183 积分 639 | |
|
顶
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |