home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / source / chap20 / shellprt.fn < prev    next >
Encoding:
Text File  |  1995-09-21  |  442 b   |  23 lines
  1. Sub Form_Load ()
  2.    ShStr$ = Space$(2100)
  3.  
  4.    Open "c:\windows\system\shell.dll" For Binary As #1
  5.  
  6.    'UNCOMMENT ONE OF THESE
  7.    'Get #1, 38722, ShStr$       'Win3.1
  8.    'Get #1, 38067, ShStr$       'WfW3.11
  9.  
  10.    Close
  11.  
  12.    For n = 1 To 2060
  13.       tmp = Asc(Mid$(ShStr$, n, 1))
  14.       If tmp >= &H20 Then
  15.          Debug.Print Chr$(tmp Xor &H99);
  16.       ElseIf tmp = 0 Then
  17.          Debug.Print
  18.       End If
  19.    Next
  20. End Sub
  21.  
  22.  
  23.