Utilisation de shell simplement ou avec des tests

Soyez le premier à donner votre avis sur cette source.

Snippet vu 14 399 fois - Téléchargée 35 fois

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

Ajouter un commentaire

Commentaires

Messages postés
19
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
22 juillet 2003

des que g le tps je ferai que les ca cherche les dir auto
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
1
il participe et c bien, l'inutile est de ne pas participer. toute brique simple est elle, est utile ds la construction d'un édifice. meme une rq comme : Stupide Inutile et con. est utile pour un individu qui pourrait pour lui meme y prendre en amont ou en aval de son action.
Messages postés
3
Date d'inscription
vendredi 24 janvier 2003
Statut
Membre
Dernière intervention
29 août 2003

Stupide Inutile et con.
Messages postés
156
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
23 novembre 2011

Message de yoman64 déposé le 09/06/2003 01:10:29
--------------------------------------------------------------------------------

tu trouve sa utile? fo tout changer les dir...
Essaye de faire que sa trouve les dir automatikement...

>>je lè fais mai i fo 1 ocx sel ou i a dir et file (ki sont incruster dans vb !) et mon code source recherche le fichier voulu !

et un conseille seu ki on de la patience et de l'engouement i a 1 truc simpa a fère prendre dans les outils vs 6.0 le log view depense et regarder le function proposer l hic sè k les variable i fo les trouver soi mm ! et parfoi sè kompliker

Lea
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

erreur404> pense a réfléchir avant de parler. Il l'a vu comme un exo.

la question maintenant se pose : cette source a-t-elle un interet quelconque pour la communauté ? Ne devrait-elle pas etre supprimé ?
Afficher les 10 commentaires

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.