Visual Basic, .NET, ASP, VBScript
 

   
 

: :

, , ?
 
     

-

: 1 |

 

  : LNK- : 08.12.05 21:01  

:  SerJ
, , (.LNK): , , . . WinRar.lnk:

L              F       `:s e Lx r
                     PO :i +00 /C:\                   J 1     3me PROGRA~1  2   テ3)c3    P r o g r a m   F i l e s    : 1     3Y{ WINRAR  $   テ3Y{3    W i n R A R    F 2  r
 2  WINRAR.EXE  ,   テ3Z{3    W i n R A R . e x e      Q            -       P         XWT    C:\Program Files\WinRAR\WinRAR.exe  * P r o c e s s   R A R ,   Z I P   a n d   o t h e r   a r c h i v e   f o r m a t s ( . . \ . . \ . . \ P r o g r a m   F i l e s \ W i n R A R \ W i n R A R . e x e      &   w      


, , - ( 8.3), , , , . Ѩ !?!

  : 10  

: 1
:
 HACKER


 

 Offline Client

: 236
: 8362
  | | #1 : 08.12.05 21:17
instr... ,

: 2
:
 SerJ



: 24
: 332
  | | #2 : 08.12.05 21:18
instr


:-) .... :-)

: 3
:
 SerJ



: 24
: 332
  | | #3 : 08.12.05 21:19
?

: 4
:
 el-paso



: 3
: 164
  | | #4 : 08.12.05 22:29
Microsoft Shell Controls And Automation. :


Public Sub PrintLinkInfo(LinkDirectory As String, LinkFileName As String)

    Dim shl As New Shell32.Shell
    Dim shlFolder As Shell32.Folder
    Dim shlFolderItem As Shell32.FolderItem
    Dim shlLink As Shell32.ShellLinkObject
    
    Set shlFolder = shl.NameSpace(LinkDirectory)
    Set shlFolderItem = shlFolder.ParseName(LinkFileName)
    Set shlLink = shlFolderItem.GetLink
    
    With shlLink
        Debug.Print .Arguments
        Debug.Print .Description
        Debug.Print .Hotkey
        Debug.Print .Path
        Debug.Print .ShowCommand
        Debug.Print .WorkingDirectory
    End With

End Sub



, LNK .
PrintLinkInfo "C:\Windows\", "XXX.lnk"

: 5
:
 SerJ



: 24
: 332
  | | #5 : 08.12.05 22:42
Microsoft Shell Controls And Automation


!!! - !!!
2 el-paso:
-, - - ( - - , ...)

: 6
:
 el-paso



: 3
: 164
  | | #6 : 08.12.05 22:45
, COM, , API .

Windows, 98...

: 7
:
 SerJ



: 24
: 332
  | | #7 : 08.12.05 22:50
, - ?

: 8
:
 el-paso



: 3
: 164
  | | #8 : 08.12.05 23:05
, ...


    With shlLink
        Debug.Print .Arguments
        Debug.Print .Description
        Debug.Print .Hotkey
        Debug.Print .Path
        Debug.Print .ShowCommand
        Debug.Print .WorkingDirectory
        
        Dim IconLocation As String
        .GetIconLocation IconLocation
        
        Debug.Print IconLocation ' EXE/DLL
        
    End With



, IconLocation , , LNK .

ExtractAssociatedIcon ( API).

: 9
:
 SerJ



: 24
: 332
  | | #9 : 08.12.05 23:05
- GetIconLocation, ?.....

: 10
:
 SerJ



: 24
: 332
  | | #10 : 08.12.05 23:09
, ..... Microsoft Shell Controls And Automation - SHELL32.DLL - - .... ..... ... :-(

: 1 |



Copyright 2002-2011 VBNet.RU |