Nån som har testat det nya scriptet comhemteliadate på vkeys?
Utskriftsvy
Nån som har testat det nya scriptet comhemteliadate på vkeys?
det funkar inte men om du andra den
du får
Group SA number:
Card UA number:
Dim Choice
Dim Groupnr
Dim Cardnr
Dim n
Dim menuFlag
Dim CheckSmartcardSettings
Call SmartcardSettings
Function hex2(i)
tmpStr = Hex(i)
If Len(tmpStr) = 1 Then
tmpStr = "0" & tmpStr
End If
hex2 = tmpStr
End Function
Sub Main()
sc.reset
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD C6" & vbCr)
sc.write ("DD C6 00 00 03 ")
sc.read (1)
sc.write ("1c 01 00")
sc.read (2)
sc.write ("dd c6 00 00 93")
sc.read (1)
sc.write ("dd ca 00 00 f5")
sc.read (1)
sc.write ("dd ca 00 00 93")
sc.read (2)
sc.write ("DD C6 00 00 03 ")
sc.read (1)
sc.write ("1b 01 40")
sc.read (2)
sc.write ("dd ca 00 00 6a")
sc.read (1)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, CA A4 " & vbCr)
sc.write ("ca a4 02 00 00")
sc.read (2)
sc.write ("ca c0 00 00 1f")
sc.read (1)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD 26" & vbCr)
sc.write ("DD 26 00 00 03")
sc.read (1)
sc.write ("10 01 40")
sc.read (2)
sc.write ("DD CA 00 00 11")
sc.read (2)
sc.read (3)
Sc.Reset
Sc.Print ("" & vbCr)
Sc.Print ("INS, DD 82" & vbCr)
Sc.Print ("String" & vbCr)
Sc.write ("DD 82 00 00 14")
Sc.read (1)
Sc.write ("11 12 01 F0 0F FF FF FD 00 00 09 04 0B 00 E0 30 0E 6F CC 7E")
Sc.delay (2000)
Sc.read (2)
Sc.write ("DD CA 00 00 1A")
Sc.read (29)
Sc.Reset
For n = 14 To 17
Cardnr = Cardnr & hex2(Sc.GetByte(n))
Next
For n = 24 To 26
Groupnr = Groupnr & hex2(Sc.GetByte(n))
Next
Sc.Print ("Group SA number: " & Groupnr & vbCr)
Sc.Print ("Card UA number: " & Cardnr & vbCr)
Cardnr = ""
Groupnr = ""
Sc.Print ("" & vbCr)
End Sub
Sub SmartcardSettings()
ComPort = Sc.InputBox("Phoenix-interface on port? ", "Config Com Port", 1)
If ComPort = "" Then
CheckSmartcardSettings = 1
Exit Sub
End If
Sc.Print (vbCr & "- config WinExplorer..." & vbCr)
End Sub
Det är från det första kort utskicket
- config WinExplorer...
Executing Script: C:\Documents and Settings\Böna\Lokala inställningar\Temp\Temporär katalog 1 för ComHemTeliaDate.zip\ComHemTelia.xvb
Trying to reset card...
Reset Successful
RX ATR : 3B 24 00 30 42 30 30
Transmission Completed
Evex
tar bort din
Group SA number
Card UA number
betyder detta att man har alla kanaler som man hade under de första veckorna eller ???
Trying to reset card...
Reset Successful