你好：感谢你上次回答我的问题，十分感谢你回答正确了！！这次又得麻烦您了的！
我做了个网页吧，为了安全，我搞了必须插入usbkey2000的u盾才能登陆。（mycheckdog是开发商给我的）<SCRIPTID=clientEventHandler...
我做了个网页吧，为了安全，我搞了必须插入 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盾 的情况下 页码一直弹出警告窗口？ 谢谢啦！！ 展开
<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盾 的情况下 页码一直弹出警告窗口？ 谢谢啦！！ 展开
1个回答
展开全部
<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 "未安装锁的驱动。请安装锁的驱动后再进行操作。"
Dim t8
t8=settimeout("mycheckdog",1000)
exit sub
end if
'查找是否存在锁,这里使用了FindPort函数
DevicePath = aObject.FindPort(0)
if aObject.LastError<> 0 then
msgbox "对不起！！系统检测到您没有插入U盾密匙，请插入后再进行操作 谢谢！！"
Dim t2
t2=settimeout("mycheckdog",1000)
exit sub
end if
End Sub
-->
sub onerror
end sub
Dim t
t=settimeout("mycheckdog",1000)
</SCRIPT>
我靠 看来我不熟悉百度知道啊，就在我的求助里面，还找了半天。
<!--
Sub mycheckdog
On Error resume next
dim a,b,mylen
set aObject = CreateObject("Syunew6A.s_simnew6")
if Err.number<>0 then
msgbox "未安装锁的驱动。请安装锁的驱动后再进行操作。"
Dim t8
t8=settimeout("mycheckdog",1000)
exit sub
end if
'查找是否存在锁,这里使用了FindPort函数
DevicePath = aObject.FindPort(0)
if aObject.LastError<> 0 then
msgbox "对不起！！系统检测到您没有插入U盾密匙，请插入后再进行操作 谢谢！！"
Dim t2
t2=settimeout("mycheckdog",1000)
exit sub
end if
End Sub
-->
sub onerror
end sub
Dim t
t=settimeout("mycheckdog",1000)
</SCRIPT>
我靠 看来我不熟悉百度知道啊，就在我的求助里面，还找了半天。
来自：求助得到的回答
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
