'
' New VB Script
'
Sub Main()
sc.write ("ca 18 00 00 86")
sc.delay 50
sc.read 1
sc.write ("f0 84 70 82 64 00")
sc.write ("01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32")
sc.write ("33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64")
sc.write ("01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32")
sc.write ("33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64")
sc.delay 3000
sc.read 5
End Sub

om du får 60 60 60 90 40 så är det inga :roll: förändringar på korten.