作者catxii (翻滚吧!!鸡蛋)
看板Visual_Basic
标题[.NET] 请教程式码
时间Wed Oct 26 17:13:02 2011
请输入专案类型(网站专案或者应用程式专案)：
Public Sub CardControl()
Dim tempstr As String = String.Empty
Dim index As Integer = 0
For index = 0 To SendLen - 1
tempstr = tempstr + Microsoft.VisualBasic.Right("00"
,&Hex(SendBuff(index)),2) +" "
*必须是逗号 或是有效的运算式
Next
DisplayOut(tempstr, 3)
retCode = ModWinsCard.SCardControl(hCard,
ModWinsCard.IOCTL_CCID_ESCAPE_SCARD_CTL_CODE, SendBuff(0), SendLen,
RecvBuff(0), RecvLen, nBytesRet)
If retCode <> ModWinsCard.SCARD_S_SUCCESS Then
DisplayOut(ModWinsCard.GetScardErrMsg(retCode), 2)
Return retCode
*无法回传值
End If
tempstr = String.Empty
For index = 0 To RecvLen - 1
tempstr = tempstr + Microsoft.VisualBasic.Right("00"
,&Hex(RecvBuff(index)),2) +" "
*必须是逗号 或是有效的运算式
Next
DisplayOut(tempstr, 4)
Return retCode
*无法回传值
End Sub
可以请高手帮忙解题吗....
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.64.128.29
1F：推 jwjeng:SendLen和RecvLen是什麽内容？ 0 吗？ 10/26 22:47
2F：→ MOONRAKER:太深奥了，看不懂要解什麽。 10/27 12:00