우선 프로그램 의도는 IE창에 링크부분에서 오른쪽마우스 클릭으로 팝업창을 띄우고
팝업창에 제가 등록한 메뉴를 클릭하면 제작한 프로그램의 Listbox에 IE창 링크주소를
추가하는 것입니다.
프로그램을 Automation Server로 만들고 비주얼베이직 스크립트로 연결했습니다.
프로그램 띄운 상태에서 IE창의 링크주소는 계속 잘 받아옵니다만
프로그램이 안 뜬 상태에서 IE창의 링크주소를 받으려고 하면
실행했다가 주소를 받고 종료 되어버립니다.
[스크립트 내용입니다]
<SCRIPT LANGUAGE="VBScript">
sub testobject
dim comobject
dim strlink
Set srcEvent = external.menuArguments.event
Set EventElement = external.menuArguments.document.elementFromPoint(srcEvent.clientX, srcEvent.clientY)
Set srcLink = EventElement
strlink = srcLink.href
On Error Resume Next
Set comobject = GetObject(, "LinkCapture.MenuExt")
If Err Then
Err.Clear
Set comobject = CreateObject("LinkCapture.MenuExt")
End If
comobject.LinkSave(strlink)
set comobject = nothing
end sub
testobject()
</SCRIPT>
"set comobject = nothing"을 삭제해도 똑같습니다.
"comobject.quit"를 하지 않았는데도 종료됩니다.
Automation Server에서 옵션정하는게 있는지요?
프로그램에는 메인폼에 리스트박스 하나만 있고 MenuExt에 LinkSave(Str)메소드 하나가 있습니다.