Discussion :

[TheAntoine17]

Bonsoir,

Je recherche actuellement comment effectuer une conversion d'un fichier Batch vers un fichier Executable (bat to exe) en vb.net.

Et si possible, de pouvoir choisir l'icône du fichier exe.

En gros comme les logiciels 'Bat to exe converter' dispo sur le web, mais en vb.net.

Sous ce shéma ci possible :

Button2.Click > Conversion.

Merci,

[Pol63]

lancer une instruction en vb.net se fait avec shell par exemple
ensuite si tu veux compiler du code il faut utiliser codedom vbcodeprovider et autres

[TheAntoine17]

Euh excuse moi mais je n'ai pas compris en quoi ceci répond à mon problème =/

[Pol63]

pourtant malgré ta description peu explicite ça semble correspondre ...

[DonQuiche]

En somme, tu veux faire un logiciel qui convertisse automatiquement les fichiers .bat en .exe ? Et apparemment tu n'as aucune idée de la façon de faire ça ? Alors je vais t'expliquer en deux trois mots mais j'imagine que tu abandonneras avant la fin ou que t'appuieras sur un outil externe.

Etape 1 : à partir du fichier batch, créer un arbre syntaxique représentant le code en question. Exemple : un simple "if condition then action " doit être représenté sous la forme d'une hiérarchie d'objets du type : body { if { condition, action } }. Tu peux te tourner vers un générateur de parseur comme Antlr pour t'aider.

Etape 2 : convertir l'arbre syntaxique obtenu en un arbre CodeDom. Compiler.

[TheAntoine17]

Bonsoir, je vous remercie pour vos réponse j'ai commencer à fouiner.

J'ai ceci :

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
 
Imports System.IO
Imports System.CodeDom.Compiler
Imports System.Globalization
Module Module1
    Sub Main()
 
    End Sub
    Public Function CompileExecutable(sourceName As String) As Boolean
        Dim sourceFile As FileInfo = New FileInfo(sourceName)
        Dim provider As CodeDomProvider = Nothing
        Dim compileOk As Boolean = False
 
        ' Select the code provider based on the input file extension.
        If sourceFile.Extension.ToUpper(CultureInfo.InvariantCulture) = ".bat" Then
 
            provider = New Microsoft.CSharp.CSharpCodeProvider()
 
        ElseIf sourceFile.Extension.ToUpper(CultureInfo.InvariantCulture) = ".VB" Then
 
            provider = New Microsoft.VisualBasic.VBCodeProvider()
 
        Else
            Console.WriteLine("Source file must have a .cs or .vb extension")
        End If
 
        If Not provider Is Nothing Then
 
            ' Format the executable file name.
            ' Build the output assembly path using the current directory
            ' and <source>_cs.exe or <source>_vb.exe.
 
            Dim exeName As String = String.Format("{0}\{1}.exe", _
                System.Environment.CurrentDirectory, _
                sourceFile.Name.Replace(".", "_"))
 
            Dim cp As CompilerParameters = New CompilerParameters()
 
            ' Generate an executable instead of 
            ' a class library.
            cp.GenerateExecutable = True
 
            ' Specify the assembly file name to generate.
            cp.OutputAssembly = exeName
 
            ' Save the assembly as a physical file.
            cp.GenerateInMemory = False
 
            ' Set whether to treat all warnings as errors.
            cp.TreatWarningsAsErrors = False
 
            ' Invoke compilation of the source file.
            Dim cr As CompilerResults = provider.CompileAssemblyFromFile(cp, _
                sourceName)
 
            If cr.Errors.Count > 0 Then
                ' Display compilation errors.
                Console.WriteLine("Errors building {0} into {1}", _
                    sourceName, cr.PathToAssembly)
 
                Dim ce As CompilerError
                For Each ce In cr.Errors
                    Console.WriteLine("  {0}", ce.ToString())
                    Console.WriteLine()
                Next ce
            Else
                ' Display a successful compilation message.
                Console.WriteLine("Source {0} built into {1} successfully.", _
                    sourceName, cr.PathToAssembly)
            End If
 
            ' Return the results of the compilation.
            If cr.Errors.Count > 0 Then
                compileOk = False
            Else
                compileOk = True
            End If
        End If
        Return compileOk
 
    End Function
End Module

Croyez vous qu'avec ceci j'arriverais à quelque chose?