home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
VBZ01.ZIP
/
SSWTJ.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-02-24
|
804b
|
19 lines
DefInt A-Z
Declare Sub WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpString$, ByVal lplFileName$)
Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize, ByVal lpFileName$)
Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName$, ByVal lpKeyName$, ByVal nDefault, ByVal lpFileName$)
Declare Function SystemParametersInfo Lib "User" (ByVal uAction, ByVal uParam, lpvParam As Any, ByVal fuWinIni)
Const SPI_SETSCREENSAVERACTIVE = 17
Sub Main ()
If Command$ = "/s" Then
Res = SystemParametersInfo(SPI_SETSCREENSAVERACTIVE, 0, ByVal 0&, 0)
Load Form1
Else
Form2.Show 1
End If
End Sub