ELEMENTS STANDARDS DE WINDOWS XP

error_french : dim i,l,h,lon,hau,x,y,p : label choix,fin
color 0,70,123,140 : caption 0,"Principaux éléments standards de WIindows XP"
l = screen_x : h = screen_y : lon = 390 : hau = 650
x = (l-lon)/2 : y = (h-hau)/2 : left 0,x : top 0,y : width 0,lon : height 0,hau
for i=1 to 14
button i : button i+14
width i,150 : height i,30 : left i,30 : top i,i*40-20
width i+14,150 : height i+14,30 : left i+14,200 : top i+14,i*40-20
next i
caption 1,"Terminer" : caption 2,"Volume" : caption 3,"Bloc note"
caption 4,"Base de registre" : caption 5,"Calculatrice" : caption 6,"Carnet d'adresse"
caption 7,"Explorateur" : caption 8,"Invite de commande" : caption 9,"Media player"
caption 10,"Clavier visuel" : caption 11,"Loupe" : caption 12,"Internet"
caption 13,"Outlook Express" : caption 14,"Wordpad" : caption 15,"Table des caractères"
caption 16,"Gestionnaire de l'album" : caption 17,"Magnétophone" : caption 18,"DVD Player"
caption 19,"Editeur de caractère" : caption 20,"Paint" : caption 21,"Média Player2"
caption 22,"Défragmentation" : caption 23,"Nettoyeur de disque"
caption 24,"Démineur" : caption 25,"Dame de pique" : caption 26,"Freecell"
caption 27,"Solitaire" : caption 28,"Spider Solitaire"
on_click 1,fin
for i=2 to 28 : on_click i,choix : next i
end
choix:
if clicked(2)=1 then execute "sndvol32.exe"
if clicked(3)=1 then execute "notepad.exe"
if clicked(4)=1 then execute "regedit.exe"
if clicked(5)=1 then execute "calc.exe"
if clicked(6)=1 then execute "wab.exe"
if clicked(7)=1 then execute "explorer.exe"
if clicked(8)=1 then execute "cmd.exe"
if clicked(9)=1 then execute "wmplayer"
if clicked(10)=1 then execute "osk.exe"
if clicked(11)=1 then execute "magnify.exe"
if clicked(12)=1 then execute "iexplore.exe"
if clicked(13)=1 then execute "msimn.exe"
if clicked(14)=1 then execute "wordpad.exe"
if clicked(15)=1 then execute "charmap.exe"
if clicked(16)=1 then execute "clipbrd.exe"
if clicked(17)=1 then execute "sndrec32.exe"
if clicked(18)=1 then execute "dvdplay.exe"
if clicked(19)=1 then execute "eudcedit.exe"
if clicked(20)=1 then execute "mspaint.exe"
if clicked(21)=1 then execute "mplayer2.exe"
if clicked(22)=1 then execute "dfrg.msc"
if clicked(23)=1 then execute "cleanmgr.exe"
if clicked(24)=1 then execute "winmine.exe"
if clicked(25)=1 then execute "mshearts.exe"
if clicked(26)=1 then execute "freecell.exe"
if clicked(27)=1 then execute "sol.exe"
if clicked(28)=1 then execute "spider.exe"
return
fin:
terminate

Georges
@+

label choix

width 0,178:height 0,77:color 0,100,100,100:caption 0,"Démarrer"
combo 1:left 1,10:top 1,10:width 1,150:text 1,"Terminer"
item_add 1,"Terminer" : item_add 1,"Volume" : item_add 1,"Bloc note"
item_add 1,"Base de registre" : item_add 1,"Calculatrice" : item_add 1,"Carnet d'adresse"
item_add 1,"Explorateur" : item_add 1,"Invite de commande" : item_add 1,"Media player"
item_add 1,"Clavier visuel" : item_add 1,"Loupe" : item_add 1,"Internet"
item_add 1,"Outlook Express" : item_add 1,"Wordpad" : item_add 1,"Table des caractères"
item_add 1,"Gestionnaire de l'album" : item_add 1,"Magnétophone" : item_add 1,"DVD Player"
item_add 1,"Editeur de caractère" : item_add 1,"Paint" : item_add 1,"Média Player2"
item_add 1,"Défragmentation" : item_add 1,"Nettoyeur de disque"
item_add 1,"Démineur" : item_add 1,"Dame de pique" : item_add 1,"Freecell"
item_add 1,"Solitaire" : item_add 1,"Spider Solitaire"
on_click 1,choix
end
choix:
if text$(1)="Terminer" then terminate
if text$(1)="Volume" then execute "sndvol32.exe"
if text$(1)="Bloc note" then execute "notepad.exe"
if text$(1)="Base de registre" then execute "regedit.exe"
if text$(1)="Calculatrice" then execute "calc.exe"
if text$(1)="Carnet d'adresse" then execute "wab.exe"
if text$(1)="Explorateur" then execute "explorer.exe"
if text$(1)="Invite de commande" then execute "cmd.exe"
if text$(1)="Media player" then execute "wmplayer"
if text$(1)="Clavier Visuel" then execute "osk.exe"
if text$(1)="Loupe" then execute "magnify.exe"
if text$(1)="Internet" then execute "iexplore.exe"
if text$(1)="Outlook Express" then execute "msimn.exe"
if text$(1)="Wordpad" then execute "wordpad.exe"
if text$(1)="Table des caractères" then execute "charmap.exe"
if text$(1)="Gestionnaire de l'album" then execute "clipbrd.exe"
if text$(1)="Magnétophone" then execute "sndrec32.exe"
if text$(1)="DVD Player" then execute "dvdplay.exe"
if text$(1)="Editeur de caractère" then execute "eudcedit.exe"
if text$(1)="Paint" then execute "mspaint.exe"
if text$(1)="Média Player2" then execute "mplayer2.exe"
if text$(1)="Défragmentation" then execute "dfrg.msc"
if text$(1)="Nettoyeur de disque" then execute "cleanmgr.exe"
if text$(1)="Démineur" then execute "winmine.exe"
if text$(1)="Dame de pique" then execute "mshearts.exe"
if text$(1)="Freecell" then execute "freecell.exe"
if text$(1)="Solitaire" then execute "sol.exe"
if text$(1)="Spider Solitaire" then execute "spider.exe"
return