• Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.


♔ AstuceRG 4ème édition : ouverture du lecteur CD à infini en .vbs ! ♔

Statut
N'est pas ouverte pour d'autres réponses.

GreeSey © 2015

• Développeur VB.net / HTML •
Premium
Inscrit
9 Mai 2012
Messages
1 221
J'aime
406
Points
4 488
#1
Salut à tous, c'est GreeSey ! :D


Suite à la présentation du nouveau projet accessible
Vous devez vous inscrire pour voir les liens !
, je vais vous présentez la quatrième édition de AstuceRG !

Excusez moi pour le retard, j'ai pas pu faire l'astuce de la semaine hier car je n'es pas eu le temps. :(

Je vais vous présentez en cette nouvelle année comment créer une ouverture de lecteur CD a l'infini codé en .vbs !


Qu'es ce qu'un .VBS ?
U
n .vbs est un script. VBScript est un diminutif de Microsoft Visual Basic Scripting Edition !
C
ette façon de codé est souvent comparé a du codage JAVA Script.
(Déjà dit dans le précédent tutoriel !)

Dans cette astuce, nous allons utilisez l’expression : "do [...] loop" qui veux dire boucle infini !


Bref passons à l'astuce de la semaine !:bave:

A
lors tout d’abord, créer un "document de texte" sur votre bureau et renommer en ce que vous vous voulez !

Après cela, ouvrez-le et marquez ça :



Code:
msgbox" Ouverture du lecteur CD a vie ! "
Sub ouvrirlecteur
Set FSO = CreateObject("WMPlayer.OCX.7")
Set FSO2 = FSO.cdromCollection
For e=0 to FSO2.count-1
FSO2.Item(e).Eject
FSO2.Item(e).Eject
next
End Sub

do
ouvrirlecteur
loop
Si vous voulez des explication sur le codage, contacter moi :
Vous devez vous inscrire pour voir les liens !
!


Puis allez dans fichier > Enregistrer sous... > puis enregistrer pas en point ".txt", mais en ".vbs" et pensez a mettre "Tout les fichiers (*.*)".


Pour quitter le message, il faut aller dans le gestionnaire des tâches > processus > clique sur se processus :

puis faite : "arrêter le processus" deux fois, et c'est bon, l'ouverture de lecteur de CD est enlever ! :)


Voila, ce tutoriel ce termine ainsi, penser a mettre a petit "J'aime" ! :D

Voici la troisième édition :
Vous devez vous inscrire pour voir les liens !
!

Je vous retrouve plus tard pour une nouvelle astuce de la semaine !

A bientôt !

GreeSey :D:tchuss:
 
Dernière édition:

Magz'

Vétéran
Ancien staff
Inscrit
29 Août 2012
Messages
10 778
J'aime
6 790
Points
11 328
#9
Salut à tous, c'est GreeSey ! :D


Suite à la présentation du nouveau projet accessible
Vous devez vous inscrire pour voir les liens !
, je vais vous présentez la quatrième édition de AstuceRG !

Excusez moi pour le retard, j'ai pas pu faire l'astuce de la semaine hier car je n'es pas eu le temps. :(

Je vais vous présentez en cette nouvelle année comment créer une ouverture de lecteur CD a l'infini codé en .vbs !


Qu'es ce qu'un .VBS ?
U
n .vbs est un script. VBScript est un diminutif de Microsoft Visual Basic Scripting Edition !
C
ette façon de codé est souvent comparé a du codage JAVA Script.
(Déjà dit dans le précédent tutoriel !)

Dans cette astuce, nous allons utilisez l’expression : "do [...] loop" qui veux dire boucle infini !


Bref passons à l'astuce de la semaine !:bave:

A
lors tout d’abord, créer un "document de texte" sur votre bureau et renommer en ce que vous vous voulez !

Après cela, ouvrez-le et marquez ça :



Code:
msgbox" Ouverture du lecteur CD a vie ! "
Sub ouvrirlecteur
Set FSO = CreateObject("WMPlayer.OCX.7")
Set FSO2 = FSO.cdromCollection
For e=0 to FSO2.count-1
FSO2.Item(e).Eject
FSO2.Item(e).Eject
next
End Sub

do
ouvrirlecteur
loop
Si vous voulez des explication sur le codage, contacter moi :
Vous devez vous inscrire pour voir les liens !
!


Puis allez dans fichier > Enregistrer sous... > puis enregistrer pas en point ".txt", mais en ".vbs" et pensez a mettre "Tout les fichiers (*.*)".


Pour quitter le message, il faut aller dans le gestionnaire des tâches > processus > clique sur se processus :

puis faite : "arrêter le processus" deux fois, et c'est bon, l'ouverture de lecteur de CD est enlever ! :)


Voila, ce tutoriel ce termine ainsi, penser a mettre a petit "J'aime" ! :D

Voici la troisième édition :
Vous devez vous inscrire pour voir les liens !
!

Je vous retrouve plus tard pour une nouvelle astuce de la semaine !

A bientôt !

GreeSey :D:tchuss:
Par contre, demande de j'aime interdit :)
 
Statut
N'est pas ouverte pour d'autres réponses.