UTILISATION DE SHELL SIMPLEMENT OU AVEC DES TESTS , Source N°7393

Information sur la source

Catégorie :API Niveau : Débutant Date de création : 08/06/2003 Date de mise à jour : 08/06/2003 13:40:52 Vu : 11 915

Auteur : agentTMORT

Ecrire un message privé

Note :

6,50 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

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

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

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

Sources du même auteur

Toutes les sources de agentTMORT

Sources de la même categorie

Toutes les sources de la catégorie API

Commentaires

Commentaire de yoman64 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...
Commentaire de agentTMORT le 09/06/2003 11:41:04

oki je v essayer yoman 64 des que saurait finit de passer mon bac tu as ma parole ;-)
Commentaire de Alan71 le 09/06/2003 12:21:50

même avec un search des dir, je trouve pas ca tré utile. généralement, il savent bien te le rappeler quand tu n'a pas le CD. et il existe un menu demarrer fait pour ca.
Commentaire de agentTMORT le 09/06/2003 22:04:04

je c lol mais c'est un exo comme un autre pour VB
Commentaire de erreurs404 le 10/06/2003 08:37:58

Tout est écrit en dur avec TES PROPRES répertoires ...
à quoi cela va-t-il me servir ?
Commentaire de Alan71 le 10/06/2003 19:00:39

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é ?
Commentaire de DedeSurf le 11/06/2003 15:11:43

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
Commentaire de smashthestate le 29/08/2003 00:23:03

Stupide Inutile et con.
Commentaire de Philippe734 le 07/12/2003 16:56:20

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.
Commentaire de agentTMORT le 07/12/2003 19:03:56

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