Add a Scripting Engine to Your Application

It’s easy to add scripting functionality to your VB project, especially if you have been developing through classes all along. The more classes you program, the more objects you can expose to your script language. You can use both VBScript and JScript as the basis for your scripting engine.

First, download the Microsoft Script Control from MSDN. Install the control according to the instructions provided. You might need to register the control manually (run regsvr32 on it). The footprint on this control is low; the whole download including help is only 243K. Next, create a script file with a text editor such as Notepad:

 Sub Main()	MsgBox "Hello, world"End Sub

Save it as c: emp.txt and add this code to your application:

 Private Sub Command1_Click()	Dim iFileNum As Long	Dim sFileBuffer As String	Dim sTemp As String	iFileNum = FreeFile()	Open "c:	emp.txt" For Input As #iFileNum		Do While Not EOF(iFileNum)			Line Input #iFileNum, sTemp			sFileBuffer = sFileBuffer & sTemp & _				vbCrLf		Loop	Close #iFileNum	ScriptControl1.Reset	ScriptControl1.AddCode (sFileBuffer)	ScriptControl1.Run "Main"End sub

You have now successfully implemented a scripting engine. You can expose objects in your application like this:

 Private Sub Command1_Click()	Dim objMyClass As New MyClassNameHere	With dlgCommon		.ShowOpen		sFileName = .FileName	End With	iFileNum = FreeFile()	Open sFileName For Input As #iFileNum		While Not EOF(iFileNum)			Line Input #iFileNum, sTemp			sFileBuffer = sFileBuffer & sTemp & vbCrLf		Wend	Close #iFileNum	ScriptControl1.Reset	ScriptControl1.AddObject "Database", objMyClass	ScriptControl1.AddCode (sFileBuffer)	ScriptControl1.Run "Main"End sub

You can even try code such as this to give ad hoc capabilities to an application:

 ScriptControl1.ExecuteStatement "x = 100"MsgBox ScriptControl1.Eval("x = 100")  ' TrueMsgBox ScriptControl1.Eval("x = 100/2")  ' False
Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

The Latest

microsoft careers

Top Careers at Microsoft

Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job

your company's audio

4 Areas of Your Company Where Your Audio Really Matters

Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a

chrome os developer mode

How to Turn on Chrome OS Developer Mode

Google’s Chrome OS is a popular operating system that is widely used on Chromebooks and other devices. While it is designed to be simple and user-friendly, there are times when users may want to access additional features and functionality. One way to do this is by turning on Chrome OS