lire depuis un raccourcis.

label test, find

dim racc1$ : racc1$ = "C:\temp\Racc.txt"
dim racc2$ : racc2$ = "Raccourci vers Copie de horloge.ini"
dim dump% : dump% = 0
dim s$, block%(10000), siz%, i%, racc$, t$, l% , j%

width 0,1000 : height 0,800
memo 10 : top 10,10 : left 10,10
  bar_vertical 10 : font_name 10,"courier"
  width 10,950 : height 10,750

racc$ = racc1$
gosub test
gosub find

 racc$ = racc2$
 gosub test
 gosub find
end

test:
item_add 10,racc$
if lower$(right$(racc$,4))<>".lnk" then racc$ = racc$ + ".lnk"
filebin_open_read 1,racc$
siz% = filebin_size(1)
item_add 10,"Taille: "+str$(siz%)
if siz%>10000 then siz% = 10000
filebin_block_read 1,siz%,block%(0)
filebin_close 1
if dump%=0 then return
i% = 0
s$ = ""
t$ = ""
while i%<siz%
  if block%(i%)<32
    t$ = t$ + ".  "
  else
    t$ = t$ + chr$(block%(i%)) + "  "
  end_if
  s$ = s$ + right$("0"+hex$(block%(i%)),2) + " "
  if len(s$)>90
    item_add 10,s$
    item_add 10,t$
    s$ = ""
    t$ = ""
    item_add 10,""
  end_if
  i% = i% + 1
end_while
if len(s$)>0
  item_add 10,s$
  item_add 10,t$
end_if
return

find:
  for i%=1 to siz%
    if block%(i%)=hex("7D")
      if block%(i%+1)=hex("78")
        if block%(i%+2)=hex("4")
          if block%(i%+3)=hex("10")
            l% = block%(i%-1)
            t$ = ""
            for j%=1 to l%
              t$ = t$ + chr$(block%(i%+4+3+j%))
            next j%
            item_add 10,"Cible: "+t$
            item_add 10," "
            return
          end_if
        end_if
      end_if
    end_if
  next i%
  item_add 10,"Cible non trouvée !"
  item_add 10," "
  return
 

' test_raccourcis.bas

label load, dump, find

dim racc1$ : racc1$ = "C:\temp\Racc.txt"
dim racc2$ : racc2$ = "Raccourci vers Copie de horloge.ini"
dim dump% : dump% = 0  : ' mettre 1 pour obtenir un dump hexa/alpha
dim s$, block%(1), siz%, i%, t$, l% , j%
dim racc$, path$ : ' paramètre entrée et sortie

width 0,1000 : height 0,800
memo 10 : top 10,10 : left 10,10
  bar_vertical 10 : font_name 10,"courier"
  width 10,950 : height 10,750

racc$ = racc1$
gosub load
if dump%=1 then gosub dump
gosub find

racc$ = racc2$
gosub load
if dump%=1 then gosub dump
gosub find

end

load:
  item_add 10,racc$
  if lower$(right$(racc$,4))<>".lnk" then racc$ = racc$ + ".lnk"
  filebin_open_read 1,racc$
  siz% = filebin_size(1)
  if variable("block%")=1 then free block%
  dim block%(siz%)
  item_add 10,"Taille: "+str$(siz%)
  if siz%>10000 then siz% = 10000
  filebin_block_read 1,siz%,block%(0)
  filebin_close 1
  return

dump:
  i% = 0
  s$ = ""
  t$ = ""
  while i%<siz%
    if block%(i%)<32
      t$ = t$ + ".  "
    else
      t$ = t$ + chr$(block%(i%)) + "  "
    end_if
    s$ = s$ + right$("0"+hex$(block%(i%)),2) + " "
    if len(s$)>90
      item_add 10,s$
      item_add 10,t$
      s$ = ""
      t$ = ""
      item_add 10,""
    end_if
    i% = i% + 1
  end_while
  if len(s$)>0
    item_add 10,s$
    item_add 10,t$
  end_if
  return

find:
  for i%=1 to siz%
    if block%(i%)=hex("7D")
      if block%(i%+1)=hex("78")
        if block%(i%+2)=hex("4")
          if block%(i%+3)=hex("10")
            l% = block%(i%-1)
            t$ = ""
            for j%=1 to l%
              t$ = t$ + chr$(block%(i%+4+3+j%))
            next j%
            path$ = t$
            item_add 10,"Cible: "+t$
            item_add 10," "
            return
          end_if
        end_if
      end_if
    end_if
  next i%
  path$ = "_"
  item_add 10,"Cible non trouvée !"
  item_add 10," "
  return
 

' test_raccourcis.bas

label load, dump, analyze

dim racc1$ : racc1$ = "Raccourci vers Test_EXECUTE.exe"
dim racc2$ : racc2$ = "Raccourci vers Test_EXECUTE.bas"
dim racc3$ : racc3$ = "C:\Test\Raccourci vers a.txt"
dim dump% : dump% = 0  : ' mettre 1 pour obtenir un dump hexa/alpha
dim s$, block%(1), siz%, i%, t$, l% , j% , off$, o% , o1%, o2% , dsk$
dim info%

dim flags%  : ' flags du raccourci
dim flags_shell%, flags_target%,  flags_description%,  flags_relative%
dim flags_work%, flags_arguments%, flags_icon%

dim racc$, path$ : ' paramètres entrée/sortie

width 0,1000 : height 0,800
memo 10 : top 10,10 : left 10,10
  bar_vertical 10 : font_name 10,"courier"
  width 10,950 : height 10,750

racc$ = racc1$
item_add 10,racc$
gosub load
if dump%=1 then gosub dump
gosub analyze
item_add 10,"Cible: "+path$
item_add 10," "

racc$ = racc2$
item_add 10,racc$
gosub load
if dump%=1 then gosub dump
gosub analyze
item_add 10,"Cible: "+path$
item_add 10," "

racc$ = racc3$
item_add 10,racc$
gosub load
if dump%=1 then gosub dump
gosub analyze
item_add 10,"Cible: "+path$
item_add 10," "

end

load:
  if lower$(right$(racc$,4))<>".lnk" then racc$ = racc$ + ".lnk"
  filebin_open_read 1,racc$
  siz% = filebin_size(1)
  if variable("block%")=1 then free block%
  dim block%(siz%)
  if dump%=1 then item_add 10,"Taille: "+str$(siz%)
  if siz%>10000 then siz% = 10000
  filebin_block_read 1,siz%,block%(0)
  filebin_close 1
  return

dump:
  i% = 0
  s$ = ""
  t$ = ""
  off$ = "0000 "
  while i%<siz%
    if block%(i%)<32
      t$ = t$ + ".  "
    else
      t$ = t$ + chr$(block%(i%)) + "  "
    end_if
    s$ = s$ + right$("0"+hex$(block%(i%)),2) + " "
    if len(s$)=48
      item_add 10,off$+s$
      item_add 10,off$+t$
      s$ = ""
      t$ = ""
      item_add 10,""
      off$ = right$("000"+hex$(i%+1),4)+" "
    end_if
    i% = i% + 1
  end_while
  if len(s$)>0
    item_add 10,off$+s$
    item_add 10,off$+t$
  end_if
  return

analyze:
  ' analyser les flags du raccourci
  flags% = block%(hex("14"))
' bit number and meanings:
' 0 The shell item id list is present. The shell item id list is absent.
' 1 Points to a file or directory. Points to something else.
' 2 Has a description string. No description string.
' 3 Has a relative path string. No relative path.
' 4 Has a working directory. No working directory.
' 5 Has command line arguments. No command line arguments.
' 6 Has a custom icon. Has the default icon.  return
  flags_shell% = bin_and(flags%,1)
  flags_target% = bin_and(flags%,2)
  flags_description% = bin_and(flags%,4)
  flags_relative% = bin_and(flags%,8)
  flags_work% = bin_and(flags%,16)
  flags_arguments% = bin_and(flags%,32)
  flags_icon% = bin_and(flags%,64)
  if dump%=1
    if flags_shell%>0 then item_add 10,"Shell item ID est présent"
    if flags_target%>0 then item_add 10,"Pointe vers un fichier ou dossier"
    if flags_description%>0 then item_add 10,"Description présente"
    if flags_relative%>0 then item_add 10,"Chemin relatif présent"
    if flags_work%>0 then item_add 10,"Dossier de travail présent"
    if flags_arguments%>0 then item_add 10,"Arguments de commande présents"
    if flags_icon%>0 then item_add 10,"Icône présente"
  end_if
  o% = hex("4C")
 
  if flags_target%>0
    o% = o% + 2 : ' dépasser la longueur de la section
    l% = block%(o%) + block%(o%+1)*256
    while l%>0  : ' dépasser toute la section
      o% = o% + l%
      l% = block%(o%) + block%(o%+1)*256
    end_while
    o% = o% + 2
  end_if
  if flags_target%>0
    o2% = o%
    o% = o% + 4 : ' dépasser la taille de la liste
    o% = o% + 4 : ' dépasser la taille de l'entête de la liste
    info% = block%(o%) + block%(o%+1)*256 + block%(o%+2)*256*256 + block%(o%+3)*256*256*256
    if bin_and(info%,1)>0    : ' volume and local base flag
      o% = o% + 8 : ' dépasser les infos et l'adresse du label
      o1% = o2% + block%(o%) + block%(o%+1)*256 + block%(o%+2)*256*256 + block%(o%+3)*256*256*256
      path$ = ""
      while block%(o1%)>0
        path$ = path$ + chr$(block%(o1%))
        o1% = o1% + 1
      end_while
    end_if
  end_if
  return