Appel des boîtes de Propriétés (Desktop, Internet...)
Les lignes de commande avec les paramètres...
Amusez-vous bien
----Mise à jour le 18/09/2004---
Source / Exemple :
-------------*.CPL MODULES------------
(il y a encore quelques CPL non mentionnés, ce sera pour une prochaine mise à jour...)
-------------------------------------------
'Call sample :
Dim cmdL$ 'as Command line
Dim ret&
ret= Shell(cmdL$,1)
-------------------------------------------
module : ACCESS.CPL (Accessibility)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL access.cpl"
(Displays the Accessibility General properties)
cmdL$ = cmdL$ + ",,1" '(Keyboard properties)
cmdL$ = cmdL$ + ",,2" '(Sound properties)
cmdL$ = cmdL$ + ",,3" '(Display properties)
cmdL$ = cmdL$ + ",,4" '(Mouse properties)
cmdL$ = cmdL$ + ",,5" '(General properties)
-------------------------------------------
module : APPWIZ.CPL (Add/Remove Programs)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl"
(Displays the Add/Remove Programs property box)
cmdL$ = cmdL$ + ",,1" '(Install/Uninstall)
cmdL$ = cmdL$ + ",,2" '(Windows Setup)
cmdL$ = cmdL$ + ",,3" '(Startup Disk tab)
-------------------------------------------
module : CONTROL.EXE (Control Panel)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL"
(Displays the Control Panel icons in an Explorer instance)
-------------------------------------------
module : DESK.CPL (Desktop, Screen Saver)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL desk.cpl"
(Displays the Set Desktop properties, General Tab)
cmdL$ = cmdL$ + ",,0" '(Background)
cmdL$ = cmdL$ + ",,1" '(Screen Saver)
cmdL$ = cmdL$ + ",,2" '(Appearance)
cmdL$ = cmdL$ + ",,1" '(Settings)
............................Screen Saver Installation
cmdL$ = "rundll32.exe desk.cpl,InstallScreenSaver c:\win\system\" + scr.filename
(sample)
cmdL$ = cmdL$ + "Flying Windows.scr"
(Installs the new screen saver and runs the display/screen saver preview property page)
- The screen saver file must exist and have an scr extension.
- The screen saver file must be located in the \windows\system sub-directory.
-------------------------------------------
module : DISKCOPY.DLL (Copy Disk dialog)
cmdL$ = "rundll32.exe diskcopy.dll,DiskCopyRunDll"
(Displays the Copy Disk dialog for removable media)
-------------------------------------------
module : FINDFAST.CPL (Search)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL findfast.cpl"
(Displays the Office FindFast control panel applet (if installed)
-------------------------------------------
module : INETCPL.CPL (Internet)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl"
(Displays the Internet Properties, General Tab)
cmdL$ = cmdL$ + ",,0" '( Properties, General)
cmdL$ = cmdL$ + ",,1" '(Properties, Security)
cmdL$ = cmdL$ + ",,2" '(Properties, Content)
cmdL$ = cmdL$ + ",,3" '(Internet Control Panel, Connection)
cmdL$ = cmdL$ + ",,4" '(Internet Control Panel, Programs)
cmdL$ = cmdL$ + ",,5" '(Internet Control Panel, Advanced)
-------------------------------------------
module : INTECPL.CPL (Users Properties / Win98)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl users"
(Displays the Multi-User Settings properties dialog, MS Family Networking Login)
-------------------------------------------
module : INTL.CPL (Regional Settings)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL intl.cpl"
............................................
cmdL$ = cmdL$ + ",,0" '(Regional Settings properties)
cmdL$ = cmdL$ + ",,1" '(Numbers)
cmdL$ = cmdL$ + ",,2" '(Currency)
cmdL$ = cmdL$ + ",,3" '(Time)
cmdL$ = cmdL$ + ",,4" '(Date)
........WindowsNT........
cmdL$ = cmdL$ + ",,5" '(Locales properties)
-------------------------------------------
module : JOY.CPL (Joystick/Game Controllers)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL joy.cpl"
(Displays the Joystick property box)
cmdL$ = cmdL$ + ",,0" '(Game Controllers general properties)
cmdL$ = cmdL$ + ",,1" '(Game Controllers advanced properties)
-------------------------------------------
module : MAIN.CPL (Fonts)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL main.cpl"
......................
cmdL$ = cmdL$ + " @0" '(Mouse Properties)
cmdL$ = cmdL$ + " @1" '(Keyboard, Speed)
cmdL$ = cmdL$ + " @1,1" '(Keyboard, Language)
cmdL$ = cmdL$ + " @1,2" '(Keyboard, general properties)
cmdL$ = cmdL$ + " @2" '(Printers Folder)
cmdL$ = cmdL$ + " @3" '(Fonts Folder in an Explorer instance)
cmdL$ = cmdL$ + " @4" '(Power Management Properties)
-------------------------------------------
module : MLCFG32.CPL (Mail/Fax)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL mlcfg32.cpl"
(Displays the Microsoft Exchange Profiles general properties)
-------------------------------------------
module : MMSYS.CPL (Multimedia/Sound)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl"
........................
cmdL$ = cmdL$ + ",,0" '(Multimedia/Audio)
cmdL$ = cmdL$ + ",,1" '(Multimedia/Video)
cmdL$ = cmdL$ + " @1 '(Sound Properties)
cmdL$ = cmdL$ + ",,2" '(Multimedia/MIDI)
cmdL$ = cmdL$ + ",,3" '(Multimedia/CD Music)
cmdL$ = cmdL$ + ",,4" '(Multimedia/Advanced
-------------------------------------------
module : MODEM.CPL (Modem)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL modem.cpl,,add"
(Runs the Add New Modem wizard)
-------------------------------------------
module : MSHTML.DLL (Printer)
cmdL$ = "rundll32.exe mshtml.dll,Print" + (.html file)
(Sends the html file to the printer)
-------------------------------------------
module : NCPA.DLL (Network Properties / WindowsNT)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL ncpa.cpl
(Displays Networks properties, Identification tab)
cmdL$ = cmdL$ + ",,1" '(Networks properties, Services)
cmdL$ = cmdL$ + ",,2" '(Networks properties, Protocols)
cmdL$ = cmdL$ + ",,3" '(Networks properties, Adapters)
cmdL$ = cmdL$ + ",,4" '(Networks properties, Bindings)
-------------------------------------------
module : NETCPL.CPL (Network Properties / Win9x)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl"
(Displays Networks properties, Configuration tab)
-------------------------------------------
module : NTLANUI.DLL (WindowsNT)
cmdL$ = "rundll32.exe ntlanui.dll,ShareCreate"
(Displays the NT Create Share Dialog)
cmdL$ = "rundll32.exe ntlanui.dll,ShareManage"
(Displays the NT Manage Shared Directories Dialog)
-------------------------------------------
module : ODBCCP32.CPL (ODBC32 Data Source Administrator)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL odbccp32.cpl"
(Displays the ODBC32 Data Source Administrator properties dialog)
-------------------------------------------
module : PASSWORD.CPL (Passwords)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL password.cpl"
(Displays the Passwords properties, Change Passwords tab)
-------------------------------------------
module: PORTS.CPL (ports / WindowsNT)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL ports.cpl"
(Displays the COM Ports Settings Dialog)
-------------------------------------------
module : POWERCFG.CPL (Power Management Properties)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl"
(Displays the Power Management properties, Power Schemes tab)
-------------------------------------------
module : RNAUI.DLL (DialUp Networking-DUN)
cmdL$ = "rundll32.exe rnaui.dll,RnaDial {name of connection to establish}"
(Displays the 'Connect To' dialog for the passed connection.)
(If connected, displays the connection status dialog).
cmdL$ = "rundll32.exe rnaui.dll,RnaWizard"
(Displays the Dial Up Networking Connection Wizard)
-------------------------------------------
module : SHELL32.DLL
(Format Drive Dialog/floppy disk only)
cmdL$ = "rundll32.exe shell32.dll,SHFormatDrive"
(Displays the floppy disk Format Drive dialog. Causes the Drive A to be accessed on showing.)
(Fonts)
cmdL$ = "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder"
(Displays the Fonts Folder in Explorer viewer)
(Open File With)
cmdL$ = "rundll32.exe shell32.dll,OpenAs_RunDLL {drive:\path\filename}"
(Displays the application/file "Open With" dialog)
(Printers)
cmdL$ = "rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL PrintersFolder"
-------------------------------------------
module : SVRMGR.CPL (Server Properties / WindowsNT))
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL srvmgr.cpl"
(Displays the Server Properties Dialog
-------------------------------------------
module : SYSDM.CPL (System)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl"
........Win9x........
cmdL$ = cmdL$ + ",,0" '(General properties)
cmdL$ = cmdL$ + ",,1" '(Device Manager)
cmdL$ = cmdL$ + ",,2" '(Hardware Profiles)
........WindowsNT........
cmdL$ = cmdL$ + ",,0" '(General properties)
cmdL$ = cmdL$ + ",,1" '(Performances)
cmdL$ = cmdL$ + ",,2" '(Environment)
cmdL$ = cmdL$ + ",,3" '(Startup/Shutdown)
cmdL$ = cmdL$ + ",,4" '(Hardware Profiles)
cmdL$ = cmdL$ + ",,5" '(User Profiles)
-------------------------------------------
module : TELEPHON.CPL (Phone)
........Win9x........
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL telephon.cpl users"
(Displays the Dialing Properties dialog)
........WindowsNT........
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL telephon.cpl"
(Displays the Dialing Properties My Location- Drivers dialog)
-------------------------------------------
module : THEMES.CPL (Themes)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL themes.cpl"
(Displays the Themes control panel app if installed)
-------------------------------------------
module : TIMEDATE.CPL (Date Time)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL timedate.cpl"
(Displays the Set Date Time Properties, General Tab)
cmdL$ = cmdL$ + ",,0" '(Set Date & Time)
cmdL$ = cmdL$ + ",,1" '(Time Zone)
-------------------------------------------
module : TWEAKUI.CPL (TweakUI)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL tweakui.cpl"
(Displays the TweakUI control panel applet, if installed)
-------------------------------------------
module : UPS.CPL (UPS / WindowsNT)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL ups.cpl"
(Displays the Uninteruptable Power Supply properties)
-------------------------------------------
module : USER.EXE (Shutdown)
cmdL$ = "rundll32.exe user.exe,restartwindows"
(forces Windows to perform a proper shutdown, and restart the computer)
cmdL$ = "rundll32.exe user.exe,exitwindows"
(forces Windows to shutdown, and wait either to be turned off, or reset)
-------------------------------------------
module : WGPOCPL.CPL (PostOffice)
cmdL$ = "rundll32.exe shell32.dll,Control_RunDLL wgpocpl.cpl"
(Displays the Microsoft Postoffice Workgroup Admin properties)
Conclusion :
Plus d'infos et d'autres astuces sur le site de VB'Breizh
http://gilles.saunier.free.fr
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.