Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 17 04:00:15

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

API

> UTILISATION DE SHELL SIMPLEMENT OU AVEC DES TESTS

UTILISATION DE SHELL SIMPLEMENT OU AVEC DES TESTS

Information sur la source

Note :

6,50 / 10

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

Auteur : agentTMORT

Ecrire un message privé

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

EXECUTION DU FICHIER SETUP.EXE D'UN CD-ROM

UN PETIT BLOC NOTE

OUVRIR ET REFERMER LECTEUR DE CD-ROM

Toutes les sources de agentTMORT

Sources de la même categorie

.NET DEPENDENCY VIEWER : ARBRE DES DÉPENDANCES D'UN ASSEMBLY... par ShareVB

UTILITAIRE SKYDRIVE par MasterShadows

ROTATION RAPIDE D'IMAGE par trex70

ENUMERATION DES PORTS TCP ET IDENTIFCATION DU PROCESS (PID) ... par Renfield

MOUSE SPEED AND WEIGHT : RETOUR DE FORCE VIRTUEL ! par ScSami

Toutes les sources de la catégorie API

Commentaires et avis

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

Ajouter un commentaire

Nos sponsors

Derniers Blogs

ASYNC/AWAIT: COMPRENDRE COMMENT CA MARCHE par fathi

PAS D'INTELLITRACE SUR MON SITE WEB DANS IIS ! par Etienne Margraff

OFFICE 365 - SHAREPOINT ONLINE, QUELQUES LIMITATIONS par junarnoalg

PRéSENTATION DES API REST DE WINDOWS AZURE : LISTER LES COMPTES DE STORAGE par richardc

PRéSENTATION DES API REST DE WINDOWS AZURE : 1èRE éTAPE, LE CERTIFICAT par richardc

Forum

RE : PROBLEME PROCEDURE FERMETURE FORM par Renfield

RE : PROCESSUS "INTUABLE" par acive

RE : PROCESSUS "INTUABLE" par ghighidu63

RE : PROCESSUS "INTUABLE" par acive

RE : PROCESSUS "INTUABLE" par ghighidu63

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Configuration de Virtuemart pour Fianet
Budget : 300€
Creation d-une application web Prediction Energy Tool-CDC DISPONIBLE-REPUBLICATION
Budget : 12 000€
Finalisation site d-encheres au centime
Budget : 2 800€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System