home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / VBZ01.ZIP / SSWTJ.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-02-24  |  804 b   |  19 lines
  1. DefInt A-Z
  2.  
  3. Declare Sub WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$, ByVal lplFileName$)
  4. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize, ByVal lpFileName$)
  5. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal nDefault, ByVal lpFileName$)
  6. Declare Function SystemParametersInfo Lib "User" (ByVal uAction, ByVal uParam, lpvParam As Any, ByVal fuWinIni)
  7.  
  8. Const SPI_SETSCREENSAVERACTIVE = 17
  9.  
  10. Sub Main ()
  11.     If Command$ = "/s" Then
  12.         Res = SystemParametersInfo(SPI_SETSCREENSAVERACTIVE, 0, ByVal 0&, 0)
  13.         Load Form1
  14.     Else
  15.         Form2.Show 1
  16.     End If
  17. End Sub
  18.  
  19.