home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / seclau / checkalt.bas next >
Encoding:
BASIC Source File  |  1995-05-09  |  2.1 KB  |  65 lines
  1. ' CheckAlt.bas - Check Status of Alt key to rewrite Progman.ini file
  2.  
  3.         DEF SEG = 0
  4.         CONST False = 0
  5.         CONST True = -1
  6.         Dim HoldFile$(500)
  7.  
  8.         LockOut = True
  9.         FOR X = 1 TO 40
  10.                 PRINT ".";
  11.                 FOR Y = 1 TO 500
  12.                         KeyStat = PEEK(&H417)
  13.                         IF (KeyStat AND &H8) + (KeyStat AND &H4) THEN LockOut = False
  14.                 NEXT Y
  15.         NEXT X
  16.  
  17.         RinUse = False
  18.  
  19.         OPEN "\windows\progman.ini" FOR INPUT AS #1
  20.         WHILE NOT EOF(1)
  21.                 LINE INPUT #1, IRec$
  22.                 Ok2Use = True
  23.                 IF INSTR(UCASE$(IRec$), "[RESTRICTIONS]") > 0 THEN
  24.                         Ok2Use = False
  25.                         RinUse = True
  26.                         END IF
  27.                 IF INSTR(UCASE$(IRec$), "NOFILEMENU=1") > 0 THEN
  28.                         Ok2Use = False
  29.                         RinUse = True
  30.                         END IF
  31.                 IF INSTR(UCASE$(IRec$), "NOSAVESETTINGS=1") > 0 THEN
  32.                         Ok2Use = False
  33.                         RinUse = True
  34.                         END IF
  35.                 IF Ok2Use THEN
  36.                         RecCount = RecCount + 1
  37.                         HoldFile$(RecCount) = IRec$
  38.                         END IF
  39.         WEND
  40.         CLOSE #1
  41.  
  42.         Y = RecCount
  43.         FOR X = Y TO 1 STEP -1
  44.                 IF HoldFile$(X) = SPACE$(LEN(HoldFile$(X))) OR HoldFile$(X) = "" THEN RecCount = RecCount - 1
  45.                 IF HoldFile$(X) <> SPACE$(LEN(HoldFile$(X))) AND HoldFile$(X) <> "" THEN EXIT FOR
  46.         NEXT X
  47.  
  48.         IF LockOut = True AND RinUse = True THEN END
  49.         IF LockOut = False AND RinUse = False THEN END
  50.  
  51.         OPEN "\windows\progman.ini" FOR OUTPUT AS #1
  52.         FOR X = 1 TO RecCount
  53.                 PRINT #1, HoldFile$(X)
  54.         NEXT X
  55.         IF LockOut = True THEN
  56.                 PRINT #1, " "
  57.                 PRINT #1, "[restrictions]"
  58.                 PRINT #1, "NoFileMenu=1"
  59.                 PRINT #1, "NoSaveSettings=1"
  60.                 END IF
  61.         CLOSE 1
  62. END
  63.  
  64.  
  65.