Sunday, January 24, 2010

program-5

PROGRAM TO EXIT IDM 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="Internet Download Manager" 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}"

No comments:

Post a Comment