igoa
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Smyg1 подскажите пожалуйста вот в этом фрагменте сделать тоже самое без лога никак нельзя?
Я не понимаю ограничений среды трекс, т.е. зачем рушить основной лог файл ради этого.
Сейчас вставил LogOff перед Log SN.TXT чтобы основной лог сохранить.
Command AutoSN
ulcl ulptr
uStr SerialNumber
uStr DriveSerialNumber
getstr EmptySerialNumber, " "
fPrintf "\nNew Serial Number: "
log SN.txt;logclr;FPBlock Off
fprintf"WD-%d%02d%02d%02d%02d\n",Year,Month,Day,Hour,Minute
logoff;ldbin "SN.txt";FileRemove "SN.txt"
vscon;vscid;rdflnom 2
ptrmode short
if(NewHeaderType == FALSE)
lvar1 = *(rbfr+26)
lvar2 = *(rbfr+52)
else
lvar1 = *(rbfr+50)
// Get Size of serial number
lvar2 = *(rbfr+52)
eif
lvar1 = lvar1+2
copy EmptySerialNumber, rbfr: lvar1
copy wbfr:0,rbfr:lvar1,15
if(*(rbfr+0x68)>0x3B)
ulptr=rbfr+*(rbfr+0x66)+49
*ulptr=0
eif
if(*(rbfr+0x32)>0xff)
if(familyid==0x281)
ptrmode short;ulptr=rbfr+*(rbfr+0xc6)
ptrmode char;ulptr-=4;*ulptr=1
eif
ptrmode short;ulptr=rbfr+*(rbfr+0xf6)+13
ptrmode char;*ulptr=7
ptrmode short;ulptr=rbfr+*(rbfr+0xfa)+2;*ulptr=0
eif
copy rbfr, wbfr;write_fl 2
if ( rstat bit 0 )
printf"\nAuto edit SN failed!\n"
eif
pat 0;filldw rbfr,0
eCommand // AutoSN |
