<!--
Sub checkekey()
'读锁ID
On Error resume next
dim A,B,mylen
set aObject = CreateObject("Syunew3A.s_simnew3")
DevicePath = aObject.FindPort(0)
if aObject.LastError<> 0 then
  dim mymsg1
  mymsg1=MsgBox("错误100:本系统未检测到USB钥匙盘,请确保您已正确安装钥匙盘驱动、正确插入USB钥匙盘,下载钥匙盘驱动?",4,"科维信息提示")
  if mymsg1=6 then location="driver/hb_key.exe"
  if mymsg1=7 then location="javascript:CloseWin();"
  frm.iskey.value = "N"
  exit sub
end if

'读取有效ekey编号
For i = 1 To 10
 MyLen = aObject.yread(0, "rhb789$%", "rhb789$%", DevicePath)
 A = Trim(aObject.YReadString(1, MyLen, "rhb789$%", "rhb789$%", DevicePath))
 MyLen = aObject.yread(20, "rhb789$%", "rhb789$%", DevicePath)
 B = Trim(aObject.YReadString(21, MyLen, "rhb789$%", "rhb789$%", DevicePath))
 If A <> "" And A = B Then
  frm.keyid.value = A
  Exit For
 End If
Next

End Sub
-->