AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  

Partagez | 
 

 Administration en VB

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
djblagues



Nombre de messages : 7
Age : 28
Date d'inscription : 19/11/2006

MessageSujet: Administration en VB   Dim 19 Nov - 11:22

Salut, tous!

J'ai trouvé le programme grâce à un voisin et j'en suis trop content.
J'ai mit un jour complet pour le préparer et comprendre le fonctionnement du menu etc...
Et j'ai enfin fini le pack à installer sur chaque PC de la salle réseau de mon lycée!
LoL J'ai fait un petit programme super simple en Visual Basic, qui modifie le contenu de menu.rc pour changer le menu. Et en fait, il faut un mot de passe pour passer en mode Admin et un simple clique pour repasser en mode simple!

Les raccourcis windows sont bloqués par un autre programme en VB que j'ai trouvé tout pret sur codes-sources.com (Anti Ctrl Echap). Donc plus aucun accés à windows à par les icones de la barre des taches de BureauDePoche qui est géré par un plugin, alors je me suis dépêché de modifier sa configuration pour les enlever afin de tout protêger (sauf l'édition de la date, mais je trouverai une solution simple, je supose).

Pour le mode simple, c'est tout simplement un monu avec tout les jeux pour la salle réseau, et un accés au programme de gestion du volume (et oui, sinon sa sert pas à grand chose)! Et bien sur, un accés au menu Admin qui est géré par un petit programme VB (le mot de passe je me le garde lol)!

Voici mon menu ::

[begin] (PyroFrissons)
[exec] (BattleField 1942) {"D:\Jeux\Battlefield 1942\BF1942.exe"}
[exec] (Empire Earth II) {"D:\Jeux\Empire Earth II\EE2.exe"}
[exec] (FlatOut) {"D:\Jeux\FlatOut\flatout.exe"}
[exec] (HalfLife) {"D:\Jeux\Counter Strike\hl.exe"}
[exec] (Counter Strike) {"D:\Jeux\Counter Strike\cs.exe"}
[exec] (MX vs ATV Unleashed) {"D:\Jeux\MX vs ATV Unleashed\MXvsATV.exe"}
[exec] (Plane Arcade) {"D:\Jeux\Plane Arcade\Plane Arcade.exe"}
[exec] (Quake 3) {"D:\Jeux\Quake 3\quake3.exe"}
[exec] (TrackMania Nations) {"D:\Jeux\TrackMania Nations\TmNationsESWC.exe"}
[exec] (Warcraft 3 FT) {"D:\Jeux\Warcraft III\Frozen Throne.exe"}
[exec] (Worms World Party) {"D:\Jeux\Worms\worms_wp\wwp.exe"}
[nop]
[exec] (Armagetron Advanced) {"D:\Jeux\Armagetron Advanced\armagetronad.exe"}
[exec] (IcyTower) {"D:\Jeux\IcyTower\icytower.exe"}
[exec] (Liero X-Treme) {"D:\Jeux\Liero X-Treme\LieroX(français).exe"}
[exec] (Plasma Pong) {"D:\Jeux\Plasma Pong\Plasma Pong.exe"}
[nop]
[nop] (Amusez-vous bien...)
[nop]
[exec] (Régler le Volume) {"C:\WINDOWS\system32\sndvol32.exe"}
[exec] (Menu Admin) {"appsfixes\NSI\NSI3d.exe"}
[end]

Binsur, ce menu est adapté pour l'instant, rien que pour mon PC Very Happy

Ensuite, le menu Admin est plus compliqué car j'ai rajouté des programmes personnel que je trouvé simpat mais la plus par était fourni avec BureauDePoche ::

[begin] (PyroFrissons)
[submenu] (Jeux)
[exec] (BattleField 1942) {"D:\Jeux\Battlefield 1942\BF1942.exe"}
[exec] (Empire Earth II) {"D:\Jeux\Empire Earth II\EE2.exe"}
[exec] (FlatOut) {"D:\Jeux\FlatOut\flatout.exe"}
[exec] (HalfLife) {"D:\Jeux\Counter Strike\hl.exe"}
[exec] (Counter Strike) {"D:\Jeux\Counter Strike\cs.exe"}
[exec] (MX vs ATV Unleashed) {"D:\Jeux\MX vs ATV Unleashed\MXvsATV.exe"}
[exec] (Plane Arcade) {"D:\Jeux\Plane Arcade\Plane Arcade.exe"}
[exec] (Quake 3) {"D:\Jeux\Quake 3\quake3.exe"}
[exec] (TrackMania Nations) {"D:\Jeux\TrackMania Nations\TmNationsESWC.exe"}
[exec] (Warcraft 3 FT) {"D:\Jeux\Warcraft III\Frozen Throne.exe"}
[exec] (Worms World Party) {"D:\Jeux\Worms\worms_wp\wwp.exe"}
[nop]
[exec] (Armagetron Advanced) {"D:\Jeux\Armagetron Advanced\armagetronad.exe"}
[exec] (IcyTower) {"D:\Jeux\IcyTower\icytower.exe"}
[exec] (Liero X-Treme) {"D:\Jeux\Liero X-Treme\LieroX(français).exe"}
[exec] (Plasma Pong) {"D:\Jeux\Plasma Pong\Plasma Pong.exe"}
[nop]
[nop] (Amusez-vous bien...)
[end]
[exec] (Régler le Volume) {"C:\WINDOWS\system32\sndvol32.exe"}
[submenu] (Raccourcis Windows)
[nop] (Activer*)
[exec] (Désactiver) {"C:\WINDOWS\AntiCtrlEchap.exe"}
[nop]
[nop] (* : Killez AntiCtrlEchap)
[end]
[nop]
[exec] (Ouvrir Explorateur) {"appsfixes\CubicExplorer\CubicExplorer.exe"}
[exec] (Ouvrir FireFox) {"appsfixes\FireFox\PortableFirefox.exe"}
[exec] (Ouvrir Miranda) {"appsfixes\PortableMiranda\PortableMiranda.exe"}
[nop]
[editmenu] (Editer Menu)
[exec] (Menu Simple) {"appsfixes\NSI\NSI3b.exe"}
[nop]
[submenu] (Utilitaires)
[exec] (Editeur de texte) {"appsfixes\TousLesUtilitaires\Notepad2\Notepad2.exe"}
[exec] (Compresseur/Decompresseur Zip) {"appsfixes\7Zip\7zip.exe"}
[end]
[submenu] (Maintenance PC)
[exec] (Analyser l'espace disque) {"appsfixes\SystemeInfo\scn2\Scanner.exe"}
[exec] (Defragmentation) {"WINDOWS\system32\dfrg.msc"}
[nop]
[exec] (Information Système) {"appsfixes\SystemeInfo\SystemeInfo.exe"}
[exec] (N° Clé Windows de ce PC) {"appsfixes\SystemeInfo\WinKey.exe"}
[nop]
[exec] (Gestionnaire des tâches) {"appsfixes\ProcessXP\ProcessXP.exe"}
[exec] (Effacer mes traces sur ce PC) {"appsfixes\Aclean\Aclean.exe"}
[exec] (Restoration, Poubelle !) {"appsfixes\TousLesUtilitaires\Restoration\Restoration.exe"}
[end]
[nop]
[config] (Configuration le bureau /!\)
[restart] (Redémarrer le bureau)
[exit] (Quitter le bureau)
[nop]
[exec] (Veille) {"appsfixes\TousLesUtilitaires\black.exe"}
[logoff] (Fermer la session) {"-quiet"}
[exitwindows] (Eteindre ...)
[end]

Donc voilà un peu tout!

Pour ceux qui sont interressés par mes minis programmes VB, ils peuvent me contacter à cette adresse (dj_blagues@hotmail.com) ou directement sur cet article!

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://alvinp.free.fr
PapyChou
Admin


Nombre de messages : 914
Age : 56
Localisation : Rhone Alpes
Date d'inscription : 12/08/2006

MessageSujet: Re: Administration en VB   Dim 19 Nov - 12:31

Ou comment BureauDePoche pour clé USB se transforme en BureauPourSalleReseau ! !

Beau travail
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.bureau-de-poche.com
djblagues



Nombre de messages : 7
Age : 28
Date d'inscription : 19/11/2006

MessageSujet: Merci   Dim 19 Nov - 12:36

Ouép, je trouve ce prog trop trop bien!!

Parcontre, j'arrive pas à comprendre que certains ne savent pas à quoi celà peut servir! Mais bon, moi je l'utiliserai tout le temps je pense Very Happy
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://alvinp.free.fr
PapyChou
Admin


Nombre de messages : 914
Age : 56
Localisation : Rhone Alpes
Date d'inscription : 12/08/2006

MessageSujet: Re: Administration en VB   Dim 19 Nov - 13:35

djblagues a écrit:
j'arrive pas à comprendre que certains ne savent pas à quoi celà peut servir!
Il n'y a pas si longtemps, on disait la même chose des téléphones portables affraid
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://www.bureau-de-poche.com
djblagues



Nombre de messages : 7
Age : 28
Date d'inscription : 19/11/2006

MessageSujet: ;)   Dim 19 Nov - 19:08

Ouwa, c'est un direct du droit sa Very Happy

T'a pas tord du tout!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://alvinp.free.fr
Contenu sponsorisé




MessageSujet: Re: Administration en VB   Aujourd'hui à 17:09

Revenir en haut Aller en bas
 
Administration en VB
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Problème Affichage Police Dans l'administration
» [Administration] Créer des Rangs Personnalisés
» lien Panneau d'administration [résolu]
» moderateur et accès panneau administration
» [Administration] Rang spécial : listing des membres

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Forum :: Archives :: Le BureauDePoche-
Sauter vers: