vb 句柄怎么用

Posted 2023-03-09

参考技术A OptionExplicit
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsLong
PrivateSubGetHandle()
DimResultAsLong
Resule=FindWindow(vbNullString,"迅雷看看播放器")'根据窗口标题取得窗体句柄
GetHandle=Result'返回句柄
EndSub
只是简单写了一下，你可以根据自己的要求改一下
刚才写错了。
应该是
OptionExplicit
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsInteger
PrivateSubGetHandle()
DimResultAsInteger
Resule=FindWindow(vbNullString,"迅雷看看播放器")'根据窗口标题取得窗体句柄
GetHandle=Result'返回句柄
EndSub
.......你用上面的代码出现错误了吗？
我没安装vb，不能验证代码的准确性。
上面的代码已经能返回完整的窗口句柄了,只需要改装一下就好。
OptionExplicit
PrivateDeclareFunctionFindWindowLib"user32"Alias"FindWindowA"(ByVallpClassNameAsString,ByVallpWindowNameAsString)AsInteger
PrivateSubGetHandle(strAsString)
DimResultAsInteger
Resule=FindWindow(vbNullString,str)
GetHandle=Result
EndSub
好久不用vb了，不知道写的格式对不对。改成这样的话，我们调用一下:
dimrHandle
rHandle=GetHandle("QQ2010")
rHandle=GetHandle("迅雷看看播放器")
等等。。。。
还有一种。是直接查找文件名。
我原来做的搞怪程序，会在制定日期查找wordexcel文件，并全部重命名。
里面用到了自动关闭其他程序。我发给你吧。 参考技术B 句柄主要用于对象的操作（这不同于内核不需要句柄可以直接操作对象体）
比如：
进程句柄可以通过
openprocess获取，句柄就代表了该进程对象，所有对该进程的操作都是可以通过该句柄来实现的，比如结束结束进程TerminateProcess
等等
还有类似像文件句柄（CreateFile/fopen），事件句柄等等
简单说就是为了操作对象