Plesae Help with a script using showPopUp

[dgian]

I want to use the function ShowPopUp to call some external programs.

I have something like this(vbscript):

 

============================

option explicit

dim myDVBViewer

dim myOSD

 

sub main()

Set myDVBViewer = GetObject(, "DVBViewerServer.DVBViewer")

Set myOSD = myDVBViewer.OSD

 

call myOSD.showPopUp("Heading","OPTION1,OPTION2",TRUE)

 

aaa = myOSD.showPopUp.selectedindex

if aaa = 0 then

msgbox ("OK")

end if

 

end sub

main

==============================

 

 

But it doesn't work...

Anyone who can help me?

Thank you.

[nuts]

============================
option explicit
dim myDVBViewer
dim myOSD
dim selectedindex

sub main()
Set myDVBViewer = GetObject(, "DVBViewerServer.DVBViewer")
Set myOSD = myDVBViewer.OSD

selectedindex = myOSD.showPopUp("Heading","OPTION1,OPTION2",TRUE)

Select Case selectedindex

case 0
msgbox ("OK")
End Select

end sub
main
==============================

 

Try this

[dgian]

That worked! I'm realy gratefull.Thank you.