5/5 (5 avis)
Vue 17 405 fois - Téléchargée 1 416 fois
' 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
13 sept. 2004 à 20:17
12 août 2003 à 15:53
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...
8 août 2003 à 01:43
8 août 2003 à 01:41
ça alors, des newbies a ce point la, j'en avais jamais vu !!!!
5 août 2003 à 14:56
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.