Need an exe creator for free

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Need an exe creator for free

Logged in as: Guest

arrSession:exec spGetSession 2,9,33296

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [General Forum] >> Off-Topic Lounge >> Need an exe creator for free
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Need an exe creator for free - 4/9/2006 7:13:26 PM

silentmelons

Posts: 23
Score: 0
Joined: 11/25/2004
From: United Kingdom
Status: offline

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

Post #: 1

RE: Need an exe creator for free - 4/12/2006 4:40:14 AM

mbouchard

Posts: 1835
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

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.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to silentmelons)

Post #: 2

RE: Need an exe creator for free - 4/26/2006 1:43:56 AM

kerrymoralee

Posts: 3
Score: 0
Joined: 4/26/2006
Status: offline

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?

_____________________________

Pain is temporary... Pride is forever!!

A Well Balanced Soccer Player Has A Beer In Each Hand!

(in reply to silentmelons)

Post #: 3

RE: Need an exe creator for free - 4/26/2006 1:56:29 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

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

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to kerrymoralee)

Post #: 4

RE: Need an exe creator for free - 9/15/2006 6:25:54 AM

Fredledingue

Posts: 326
Score: 0
Joined: 5/9/2005
From:
Status: offline

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.

_____________________________

Fred

(in reply to ebgreen)

Post #: 5

RE: Need an exe creator for free - 2/24/2007 9:53:34 AM

jar

Posts: 6
Score: 0
Joined: 2/24/2007
Status: offline

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

_____________________________

Justin

(in reply to Fredledingue)

Post #: 6

RE: Need an exe creator for free - 2/26/2007 1:47:24 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

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.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to jar)

Post #: 7

RE: Need an exe creator for free - 2/26/2007 1:53:06 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

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

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ebgreen)

Post #: 8

RE: Need an exe creator for free - 2/27/2007 9:53:04 AM

kytto

Posts: 29
Score: 0
Joined: 2/22/2007
Status: offline

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

(in reply to silentmelons)

Post #: 9

RE: Need an exe creator for free - 2/28/2007 2:42:56 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

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

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to kytto)

Post #: 10

RE: Need an exe creator for free - 2/28/2007 8:41:50 AM

kytto

Posts: 29
Score: 0
Joined: 2/22/2007
Status: offline

didn't knew about that :(

so, any way to "close the the script"??

(in reply to ebgreen)

Post #: 11

RE: Need an exe creator for free - 3/1/2007 2:34:48 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

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.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to kytto)

Post #: 12

RE: Need an exe creator for free - 3/6/2007 11:08:02 AM

Parabellum

Posts: 222
Score: 0
Joined: 11/12/2006
From: UK
Status: offline

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

(in reply to ebgreen)

Post #: 13

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [General Forum] >> Off-Topic Lounge >> Need an exe creator for free

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts