epass1000nd读写

[redstone1202]

请教大神

飞天诚信 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 

在进行到打开文件的时候总是不成功。望指点

[redstone1202]

望高手指点一二。

[redstone1202]

网上的例子都实验了，就是不成功。我写入已经成功，就是想读取写入的信息，这个费劲。 1000nd api上也没有例子，只有个英文描述，实验了很久，未果，实为困惑，望路过的好心人帮个忙，不胜感谢。

[赵4老师]

不知道Win7下vbscript运行是否也需要 以管理员身份运行 以XP兼容模式运行

[赵4老师]

奉劝楼主不要把有限的生命浪费在无限的加密解密死循环中！

[404876075]

我也在为这个纠结呢，最后怎么解决的啊！

[一定行]

我这里写入都写不了，能发个例子给我吗》 [e-mail]