Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 16:14:26

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : LIRE, MODIFIER ET CRéE UN FICHIER XML SOUS VB.NET 2008 - LE RETOUR par megamario

COMMANDBARS par aljan

RE : TRIS SUR CONTRôLE LISTVIEW EN VISUAL BASIC6 ? par Sator

MACRO SANS PASSER PAR LA FORMULE EXCEL par Alban83

OUVRIR UNE FENETRE INTERNET EXPLORER SOUS VB.NET par DeWaRs

+ de logiciels à télécharger

1 465 315 membres
359 nouveaux aujourd'hui
15 048 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 276 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

AIDEWIN 2003

Information sur la source

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 049 / 199

Auteur : GSTARZ

Ecrire un message privé

Note :

4,00 / 10

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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Aidwin.frm 13 779 octets
Aidwin.frx2 250 octets
Aidwin2003.exe28 672 octets
Aidwin2003.vbp 813 octets
Aidwin2003.vbw 54 octets
Project1.vbp 785 octets
Project1.vbw 49 octets

Télécharger le zip

Sources de la même categorie

CODE DE COULEURS DES RÉSISTANCES par houss77

DUAL LANGUAGE VB6 DEVELOPPEZ EN FRANÇAIS COMPILEZ EN ANGLAIS... par deleplace

PATCHER LE COMPILATEUR VB6 POUR QU'IL COMPILE DES EXES AUTON... par deleplace

SUPPRESSEUR DE LA DÉPENDACE À VB6FR.DLL REND LES EXES VB6 AU... par deleplace

CRÉATEUR DE LANCEUR DE LOGICIEL DANS UN DOSSIER TEMPORAIRE E... par deleplace

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