Utilisation de shell simplement ou avec des tests

Commenter

Contenu du snippet

il permet d'executer des application mais osi des jeux , lorsque il faut le CD il fera un test
ps : si vous utiliser ce prog surtt changer les emplacement des jeux conseil ke je vous donne si vous voulez ki marche a merveille (o_O)
il vous faudra environ 24 commandes click
allez a bientot

Source / Exemple : 


Private Sub adobe_Click()
Shell ("C:\Program Files\Adobe\Photoshop 6.0 Tryout\Photoshp.exe")
End Sub

Private Sub aim_Click()
Shell ("C:\Program Files\Aim95\aim.exe")
End Sub

Private Sub clonecd_Click()
Shell ("C:\Program Files\Elaborate Bytes\CloneCD\CloneCD.exe")
End Sub

Private Sub DVDx_Click()
Shell ("E:\Dvdx.exe")
End Sub

Private Sub emule_Click()
Shell ("E:\Program Files\eMule\emule.exe")
End Sub

Private Sub Exit_Click(Index As Integer)
Unload Me
End Sub

Private Sub Form_Load()
MsgBox ("                    Bienvenue      ")
End Sub

Private Sub ftp_Click()
Shell ("C:\Program Files\Visicom Media\FTPExpert2\FTPxpert.exe")
End Sub

Private Sub i_Click()
Dim variable As Variant
Dim variable2 As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
variable = MsgBox("Le CD est bien insérez ?", vbYesNo)
If variable = vbYes Then
 Dim PauseTime, Start
 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Team17\Worms Armageddon\wa.exe")
Else: colCDROMS.Item(1).Eject
variable2 = MsgBox("Insérez le CD du jeu", vbOKOnly)
If variable2 = 1 Then colCDROMS.Item(1).Eject

 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Team17\Worms Armageddon\wa.exe")
End If
End Sub

Private Sub Kazaa_Click()
Shell ("C:\Program Files\Kazaa\kazaa.exe")
End Sub

Private Sub l_Click()
Dim variable As Variant
Dim variable2 As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
variable = MsgBox("Le CD est bien insérez ?", vbYesNo)
If variable = vbYes Then
 Dim PauseTime, Start
 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Starcraft\starcraft.exe")
Else: colCDROMS.Item(1).Eject
variable2 = MsgBox("Insérez le CD du jeu", vbOKOnly)
If variable2 = 1 Then colCDROMS.Item(1).Eject

 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Starcraft\starcraft.exe")
End If
End Sub

Private Sub ll_Click()
Dim variable As Variant
Dim variable2 As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
variable = MsgBox("Le CD est bien insérez ?", vbYesNo)
If variable = vbYes Then
 Dim PauseTime, Start
 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Age of Mythology\aom.exe")
Else: colCDROMS.Item(1).Eject
variable2 = MsgBox("Insérez le CD du jeu", vbOKOnly)
If variable2 = 1 Then colCDROMS.Item(1).Eject

 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Age of Mythology\aom.exe")
End If
End Sub

Private Sub lll_Click()
Shell ("D:\SIERRA\Half-Life\hl.exe -console -game cstrike-console")
End Sub
Private Sub MSN_Click()
Shell ("C:\Program Files\MSN Messenger\msnmsgr.exe")
End Sub

Private Sub nero_Click()
Shell ("C:\Program Files\ahead\Nero\nero.exe")
End Sub

Private Sub o_Click()
Dim variable As Variant
Dim variable2 As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
variable = MsgBox("Le CD est bien insérez ?", vbYesNo)
If variable = vbYes Then
 Dim PauseTime, Start
 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Age of Empires II\empires2.exe")
Else: colCDROMS.Item(1).Eject
variable2 = MsgBox("Insérez le CD du jeu", vbOKOnly)
If variable2 = 1 Then colCDROMS.Item(1).Eject

 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Age of Empires II\empires2.exe")
End If
End Sub

Private Sub p_Click()
Dim variable As Variant
Dim variable2 As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
variable = MsgBox("Le CD est bien insérez ?", vbYesNo)
If variable = vbYes Then
 Dim PauseTime, Start
 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Warcraft III\Warcraft III.exe")
Else: colCDROMS.Item(1).Eject
variable2 = MsgBox("Insérez le CD du jeu", vbOKOnly)
If variable2 = 1 Then colCDROMS.Item(1).Eject

 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("D:\Warcraft III\Warcraft III.exe")
End If
End Sub

Private Sub pp_Click()

Dim variable As Variant
Dim variable2 As Variant
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMS = oWMP.cdromCollection
variable = MsgBox("Le CD est bien insérez ?", vbYesNo)
If variable = vbYes Then
 Dim PauseTime, Start
 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("C:\Program Files\LucasArts\Star Wars Galactic Battlegrounds\swgbg.exe")
Else: colCDROMS.Item(1).Eject
variable2 = MsgBox("Insérez le CD du jeu", vbOKOnly)
If variable2 = 1 Then colCDROMS.Item(1).Eject

 PauseTime = 10
 Start = Timer
 Do While Timer < Start + PauseTime
 DoEvents
  Loop
Shell ("C:\Program Files\LucasArts\Star Wars Galactic Battlegrounds\swgbg.exe")
End If
End Sub

Private Sub u_Click()
Shell ("D:\Westwood\AR2\Ra2.exe")
End Sub

Private Sub winamp_Click()
Shell ("C:\Program Files\Winamp3\Winamp3.exe")
End Sub

Private Sub winmedia_Click()
Shell ("C:\Program Files\Windows Media Player\wmplayer.exe")
End Sub

Private Sub winroute_Click()
Shell ("C:\Program Files\WinRoute Lite\wrlite.exe")
End Sub

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.

Du même auteur (agentTMORT)