[.NET] 請教程式碼
請輸入專案類型(網站專案或者應用程式專案):
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
推
10/26 22:47, , 1F
10/26 22:47, 1F
→
10/27 12:00, , 2F
10/27 12:00, 2F