• Aide à la navigation du site
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • RSS CodeS-SourceS
  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
begin process at 2008 07 05 14:33:25
1 205 205 membres
181 nouveaux aujourd'hui
14 119 membres club
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

MONTER UNE IMAGE CD-ROM SUR UN LECTEUR VIRTUEL DAEMON


Information sur la source

Catégorie :VBScript Niveau : Débutant Date de création : 25/08/2004 Vu / téléchargé: 16 923 / 390
Auteur : Fixnyl Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Lorsqu’un jeu ou une application vous demande d’insérer le cd-rom dans le lecteur c’est emmerdant. Donc le mieux c’est de créer une image du cd-rom et de la montée sur un lecteur virtuel. Moi j’utilise Nero pour l’image et Daemon pour le lecteur virtuel… Voici donc comment faire pour monter l’image…

Source

  • 'declaration des constantes
  • Const DRIVE_NUMBER = 0
  • Const DRIVE_LETTER = "F:"
  • 'declaration des objets
  • Set WSShell = WScript.CreateObject("WScript.Shell")
  • Set WSArguments = WScript.Arguments 'récupérer les arguments de la ligne de commande
  • Set FSO = CreateObject("Scripting.FileSystemObject")
  • 'nom est emplacement de l'application Daemon
  • strDaemon= Chr(34) & "C:\Program Files\D-Tools\daemon.exe" & Chr(34)
  • If WSArguments.Count Then
  • Set Drive = FSO.GetDrive(DRIVE_LETTER)
  • WSShell.run strDaemon & " -unmount " & DRIVE_NUMBER 'dechargement du lecteur
  • While Drive.IsReady = True : Wend 'on attend qu'il soit decharger
  • Wscript.Sleep 1000 'des fois ca suffit pas alors on attend encore un peu
  • WSShell.run strDaemon & " -mount " & DRIVE_NUMBER & "," & chr(34) & WSArguments(0) & chr(34) 'chargement de l'image
  • While Drive.IsReady = False : Wend 'on attend la fin du chargement
  • End If
'declaration des constantes
Const DRIVE_NUMBER = 0
Const DRIVE_LETTER = "F:"

'declaration des objets
Set WSShell = WScript.CreateObject("WScript.Shell")
Set WSArguments = WScript.Arguments    'récupérer les arguments de la ligne de commande
Set FSO = CreateObject("Scripting.FileSystemObject")

'nom est emplacement de l'application Daemon
strDaemon= Chr(34) & "C:\Program Files\D-Tools\daemon.exe" & Chr(34) 

If WSArguments.Count Then
   Set Drive = FSO.GetDrive(DRIVE_LETTER)
   WSShell.run strDaemon & " -unmount " & DRIVE_NUMBER           'dechargement du lecteur
   While Drive.IsReady = True : Wend                                 'on attend qu'il soit decharger
   Wscript.Sleep 1000                              'des fois ca suffit pas alors on attend encore un peu
   WSShell.run strDaemon & " -mount " & DRIVE_NUMBER & "," & chr(34) & WSArguments(0) & chr(34)   'chargement de l'image
   While Drive.IsReady = False : Wend                      'on attend la fin du chargement
End If

Conclusion

Dans le zip ya le script et un fichier de registre pour les associations des images iso et nrg, mais si le lecteur virtuel ou les paths ne correspondent pas ça marchera pas…
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

  • signaler à un administrateur
    Commentaire de Stephane le 25/08/2004 13:46:26

    bouton gauche sur l'eclair rouge > device 0 > image.nrg

    :D
    bien vu quand meme l'argument de commande
    ++

  • signaler à un administrateur
    Commentaire de Fixnyl le 25/08/2004 14:56:59

    et aussi un lien vers un fichier qui peut etre tres utile pour fabriquer les scripts :

    http://www.microsoft.com/downloads/details.aspx?displaylang=en&familyid=b4cb2678-dafb-4e30-b2da-b8814fe2da5a

Ajouter un commentaire

Pub



Appels d'offres

Plugin Dialer outlook
Budget : 2 000€
Redaction texte pour s...
Budget : 180€
Travail graphique- ill...
Budget : 1 000€

CalendriCode

Juillet 2008
LMMJVSD
 123456
78910111213
14151617181920
21222324252627
28293031   

Boutique

Boutique de goodies CodeS-SourceS
Nos partenaires et amis ;-)
C2i.fr DOTNET-PROJECT.COM Dotnet-News.com ASP MAGAZINE TechHeadBrothers.com ASP-PHP.NET


Dev réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND, Bidou, Nurgle
Base de données maintenue par Christian, Design réalisé par Guillaume, Mascotte réalisée par N.SOREL (Nix) & KDO-Comception
VBFrance.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Hébergement de Serveur dédié - Téléphonie VOIP - Comparer les prix - Envoyer des ecards gratuit - Icones
Temps d'éxécution de la page : 0,1094-3sec
Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.