我做了个网页吧,为了安全,我搞了必须插入 usbkey2000的u盾才能登陆。(mycheckdog是开发商给我的)
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--
Sub mycheckdog
On Error resume next
dim a,b,mylen
set aObject = CreateObject("Syunew6A.s_simnew6")
if Err.number<>0 then
msgbox "未安装锁的驱动。请安装锁的驱动后再进行操作。"
exit sub
end if
'查找是否存在锁,这里使用了FindPort函数
DevicePath = aObject.FindPort(0)
if aObject.LastError<> 0 then
msgbox "对不起!!系统检测到您没有插入U盾密匙,请插入后再进行操作 谢谢!!"
exit sub
end if
End Sub
-->
sub onerror
end sub
</SCRIPT>
<body onload="mycheckdog">
我现在把这代码放到我主页上,假如插入 usbkey2000的u盾页面就不会弹出警告窗口了的。
我现在想要的是:没有插入 usbkey2000的u盾页面弹出警告窗口,但是我发现警告窗口会有“确定”和右上角关闭的按钮,人家盗版用户点哈“确定”和“关闭的按钮”就关闭了的, 如何在没有插入 usbkey2000的u盾 的情况下 页码一直弹出警告窗口? 谢谢啦!!