by Faris Mlaeb (7 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Thu 13th June 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code will open the screen saver with one comand line NO API
'The following command will Run a screen saver
'you may need a command button named "command1"
Private sub command1_click()
on error goto err
dim aa
aa=shell("c:\windows\system\windows.scr /s",1)
exit sub
err:
Msgbox err.Description
'Note : if your windows directory was not in the path "C:\windows\system" then what you need to do is changing the directory from "C:\windows\system" to your windows directory
'Note2 : the "windows.scr" is the name of the screen saver you want to run...but in the windows directory there is a screen saver named windows
'I Hopy you like this code
'Faris Mlaeb
'[email protected]
'[email protected]
No comments have been posted about This code will open the screen saver with one comand line NO API. Why not be the first to post a comment about This code will open the screen saver with one comand line NO API.