Appel des boîtes de propriétés (desktop, internet...)

3/5 (4 avis)

Snippet vu 8 431 fois - Téléchargée 35 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire

Commentaires

Youpien
Messages postés
29
Date d'inscription
samedi 31 janvier 2004
Statut
Membre
Dernière intervention
22 février 2009
-
Genial moi qui debute dans le visual basic, c'est le genre de source que j'apreçie, et qui permet de progresser!!!!

En plus c'est se que je cherchez!

10/10
vbbreizh
Messages postés
73
Date d'inscription
lundi 25 juin 2001
Statut
Membre
Dernière intervention
13 novembre 2005
1 -
Merci à vous deux de votre support...Il y aura malheureusement toujours des incurables et le mieux est de les ignorer...
En espérant que ce source vous apporte quelques idées géniales et au plaisir de ldécouvrir les sources qui en résulteront sur VBFrance.com...
Cordialement
Gilles (VB'Breizh)
cs_marm0tte
Messages postés
200
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
18 janvier 2009
-
En gros la même chose qu'azerty25.
Ayant été frapé par se boulet l'autre jour sur une source que j'avais dev en cour, j'ai remonté ca comme d'autres l ont fait pour moi.

Bonne continuation
++
cs_azerty25
Messages postés
1115
Date d'inscription
jeudi 19 décembre 2002
Statut
Membre
Dernière intervention
6 mai 2007
-
Pas mal, mais j'ai mis le temps à comprendre ce que sa faisait. Le titre est pas tres clair :p
Le bouffon qui note toujours 1 est encore passé sur toi, je suis repassé derriere comme tu peux le voir ;)

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.