📄 tm91.bas
字号:
End If
End If
End If
End If
End If
End If
If TMTouchReset(SHandle) = 1 Then
SHandle = TMEndSession(SHandle)
writesub3 = False
End If
End Function
Public Function cnnTest() As Boolean
Dim i As Integer
For i = 1 To 4
PortNum = i
PortType = 5
SHandle = TMExtendedStartSession(PortNum, PortType, vbNullString)
If TMSetup(SHandle) = 1 Then
Exit For
End If
Next i
If i > 4 Then
Err.Raise 60000, , GetError(0)
cnnTest = False
cnnClose
Exit Function
End If
cnnClose
SHandle = TMExtendedStartSession(PortNum, PortType, vbNullString)
If (SHandle > 0) Then
If (TMSetup(SHandle) = 1) Then
If TMFamilySearchSetup(SHandle, state_buffer(0), &HA) Then
If TMNext(SHandle, state_buffer(0)) Then
If TMRom(SHandle, state_buffer(0), SelectROM(0)) Then
If ((&HA And &H7F) = (SelectROM(0) And &H7F)) Or ((&H4 And &H7F) = (SelectROM(0) And &H7F)) Or ((&H2 And &H7F) = (SelectROM(0) And &H7F)) Or ((&H1 And &H7F) = (SelectROM(0) And &H7F)) Then
cnnClose
cnnTest = True
Exit Function
Else
Err.Raise 60000 - 1, , GetError(-1)
End If
End If
End If
End If
End If
End If
cnnTest = False
cnnClose
End Function
Public Sub cnnClose()
If TMTouchReset(SHandle) = 1 Then
SHandle = TMEndSession(SHandle)
End If
End Sub
Public Function readtype()
Dim rec As String
Dim subid(8) As Byte
Dim i As Integer
Dim flag As Integer
Dim romstr As String
Dim temp As String
For i = 0 To 7
SelectROM(i) = 0
Next i
rec = ""
cnnTest
' For i = 1 To 4
'
' PortNum = i
' PortType = 5
' SHandle = TMExtendedStartSession(PortNum, PortType, vbNullString)
'
' If TMSetup(SHandle) = 1 Then
'
' Exit For
'
' End If
'
' Next i
SHandle = TMExtendedStartSession(PortNum, PortType, vbNullString)
If (SHandle > 0) Then
If (TMSetup(SHandle) = 1) Then
If TMFamilySearchSetup(SHandle, state_buffer(0), &HA) >= 1 Then
If TMNext(SHandle, state_buffer(0)) = 1 Then
If TMRom(SHandle, state_buffer(0), SelectROM(0)) = 1 Then
If ((&HA And &H7F) = (SelectROM(0) And &H7F)) Then
romstr = ""
For i = 0 To 7
If SelectROM(7 - i) <= 15 Then
romstr = romstr + "0" + Hex(SelectROM(7 - i))
Else
romstr = romstr + Hex(SelectROM(7 - i))
End If
Next i
rec = romstr
End If
End If
End If
End If
If TMTouchReset(SHandle) = 1 Then
TMEndSession (SHandle)
End If
If rec <> "" Then
readtype = rec
Exit Function
End If
End If
End If
rec = ""
SHandle = TMExtendedStartSession(PortNum, PortType, vbNullString)
If (SHandle > 0) Then
If (TMSetup(SHandle) = 1) Then
If TMFamilySearchSetup(SHandle, state_buffer(0), &H4) >= 1 Then
If TMNext(SHandle, state_buffer(0)) = 1 Then
If TMRom(SHandle, state_buffer(0), SelectROM(0)) = 1 Then
If ((&H4 And &H7F) = (SelectROM(0) And &H7F)) Then
romstr = ""
For i = 0 To 7
If SelectROM(7 - i) <= 15 Then
romstr = romstr + "0" + Hex(SelectROM(7 - i))
Else
romstr = romstr + Hex(SelectROM(7 - i))
End If
Next i
rec = romstr
End If
End If
End If
End If
If TMTouchReset(SHandle) = 1 Then
TMEndSession (SHandle)
End If
If rec <> "" Then
readtype = rec
Exit Function
End If
End If
End If
rec = ""
SHandle = TMExtendedStartSession(PortNum, PortType, vbNullString)
If (SHandle > 0) Then
If (TMSetup(SHandle) = 1) Then
If TMFamilySearchSetup(SHandle, state_buffer(0), &H2) >= 1 Then
If TMNext(SHandle, state_buffer(0)) = 1 Then
If TMRom(SHandle, state_buffer(0), SelectROM(0)) = 1 Then
If ((&H2 And &H7F) = (SelectROM(0) And &H7F)) Then
romstr = ""
For i = 0 To 7
If SelectROM(7 - i) <= 15 Then
romstr = romstr + "0" + Hex(SelectROM(7 - i))
Else
romstr = romstr + Hex(SelectROM(7 - i))
End If
Next i
rec = romstr
If (TMStrongAccess(SHandle, state_buffer(0)) = 1) Then
flag = TMTouchByte(SHandle, &H66)
flag = TMTouchByte(SHandle, &H10)
flag = TMTouchByte(SHandle, &HEF)
For i = 0 To 7
subid(i) = TMTouchByte(SHandle, &HFF)
Next i
For i = 0 To 2
If (subid(i) <= 15) Then
rec = rec + "0" + Hex(subid(i))
Else
rec = rec + Hex(subid(i))
End If
Next i
End If
End If
End If
End If
End If
If TMTouchReset(SHandle) = 1 Then
TMEndSession (SHandle)
End If
If rec <> "" Then
readtype = rec
Exit Function
End If
End If
End If
rec = ""
SHandle = TMExtendedStartSession(PortNum, PortType, vbNullString)
If (SHandle > 0) Then
If (TMSetup(SHandle) = 1) Then
If TMFamilySearchSetup(SHandle, state_buffer(0), &H2) >= 1 Then
If TMNext(SHandle, state_buffer(0)) = 1 Then
If TMRom(SHandle, state_buffer(0), SelectROM(0)) = 1 Then
If ((&H1 And &H7F) = (SelectROM(0) And &H7F)) Then
romstr = ""
For i = 0 To 7
If SelectROM(7 - i) <= 15 Then
romstr = romstr + "0" + Hex(SelectROM(7 - i))
Else
romstr = romstr + Hex(SelectROM(7 - i))
End If
Next i
rec = romstr
If (TMStrongAccess(SHandle, state_buffer(0)) = 1) Then
flag = TMTouchByte(SHandle, &H66)
flag = TMTouchByte(SHandle, &H10)
flag = TMTouchByte(SHandle, &HEF)
For i = 0 To 7
subid(i) = TMTouchByte(SHandle, &HFF)
Next i
For i = 0 To 2
If (subid(i) <= 15) Then
rec = rec + "0" + Hex(subid(i))
Else
rec = rec + Hex(subid(i))
End If
Next i
End If
End If
End If
End If
End If
If TMTouchReset(SHandle) = 1 Then
TMEndSession (SHandle)
End If
If rec <> "" Then
readtype = rec
Exit Function
End If
End If
End If
End Function
Public Function readsub1(ptemp As String)
Dim subid(8) As Byte
Dim temp(64) As Byte
Dim flag As Integer
Dim i As Integer
Dim recs As String
Dim cardtype As String
Dim notcardtype As String
Dim cardcode As String
Dim notcardcode As String
Dim hotelnum As String
Dim hotelpas As String
cardcode = ""
cardtype = ""
hotelnum = Mid(ptemp, 1, 4)
While Len(hotelnum) < 4
hotelnum = "0" + hotelnum
Wend
hotelpas = ""
hotelpas = Mid(ptemp, 5, 8)
While Len(hotelpas) < 4
hotelnum = "0" + hotelnum
Wend
For i = 1 To 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -