Sub Read_OnClick
	on error resume next
	dim ErrCode
	dim ctx	
	dim buf
	dim ret
	Dim i,xx,xxlen   
	
	
    '打开et99加密锁类型设备
    ret = ET99.OpenToken("FFFFFFFF", 1)
    ret= ET99.GetSN() 
    ET99.CloseToken()
    
    if err then
    	err.clear
    	Readepss1000()
    	exit sub
    end if
		
	Form1.txtFlockNumber.value = ret 
	
end sub

sub Readepss1000
    set ctx = CreateObject("epsmodu.epsCtx")
	
	ErrCode = epass1000.OpenDevice (1)
	if (ErrCode <> 0) then
		ReadepassND()
		exit sub
	end if
	
	ret = Hex(ctx.SerialNumber(1)) + Hex(ctx.SerialNumber(0))
	
	Form1.txtFlockNumber.value = ret 
	
	epass1000.CloseDevice 
	set ctx=nothing

end sub


sub ReadepassND
	'读取soft-world目录下创建id为1的文件。
	on error resume next

	dim txtRead,lFileSize,ec
	set ctx = CreateObject("EPsNDSC.SCeps.1")
    if(err) then
		MsgBox "您的身份认证锁安装的不正确，不能进行验证"&vbnewline&"错误信息提示："&(err.number and &hff)
    	exit sub
	end if
		
	'打开设备
	ePassND.OpenDevice 1, ""
	if err then 
		msgbox  "您没有插好身份认证锁或者它正被别的程序占用！"&vbnewline&"错误信息提示：" & (err.number and &hff)
		exit sub
	else 
		'msgbox "open device success!"
	end if


	'进入soft-world目录0x200
	'epass.changedir &h300,0,"soft-world"

	'epass.changedir &0x200,0,"soft-world"
	
	if err then 
		msgbox "Change Dir failure:" & (err.number and &hff)	
		exit sub
	else 
		'msgbox "Change Dir success!"
	end if

	'获得文件的大小
	lFileSize=ePassND.GetFileInfo (0,3,1,"")
	if err then 
		msgbox "Get file Info error:" & (err.number and &hff)
		exit sub
	else 
		'msgbox "file Size :" & lFileSize
	end if

	'打开ID为1的文件
	epassND.OpenFile 0,1
	if err then 
		msgbox "Open file  error:" & (err.number and &hff)
		exit sub
	else 
		'msgbox "Open file  success!"
	end if
	
	'读文件内容
	txtRead=epassND.read (0,0,0,lFileSize)
	if err then 
		msgbox "read file error:" & (err.number and &hff)
		exit sub
	else 
		'msgbox "Read file :" & txtRead
	end if
	Form1.txtFlockNumber.value = txtRead 
	'ret =txtRead 
	'关闭文件	
	epassND.closefile	

	'关闭设备'
	epassND.CloseDevice
	set ctx=nothing
	
end sub