mbrowser.bas

W32HLLP病毒清除工具,专门处理被W32HLLP感染的病毒档案.

Attribute VB_Name = "mBrowser"
Option Explicit

'  This code module & it's accompanying form module, BrowsDlg.frm,
'  demonstrate how to display the "Browse for Folder" dialog box and
'  return a user selected folder. The Win32 API structures, functions &
'  constants used below are not documented for use with VB 4.0 (32 bit)
'  in any conventional sense. The structures &  functions were translated
'  from the information available in the MSDN/VB Starter Kit. The constant
'  values were extracted from the VC++ 4.0 Shlobg.h header file.
'
'  For more information, in the MSDN/VB Starter Kit see the following:
'     Product Documentation
'       SDKs
'          Win32 SDK
'             Guides
'                Programmer's Guide to Windows 95
'                   Extending the Windows 95 Shell

'         Hope it comes in handy,
'           Brad Martiez

'///////////////////////////////////////////////////////////////////////////////////////////////////////////

'  A little info...
'  Objects in the shell抯 namespace are assigned item identifiers and item
'  identifier lists. An item identifier uniquely identifies an item within its parent
'  folder. An item identifier list uniquely identifies an item within the shell抯
'  namespace by tracing a path to the item from the desktop.

'///////////////////////////////////////////////////////////////////////////////////////////////////////////

'  An item identifier is defined by the variable-length SHITEMID structure.
'  The first two bytes of this structure specify its size, and the format of
'  the remaining bytes depends on the parent folder, or more precisely
'  on the software that implements the parent folder抯 IShellFolder interface.
'  Except for the first two bytes, item identifiers are not strictly defined, and
'  applications should make no assumptions about their format.
Type SHITEMID   'mkid
    cb As Long      'Size of the ID (including cb itself)
    abID As Byte   'The item ID (variable length)
End Type

'  The ITEMIDLIST structure defines an element in an item identifier list
'  (the only member of this structure is an SHITEMID structure). An item
'  identifier list consists of one or more consecutive ITEMIDLIST structures
'  packed on byte boundaries, followed by a 16-bit zero value. An application
'  can walk a list of item identifiers by examining the size specified in each
'  SHITEMID structure and stopping when it finds a size of zero. A pointer
'  to an item identifier list, is sometimes called a PIDL (pronounced piddle)
Type ITEMIDLIST  'idl
    mkid As SHITEMID
End Type

'  Converts an item identifier list to a file system path.
'  Returns TRUE if successful or FALSE if an error occurs