Utilisation de shell simplement ou avec des tests

0/5 (10 avis)

Snippet vu 14 535 fois - Téléchargée 37 fois

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

Utilisation de shell simplement ou avec des tests
Unit pour utiliser le systray simplement avec votre application(ajoute, modifie, supprime icone) - Codes sources - Delphi / Pascal (Système)
C / C++ / C++.NET : Utiliser les threads simplement (compatible opengl) - CodeS SourceS - Guide
PHP : Classe utilisateur pour gestion simple de login et droits - CodeS SourceS - Guide
Utilisation Android dans une machine virtuelle pour tester un code sous eclipse ✓ - Forum - Java
Exemple de creation et utilisation d'un simple dll . ✓ - Forum - C++ & C++ .NET

Ajouter un commentaire Commentaires

agentTMORT

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

7 déc. 2003 à 19:03

des que g le tps je ferai que les ca cherche les dir auto

Philippe734

Messages postés: 308
Date d'inscription: lundi 16 décembre 2002
Statut: Membre
Dernière intervention: 15 juin 2015

1
7 déc. 2003 à 16:56

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.

smashthestate

Messages postés: 3
Date d'inscription: vendredi 24 janvier 2003
Statut: Membre
Dernière intervention: 29 août 2003

29 août 2003 à 00:23

Stupide Inutile et con.

DedeSurf

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

11 juin 2003 à 15:11

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

Alan71

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

10 juin 2003 à 19:00

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

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.

Utilisation de shell simplement ou avec des tests

Contenu du snippet

Source / Exemple :

A voir également

Vous n'êtes pas encore membre ?

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

Du même auteur (agentTMORT)

Un petit bloc note

Execution du fichier setup.exe d'un cd-rom

Heure en temps réel et la date dans n'importe kelle cellule d'un tablo

Ouvrir et refermer lecteur de cd-rom

Source / Exemple :

A voir également

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Du même auteur (agentTMORT)

Un petit bloc note

Execution du fichier setup.exe d'un cd-rom

Heure en temps réel et la date dans n'importe kelle cellule d'un tablo

Ouvrir et refermer lecteur de cd-rom

Vous n'êtes pas encore membre ?

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