主题：[求助]身份证读卡器相关

[求助]谁帮俺弄一下身份证阅读的相关代码？华旭金卡的阅读机具。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:二次开发包.zip

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:身份证读卡器范例.zip

顶一下，别沉了呀

别人没有设备，根本就不能帮你写代码啊。自食其力

 

http://www.foxtable.com/help/topics/2417.htm

 

c#代码转vb.net代码，参考 http://codeconverter.sharpdevelop.net/SnippetConverter.aspx

 

不是要偷懒，确实不知道怎么写啊，在线转码就像死机了一样，一个多小时都没有结果，自己下了个转码工具，总是运行失败。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:c#代码转换为vb.net代码的工具.rar

网站转换有时会卡，不要一次转换太多代码。

能不能帮转下码？

 你都没看懂，转过来以后，你也看不懂，更不会用啊。

在一楼的示例项目中换成现在的读卡器，连全局代码都不知道该怎么写了。

 没有基础，你根本就不知道怎么做。

 

 要不你就换一个读卡器，或者叫一个懂c#的人帮你做。

1、全局代码

 

<DllImport("sdtapi.dll", CallingConvention := CallingConvention.StdCall)> _
public Function SDT_StartFindIDCard(iPort As Integer, pucManaInfo As Byte(), iIfOpen As Integer) As Integer
End Function
<DllImport("sdtapi.dll", CallingConvention := CallingConvention.StdCall)> _
public Function SDT_SelectIDCard(iPort As Integer, pucManaMsg As Byte(), iIfOpen As Integer) As Integer
End Function
<DllImport("sdtapi.dll", CallingConvention := CallingConvention.StdCall)> _
public Function SDT_ReadBaseMsg(iPort As Integer, pucCHMsg As Byte(), ByRef puiCHMsgLen As UInt32, pucPHMsg As Byte(), ByRef puiPHMsgLen As UInt32, iIfOpen As Integer) As Integer
End Function

 

2、调用代码

 

'变量声明
Dim CardPUCIIN As Byte() = New Byte(254) {}
Dim pucManaMsg As Byte() = New Byte(254) {}
Dim pucCHMsg As Byte() = New Byte(254) {}
Dim pucPHMsg As Byte() = New Byte(3023) {}
Dim puiCHMsgLen As UInt32 = 0
Dim puiPHMsgLen As UInt32 = 0
Dim st As Integer = 0
'读卡操作
st = SDT_StartFindIDCard(1, CardPUCIIN, 1)
If st <> &H9f Then
 Return
End If
st = SDT_SelectIDCard(1, pucManaMsg, 1)
If st <> &H90 Then
 Return
End If
st = SDT_ReadBaseMsg(1, pucCHMsg, puiCHMsgLen, pucPHMsg, puiPHMsgLen, 1)
If st <> &H90 Then
 Return
End If
'显示结果

msgbox(System.Text.ASCIIEncoding.Unicode.GetString(pucCHMsg))