12-30-2011, 01:06 PM
Please try the below code
Code:
Setting.WebPackage("ReplayType") = 2 ' This lines changes the run mode as Analog
JavaWindow("ldnGUI").JavaTab("TdiGroup").FireEvent "onclick",10,10,micRightBtn
wait(2)
Set WshShell = CreateObject("WScript.Shell")
itemIndex=5<Please change this> 'index of the close item
For i = 1 To itemIndex
WshShell.sendkeys "{DOWN}" 'Navigate to the option
Next
WshShell.sendkeys "{ENTER}"
Set WshSEll = nothing