More Resource file data mining


Here’s some more code to mine the data in your resource file.  There are more settings at various offsets in the Data. Can you figure them out?


 


 


_screen.FontName=”Courier New”      && monospace


SELECT  PADR(name,20) as name,data from SET(“Resource”,1) WHERE id = “WINDMODIFY” ORDER BY 1 INTO CURSOR foo


SCAN


      ?PADR(name,20)


      nVer=CTOBIN(SUBSTR(Data,3,2),”2rs”)


      IF nVer=9


            ??” Left   =”+TRANSFORM(CTOBIN(SUBSTR(Data,13,4),”4rs”),”9999″)


            ??” Top    =”+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*1,4),”4rs”),”9999″)


            ??” Right  =”+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*2,4),”4rs”),”9999″)


            ??” Bottom=”+TRANSFORM(CTOBIN(SUBSTR(Data,13+4*3,4),”4rs”),”9999″)


            ?? ” CursorStart=”+ TRANSFORM(CTOBIN(SUBSTR(Data,29,4),”4rs”),”999999″)


            ?? ” CursorEnd=”+ TRANSFORM(CTOBIN(SUBSTR(Data,29+4,4),”4rs”),”999999″)


            cBuf=SUBSTR(Data,53,64)


            ??” “+PADR(LEFT(cBuf,AT(CHR(0),cBuf)-1),12)


            ??” “+TRANSFORM(CTOBIN(SUBSTR(Data,118,2),”2rs”),”9999″)


            ??” “+TRANSFORM(CTOBIN(SUBSTR(Data,120,4),”4rs”),”9999″)


      ENDIF


ENDSCAN

Comments (1)

  1.  

    In my prior two posts (This code queries the foxuser resource file. What does it do? and More…