epass1000nd读写解决办法

epass1000nd读写
请教大神 

飞天诚信 epass1000nd的产品谁用过啊

现在想往加密锁里面写一个值然后再读取出来，用的是vbscript

看他提供的英文api，也每个例子

网上找了很多，逐一测试，也不成功。

望高手指点小弟一二 。我用的java引入vbscript

'读出设备

Function readDevice()

	On Error Resume Next 

	If CheckKey() = false then

		Exit function

	End If

	dim epsFileSize

	dim epsFileContent

	dim epsFileID,epsFileOffSize,epsFileBytes

	epsFileContent = ""

	epsFileSize = 0

	epsFileID = CLng("&H" & CStr("8888"))

	epsFileOffSize = "0"

	epsFileBytes = "10"


	alert "111222"

	euk.GetFileInfo 0,3,0,0,0 


	alert "211222"

	'打开文件

	euk.OpenFile 0,1

	If err then

		MsgBox "文件打开失败!"

		euk.CloseDevice

		Exit function

	End If

	'获取文件大小

	epsFileSize = euk.GetFileInfo(0,3,0,0)

	If CLng(epsFileSize) < CLng(epsFileOffSize) + CLng(epsFileBytes) then

		MsgBox "参数出错"

		euk.CloseDevice

		Exit function

	End If

	'读取文件内容

	epsFileContent = euk.Read(0,0,epsFileOffSize,epsFileBytes)

	epsFileContent = left(epsFileContent,epsFileSize)

	Dim TheForm

	Set TheForm = Document.forms("form1")

	TheForm.keyUserName.Value = epsFileContent

	euk.CloseFile

	euk.CloseDevice

	MsgBox "用户信息:" & epsFileContent 

	return

End function 

在进行到打开文件的时候总是不成功。望指点
------解决思路----------------------
奉劝楼主不要把有限的生命浪费在无限的加密解密死循环中！