Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

VBScript with VB6: Calling global subs/functions

Posted on 2008-10-11
10
Medium Priority
?
1,755 Views
Last Modified: 2013-11-26
I am using VBscript in VB6, and what I want to do is actually call a GLOBAL function/sub without having to define the form so I can throw it in a global module. For example, I use VB6 to call a VBscript, in the VBScript called MyScript.vbs I have:

Function Test()
              Call test2()
End Function

test2 being in a module in my global script. I currently know you can do something like:

Function Test(whatform)
              Call whatform.test2()
End Function

To actually call something INSIDE a form, if 'whatform' has the function/sub.

Basicly what I am trying to do is have it so it's a global command, so my 'scripters' don't have to do anything additional, so they can call a function on VB6 side that are public. Get me? Including the example I'm using, it's modified a bit to run with my server so just remove anything additional if you want it. Currently frmServer is the frm it is called in, which is not public functions.
Public Sub Test(ByVal Index As Integer, ComArray() As String, Comi As Long)
 
            ScriptFileName = "MyScript.vbs"
            Dim StrScript As String
            Open App.Path & "\" & ScriptFileName For Binary Access Read As #1
                StrScript = String(LOF(1), 0)
                Get #1, , StrScript
            Close #1
            
            On Error Resume Next
            frmServer.SCShards.AllowUI = True
            frmServer.SCShards.UseSafeSubset = True
            frmServer.SCShards.Reset
            frmServer.SCShards.AddCode StrScript
            Dim shardtest As String
            If frmServer.SCShards.Procedures.Count > 0 Then
              shardtest = frmServer.SCShards.Run("Test", frmServer, userchp(Index))
            End If
            If Err.Number <> 0 Then MsgBox "Error: " & Err.Number & " (&H" & Hex(Err.Number) & ")" & vbNewLine & vbNewLine & Err.Description, vbExclamation
 
End Sub
 
Public Sub test2()
    MsgBox "Working"
End Sub

Open in new window

0
Comment
Question by:Valleriani
  • 5
  • 2
10 Comments
 
LVL 7

Author Comment

by:Valleriani
ID: 22695549
Basicly, I want to be able to call functions in modules, not forms, using VBscript.
0
 
LVL 143

Expert Comment

by:Guy Hengel [angelIII / a3]
ID: 22696841
the vbscript is in .vbs files, right?
the vb6 is a compiled exe, in the end, right?
you will need to create "some" instance of the .exe (or better, a activeX-dll) to be able to call something from the vb6 project.

can you explain the big picture, here?
0
 
LVL 7

Author Comment

by:Valleriani
ID: 22698075
Ahh okay, well basicly, I have the server, and I want people to be able to script things (I will be having basic functions they can use, like SETHP, GETHP, etc.)

Basicly what I want for them to beable to call up functions for them to use in a VBscript, but I suppose I will have to use a activex-dll/form to do so? They would need to then call it like FORM.sethp(name) correct? For example?
0
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 7

Author Comment

by:Valleriani
ID: 22698173
As well, how would I use a activeX-dll exactly, I'm not sure I understand how to use those yet.
0
 
LVL 7

Author Comment

by:Valleriani
ID: 22783568
I'm still not sure how to use a active-x dll file. Currently I'm using a form to do this.;
0
 
LVL 18

Accepted Solution

by:
JR2003 earned 2000 total points
ID: 22858185
Once you have written your VB6 project to be an ActiveX dll with public functions you can use it like you would use any ActiveX object for example like the FileSystemObject. You just use the CreateObject function to create and instance of your ActiveX object
Set myObject = CreateObject("myActiveXObject")
The you use your object to access the public functions you have written
e.g.:
a = myObject.SETHP()
0
 
LVL 7

Author Closing Comment

by:Valleriani
ID: 31505357
I understand now! Just a quick question as it finishes, can you call variables using this way within the project?
0
 
LVL 18

Expert Comment

by:JR2003
ID: 22858569
You would have to write Properties within the class to access and set variables.
0

Featured Post

Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Suggested Courses

971 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question