Цитата:
|
Только мне странно, что сам RegRead() не разбирает типов!
|
в полне согласен, тупизм....Но
1 либо что то не доконца мы понимаем
2 либо действительно тупизм ))
...сожалею, но точного ответа не знаю..
вариант без слешей:
Код:
Local $sSerial, $i, $sSerialResult
$sSerial = StringLower(StringTrimLeft(Binary('VMKJGNDIDNWLDMKJGNDIDNWLD'), 2))
For $i=1 To StringLen($sSerial) Step 3
$sSerialResult &= StringMid($sSerial, $i, 2)
If $i < StringLen($sSerial)-2 Then $sSerialResult &= ',00,'
Next
MsgBox(0, '', $sSerialResult)
а слеши там точно нужны?
если вставлять серийник в програму от которой он без слешей - все сработает?
можно судить так:
ставить слеш после первых 11 пар, далее ставить после каждых 13 пар...
