This discussion has been locked.
You can no longer post new replies to this discussion. If you have a question you can start a new discussion

While connecting with Rumba 10 using VB6 automation error facing

We have written code for connecting rumba app with our app. Earlier it has working fine with Rumba 8.1 Version. After upgradation version of Rumba 8.1 to 10.1 its gives automation error. Same code not working with Rumba 10.1 Version. Any help will be much appreciated. 

Labels:

Rumba
Parents
  • 0  

    Hello Manesh,
    can you please elaborate a bit on your problem.

    - How do you connect with RUMBA in your VB Application. What API is used?
    - Do you get an Error Message? Explain what you mean by automation error.?
    - Did you just upgrade the RUMBA version or are more changes involved?
    - Can you please provide a code snippet to see what is failing.

    If you can't share the information in this forum, please open a case with our support team (https://portal.microfocus.com). The team will work with you to resolve your issue.

    cheers

    andree

  • 0 in reply to   

    Hi Andree We have Written VB6 code for that 

    please find the below block for that , in that it will stuck on doevent it will throws automation error.5706.Code of Rumba Connect Screenshot.docx

    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    waitAWhile (20)
    ObjMFDisplay.Disconnect
    waitAWhile (20)
    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    waitAWhile (20)
    End If
    End If
    If Check_Screen(22, 57, 4, "===>") = False Then
    waitAWhile (20)
    ObjMFDisplay.Disconnect
    waitAWhile (20)
    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    DoEvents
    ObjMFDisplay.Disconnect
    DoEvents
    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    DoEvents
    ObjMFDisplay.Disconnect
    DoEvents
    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    DoEvents
    MsgBox "Unable to get to Signon Screen", vbCritical + vbOKOnly
    Exit Sub
    End If
    End If
    End If
    End If

Reply
  • 0 in reply to   

    Hi Andree We have Written VB6 code for that 

    please find the below block for that , in that it will stuck on doevent it will throws automation error.5706.Code of Rumba Connect Screenshot.docx

    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    waitAWhile (20)
    ObjMFDisplay.Disconnect
    waitAWhile (20)
    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    waitAWhile (20)
    End If
    End If
    If Check_Screen(22, 57, 4, "===>") = False Then
    waitAWhile (20)
    ObjMFDisplay.Disconnect
    waitAWhile (20)
    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    DoEvents
    ObjMFDisplay.Disconnect
    DoEvents
    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    DoEvents
    ObjMFDisplay.Disconnect
    DoEvents
    ObjMFDisplay.Connect
    DoEvents
    If ObjMFDisplay.Connect = False Then ' Connects the Display control
    DoEvents
    MsgBox "Unable to get to Signon Screen", vbCritical + vbOKOnly
    Exit Sub
    End If
    End If
    End If
    End If

Children