VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "Change The Wallpaper,ScreenSaver & Logon Screen"
ClientHeight = 6225
ClientLeft = 2385
ClientTop = 1350
ClientWidth = 6900
Icon = "windows_hack.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6225
ScaleWidth = 6900
Begin VB.CommandButton cmdapply
Caption = "&Apply"
Height = 495
Left = 4560
TabIndex = 6
Top = 5520
Width = 1815
End
Begin VB.CommandButton cmdcancel
Caption = "&Cancel"
Height = 495
Left = 2520
TabIndex = 5
Top = 5520
Width = 1695
End
Begin VB.CommandButton cmdok
Caption = "&OK"
Height = 495
Left = 480
TabIndex = 4
Top = 5520
Width = 1695
End
Begin TabDlg.SSTab tb
Height = 5175
Left = 120
TabIndex = 0
Top = 120
Width = 6615
_ExtentX = 11668
_ExtentY = 9128
_Version = 393216
Tab = 2
TabHeight = 520
TabCaption(0) = "Wall Paper"
TabPicture(0) = "windows_hack.frx":0442
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Image2"
Tab(0).Control(1)= "Label1"
Tab(0).Control(2)= "cd"
Tab(0).Control(3)= "cmdchange"
Tab(0).Control(4)= "Combo1"
Tab(0).ControlCount= 5
TabCaption(1) = "Screen Saver"
TabPicture(1) = "windows_hack.frx":045E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame1"
Tab(1).ControlCount= 1
TabCaption(2) = "Logon Screen"
TabPicture(2) = "windows_hack.frx":047A
Tab(2).ControlEnabled= -1 'True
Tab(2).Control(0)= "Image1"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Label3"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Label4"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "cmdlogonscreen"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "cmdlogonscr"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Text2"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).Control(6)= "Combo2"
Tab(2).Control(6).Enabled= 0 'False
Tab(2).ControlCount= 7
Begin VB.ComboBox Combo2
Height = 315
ItemData = "windows_hack.frx":0496
Left = 3960
List = "windows_hack.frx":04A3
TabIndex = 16
Text = "Center"
Top = 4320
Width = 1815
End
Begin VB.TextBox Text2
Height = 375
Left = 2400
TabIndex = 15
Top = 3960
Width = 1095
End
Begin VB.CommandButton cmdlogonscr
Caption = "Logon ScreenSaver"
Height = 495
Left = 3480
TabIndex = 13
Top = 3240
Width = 2175
End
Begin VB.CommandButton cmdlogonscreen
Caption = "Logon Wallpaper"
Height = 495
Left = 600
TabIndex = 12
Top = 3240
Width = 1935
End
Begin VB.Frame Frame1
Caption = "Settings"
Height = 1575
Left = -74640
TabIndex = 7
Top = 1200
Width = 5655
Begin VB.CheckBox Check1
Caption = "Password Protect Your ScreenSaver"
Height = 375
Left = 240
TabIndex = 11
Top = 1080
Width = 3255
End
Begin VB.TextBox Text1
Height = 375
Left = 4320
TabIndex = 10
Top = 360
Width = 855
End
Begin VB.CommandButton cmdbrowse
Caption = "&Browse"
Height = 495
Left = 240
TabIndex = 8
Top = 360
Width = 1575
End
Begin VB.Label Label2
Caption = "Enter the time in seconds :"
Height = 255
Left = 2280
TabIndex = 9
Top = 480
Width = 1935
End
End
Begin VB.ComboBox Combo1
Height = 315
ItemData = "windows_hack.frx":04BE
Left = -70560
List = "windows_hack.frx":04CB
TabIndex = 3
Text = "Center"
Top = 4200
Width = 1815
End
Begin VB.CommandButton cmdchange
Caption = "Browse"
Height = 495
Left = -74520
TabIndex = 1
Top = 4080
Width = 1575
End
Begin MSComDlg.CommonDialog cd
Left = -74640
Top = 2160
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.Label Label4
Caption = " Picture Display:"
Height = 255
Left = 3960
TabIndex = 17
Top = 3960
Width = 1215
End
Begin VB.Label Label3
Caption = "Enter time in seconds :"
Height = 375
Left = 600
TabIndex = 14
Top = 3960
Width = 1815
End
Begin VB.Label Label1
Caption = " Picture Display:"
Height = 255
Left = -70560
TabIndex = 2
Top = 3840
Width = 1215
End
Begin VB.Image Image2
BorderStyle = 1 'Fixed Single
Height = 2535
Left = -73560
Stretch = -1 'True
Top = 600
Width = 3015
End
Begin VB.Image Image1
BorderStyle = 1 'Fixed Single
Height = 2295
Left = 1440
Stretch = -1 'True
Top = 600
Width = 3135
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'this program is mainly works in windows 2000
'You can freely modify and distribute this program
'there are some bugs in this program
'so if u find them please rectify them and
'mail me back the solutions at
'[[Email Removed]]
'if this program does not change the your windows
'wallpaper and screensaver the
'open the registry and find the proper key
'and then replace the program's key with ur registry key
Dim scr As String, i As String, wall As String
Dim time As String, pass As String, logon As String
Dim logonscr As String, scrtime As String, logonwallstyle As String
Private Sub Check1_Click()
pass = Check1.Value
cmdapply.Enabled = True
End Sub
Private Sub cmdapply_Click()
'for the wallpaper to come into effect
'you have to logoff andlogin again
'As this is a bug
'please mail me if you find the reason with proper solutions
'at [[Email Removed]]
'changes the wallpaper
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "wallpaper", wall)
'Changes the screensaver
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "SCRNSAVE.EXE", scr)
'changes the screensaver time in which the screensaver is provoked
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "ScreenSaveTimeOut", time)
'password protects ur screensaver
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "ScreenSaverIsSecure", pass)
'changes the Logon Wallpaper
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "Wallpaper", logon)
'changes the logon screensaver
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "SCRNSAVE.EXE", logonscr)
'changes the logon screensaver time in which it is provoked
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "ScreenSaveTimeOut", scrtime)
'changes the logon wallpaper style
Select Case logonwallstyle
Case 0
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "WallpaperStyle", logonwallstyle)
Case 1
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "WallpaperStyle", logonwallstyle)
Case 2
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "WallpaperStyle", logonwallstyle)
End Select
'changes the wallpaper display style
Select Case i
Case 0
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "WallpaperStyle", i)
Case 1
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "WallpaperStyle", i)
Case 2
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "WallpaperStyle", i)
End Select
cmdapply.Enabled = False
End Sub
Private Sub cmdbrowse_Click()
cd.Filter = "ScreenSaver (*.scr)|*.scr"
cd.InitDir = "C:\Windows"
cd.ShowOpen
scr = cd.FileName
cmdapply.Enabled = True
End Sub
Private Sub cmdcancel_Click()
wall = ""
End
End Sub
Private Sub cmdchange_Click()
'if u want to apply a jpeg or a gif image
'u have to first enable the Active Desktop from the
'Display Properties
cd.Filter = "Bitmap Image (*.bmp)|*.bmp|Jpeg (*.jpg)|*.jpg|Gif (*.gif)|*.gif"
cd.FilterIndex = 1
cd.InitDir = "C:\Windows"
cd.ShowOpen
wall = cd.FileName
Image2.Picture = LoadPicture(wall)
cmdapply.Enabled = True
End Sub
Private Sub cmdlogonscr_Click()
cd.Filter = "Screen Saver (*.scr)|*.scr"
cd.InitDir = "C:\Windows"
cd.ShowOpen
logonscr = cd.FileName
cmdapply.Enabled = True
End Sub
Private Sub cmdlogonscreen_Click()
cd.Filter = "Bitmap Image (*.bmp)|*.bmp"
cd.InitDir = "C:\Windows"
cd.ShowOpen
logon = cd.FileName
Image1.Picture = LoadPicture(logon)
cmdapply.Enabled = True
End Sub
Private Sub cmdok_Click()
'for the wallpaper to come into effect
'you have to logoff andlogin again
'As this is a bug
'please mail me if you find the reason with proper solutions
'at [[Email Removed]]
'changes the wallpaper
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "wallpaper", wall)
'changes the wallpaper display style
Select Case i
Case 0
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "WallpaperStyle", i)
Case 1
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "WallpaperStyle", i)
Case 2
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "WallpaperStyle", i)
End Select
'Changes the screensaver
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "SCRNSAVE.EXE", scr)
'changes the screensaver time in which the screensaver is provoked
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "ScreenSaveTimeOut", time)
'password protects ur screensaver
Call savestring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "ScreenSaverIsSecure", pass)
'changes the Logon Wallpaper
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "Wallpaper", logon)
'changes the logon screensaver
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "SCRNSAVE.EXE", logonscr)
'changes the logon screensaver time in which it is provoked
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "ScreenSaveTimeOut", scrtime)
'changes the logon wallpaper style
Select Case logonwallstyle
Case 0
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "WallpaperStyle", logonwallstyle)
Case 1
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "WallpaperStyle", logonwallstyle)
Case 2
Call savestring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "WallpaperStyle", logonwallstyle)
End Select
End
End Sub
Private Sub Combo1_Click()
i = Combo1.ListIndex
cmdapply.Enabled = True
End Sub
Private Sub Combo2_Click()
logonwallstyle = Combo2.ListIndex
cmdapply.Enabled = True
End Sub
Private Sub Form_Load()
tb.Tab = 0
'check the current wallpaper
wall = getstring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "wallpaper")
Image2.Picture = LoadPicture(wall)
'check the current screensaver time
time = getstring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "ScreenSaveTimeOut")
Text1.Text = time
'check if screensaver password protected
pass = getstring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "ScreenSaverIsSecure")
Check1.Value = Val(pass)
'check your wallpaper style
i = getstring(HKEY_USERS, "S-1-5-21-1844237615-854245398-1957994488-500\Control Panel\Desktop", "WallpaperStyle")
Select Case i
Case 0
Combo1.ListIndex = i
Case 1
Combo1.ListIndex = i
Case 2
Combo1.ListIndex = i
End Select
'check logonwallpaper
logon = getstring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "Wallpaper")
Image1.Picture = LoadPicture(logon)
'check logon wallpaper style
logonwallstyle = getstring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "WallpaperStyle")
Select Case logonwallstyle
Case 0
Combo2.ListIndex = logonwallstyle
Case 1
Combo2.ListIndex = logonwallstyle
Case 2
Combo2.ListIndex = logonwallstyle
End Select
'check logon screensaver time
scrtime = getstring(HKEY_USERS, ".DEFAULT\Control Panel\Desktop", "ScreenSaveTimeOut")
Text2.Text = Val(scrtime)
cmdapply.Enabled = False
End Sub
Private Sub Text1_Change()
time = Text1.Text
cmdapply.Enabled = True
End Sub
Private Sub Text2_Change()
scrtime = Text2.Text
cmdapply.Enabled = True
End Sub
