program-4

PROGRAM TO EXIT YAHOO MESSENGER FROM BOTTM RIGHT CORNER OF DESKTOP
*********************************************************************************
ic=window("Window").WinToolbar("Notification Area").GetItemsCount()
For i=1 to ic
iname=window("Window").WinToolbar("Notification Area").GetItem(i)
If iname="Yahoo! Messenger" Then
window("Window").WinToolbar("Notification Area").Press iname,micRightBtn
End If
Next
wait(1)
Set kb=createobject ("wscript.shell")
kb.sendkeys "{up}"
wait(1)kb.sendkeys "{enter}"