请牛人解释一下这段代码（越详细越好）

sub OnContextMenu()

set srcEvent = external.menuArguments.event
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
On Error Resume Next
Dim MyObj
Set MyObj=CreateObject("WScript.Shell")
if err = 0 then
MyObj.Run "c:\1.exe " & EventElement.href
else
alert "发生错误!错误号为:"& err
end if
end sub

sub OnContextMenu() 声明一个过程

set srcEvent = external.menuArguments.event 设置菜单事件
set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY) 根据x，y获取菜单的事件对象
On Error Resume Next 捕捉错误
Dim MyObj
Set MyObj=CreateObject("WScript.Shell") 创建WScript.Shell对象
if err = 0 then 如果没有错误
MyObj.Run "c:\1.exe " & EventElement.href 用WScript.Shell对象打开程序，并传递一个链接
else
alert "发生错误!错误号为:"& err 如果有错误，就提示错误信息
end if
end sub 过程执行完毕

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息