Outils du Panneau de configuration

rem ============================================================================
rem            Outils du Panneau de configuration
rem ============================================================================
' Quelques outils peuvent être absents selon chaque configuration, par exemple, chez moi,
' "le gestionnaire de périphérique Bluetooth" et
' "le gestionnaire de voisinnage immédiat" sont aux abonnés absents.
rem ============================================================================

label Choix
dim i,t$,cmd$
height 0,700 : width 0,700
for i = 1 to 20
    option i : top i,50+25*i : left i,50 : width i,600 : font_bold i
    font_size i,14 : font_color i,0,0,255 : read t$  : caption i,t$ : on_click i,Choix
next i
button 99 : top 99,600 : left 99,300 : font_bold 99 : caption 99,"Quitter"
font_size 99,14 : on_click 99,Choix
alpha 100 : top 100,10 : left 100,50 : font_color 100,150,100,50 : font_size 100,24
font_bold 100 : caption 100,"Outils du Panneau de configuration"
end
rem ============================================================================
Choix:
   select number_click
       case 01 : cmd$ = "appwiz"
       case 02 : cmd$ = "bthprops"
       case 03 : cmd$ = "collab"
       case 04 : cmd$ = "desk"
       case 05 : cmd$ = "Firewall"
       case 06 : cmd$ = "hdwwiz"
       case 07 : cmd$ = "inetcpl"
       case 08 : cmd$ = "infocardcpl"
       case 09 : cmd$ = "intl"
       case 10 : cmd$ = "irprops"
       case 11 : cmd$ = "joy"
       case 12 : cmd$ = "main"
       case 13 : cmd$ = "mmsys"
       case 14 : cmd$ = "ncpa"
       case 15 : cmd$ = "powercfg"
       case 16 : cmd$ = "sysdm"
       case 17 : cmd$ = "TabletPC"
       case 18 : cmd$ = "telephon"
       case 19 : cmd$ = "timedate"
       case 20 : cmd$ = "wscui"
       case 99 : terminate
   end_select
   cmd$ = cmd$ + ".cpl"
   execute_wait cmd$
return
rem ============================================================================
data "Ouvrir programmes et fonctionnalités"
data "Ouvrir le gestionnaire de périphérique Bluetooth"
data "Ouvrir le gestionnaire de voisinage immédiat"
data "Ouvrir les paramètres de l'affichage"
data "Ouvrir le pare feu Windows"
data "Ouvrir l'assistant d'ajout de matériel"
data "Ouvrir les propriétés d'Internet Explorer"
data "Ouvrir l'assistant de compatibilité des programmes"
data "Ouvrir les options régionales et linguistiques"
data "Ouvrir le gestionnaire d'infrarouge"
data "Ouvrir le gestionnaire de controleur de jeu (Joystick)"
data "Ouvrir les propriété de la souris"
data "Ouvrir le gestionnaire de son"
data "Ouvrir les connexions réseau"
data "Ouvrir le panneau des options d'alimentation"
data "Ouvrir les propriété Système"
data "Ouvrir le gestionnaire de stylet et périphériques d'entrée"
data "Ouvrir les options de modems et téléphonie"
data "Ouvrir le gestionnaire de date et heure"
data "Ouvrir le centre de sécurité windows"
rem ============================================================================