找到窗口句柄后,获取窗口大小,然后进行判断大小,区别大号窗口和小号窗口。
比较大小:
获取窗口客户区大小sRect = PluginWindowGetClientRect(Hwnd)
然后分割,Aim = split(sRect,"|")
取x,y长度,进行判断大小。
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Sub Command1_Click()
Dim i As Long
i = FindWindowEx(0, 0, vbNullString, "TestWindow")
Do Until i = 0
SetWindowPos i, Mehwnd, 0, 0, 640, 480, 0
i = FindWindowEx(0, i, vbNullString, "TestWindow")
Loop
End Sub
以上代码是搜索所有标题为“TestWindow”的窗口,并把它们移到桌面左上角,大小设置为640480,是精简得不能再简的代码了,只用了两个API函数。你在此基础上修改一下就行了。
使用FindWindow函数获取窗口句柄。根据查询窗口句柄相关信息得知,窗口句柄的类名总是变化搜索使用FindWindow函数获取窗口句柄。使用FindWindow函数获取窗口句柄,然后获得窗口大小,并且移动窗口到指定位置。
如果是通过 IDE 拖进控件的方式,就直接设置这个控件的窗口大小就行,
如果是通过免注册调用的方式,那么就用 APlayer_GetWindow(APlayer句柄)的方式获取 APlayer 的窗口句柄,然后通过 Windows API SetWindowPos 来设置该窗口(APlayer)的大小,
至于全屏,APlayer 没有直接提供全屏的方法,而是由调用者设置 APlayer 铺满整个屏幕并且设置“总在最前”属性来实现全屏。
以上就是关于按键精灵里大漠模糊遍历找2个相同标题的窗口,大号和小号,请问怎样首先找到大号,后找到小号全部的内容,包括:按键精灵里大漠模糊遍历找2个相同标题的窗口,大号和小号,请问怎样首先找到大号,后找到小号、VB 获得窗口句柄、窗口句柄的类名总是变化如何搜索等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)