Работа с файлами, занятыми другим процессом - Файлы - Интересные решения для программистов - Примеры кода

Файлы → Работа с файлами, занятыми другим процессом → Visual Basic

Работа с файлами, занятыми другим процессом...Пример переделан со статей: 3 метода работы с занятыми файлами [C] & Работаем с хендлами [VB.6]

Imports System.Runtime.InteropServices

Namespace Tested.Handle

Module HandleReplace

Private Declare Function VirtualAlloc Lib "kernel32" ( _
      ByVal lpAddress As Integer _
      , ByVal dwSize As Integer _
      , ByVal flAllocationType As Integer _
      , ByVal flProtect As Integer _
      ) As Integer

Private Declare Function VirtualFree Lib "kernel32" ( _
      ByVal lpAddress As Integer _
      , ByVal dwSize As Integer _
      , ByVal dwFreeType As Integer _
      ) As Integer

Private Declare Function ZwQuerySystemInformation Lib "ntdll.dll" ( _
      ByVal infoClass As Integer _
      , ByVal buf As Integer _
      , ByVal bufSize As Integer _
      , ByVal retSize As Integer _
      ) As Integer

Private Declare Function DuplicateHandle Lib "kernel32.dll" ( _
      ByVal hSourceProcessHandle As Integer _
      , ByVal hSourceHandle As Integer _
      , ByVal hTargetProcessHandle As Integer _
      , ByRef lpTargetHandle As Integer _
      , ByVal dwDesiredAccess As Integer _
      , ByVal bInheritHandle As Integer _
      , ByVal dwOptions As Integer _
      ) As Integer

Public Declare Function OpenProcess Lib "kernel32.dll" ( _
      ByVal dwDesiredAccessas As Integer _
      , ByVal bInheritHandle As Integer _
      , ByVal dwProcId As Integer _
      ) As Integer

Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Integer

Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Integer) As Integer

Private Structure HANDLE_FILE_INFORMATION
      Dim dwFileAttributes As Integer
      Dim ftCreationTime As FILETIME
      Dim ftLastAccessTime As FILETIME
      Dim ftLastWriteTime As FILETIME
      Dim dwVolumeSerialNumber As Integer
      Dim nFileSizeHigh As Integer
      Dim nFileSizeLow As Integer
      Dim nNumberOfLinks As Integer
      Dim nFileIndexHigh As Integer
      Dim nFileIndexLow As Integer
    End Structure

Private Structure FILETIME
      Dim dwLowDateTime As Integer
      Dim dwHighDateTime As Integer
    End Structure

Private Structure SYSTEM_HANDLE_INFORMATION
      Dim ProcessId As Integer
      Dim ObjectTypeNumber As Byte
      Dim Flags As Byte
      Dim Handle As Short
      Dim Cur_Object As Integer
      Dim GrantedAccess As Integer
    End Structure

Private Const MEM_COMMIT As Integer = &H1000S
    Private Const MEM_DECOMMIT As Integer = &H4000S
    Private Const MEM_RELEASE As Integer = &H8000S
    Private Const PAGE_READWRITE As Integer = &H4S
    Private Const CONST_SYSTEM_HANDLE_INFORMATION As Short = &H10S
    Private Const STATUS_INFO_LENGTH_MISMATCH As Integer = (-1073741820)
    Private Const DUPLICATE_SAME_ACCESS As Integer = &H2S
    Private Const PROCESS_DUP_HANDLE As Integer = &H40S

Sub Main()

Dim Arr() As SYSTEM_HANDLE_INFORMATION
      Dim hCnt As Integer
      Dim St, mPtr, mSize, mPtr2, ret As Integer
      Dim hProcess, hHandle As Integer
      Dim i As Integer
      mSize = 4000

Dim L As Short

Do
        mPtr = VirtualAlloc(0, mSize, MEM_COMMIT, PAGE_READWRITE)

St = ZwQuerySystemInformation(CONST_SYSTEM_HANDLE_INFORMATION, mPtr, mSize, ret)

If St = STATUS_INFO_LENGTH_MISMATCH Then

VirtualFree(mPtr, 0, MEM_DECOMMIT)

mSize = mSize * 2

End If

L = 1

Loop While St = STATUS_INFO_LENGTH_MISMATCH

hCnt = Marshal.ReadInt32(CType(mPtr, IntPtr))

ReDim Arr(hCnt)

mPtr2 = mPtr

mPtr = mPtr + 4

For i = 1 To hCnt

Marshal.PtrToStructure(CType(mPtr, IntPtr), Arr(i))

mPtr = mPtr + 16

Dim CurObj As SYSTEM_HANDLE_INFORMATION

For Each CurObj In Arr

hProcess = OpenProcess(PROCESS_DUP_HANDLE, 0, Arr(i).ProcessId)

DuplicateHandle(hProcess, Arr(i).Handle, GetCurrentProcess, hHandle, 0, 0, 
DUPLICATE_SAME_ACCESS)

...
 ...

И т.д.

Console.ReadLine()

End Sub

End Module

End Namespace

.net, file, lock, vb, visual basic

KOS_MOS

На?уралист?

19.10.2008

Меню

Подписка на RSS:

Подпишись на RSS-ленту

Поиск

Облако тегов

	Файлы → Работа с файлами, занятыми другим процессом → Visual Basic Работа с файлами, занятыми другим процессом...Пример переделан со статей: 3 метода работы с занятыми файлами [C] & Работаем с хендлами [VB.6] Imports System.Runtime.InteropServices Namespace Tested.Handle Module HandleReplace Private Declare Function VirtualAlloc Lib "kernel32" ( _ ByVal lpAddress As Integer _ , ByVal dwSize As Integer _ , ByVal flAllocationType As Integer _ , ByVal flProtect As Integer _ ) As Integer Private Declare Function VirtualFree Lib "kernel32" ( _ ByVal lpAddress As Integer _ , ByVal dwSize As Integer _ , ByVal dwFreeType As Integer _ ) As Integer Private Declare Function ZwQuerySystemInformation Lib "ntdll.dll" ( _ ByVal infoClass As Integer _ , ByVal buf As Integer _ , ByVal bufSize As Integer _ , ByVal retSize As Integer _ ) As Integer Private Declare Function DuplicateHandle Lib "kernel32.dll" ( _ ByVal hSourceProcessHandle As Integer _ , ByVal hSourceHandle As Integer _ , ByVal hTargetProcessHandle As Integer _ , ByRef lpTargetHandle As Integer _ , ByVal dwDesiredAccess As Integer _ , ByVal bInheritHandle As Integer _ , ByVal dwOptions As Integer _ ) As Integer Public Declare Function OpenProcess Lib "kernel32.dll" ( _ ByVal dwDesiredAccessas As Integer _ , ByVal bInheritHandle As Integer _ , ByVal dwProcId As Integer _ ) As Integer Private Declare Function GetCurrentProcess Lib "kernel32.dll" () As Integer Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Integer) As Integer Private Structure HANDLE_FILE_INFORMATION Dim dwFileAttributes As Integer Dim ftCreationTime As FILETIME Dim ftLastAccessTime As FILETIME Dim ftLastWriteTime As FILETIME Dim dwVolumeSerialNumber As Integer Dim nFileSizeHigh As Integer Dim nFileSizeLow As Integer Dim nNumberOfLinks As Integer Dim nFileIndexHigh As Integer Dim nFileIndexLow As Integer End Structure Private Structure FILETIME Dim dwLowDateTime As Integer Dim dwHighDateTime As Integer End Structure Private Structure SYSTEM_HANDLE_INFORMATION Dim ProcessId As Integer Dim ObjectTypeNumber As Byte Dim Flags As Byte Dim Handle As Short Dim Cur_Object As Integer Dim GrantedAccess As Integer End Structure Private Const MEM_COMMIT As Integer = &H1000S Private Const MEM_DECOMMIT As Integer = &H4000S Private Const MEM_RELEASE As Integer = &H8000S Private Const PAGE_READWRITE As Integer = &H4S Private Const CONST_SYSTEM_HANDLE_INFORMATION As Short = &H10S Private Const STATUS_INFO_LENGTH_MISMATCH As Integer = (-1073741820) Private Const DUPLICATE_SAME_ACCESS As Integer = &H2S Private Const PROCESS_DUP_HANDLE As Integer = &H40S Sub Main() Dim Arr() As SYSTEM_HANDLE_INFORMATION Dim hCnt As Integer Dim St, mPtr, mSize, mPtr2, ret As Integer Dim hProcess, hHandle As Integer Dim i As Integer mSize = 4000 Dim L As Short Do mPtr = VirtualAlloc(0, mSize, MEM_COMMIT, PAGE_READWRITE) St = ZwQuerySystemInformation(CONST_SYSTEM_HANDLE_INFORMATION, mPtr, mSize, ret) If St = STATUS_INFO_LENGTH_MISMATCH Then VirtualFree(mPtr, 0, MEM_DECOMMIT) mSize = mSize * 2 End If L = 1 Loop While St = STATUS_INFO_LENGTH_MISMATCH hCnt = Marshal.ReadInt32(CType(mPtr, IntPtr)) ReDim Arr(hCnt) mPtr2 = mPtr mPtr = mPtr + 4 For i = 1 To hCnt Marshal.PtrToStructure(CType(mPtr, IntPtr), Arr(i)) mPtr = mPtr + 16 Next Dim CurObj As SYSTEM_HANDLE_INFORMATION For Each CurObj In Arr hProcess = OpenProcess(PROCESS_DUP_HANDLE, 0, Arr(i).ProcessId) DuplicateHandle(hProcess, Arr(i).Handle, GetCurrentProcess, hHandle, 0, 0, DUPLICATE_SAME_ACCESS) ... ... И т.д. Next Console.ReadLine() End Sub End Module End Namespace .net, file, lock, vb, visual basic KOS_MOS На?уралист? 19.10.2008 Ваше имя Ваш E-mail (если хотите отслеживать комментарии) Дoкажи, что ты не робот Текст комментария	Меню CodeIgniter Алгоритмы Базы данных Дата и Время Интернет Интерфейс Мультимедиа ОС и Железо Работа с текстом Разное Технологии Файлы Подписка на RSS: Подпишись на RSS-ленту Поиск Облако тегов .net array asp bash browser charset check class clean convert count create css curl database date delete directory download element email equivalent extension file find form format function get height html http ie image javascript jquery load mysql number page perl php random scriplet send shell size sql string text time url utf8 variable vb visual basic width window xml xslt