Script på vkeys

[Dannyboy]

Nån som har testat det nya scriptet comhemteliadate på vkeys?

[mona]

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

[Evex]

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

[mona]

Evex


tar bort din

Group SA number
Card UA number

[lotus_2000]

betyder detta att man har alla kanaler som man hade under de första veckorna eller ???

Trying to reset card...
Reset Successful