begin process at 2012 02 12 18:14:46
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Exécution

 > AIDEWIN 2003

AIDEWIN 2003


 Information sur la source

Note :
4 / 10 - par 2 personnes
4,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Exécution Niveau :Débutant Date de création :08/01/2003 Date de mise à jour :08/01/2003 22:36:38 Vu / téléchargé :4 532 / 202
Auteur : GSTARZ

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

Utillitaire pour windows 98,me pour avoir les programme à windows par défault comme Regedit,Msdos,Msconfig,Wordpad,Notepad et autres.

Source

  • Private Sub Cmd1_Click()
  • Shell ("regedit.exe"), vbMaximizedFocus
  • End Sub
  • Private Sub Cmd10_Click()
  • Shell ("Scandskw.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd11_Click()
  • Shell ("defrag.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd12_Click()
  • Shell ("explorer.exe"), vbMaximizedFocus
  • End Sub
  • Private Sub Cmd13_Click()
  • Shell ("calc.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd14_Click()
  • Shell ("cdplayer.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd15_Click()
  • Shell ("kodakimg.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd16_Click()
  • Shell ("pbrush.exe"), vbMaximizedFocus
  • End Sub
  • Private Sub Cmd17_Click()
  • Shell ("taskman.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd2_Click()
  • Shell ("command.com"), vbNormalFocus
  • End Sub
  • Private Sub Cmd3_Click()
  • Shell ("winipcfg.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd4_Click()
  • Shell ("notepad.exe"), vbMaximizedFocus
  • End Sub
  • Private Sub Cmd5_Click()
  • Shell ("write.exe"), vbMaximizedFocus
  • End Sub
  • Private Sub Cmd6_Click()
  • Shell ("charmap.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd7_Click()
  • Shell ("msconfig.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmd8_Click()
  • Shell ("winfile.exe"), vbMaximizedFocus
  • End Sub
  • Private Sub Cmd9_Click()
  • Shell ("telnet.exe"), vbNormalFocus
  • End Sub
  • Private Sub Cmdquit_Click()
  • MsgBox "Merci d'avoir utilliser ce programme!!", vbExclamation + vbOKOnly, "Fermeture de AideWin2003!"
  • End
  • End Sub 
Private Sub Cmd1_Click()
Shell ("regedit.exe"), vbMaximizedFocus
End Sub

Private Sub Cmd10_Click()
Shell ("Scandskw.exe"), vbNormalFocus
End Sub

Private Sub Cmd11_Click()
Shell ("defrag.exe"), vbNormalFocus
End Sub

Private Sub Cmd12_Click()
Shell ("explorer.exe"), vbMaximizedFocus
End Sub

Private Sub Cmd13_Click()
Shell ("calc.exe"), vbNormalFocus
End Sub


Private Sub Cmd14_Click()
Shell ("cdplayer.exe"), vbNormalFocus
End Sub

Private Sub Cmd15_Click()
Shell ("kodakimg.exe"), vbNormalFocus
End Sub

Private Sub Cmd16_Click()
Shell ("pbrush.exe"), vbMaximizedFocus
End Sub

Private Sub Cmd17_Click()
Shell ("taskman.exe"), vbNormalFocus
End Sub

Private Sub Cmd2_Click()
Shell ("command.com"), vbNormalFocus
End Sub

Private Sub Cmd3_Click()
Shell ("winipcfg.exe"), vbNormalFocus
End Sub

Private Sub Cmd4_Click()
Shell ("notepad.exe"), vbMaximizedFocus
End Sub

Private Sub Cmd5_Click()
Shell ("write.exe"), vbMaximizedFocus
End Sub

Private Sub Cmd6_Click()
Shell ("charmap.exe"), vbNormalFocus
End Sub

Private Sub Cmd7_Click()
Shell ("msconfig.exe"), vbNormalFocus
End Sub

Private Sub Cmd8_Click()
Shell ("winfile.exe"), vbMaximizedFocus
End Sub

Private Sub Cmd9_Click()
Shell ("telnet.exe"), vbNormalFocus
End Sub

Private Sub Cmdquit_Click()
MsgBox "Merci d'avoir utilliser ce programme!!", vbExclamation + vbOKOnly, "Fermeture de AideWin2003!"
End
End Sub

 Conclusion

Mais p-e qui a des bugs mais je commence pis je cherchais le moyen de le mettre dans le systemtray de windows pis faire un menu sélectif dans le systray.

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources de la même categorie

Source avec Zip CALCULATRICE par TPB
Source avec Zip Source .NET (Dotnet) PIERRE PAPIER CISEAUX par Ultrabytes
Source avec Zip Source avec une capture UN PATCH EN VB (V3) par PhoenixBytes
Source avec Zip Source .NET (Dotnet) [VB.NET 2008] EXECUTION MULTITHREAD DE PLUSIEURS FONCTION À ... par ShadowTzu
Source avec Zip Source avec une capture MULTITHREADING ACTIVEX par Philippe734
Toutes les sources de la catégorie Exécution

Commentaires et avis

Commentaire de KevinK le 09/01/2003 17:49:37

Ca serait plus simple de faire un groupe de controles, de mettre le nom de l'exe à lancer dans le tag de chaque bouton, et fca donne:
shell(cmd(index).tag), iif(chkmax,vbmaximizedfocus,vbnormalfocus)
-> chkmax étant une checkbox, et si elle est cochée on lance le prog en maximisé.
  Ca diviserait la taille de ton code par au moins 10 !

Commentaire de zpiboo le 10/01/2003 16:59:28

Simpliste comme programme autant aller dans Demarre exececuter et taper lenom du programme je pense que ça va aussi vite.

Commentaire de PROGRAMMIX le 10/01/2003 23:07:40

Jette un coups d'oeil sur les sources abordant le systemtray ou barre des tâches (j'ai mis une source utilisant cette technique) et met vite à jour ta source en tenant compte des commentaires de KevinK...
Et là, je pense que ta source sera plus intéressante.

Commentaire de DedeSurf le 26/09/2005 10:36:59

Salut les gas !
Je pense qu'il y a beaucoup plus simple et sa marche avec beaucoup plus de programme
Je vais l'aché une source pour sa (si j'ai le temp)
mais avec la clé "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run"
sa permet de mettre juste le nom de l'application voulue et sa la démarre :

Public FSO as new FileSystemObject 'Reference Microsoft scripting runtime ;)

Public sub Run(Byval ExeFile as String)
dim Ws as Object, Fichier as string
if fso.fileexist(exefile)=true then fichier = exefile: goto S1
set ws = Createobject("Wscript.shell")
Fichier = Ws.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & exefile & ")
if fso.fileexist(fichier ) = true then goto s1
Fichier = Ws.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & fso.getbasename(exefile) & ")
if fso.fileexist(fichier ) = true then goto s1
Fichier = Ws.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & fso.getfilename(exefile) & ")
if fso.fileexist(fichier ) = true then goto s1
msgbox "Application introuvable [" & exefile & "]",vbcritical,"Chemin introuvable"
exit function
S1:
shell fichier,vbnormalfocus
end sub

Je vien de faire cette source de tête sans vb sous la main il peu y avoir des erreures mais l'idée est la ! normalement sa doit marché sans trop de mal, et pis si i a une erreur franchement réfléchissé un peu vous avez le gros de la solution sous les yeux ;)

allé bon prog et @+

Thyrael

 Ajouter un commentaire

Nos sponsors


Sondage...

Comparez les prix


Apple iPhone 4 Noir (16 Go)
Entre 0€ et 0€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,310 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)