0/5 (10 avis)
Snippet vu 14 535 fois - Téléchargée 37 fois
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
7 déc. 2003 à 19:03
7 déc. 2003 à 16:56
29 août 2003 à 00:23
11 juin 2003 à 15:11
--------------------------------------------------------------------------------
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
10 juin 2003 à 19:00
la question maintenant se pose : cette source a-t-elle un interet quelconque pour la communauté ? Ne devrait-elle pas etre supprimé ?
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.