[RESOLVED] Set desktop wall paper and screensaver options

csKanna · Nov 20th, 2006, 11:59 AM

Hi,

I want to set Desktop Wall paper to "None" and Screen Saver to "3D Text" through VB.

Please help me on this.

Thanks in advance.

Kanna.

cssriraman · Nov 20th, 2006, 12:07 PM

VB Code:

'To set wall paper to none.
Private Declare Function SystemParametersInfo Lib "user32" Alias _
    "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
    ByVal lpvParam As String, ByVal fuWinIni As Long) As Long

Sub ChangeWallpaper()
    SystemParametersInfo 20, 0, "", 1
End Sub

Nov 20th, 2006, 11:59 AM	#1
csKanna Hyperactive Member Join Date: Dec 05 Location: Tech-Tips-Now.com Posts: 321	[RESOLVED] Set desktop wall paper and screensaver options Hi, I want to set Desktop Wall paper to "None" and Screen Saver to "3D Text" through VB. Please help me on this. Thanks in advance. Kanna.

Nov 20th, 2006, 12:07 PM	#2
cssriraman Frenzied Member Join Date: Jun 05 Posts: 1,465	Re: Set desktop wall paper and screensaver options VB Code: 'To set wall paper to none. Private Declare Function SystemParametersInfo Lib "user32" Alias _ "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _ ByVal lpvParam As String, ByVal fuWinIni As Long) As Long Sub ChangeWallpaper() SystemParametersInfo 20, 0, "", 1 End Sub __________________ CS. Code Snippets: • Check folder exists (in four ways) • Check file exists (in Six ways) • Read text file contents (in four ways) • How to write text in a given text file (in two ways) • Rename files (in four ways) • List all installed apps • Use WinZip to zip and unzip files • Read and Write INI files • How to find Mother boad Serial Number Last edited by cssriraman; Nov 20th, 2006 at 12:15 PM.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)