Discussion :

[TicTac75]

Bonjour à tous,

Souhaitant créer un .exe à partir d'un VBS afin de protéger le code, je n'arrive pas à trouver un logiciel efficace.

-J'ai effectuer un essai avec le logiciel exeScript = concluant mais j'ai un super message "logiciel de démo lors de l'execution de ce dernier", l'application étant utilisé dans un milieu professionnel, impossible de l'utiliser

-J'ai autrement essayer avec Visual Basic 2005 express et là il me profère des injures sur des problèmes de déclarations,expression null, etc.. bref j'ai tout le code à refaire

Ci-joint le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
Set fso = CreateObject("Scripting.FileSystemObject")
Set net = CreateObject("Wscript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
 
If fso.FileExists ("C:\Documents and Settings\" & net.username & "\STC.mdb") Then
msgbox "STC est déjà présent sur votre ordinateur", vbExclamation, "Installation de la base de données"
Else
If msgbox ("Voulez-vous installer la base de données sur votre Poste ?", vbQuestion + vbYesNo,"Installation de la base de données") = vbYes Then
 
If fso.FileExists ("I:\_All_Sites\Frontale\STC.mdb") Then
fso.CopyFile "I:\_All_Sites\Frontale\STC.mdb","C:\Documents and Settings\" & net.username & "\STC.mdb"
Else
msgbox "Problème de connexion au serveur", vbCritical, "Installation de la base de données"
End If
 
If fso.FileExists ("I:\_All_Sites\Frontale\STC.mdw") Then
fso.CopyFile "I:\_All_Sites\Frontale\STC.mdw","C:\Documents and Settings\" & net.username & "\STC.mdw"
Else
msgbox "Problème de connexion au serveur", vbCritical, "Installation de la base de données"
End If
 
If fso.FileExists ("I:\_All_Sites\Frontale\STC.ico") Then
fso.CopyFile "I:\_All_Sites\Frontale\STC.ico","C:\Documents and Settings\" & net.username & "\STC.ico"			
Else
msgbox "Problème de connexion au serveur", vbCritical, "Installation de la base de données"
End If
 
If fso.FileExists ("C:\Documents and Settings\" & net.username & "\STC.ico") Then
Set net = CreateObject("Wscript.Network")
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\STC.lnk")
With Shortcut
    .TargetPath = WSHShell.ExpandEnvironmentStrings("C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE")
    .Arguments = ("""C:\Documents and Settings\" & net.username & "\STC.mdb""" & " " & "/WRKGRP" & " " &  """C:\Documents and Settings\" & net.username & "\STC.mdw""")
    .WorkingDirectory = WSHShell.ExpandEnvironmentStrings("C:\Documents and Settings\" & net.username & "\")
    .IconLocation = WSHShell.ExpandEnvironmentStrings("C:\Documents and Settings\" & net.username & "\STC.ico, 0")
    .Description = "Démarre la base de données STC"
    '.HotKey = "Aucun"
    .WindowStyle = 4
End With
Shortcut.Save
Else
End If
msgbox "En cours de progression, veuillez patienter...", vbinformation, "Installation de la base de données"
msgbox "Installation terminée ! Pour ouvrir la base de données, cliquer sur le raccourci bureau nommé STC ", vbinformation, "Information STC (Support Technique de Capitalisation)"
Else
msgbox "Installation annulé", vbExclamation,"Installation de la base de données"
End If
End If

S'il quelqu'un peut m'aider ?

En vous remerciant d'avance

[omen999]

bonjour,
une solution avec un .net wrapper ici: http://www.visualbasicscript.com/m_33296/tm.htm
testé rapidement, ça fonctionne mais sans support des accents
il faudrait pour cela modifier le script...

[olivierZ]

Je t'ai fait ton VBscript en VB6.

C'est koi ton mail ?

(mais je ne vois pas l'intérêt).

olivierlvx@hotmail.fr



Olivier./.

[olivierZ]

Je l'ai repris avec Visual Basic 6

Quelques changements.

Cela devrait fonctionner.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Private Sub Command1_Click()
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set net = CreateObject("Wscript.Network")
'    Set WSHShell = WScript.CreateObject("WScript.Shell")
    Set WSHShell = CreateObject("WScript.Shell")
 
    If fso.FileExists("C:\Documents and Settings\" & net.username & "\STC.mdb") Then
        MsgBox "STC est déjà présent sur votre ordinateur", vbExclamation, "Installation de la base de données"
    Else
        If MsgBox("Voulez-vous installer la base de données sur votre Poste ?", vbQuestion + vbYesNo, "Installation de la base de données") = vbYes Then
 
            If fso.FileExists("I:\_All_Sites\Frontale\STC.mdb") Then
                fso.CopyFile "I:\_All_Sites\Frontale\STC.mdb", "C:\Documents and Settings\" & net.username & "\STC.mdb"
            Else
                MsgBox "Problème de connexion au serveur", vbCritical, "Installation de la base de données"
            End If
 
            If fso.FileExists("I:\_All_Sites\Frontale\STC.mdw") Then
                fso.CopyFile "I:\_All_Sites\Frontale\STC.mdw", "C:\Documents and Settings\" & net.username & "\STC.mdw"
            Else
                MsgBox "Problème de connexion au serveur", vbCritical, "Installation de la base de données"
            End If
 
            If fso.FileExists("I:\_All_Sites\Frontale\STC.ico") Then
                fso.CopyFile "I:\_All_Sites\Frontale\STC.ico", "C:\Documents and Settings\" & net.username & "\STC.ico"
            Else
                MsgBox "Problème de connexion au serveur", vbCritical, "Installation de la base de données"
            End If
 
            If fso.FileExists("C:\Documents and Settings\" & net.username & "\STC.ico") Then
                'Set net = CreateObject("Wscript.Network")    ' répétition ?
                'Set WSHShell = CreateObject("WScript.Shell") ' répétition ?
                DesktopPath = WSHShell.SpecialFolders("Desktop")
                Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\STC.lnk")
                With Shortcut
                    .TargetPath = WSHShell.ExpandEnvironmentStrings("C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE")
                    .Arguments = ("""C:\Documents and Settings\" & net.username & "\STC.mdb""" & " " & "/WRKGRP" & " " & """C:\Documents and Settings\" & net.username & "\STC.mdw""")
                    .WorkingDirectory = WSHShell.ExpandEnvironmentStrings("C:\Documents and Settings\" & net.username & "\")
                    .IconLocation = WSHShell.ExpandEnvironmentStrings("C:\Documents and Settings\" & net.username & "\STC.ico, 0")
                    .Description = "Démarre la base de données STC"
                    '.HotKey = "Aucun"
                    .WindowStyle = 4
                End With
                Shortcut.Save
            'Else    ' ne sert à rien !
            End If
            MsgBox "En cours de progression, veuillez patienter...", vbInformation, "Installation de la base de données"
            MsgBox "Installation terminée ! Pour ouvrir la base de données, cliquer sur le raccourci bureau nommé STC ", vbInformation, "Information STC (Support Technique de Capitalisation)"
        Else
            MsgBox "Installation annulé", vbExclamation, "Installation de la base de données"
        End If
    End If
End Sub