Need an exe creator for free

Original message moved by Snipah
Reason : No actual code discussed
Hey all,
 
Not quite a vbs question but...
 
I am compiling my code to an exe but my tight company will not pay for a Liscence. Does anyone know of any free exe creators that do not add "this is a trial version blah blah blah...."
 
thanks

As far as I know there isn't a free compiler out there.  PrimalScript and AdminScriptEditer are the only 2 that I know of and they aren't really compiling the code anyways.

Sorry if I'm completely out here. Doesn't VB compile it, then you also have an installer function with VB where it creates a packae for your software?

That is true for VB but it is not true for VBScript. Two seperate beasts.

I'v looked for something like a VBS-to-VB translator, that would realy create a compilable VB code out of a VBScript but there are no such software. The only free ones are simply creating a self-extracting archive that will launch VHS with the script after extraction. As I see it they may even include the VSH executable in the archive, adding a 600Kb overhead for each compilation!  Totaly useless IMO.
And I suspect the paid softwwares to do the same.
 
Translating VBS code to VB is cool and relax as long as the codes are compatible, when a VBS code doesn't exists in VB, it's another story and nobody has bothered to create VB routines equivalent to the non-compatible VBS codes and store them in a  dictionary.

There is a converter for .VBS to .EXE Called vbs to exe
http://www.sharewareplaza.com/Vbs-To-Exe-download_47283.html

There are 2 problems that I see with that utility right off the bat. First, the utility provides the ability to extract the vbscript back out of the exe. Granted you can apply a password but a user would still be able to see the vbscript code even if you did. More importantly, a simple script like this:
 
WScript.Echo "FOO"
WScript.Sleep 30000
 
won't even run as a compiled exe.

Oh, and if you look at the .exe file that is created, the VBSCript code is right there in plain text.

not an exe, but it could resolve your problem
 
script enconder:
http://www.microsoft.com/downloads/details.aspx?FamilyId=E7877F67-C447-4873-B1B0-21F0626A6329&displaylang=en
 
 

The encoder will encode your script, but all a user needs to do is download the encoder and decode it.

didn't knew about that :(
 
so, any way to "close the the script"??

Not that I have ever found. There are lots of ways to hide it but none that I have found to truly encrypt it. The best solution that I have found is to encode the script then hide the encoded script in an alternate data stream in a file. Actually the best solution is a C# executeable, but that obviously isn't a script.

if you have .net framework 1.1 - 2.0 you can use vbc.exe (Visual baisc Compiler) to make a .net wrapper
(NOT SUPPORTED by .Net 3.0 - they took out vbc.exe!)
 

 
 Option Explicit
 On error resume next
 Dim dotNetVersion, ScriptFile, ScriptType, LaunchWith, EXEFile, icofile
 Dim fso, WshShell, sysroot, ScriptSource, ScriptContent, workingdir, vbfile, vbsource
 Dim vbcPath, vbcArgs, strCMDLine, debugger, objArgs
 dotNetVersion = "v1.1.4322"
 Set objArgs = WScript.Arguments
 If objArgs.Count < 4 Then
      MsgBox "Missing one or more arguments..." & vbCrLf & _
           "Correct Usage: dotNetWrapper [Script File] [Script Type] [Script Engine] [Output File] [opt - Icon File]" & vbcrlf & vbcrlf & _
           "Script File (ex: C:\Scripts\myscript.vbs)" & vbcrlf & _
           "Script Type (ex: .vbs)" & vbcrlf & _
           "Script Engine (ex: cscript.exe)" & vbcrlf & _
           "Output File (ex: C:\Programs\myscript.exe)" & vbcrlf & _
           "Icon File --optional (ex. C:\Icons\mypicture.ico)"
      WScript.Quit
 End If
 ScriptFile = objArgs(0)
 ScriptType = objArgs(1)
 LaunchWith = objArgs(2)
 EXEFile = objArgs(3)
 If objArgs(4) <> "" Then
      icofile = objArgs(4)
 End If
 Set fso = CreateObject ("Scripting.FileSystemObject")
 Set WshShell = CreateObject("WScript.Shell")
 Set sysroot = fso.GetSpecialFolder(0)
 If Not(fso.FileExists("C:\" & sysroot.name & "\Microsoft.Net\Framework\" & dotNetVersion & "\vbc.exe")) Then
      MsgBox "Unable to locate vbc.exe compiler. Confirm your version of .NET", 16, "ERROR"
      WScript.Quit
 End If
 Set ScriptSource = fso.OpenTextFile(ScriptFile, 1)
 ScriptContent = ""
 Do While Not ScriptSource.AtEndOfStream
           ScriptContent = ScriptContent & CHR(34) & Replace(EncodeScript(ScriptSource.readline), CHR(34), CHR(34) & " & CHR(34) & " & CHR(34)) & CHR(34) & " & vbcrlf & _" & vbcrlf
 Loop
 ScriptContent = ScriptContent & CHR(34) & CHR(34)
 ScriptContent = "ScriptContent = " & CHR(34) & CHR(34) & " & _" & vbcrlf & ScriptContent 
 Set workingdir = fso.GetFile(ScriptFile)
           
 vbfile = "Module Module1" & vbcrlf & _
      "Sub Main()" & vbcrlf & _
      "On Error Resume Next" & vbcrlf & _
      "Dim sPath As String" & vbcrlf & _
      "sPath = System.Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData)" & vbcrlf & _
      "Dim ScriptContent As String" & vbcrlf & _
      ScriptContent & vbcrlf & _
      "Dim oFile As System.IO.File" & vbcrlf & _
      "Dim oWrite As System.IO.StreamWriter" & vbcrlf & _
      "oWrite = oFile.CreateText(sPath & ""\compiledScript" & ScriptType & """)" & vbcrlf & _
      "If Err.Number <> 0 Then" & vbcrlf & _
      "MsgBox(""Unable to open Program. Please make sure you are running this locally."", MsgBoxStyle.Critical, ""Error"")" & vbcrlf & _
      "Exit Sub" & vbcrlf & _
      "End If" & vbcrlf & _
      "oWrite.WriteLine(EncodeScript(ScriptContent))" & vbcrlf & _
      "oWrite.Flush()" & vbcrlf & _
      "oWrite.Close()" & vbcrlf & _
      "System.Threading.Thread.Sleep(1000)" & vbcrlf & _
      "Shell(""" & LaunchWith & " "" & Chr(34) & sPath & ""\compiledScript" & ScriptType & """ & Chr(34), AppWinStyle.NormalFocus, False)" & vbcrlf & _
      "System.Threading.Thread.Sleep(1000)" & vbcrlf & _
      "oFile.Delete(sPath & ""\compiledScript" & ScriptType & """)" & vbcrlf & _
      "End Sub" & vbcrlf & _
      "Function EncodeScript(ByVal stringinfo As String)" & vbcrlf & _
      "Dim i As Int16" & vbcrlf & _
      "Dim newstr As String" & vbcrlf & _
      "Dim curchar As Int16" & vbcrlf & _
      "For i = 1 to len(stringinfo)" & vbcrlf & _
      "curchar = asc(mid(stringinfo,i,1))" & vbcrlf & _
      "If (curchar >= 66 and curchar <= 122) or (curchar >=194 and curchar <= 250) then" & vbcrlf & _
      "If curchar >= 66 and curchar <= 122 Then" & vbcrlf & _
      "newstr = newstr & chr(curchar+128)" & vbcrlf & _
      "else " & vbcrlf & _
      "newstr = newstr & chr(curchar-128)" & vbcrlf & _
      "End If" & vbcrlf & _
      "Else" & vbcrlf & _
      "newstr = newstr & chr(curchar)" & vbcrlf & _
      "end if" & vbcrlf & _
      "next" & vbcrlf & _
      "EncodeScript = newstr" & vbcrlf & _
      "End Function" & vbcrlf & _
      "End Module" & vbcrlf
      Set vbsource = fso.OpenTextFile(workingdir.ParentFolder & "\compiledscript.vb", 2, True)
      vbsource.Write vbfile
      Set vbsource = Nothing
      vbcPath = "C:\" & sysroot.name & "\Microsoft.NET\Framework\" & dotNetVersion & "\vbc.exe"
      vbcArgs = " /out:" & CHR(34) & exefile & CHR(34) & _
      " /nowarn /nologo /quiet /debug- /optimize+ /optionstrict- /optionexplicit- " & _
      "/imports:Microsoft.VisualBasic,System /t:winexe " & _
      CHR(34) & workingdir.ParentFolder & "\compiledscript.vb" & CHR(34) & " > " & _
      CHR(34) & workingdir.ParentFolder & "\debug.txt" & CHR(34)
      If icofile <> "" Then
           vbcargs = " /win32icon:" & CHR(34) & icofile.Value & CHR(34) & vbcArgs & CHR(34)
      End If
      strCMDLine = vbcPath & vbcArgs
      debugger = WshShell.Run("cmd /c " & strCmdLine, 1, True)
      If debugger <> 0 Then
           WshShell.Run CHR(34) & workingdir.ParentFolder & "\debug.txt" & CHR(34), 1, True
      Else
           MsgBox ".EXE Created Successfully!", 64, "Complete"
      End If
      fso.DeleteFile workingdir.ParentFolder & "\debug.txt"
      fso.DeleteFile workingdir.ParentFolder & "\compiledscript.vb"
 
 Function EncodeScript(stringinfo)
      Dim i, curchar, newstr
      for i = 1 to len(stringinfo)
           curchar = asc(mid(stringinfo,i,1))
           If (curchar >= 66 and curchar <= 122) or (curchar >=194 and curchar <= 250) then
                If curchar >= 66 and curchar <= 122 Then
                     newstr = newstr & chr(curchar+128)
                else 
                     newstr = newstr & chr(curchar-128)
                End If
           Else
                newstr = newstr & chr(curchar)
           End If
      Next
      EncodeScript = newstr
 End Function
 
 

Does anyone use this one?:
 
http://www.f2ko.de/progra..php?lang=en&pid=v2e
 
I have found that it doesn't work.