Installer un programme grâce à un script vbscript
Soyez le premier à donner votre avis sur cette source.
Vue 16 859 fois - Téléchargée 1 334 fois
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.
Codes Sources
A voir également
- Impossible de trouver le moteur de script vbscript
- Install vbscript - Meilleures réponses
- Installer vbscript - Meilleures réponses
- Impossible de trouver le moteur de script ✓ - Forum - Visual Basic 6
- Installateur de programmes (v2) - Codes sources - Delphi / Pascal (Exécution)
- Visual Basic / VB.NET : Installer un programme(msi) en tant qu'administrateur - CodeS SourceS - Guide
- Probleme d' installation de programme avec Inno Setup ✓ - Forum - C# / .NET
- Possible d'activer Javascript grâce à un script PHP ? ✓ - Forum - Javascript / DHTML
Commentaires
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...
ça alors, des newbies a ce point la, j'en avais jamais vu !!!!
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.