http://www.cn-dos.net/forum/viewthread.php?tid=13311&fpage=1&highlight=&page=2
qb45
高级用户
积分 671
发帖 205
注册 2003-9-13
状态 离线 『第 24 楼』:
获得硬盘序列号（原程序）
这是一个用端口对硬盘编程例子
本程序在必须在DOS下运行，我在qb4.5版本下运行通过
主板上共有两个IDE接口，每个接口上又分主、从，所以可以接4个IDE设备，这4个端口号各不同，本程序用端口1F0-1F7是主板上的第一个IDE接口上的主接口，最常用的就是这个了。别的只是端口号不一样，编程方法原理一样。
CODE:
--------------------------------------------------------------------------------
'获得硬盘序列号的程序（非逻辑盘卷标，有的把C盘的卷标说成是硬盘序列号）
'代码：QBASIC，运行环境：DOS
OUT &H1F6, &HA0
OUT &h1F2,1
OUT &H1F3, 1
OUT &h1F4,1
OUT &h1F5,1
OUT &H1F7, &HEC '获得硬盘信息的命令
DO WHILE flag <> &H58
f lag = INP(&H1F7)
if inkey$=chr$(27) then '如果按ESC键，终止程序
print "无法获得硬盘序列号"
end
end if
LOOP
re$ = SPACE$(18)
FOR i% = 1 TO 18
READ a$
H$ = CHR$(VAL("&H" + a$))
MID$(re$, i%, 1) = H$
NEXT i%
duan% = varSEG(re$):offe% = SADD(re$)
DEF SEG = duan%
print "本硬盘的序列号为 ";
FOR i = 1 TO 16
CALL Absolute(r%, offe%) '调用在qb中的内嵌汇编机器码
r1% = r% AND &HFF
r2% = (r% AND &HFF00) / &H100
IF i > 9 AND i < 15THEN PRINT CHR$(r1%); CHR$(r2%);
NEXT i
DEF SEG
END
'此DATA中的数据为机器码，用于读端口字数据（qb中的端口语句只能按字节读写端口，不能按字读写）
DATA 55,89,e5,ba,f0,01,ed,86,e0,8b,5e,06,89,07,5d,ca,02 ,00
'55 push bp
'89E5 mov bp, sp
'BAF001 mov DX, 01F0h
'ED in ax, dx
'86E0 xchg ah, al
'8B5E06 mov bx,
'8907 mov , AX
'5D pop BP
'CA0200 ret 2
