1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources VBScript
  5. Installer un programme grâce à un script vbscript

Installer un programme grâce à un script vbscript

5/5 (5 avis)

Vue 17 405 fois - Téléchargée 1 416 fois

Télécharger le projet
Commenter

Description


Source / Exemple : 


' Tout est dans le zip 
' Il faut lancer Install.vbs

' Code de Install.vbs (Le reste est dans le Zip)

Set FSys = CreateObject("Scripting.FileSystemObject") 
Set AFic = FSys.OpenTextFile("Text1.dia", 1) 
Set BFic = FSys.OpenTextFile("Title1.dia", 1) 
Set CFic = FSys.OpenTextFile("Crack1.dia", 1) 
Set EFic = FSys.OpenTextFile("ProgName.dia", 1) 
Set MonFic = FSys.OpenTextFile("Lire.txt", 1) 
A = AFic.ReadAll
B = BFic.ReadAll
C = CFic.ReadAll
E = EFic.ReadAll
Code = C
ProgName = E
Contenu = MonFic.ReadAll
readme = MsgBox(Contenu, vbInformation, "Lisez Moi")
numserie = InputBox(A,B)
If numserie=Code Then
Install = MsgBox("Bienvenue !" & vbCrLf & "Ce programme va installer le logiciel " & ProgName & ". Voulez vous continuer ?", vbQuestion+vbYesNo,"Installation de " & ProgName)
If Install = vbYes Then
    pathprog = MsgBox("Etape 1 : Repertoire de Destination :" & vbCrLf & vbCrLf & "Ce programme va copier le programme " & ProgName & " dans le repertoire C:\Program Files\" & ProgName & " de votre disque dur." & vbCrLf & "Voulez-vous changez de repertoire de destination ?", vbQuestion+vbYesNo,"Installation de " & ProgName)
    If pathprog = vbYes Then
       path = InputBox("Tapez le nouveau dossier de destination :","Installation de " & ProgName,"C:\Program Files\" & ProgName & "\")
    End If
    If pathprog = vbNo Then
       path = "C:\Program Files\" & ProgName & "\"
    End If
    rac = MsgBox("Etape 2 : Noms des raccourcis :" & vbCrLf & vbCrLf & "Ce programme va créer un raccourci dans le menu démarrer et sur le bureau avec le nom " & ProgName & "." & vbCrLf & "Voulez-vous changez ce nom ?", vbQuestion+vbYesNo,"Installation de " & ProgName)
    If rac = vbYes Then
        racrep = InputBox("Tapez le nom des raccourcis :","Installation de " & ProgName,ProgName)
    End If
    If rac = vbNo Then
        racrep = ProgName
    End If
   Set Fso = CreateObject("Scripting.FileSystemObject")
   Set WshShell = WScript.CreateObject("WScript.Shell")
   Prog = WshShell.SpecialFolders("Programs")
   Bureau = WshShell.SpecialFolders("Desktop")
   Documents = WshShell.SpecialFolders("MyDocuments")
   Winrep = Fso.GetSpecialFolder(0)
   Sysrep = Fso.GetSpecialFolder(1)
   Temprep = Fso.GetSpecialFolder(2)
Box = MsgBox (ProgName & ".exe  " & path & ProgName & ".exe")
      ' Installation des fichiers internes
      Fso.CreateFolder(path)
      Fso.CopyFile ProgName & ".exe" ,path & ProgName & ".exe"
      ' Mise en place des raccourcis
       Set Racc = WshShell.CreateShortcut(Prog & "/" & racrep & ".lnk")
       Racc.TargetPath=path & ProgName & ".exe"
       Racc.Save
       Set Racc = WshShell.CreateShortcut(Bureau & "/" & racrep & ".lnk")
       Racc.TargetPath=path & ProgName & ".exe"
       Racc.Save
      ' Demande de redémarrage
      Fini = MsgBox("Veuillez redémarrer pour finir l'installation",0,"Installation de " & ProgName)
End If
End If

Conclusion :


Ce script utilise d'autres fichiers présents dans le Zip.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_viran Messages postés 104 Date d'inscription jeudi 6 mai 2004 Statut Membre Dernière intervention 31 décembre 2006
13 sept. 2004 à 20:17
SilverSurfeur donne une de tes sources apres on verra,sinon j'ai trouver ca tres marrant et bien mieux que les sources en tete,10 direct!
SilverSurfeur Messages postés 21 Date d'inscription mercredi 23 juillet 2003 Statut Membre Dernière intervention 26 mars 2004
12 août 2003 à 15:53
C vrai que c un code très simple
Mais bon pourquoi po....
Manque peut etre de commentaires. La ca va vu que c un code simple mais lorsque tu feras des programmes plus compliqués ca deviendra rapidement illisible...
cs_steven007 Messages postés 150 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 27 avril 2007
8 août 2003 à 01:43
simpatique le programme & très instructif nivo vbs
cs_steven007 Messages postés 150 Date d'inscription jeudi 24 janvier 2002 Statut Membre Dernière intervention 27 avril 2007
8 août 2003 à 01:41
MDR !!!!!!


ça alors, des newbies a ce point la, j'en avais jamais vu !!!!
amosny Messages postés 5 Date d'inscription mardi 8 avril 2003 Statut Membre Dernière intervention 18 janvier 2006
5 août 2003 à 14:56
ou est le vbs stp?
S'inscrire maintenant

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.

Du même auteur (AeTuOq28)