Visual Basic > Other sample source codes

Visual Basic Code > Access some control panel applets

Access some control panel applets

'save file and rename them to [name].BAS


Attribute VB_Name = "ControlPanel32"
'
'Control Panel    ( CONTROL.EXE )

'Control Panel:
'    rundll32.exe shell32.dll,Control_RunDLL
'
'Accessability Options    ( ACCESS.CPL )

'Accessability Properties (Keyboard):
'    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,1
'Accessability Properties (Sound):
'    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,2
'Accessability Properties (Display):
'    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,3
'Accessability Properties (Mouse):
'    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,4
'Accessability Properties (General):
'    rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5
'
'Add/Remove programs    ( APPWIZ.CPL )

'Add/Remove programs Properties (Install/Uninstall):
'    rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1
'Add/Remove programs Properties (Windows Setup):
'    rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2
'Add/Remove programs Properties (Startup Disk):
'    rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,3
'
'Display Options    ( DESK.CPL )

'Display Properties (Background):
'    rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0
'Display Properties (Screen Saver):
'    rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1
'Display Properties (Appearance):
'    rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,2
'Display Properties (Settings):
'    rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,3
'
'Regional Settings    ( INTL.CPL )

'Regional Settings Properties (Regional Settings):
'    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0
'Regional Settings Properties (Number):
'    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,1
'Regional Settings Properties (Currency):
'    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,2
'Regional Settings Properties (Time):
'    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,3
'Regional Settings Properties (Date):
'    rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,4
'
'Joystick Options    ( JOY.CPL )

'Joystick Properties (Joystick):
'    rundll32.exe shell32.dll,Control_RunDLL joy.cpl
'
'Mouse/Keyboard/Printers/Fonts Options    ( MAIN.CPL )

'Mouse Properties:
'    rundll32.exe shell32.dll,Control_RunDLL main.cpl @0
'Keyboard Properties:
'    rundll32.exe shell32.dll,Control_RunDLL main.cpl @1
'Printers:
'    rundll32.exe shell32.dll,Control_RunDLL main.cpl @2
'Fonts:
'    rundll32.exe shell32.dll,Control_RunDLL main.cpl @3
'
'Mail and Fax Options    ( MLCFG32.CPL )

'Microsoft Exchange Profiles (General):
'    rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl
'
'Multimedia/Sounds Options    ( MMSYS.CPL )

'Multimedia Properties (Audio):
'    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0
'Multimedia Properties (Viedo):
'    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,1
'Multimedia Properties (MIDI):
'    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2
'Multimedia Properties (CD Music):
'    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,3
'Multimedia Properties (Advanced):
'    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,4

'Sounds Properties:
'    rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1
'
'Modem Options    ( MODEM.CPL )

'Modem Properties (General):
'    rundll32.exe shell32.dll,Control_RunDLL modem.cpl
'
'Network Options    ( NETCPL.CPL )

'Network (Configuration):
'    rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl
'
'Password Options    ( PASSWORD.CPL )

'Password Properties (Change Passwords):
'    rundll32.exe shell32.dll,Control_RunDLL password.cpl
'
'System/Add New hardware Options    ( SYSDM.CPL )

'System Properties (General):
'    rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0
'System Properties (Device Manager):
'    rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,1
'System Properties (Hardware Profiles):
'    rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,2
'System Properties (Performance):
'    rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,3

'Add New hardware Wizard:
'    rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1
'
'Date and time Options    ( TIMEDATE.CPL )

'Date/Time Properties:
'    rundll32.exe shell32.dll,Control_RunDLL timedate.cpl
'
'Microsoft Mail Postoffice Options    ( WGPOCPL.CPL )

'Microsoft Workgroup Postoffice Admin:
'    rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl
'
'
Dim Shared XFS As Integer
Sub ControlPanel(Filename As String)
Dim T As Double
On Error Resume Next
T = Shell(Filename, 5)
End Sub



Return