Aidewin 2003

Soyez le premier à donner votre avis sur cette source.

Vue 5 404 fois - Téléchargée 267 fois

Description

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

Source / Exemple :


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.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
156
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
23 novembre 2011

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
Messages postés
1133
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
24 juillet 2011
3
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.
Messages postés
46
Date d'inscription
vendredi 12 avril 2002
Statut
Membre
Dernière intervention
11 juin 2003

Simpliste comme programme autant aller dans Demarre exececuter et taper lenom du programme je pense que ça va aussi vite.
Messages postés
43
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2003

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 !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.