F
FreeFly
Unregistered / Unconfirmed
GUEST, unregistred user!
我用Slong的ole server方法和cAKK的方法都可以实现了,但是这两种方法
都会使IE跳出一个对话框:"该页上的某些软件可能不安全,建议您不要运行.是否要运行?"
这个应该是IE安全级设定的问题吧?
但是flashget也是用ole的方法,但为什么不会出现这样的提示?
查看注册表就知道在IE的右键菜单"download all by flashget"对应的是falshget目录
下的jc_all.htm,这个页面里就只有以下这些脚本:
<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("JetCar not properly installed!"+ vbCrLf+"Please run JetCar.exe 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>
但flashget为什么不出现安全提示对话框?
请各位大侠继续.
都会使IE跳出一个对话框:"该页上的某些软件可能不安全,建议您不要运行.是否要运行?"
这个应该是IE安全级设定的问题吧?
但是flashget也是用ole的方法,但为什么不会出现这样的提示?
查看注册表就知道在IE的右键菜单"download all by flashget"对应的是falshget目录
下的jc_all.htm,这个页面里就只有以下这些脚本:
<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("JetCar not properly installed!"+ vbCrLf+"Please run JetCar.exe 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>
但flashget为什么不出现安全提示对话框?
请各位大侠继续.