如何用vb 枚举某进程打开的所有文件? 高手帮忙

2008-01-24 03:02:14 221 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

带挂牵引车倒车运动模型推导及仿真实现半挂牵引车在倒车时，由于鞍座主销的连接限制，其运动方式与乘用车有显著差异。例如，乘用车在右侧倒车入库时，只需确定泊车起点并将方向盘向右打死。相反，牵引车在倒车时需要先向左转方向盘，当铰接角达到防折叠的临界值时，再将方向盘向右转回，以调整牵引车与挂车至直线状态，完成泊车入库。本研究旨在建立一个基于牵引车带挂车倒车运动学模型，该模型基于以下假设：道路在车辆行驶过程中保持平坦，无凹凸不平；车辆以低速行驶，且在运行过程中车身不发生侧倾或俯仰；行驶过程中，轮胎无变形，无侧向滑动，且不产阅读详情

如何用vb 枚举某进程打开的所有文件? 高手帮忙,我找了好多文章都是C++,有的地方看不懂,主要是语法差别比较大.

...全文

NLP实践——利用自己的语料进行Mask Language Model预训练 #!/usr/bin/env python # coding: utf-8 # In[1]: import os import json import copy from tqdm.notebook import tqdm import torch from torch.optim import AdamW from torch.utils.data import DataLoader, Dataset from transformers import BertForMaskedLM, BertTo 阅读详情

nanfei01055

API 1,488 成员 23,270 内容

+ 关注 + 加入社区

切换为时间正序

chenhui530 2008-02-14

打赏
举报

你不是要我给你把代码写完吧
关键性代码在几篇文章上都写得很详细

nanfei01055 2008-02-14

打赏
举报

chenhui530 的博客上的关于解锁的代码倒是很多,但我调试了好几天,没有出现任何结果,一运行,就死机,尽管你的博客上说如何处理,但始终没有调试通过,拷贝下来的代码根本不能直接使用,有好多错误,我先得注释或修整之后,不过最终还是没成功.
请问是否可以麻烦给写个函数(只传进程ID进去可以获得)或写段关键代码,在此先谢过了.

Phenlit 2008-01-25

打赏
举报

获取一个已装载模板的完整路径名称
Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

hModule个模块的句柄。可以是一个DLL模块，或者是一个应用程序的实例句柄
lpFileName字串缓冲区，要在其中容纳文件的用NULL字符中止的路径名，hModule模块就是从这个文件装载进来的

东方之珠 2008-01-25

打赏
举报

帮顶~~~~

chenhui530 2008-01-25

打赏
举报

你进了我的博客还找不到吗?你去查看关于解锁文件的文章就可以找到

nanfei01055 2008-01-25

打赏
举报

楼上的哪篇文章好像是解锁文件,我说的是枚举文件,你给的这个地址上函数好像还是需要传两个参数的:第一个参数是进程ID,第二个参数是什么,是文件句柄吗?关键的问题是如何找到此进程打开的文件(不只是.dll)句柄?麻烦楼上的再顶一下

'解锁指定进程的锁定文件
Public Function CloseRemoteHandle(ByVal dwProcessId, ByVal hHandle As Long) As Boolean
Dim hMyProcess As Long, hRemProcess As Long, blnResult As Long, hMyHandle As Long
Dim objCid As CLIENT_ID
Dim objOa As OBJECT_ATTRIBUTES
Dim ntStatus As Long
objCid.UniqueProcess = dwProcessId
objOa.Length = Len(objOa)
hMyProcess = GetCurrentProcess()
ntStatus = NtOpenProcess(hRemProcess, PROCESS_DUP_HANDLE, objOa, objCid)
If hRemProcess Then
ntStatus = NtDuplicateObject(hRemProcess, hHandle, GetCurrentProcess, hMyHandle, 0, 0, DUPLICATE_CLOSE_SOURCE Or DUPLICATE_SAME_ACCESS)
If (NT_SUCCESS(ntStatus)) Then
'If DuplicateHandle(hRemProcess, hMyProcess, hHandle, hMyHandle, 0, 0, DUPLICATE_CLOSE_SOURCE Or DUPLICATE_SAME_ACCESS) Then
blnResult = NtClose(hMyHandle)
End If
Call NtClose(hRemProcess)
End If
CloseRemoteHandle = blnResult
End Function

chenhui530 2008-01-24

打赏
举报

好象在哪我已经回复你了
http://blog.csdn.net/chenhui530/archive/2007/10/18/1831372.aspx

nanfei01055 2008-01-24

打赏
举报

我找到好多C++相关例子,都用到了ZwQueryInformationFile,用到的WaitForSingleObject以及多线程,我用VB调试多次多线程程序,动不动就让VB崩溃了,所有希望有高手帮忙

kbsssnlss 2008-01-24

打赏
举报

帮顶~~~~

如何用vb 枚举某进程打开的所有文件? 高手帮忙

相关推荐