WINTOOLZ 2003

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