Wintoolz 2003

Télécharger le projet
Commenter

Description

Application fontionnant sous Windows 98 et Win 98se de 40ko et non sa pèse pas gros mais peux être utille pour ouvrir en un clique de souris sur un bouton ex:Ms-dos,Regedit,Msconfig,Telnet,Winipcfg.Charmap et etc.. en toutes 22 command sous Windows98.C'est la premiere fois que j'en fini un program :)

Source / Exemple : 


Private Sub Cmdboot_Click()
Beep
MsgBox ("Fermeture de vôtre ordinateur en cours..."), vbOKOnly + vbInformation, "Shutdown Computer!"
Shell ("c:\windows\rundll32.exe user.exe,exitWindows")
End Sub

Private Sub cmdms_Click(Index As Integer)
MsgBox "Bienvenue sur Commande Ms-dos.", vbInformation + vbOKOnly, "Éxecute Commandes Ms-Dos."
Shell ("c:\windows\command.com"), vbNormalFocus
End Sub

Private Sub Cmdreg_Click(Index As Integer)
MsgBox "Bienvenue sur vôtre base de registre .", vbInformation + vbOKOnly, "Éxecute Regedit"
Shell ("c:\windows\regedit.exe"), vbNormalFocus
End Sub

Private Sub Cmdtelnet_Click(Index As Integer)
MsgBox "Bienvenue sur Telnet.", vbInformation + vbOKOnly, "Éxecute Telnet."
Shell ("c:\windows\telnet.exe"), vbNormalFocus
End Sub
Private Sub Command1_Click(Index As Integer)
MsgBox "Bienvenue sur MsConfig.", vbInformation + vbOKOnly, "Éxecute MsConfig."
Shell ("c:\windows\system\msconfig.exe"), vbNormalFocus
End Sub

Private Sub Command10_Click()
Shell ("C:\windows\Winipcfg.exe"), vbNormalFocus
End Sub

Private Sub Command11_Click()
Shell ("C:\WINDOWS\Pbrush.exe"), vbNormalFocus
End Sub

Private Sub Command12_Click()
Shell ("C:\windows\cdplayer.exe"), vbNormalFocus
End Sub

Private Sub Command13_Click()
Shell ("c:\windows\Kodakimg.exe"), vbNormalFocus
End Sub

Private Sub Command14_Click()
Shell ("C:\WINDOWS\SYSTEM\Dxdiag.exe"), vbNormalFocus
End Sub

Private Sub Command15_Click()
Shell ("c:\windows\charmap.exe"), vbNormalFocus
End Sub

Private Sub Command16_Click()
Shell ("C:\WINDOWS\wupdmgr.exe"), vbNormalFocus
End Sub

Private Sub Command17_Click()
Shell ("C:\Program Files\Outlook Express\msimn.exe"), vbNormalFocus
End Sub

Private Sub Command18_Click()
Shell ("C:\WINDOWS\Mplayer.exe"), vbNormalFocus
End Sub
Private Sub Command3_Click()
Shell ("C:\Program Files\Internet Explorer\iexplore.exe"), vbNormalFocus
End Sub

Private Sub Command4_Click()
Shell ("C:\windows\explorer.exe"), vbNormalFocus
End Sub

Private Sub Command5_Click()
Shell ("c:\windows\defrag.exe"), vbNormalFocus
End Sub

Private Sub Command6_Click()
Shell ("C:\windows\Scandskw.exe"), vbNormalFocus
End Sub

Private Sub Command7_Click()
Shell ("C:\windows\write.exe"), vbNormalFocus
End Sub

Private Sub Command8_Click()
Shell ("C:\windows\notepad.exe"), vbNormalFocus
End Sub

Private Sub Command9_Click()
Shell ("C:\windows\winfile.exe"), vbNormalFocus
End Sub
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.