透明皂，我一直用雕牌！玩电脑，我一直用DOS，我看谁来进入我的DOS看看？？看楼上那个“小鸡”功力不错，我去找点问题，请教请教[em12]

你问道：“　　我搞不清程序里：&H17、&H40、&H20　和　SEG　分别是什么含意。”

我回答：“请去看看qb的书，里面写十六进制的数用&H表示，SEG是qb里的语句，用法请看qb45写的中断IO调用的帖子”

'我是XP系统,有保护,是写不进去的,强行写进去键般就乱了
'如果你在纯DOS或98可以试试

'Bit: 0=Right Shift
'     1=Left Shift
'     2=Ctrl
'     3=Alt
'     4=Scroll Lock
'     5=Num Lock
'     6=Caps Lock
'     7=Insert

FUNCTION GetLock% (bit%)
    DEF SEG = 65
    shift% = PEEK(7)
    DEF SEG

    K% = 1
    FOR i% = 0 TO bit%
        sum% = sum% + K%
        K% = K% + K%
    NEXT
    IF sum% AND shift% THEN GetLock% = 1
END FUNCTION

SUB SetLock (bit%, ONOFF%)
    DEF SEG = 65
    shift% = PEEK(7)
    K% = 1
    FOR i% = 0 TO bit%
        sum% = sum% + K%
        K% = K% + K%
    NEXT
    IF ONOFF% = 0 THEN
       POKE 7, (255 - sum%) AND shift%
      ELSE
       POKE 7, sum% OR shift%
    END IF
    DEF SEG
END SUB