*Solved* [Load vb code and exec it?]

[TDQWERTY]

Hi all,
i don't even know how to start explaining this...

let's see...i'd like to make a exe that loads a vbs or a txt or any kind of file containing vb code

Private Sub callMe()
 MsgBox "U called the private sub callMe", vbInformation
End Sub

For exemple if i had that code in a txt, after loading it the program should exec or call that sub.

I'm lost in here

[BuggyProgrammer]

Add the Microsoft Script Control.

To use it:

msscript.Language="VBScript" 'or JSScript
msscript.addcode "msgbox ""hello"""

Adding objects:

[b]public[/b] sub Test(str as string)
    MsgBox str
End Sub
 
Private Sub form_load()
    msscript.Language = "VBScript" 'or JSScript
    msscript.AddObject "Whatever", Me 'adds an object called 'Whatever' which is actually the Form.
    msscript.AddCode "Call Whatever.Test(""helloooo"")"
End Sub

[TDQWERTY]

I see..so i supose that i can't just load a txt containing a sub and just call it, right?

[BuggyProgrammer]

Of course you can... you just need some text of the code. Open the file and pass it through with ScriptControl.AddCode

[TDQWERTY]

I think that u'r not understanding me well, i'l like to have a txt file containing several subs and i'd like to read the text file and call the subs that that text tile had inside (i know the sub names)

[dsheller]

So basically you want to create a module that resides in a text file?

[BuggyProgrammer]

Yeh it works you just don't know how it works. I'll show some code:

Private Sub Form_Load()
    Dim file As String
    
    Open "D:\code.txt" For Input As #1
    file = Input$(LOF(1), 1)
    Close #1
    
    MSscript.AddCode file
    MSscript.Run "SayThis", "Hello"
    MsgBox MSscript.Run("Add", 5, 6)
End Sub

My code.txt contains this:

public sub SayThis(someStr)
msgbox someStr
end sub

public function Add(Num1, Num2)
add=num1+num2
end function

[TDQWERTY]

WOW! damn!
Wonderfull job! I really would love to do that before!
It's time to get my hands to work over opensource programs now!
Thanks alot for your help. Now my brain is clear as water!

[BuggyProgrammer]

You should know that it is just VBScript, not VB. There are many limitations to it.

[TDQWERTY]

ok, thanks for telling me i don't think it will be a problem. It will just be used for some subs, calcs and nothing very hard.
i just hate to keep rebuilding the exe so many times for some little changes.
thx again

[TDQWERTY]

o..an other question, may i use that for javascript also?

[BuggyProgrammer]

Yes, you just need to set the Language property like I shows you in the first post.

[TDQWERTY]

ok!