	[x] Posted via EE Mobile
	Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.

Question

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

7.1

Can I GetObject() or CreateObject() from an already-running VB6 ActiveX EXE from a different user

Asked by docstar in ActiveX, Visual Basic Programming

Tags: Visual Basic 6 COM Server

I have an ActiveX EXE which is launched by a service on system start. It does various background tasks, but I also want to expose a class, called "CommChannel" to a VB6 application that may be running.

I've tried using CreateObject("myservername.CommChannel"), but this always launches a new instance of the EXE rather than creating an object from the one already running. Thus, it does not get me the communication I want.

Alternately, I've tried to instantiate the CommChannel class in advance in my ActiveX EXE, register it in the "ROT" via some code I found (below), and then access it from my VB App with GetObject(,"myservername.CommChannel"). This fails to instantiate it.

Either CreateObject or GetObject will do what I want when my ActiveX EXE is running under the same user name as the application. But how do I communicate with the one launched by the service (under -- generally speaking -- another user name) ?

View the Solution FREE for 30 Days

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

           
           
             Private Type GUIDs
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type
 
'Declares needed to register object in the ROT (Run Object Table)
Private Const ACTIVEOBJECT_STRONG = 0
Private Const ACTIVEOBJECT_WEAK = 1
Private Declare Function CLSIDFromProgID Lib "ole32.dll" (ByVal ProgID As Long, rclsid As GUIDs) As Long
Private Declare Function CoDisconnectObject Lib "ole32.dll" (ByVal pUnk As IUnknown, pvReserved As Long) As Long
Private Declare Function RegisterActiveObject Lib "oleaut32.dll" (ByVal pUnk As IUnknown, rclsid As GUIDs, ByVal dwFlags As Long, pdwRegister As Long) As Long
Private Declare Function RevokeActiveObject Lib "oleaut32.dll" (ByVal dwRegister As Long, ByVal pvReserved As Long) As Long
Private OLEInstance As Long
 
Public Sub AddToROT()
 
    Dim mGuid As GUIDs
    Dim lp As Long
 
    'The magic happens here
    'This code is responsible for creating the entry in the ROT
    'Make sure to insert the correct qualified object (class) that
    'you want in the ROT.
    OLEInstance = 0
    lp = CLSIDFromProgID(StrPtr(App.EXEName & "." & TypeName(Me)), mGuid)
 
    If lp = 0 Then
        lp = RegisterActiveObject(Me, mGuid, ACTIVEOBJECT_WEAK, OLEInstance)
    End If
    
    If lp <> 0 Then Err.Raise lp
 
End Sub
 
Public Sub RemoveFromROT()
 
    'Once we are done with the main program, lets clean up the rot
    'by removing the entry for our ActiveX Server/DLL
    If OLEInstance <> 0 Then
        RevokeActiveObject OLEInstance, 0
    End If
    CoDisconnectObject Me, 0
 
End Sub

           
         

20091021-EE-VQP-81 - Hierarchy / EE_QW_3_20080625

Hall of Fame

1. acperkins13,400
2. JohnGaby11,450
3. jkr9,200
4. mplungjan8,000
5. DanRollins7,300
6. rorya7,100
7. tedbilly6,500
8. abel6,300
9. ryancys6,000
9. boag20006,000
9. Gideon76,000
12. johnb67675,000
12. kaylanreilor5,000
14. mlmcc4,900
15. tbsgadi4,500
15. b0lsc0tt4,500
17. TheLearn...4,200
18. brettdj4,000
18. BlueDevilF...4,000
18. VBRocks4,000
21. PaulHews3,750
21. CodeCruiser3,750
23. northfields3,600
24. Idle_Mind3,400
25. PedroCGD3,200
25. HalfAsleep3,200

1. jkr43,422
2. DanRollins27,700
3. mlmcc25,275
4. acperkins21,770
5. LSMCons...20,100
6. jaime_oliv...17,797
7. TheLearn...17,000
8. PaulHews16,250
9. JohnGaby15,400
10. rorya14,700
11. b0lsc0tt13,000
12. Gurudenis12,425
13. developm...11,400
14. mplungjan10,875
15. hielo10,800
16. ziolko10,600
17. GrahamSkan10,100
18. emoreau9,400
19. BigRat9,375
20. war18,775
21. hes8,620
22. danaseaman8,350
23. mahesh1...8,000
23. kaylanreilor8,000
25. EDDYKT7,900

Can I GetObject() or CreateObject() from an already-running VB6 ActiveX EXE from a different user

Asked by docstar in ActiveX, Visual Basic Programming

Tags: Visual Basic 6 COM Server

About this solution