윈도우 탐색기에 팝업 메뉴를 추가하시려면, 윈도우즈 셀확장과 COM 에 관한
자료를 살펴보시면 됩니다. 이 부분은 따로 책으로도 상세히 다루고 있습니다.
너무 광범위한지라 설명을 드릴 엄두가 안나네요. ^^; 책으로 보심이 ^^;
익스플러러 메뉴에 추가하기 위해서는 IE 핸들링을 해야 하는데...
메인 메뉴쪽은 저도 잘 모르겠고, IE 내부에 나타나는 팝업메뉴에 추가하는
방법은 ... 이것도 좀 복잡합니다. COM 객체를 우선 하나 만드셔야 하고,
레지스트리의
HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt
밑에 추가할 메뉴의 키를 등록하신 후에, 해당 키 값으로 실행될 스크립트가
들어있는 html 파일의 풀 경로를 입력합니다.
예를 들어, '새 메뉴'라는 이름의 팝업 메뉴를 추가한다면,
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt새 메뉴]
@="C:\New_menu.html"
식으로 추가해 놓으면 되죠.
그리고, 실행될 스크립트가 들어있는 html파일은 flashget 이나, reget 프로그램등의
실행 스크립트 파일을 참고해서 작성하셔서, 먼저 작성한 COM 과 연결시켜서
처리하시면 됩니다.
참고로 플래쉬 겟에서 사용하는 스크립트를 첨부합니다.
페이지를 클릭해서 나오는 Download All by FlashGet ; Contexts:243
---------------------------------------------------------------------
<script language="VBScript">
'Great thanks to Vladimir Romanov(Author of ReGet Pro)
On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please Install FlashGet again")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next
JetCarCatch.AddUrlList params
end if
</script>
윈도우 탐색기에 팝업 메뉴를 추가하시려면, 윈도우즈 셀확장과 COM 에 관한
자료를 살펴보시면 됩니다. 이 부분은 따로 책으로도 상세히 다루고 있습니다.
너무 광범위한지라 설명을 드릴 엄두가 안나네요. ^^; 책으로 보심이 ^^;
익스플러러 메뉴에 추가하기 위해서는 IE 핸들링을 해야 하는데...
메인 메뉴쪽은 저도 잘 모르겠고, IE 내부에 나타나는 팝업메뉴에 추가하는
방법은 ... 이것도 좀 복잡합니다. COM 객체를 우선 하나 만드셔야 하고,
레지스트리의
HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt
밑에 추가할 메뉴의 키를 등록하신 후에, 해당 키 값으로 실행될 스크립트가
들어있는 html 파일의 풀 경로를 입력합니다.
예를 들어, '새 메뉴'라는 이름의 팝업 메뉴를 추가한다면,
[HKEY_CURRENT_USERSoftwareMicrosoftInternet ExplorerMenuExt새 메뉴]
@="C:\New_menu.html"
식으로 추가해 놓으면 되죠.
그리고, 실행될 스크립트가 들어있는 html파일은 flashget 이나, reget 프로그램등의
실행 스크립트 파일을 참고해서 작성하셔서, 먼저 작성한 COM 과 연결시켜서
처리하시면 됩니다.
참고로 플래쉬 겟에서 사용하는 스크립트를 첨부합니다.
페이지를 클릭해서 나오는 Download All by FlashGet ; Contexts:243
---------------------------------------------------------------------
<script language="VBScript">
'Great thanks to Vladimir Romanov(Author of ReGet Pro)
On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please Install FlashGet again")
else
set links = external.menuArguments.document.links
ReDim params(links.length*2)
params(0)=external.menuArguments.document.Url
for i = 0 to links.length-1
params(i*2+1)=links(i).href
params(i*2+2)=links(i).innerText
next
JetCarCatch.AddUrlList params
end if
</script>