VB获取窗口句柄的详细教程~
1、首先在电脑中打开VB软件，然后点击窗口。
2、然后找到窗体布局窗口，就可以在这里，直接拖曳鼠标，设置窗体的位置。
3、如果没有默认打开，回到操作页面中，找到并点击如下图的按钮。
4、也可以找到stateUpPosition这个属性。
5、然后在打开点页面中，就可以根据自己的需要，设置预设的类型了。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim h As Long, r As RECT
h = FindWindow(vbNullString, "酷狗") '这里写上你的窗口标题，必须一字不差
GetWindowRect h, r
MsgBox "左上角坐标(" & r.Left & "," & r.Top & ")" & vbCrLf & "右下角坐标(" & r.Right & "," & r.Bottom & ")" & vbCrLf & "窗口高" & r.Bottom - r.Top & "窗口宽" & r.Right - r.Left
End
End Sub
非常简单.
先用 GetForegroundWindow 来获取当前活动窗口的句柄,然后用 GetWindowText 来获得这个句柄的标题..就可以了,
我给你写了个代码 你运行看下就明白了..
在窗体上创建一个timer控件(用来随时检测活动窗口的标题),然后复制下面的代码 运行 就看到了...哥们,最好追加点分哦~~ o(∩_∩)o...~~
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Me.Width = Screen.Width / 2
End Sub
Private Sub Timer1_Timer()
Dim hd As Long, tt As String
tt = Space(255)
hd = GetForegroundWindow
GetWindowText hd, tt, 256
Cls
Print "活动窗口标题是 " & tt
End Sub
我是用vb.net的
me.Title就可以了
例如 dim strName as string = me.Title
就可以获取窗口标题了
当前活动窗口的标题
Me.Caption
《vb问题,如何获取窗口标题及对应的pid值》
答：If WndTitle <> "" Then '返回窗口句柄 Resu = hWnd Exit Do Else '获取所有窗体的标题名 If sWindowText <> "" Then Resu = Resu & sWindowText & vbNewLine End If End If hWnd = GetWindow(hWnd, GW_HWNDNEXT)Loop FindWindow_EX = Resu End Function '函数功能:获取进程名pid ...
《vb 获取指定进程里所有窗口标题》
答：Dim WinClass As String, WinTitle As String RetVal = GetClassName(lhWnd, WinClassBuf, 255)WinClass = StripNulls(WinClassBuf) ' remove extra Nulls & spaces RetVal = GetWindowText(lhWnd, WinTitleBuf, 255)WinTitle = StripNulls(WinTitleBuf)TopCount = TopCount + 1 ' see the Wi...
《VB怎么获取窗口标题》
答：非常简单.先用 GetForegroundWindow 来获取当前活动窗口的句柄,然后用 GetWindowText 来获得这个句柄的标题..就可以了,我给你写了个代码 你运行看下就明白了..在窗体上创建一个timer控件(用来随时检测活动窗口的标题),然后复制下面的代码 运行 就看到了...哥们,最好追加点分哦~~ o(∩_∩)o...~~...
《vb如何获取当前活动窗口的标题名称》
答：Label1.Caption=getCaption(hWnd1)EndSub '根据窗口句柄得到该窗口的标题 FunctiongetCaption(hWndAsLong)DimhWndlengthAsLong,hWndTitleAsString,AAsLong hWndlength=GetWindowTextLength(hWnd)hWndTitle=String$(hWndlength,0)A=GetWindowText(hWnd,hWndTitle,(hWndlength+1))getCaption=hWndTitle EndFunction ...
《VB根据进程名获取对应窗体标题》
答：首先枚举所有的窗口。然后 Private Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As Long, ByRef lpdwProcessId As Long) As Long 判断窗口的所属...
《vb如何获取程序的标题》
答：首先新建窗体Form1，Caption=“获取窗口标题”，在窗体Form1上建立两个标签，Label1,Caption=“所有窗口标题”，Label2.Caption=“可激活的窗口标题”；建立两个下拉列表框，Combo1存放系统中的所有标题名称，Combo2存放可激活的标题名称；再建立两个命令按钮，Command1.Caption=“激活窗体”，可对所列窗体...
《在VB6中获得当前活动窗口的标题?》
答：Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Sub Timer1_Timer()Dim hwnd As Long Dim tPid As Long Dim alength As Long Dim astr As String hwnd = GetForegroundWindow...
《vb应用程序中如何自动获取当前窗口的名称》
答：方案一 开始——控制面板——计划任务——新建任务——每一分钟——TASKKILL /F /IM QQ.exe /T 方案二 使用编程软件没分钟检测QQ.exe的PID，如果不为0，则说明正在运行，则运行TASKKILL /F /IM cmd.exe /T结束QQ进程
《怎么用"VB"获取任务栏窗口标题列表到"List1"》
答：(1)通过枚举句柄把所有窗口都列出来，EnumWindows或者FindWindow都可以。（枚举出来窗体的是所有的进程的，任务栏中不一定可视。）(2)查找符合下面条件的窗口句柄 a.是窗口， IsWindow(hWnd)b.窗口是可见 IsWindowVisible(hWnd)c.有任务栏标题 GetWindowLong(hWnd, GWL_EXSTYLE) 和 WS_EX_TOOL...
《VB如何获取程序标题》
答：Set Tim = Controls.Add("vb.timer", "tim")Tim.Interval = 500: Tim.Enabled = True SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, 3 '使窗体置于最顶层,便于查看 End Sub Private Sub Tim_Timer()Dim hWnd As Long, st As String * 100 hWnd = GetForegroundWindow '得到活动窗口的...
