ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Utiliser Rundll32 pour accéder les fonctionnalités de Windows   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Windows Scripting

Utiliser Rundll32 pour accéder les fonctionnalités de Windows
# 0000000330
ajouté le 10/06/2006 15:00:11 et modifié le 10/06/2006
consulté 8620 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description
Le code suivant requiert que Windows Scripting soit présent sur l'ordinateur.
Veuillez noter que certains script ne fonctionnent que pour Windows XP.
Code source :
&& Faire appel à 'ajout/suppression de programmes'

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,0")

&& Faire appel à l'affichage

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL access.cpl,,3")

&& Faire appel au réglage de la carte de son

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL access.cpl,,2")

&& Faire appel au panneau de configuration

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL")

&& Faire appel pour copier une disquette

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe DISKCOPY.DLL,DiskCopyRunDll")

&& Faire appel au formattage du disque dur.

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe SHELL32.DLL,SHFormatDrive")

&& Ouvrir le répertoire de polices

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe SHELL32.DLL,SHHelpShortcuts_RunDLL FontsFolder")

&& Faire appel au controleur de jeux

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL joy.cpl")

&& Faire appel à l'ajout de matériel

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL hdwwiz.cpl")

&& Faire appel aux propriétés de la sourie

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL main.cpl @0")

&& Ajouter une connexion réseau

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe netplwiz.dll,AddNetPlaceRunDll")

&& Connecter un lecteur de réseau


oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,SHHelpShortcuts_RunDLL Connect")

&& Ouvrir le panneau d'admninistration des connexions ODBC

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL odbccp32.cpl")

&& Oublié votre mot de passe?

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe keymgr.dll,PRShowSaveWizardExW")

&& Changer de mot de passe

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe keymgr.dll,PRShowRestoreWizardExW")

&& Connecter une imprimante

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe WINSPOOL.DRV,ConnectToPrinterDlg")

&& Ouvrir le répertoire des imprimantes

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe SHELL32.DLL,SHHelpShortcuts_RunDLL PrintersFolder")

&& Ouvrir les propriétés du modem

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL telephon.cpl")

&& Faire appel aux comptes des utilisateurs

oShell =   CreateObject("WScript.Shell")
oShell.run("rundll32.exe %SystemRoot%\System32\netplwiz.dll,UsersRunDll")

&& Ouvrir l'interface du FireWall de Windows

oShell =   CreateObject("WScript.Shell")
oShell.run("RunDll32.exe shell32.dll,Control_RunDLL firewall.cpl")
Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3