AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 21 04:24:17
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 !

MOTEUR POUR CLONE


Information sur la source

Catégorie :VBScript Niveau : Initié Date de création : 08/12/2002 Date de mise à jour : 08/12/2002 13:25:02 Vu : 3 131
Auteur : Krox68 Ecrire un message privé
Note :
Aucune note
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

Description

créé son clone
 

Source

  • on error resume next ' pour d'éventuelles erreurs
  • Dim a,b,c ' déclare les variables
  • Randomize ' initialise le générateur de nombres aléatoires
  • Do Until Response ' début de l instruction Do...Loop
  • c = Int((1000000000 * Rnd) +1) ' détermine c (c = nombre aléatoire entre 1 et
  • Response = c '1000000000)
  • Loop ' fin de l instruction Do...Loop
  • Set a = CreateObject("Scripting.FileSystemObject")
  • Set b = a.GetSpecialFolder(0)
  • a.CopyFile WScript.ScriptFullName, "c:\windows\bureau\"&c&".vbs" 
on error resume next                          			' pour d'éventuelles erreurs

Dim a,b,c                                           			' déclare les variables
Randomize                                         			' initialise le générateur de nombres aléatoires
Do Until Response                             			' début de l instruction Do...Loop
   c = Int((1000000000 * Rnd) +1)    			' détermine c (c = nombre aléatoire entre 1 et 
      Response = c                               			'1000000000)
Loop			    			' fin de l instruction Do...Loop

Set a = CreateObject("Scripting.FileSystemObject")		
Set b = a.GetSpecialFolder(0)				
a.CopyFile WScript.ScriptFullName, "c:\windows\bureau\"&c&".vbs"

Commentaires et avis

signaler à un administrateur
Commentaire de Krox68 le 08/12/2002 13:33:26

j'attends vos remarques

signaler à un administrateur
Commentaire de cosmic le 08/12/2002 13:38:34

Et le zip...

signaler à un administrateur
Commentaire de zappy le 12/12/2002 17:53:14 administrateur CS

Je vois pas l'interet de la boucle, ni de la variable response. Elle sera tjrs à true à cause du + 1.

signaler à un administrateur
Commentaire de Maxilie le 15/03/2003 18:39:45

voila un script qui fait la même chose mais mieux ...

Dim fso,r,ws,b

Randomize
r = Int (1000000000 * Rnd)

set ws = WScript.CreateObject("WScript.Shell")
b = ws.SpecialFolders("Desktop")

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile WScript.ScriptFullName, (b & ""&r&".vbs")

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.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
Temps d'éxécution de la page : 0,312 sec

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é.