重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
方法有好多种
我们提供的服务有:网站设计、做网站、微信公众号开发、网站优化、网站认证、镇海ssl等。为近1000家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的镇海网站制作公司
1.如果窗口置于最顶层的话可以用FindWindow
窗口句柄=FindWindow(窗口类名,
vbNullString)
2.如果窗口是子窗口,先得知他的标识ID,再用GetDlgItem
窗口句柄=GetDlgItem(父窗口句柄,
标识ID)
3.还可以用GetWindow找与某源窗口有特定的关系
窗口句柄=GetWindow(父窗口句柄,GW_CHILD)
GetWindow第二个参数的介绍:
GW_CHILD
寻找源窗口的第一个子窗口
GW_HWNDFIRST
为一个源子窗口寻找第一个兄弟(同级)窗口,或寻找第一个顶级窗口
GW_HWNDLAST
为一个源子窗口寻找最后一个兄弟(同级)窗口,或寻找最后一个顶级窗口
GW_HWNDNEXT
为源窗口寻找下一个兄弟窗口
GW_HWNDPREV
为源窗口寻找前一个兄弟窗口
GW_OWNER
寻找窗口的所有者
首先声明一下API
在你窗口最顶的位置上写上
Private Declare Function 取窗口句柄 Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
'由于VB支持中文的 我就定义成 取窗口句柄 这个了
'在窗体中添加一个按钮里面放进下面代码就OK了
Private Sub Command1_Click()
Dim 窗口句柄 As Long '声明窗口句柄变量存储
窗口句柄 = 取窗口句柄(vbNullString, "新建 文本文档.txt - 记事本") '取窗口标题的句柄 把得到窗口标题句柄赋予给刚才 窗口句柄 这变量里
If 窗口句柄 = 0 Then '判断窗口句柄是否等于0 如果等于0表示无法找到窗口句柄
MsgBox "无法找到需要的窗口句柄"
Else
MsgBox "已找到窗口句柄 句柄数为:" 窗口句柄
End If
End Sub
可以说下你要干哈吗?
我看了一下这个框框,里面只有一个类名为edit的,也就是你要获取的框框,应该比较简单的,只要你能找到他的爸爸就可以了。
你想要的应该就是这个吧
'获取进程id
Dim p As Integer = Shell(TextBox1.Text)
'获取进程id对应的句柄
Dim h As IntPtr = System.Diagnostics.Process.GetProcessById(p).Handle
'显示进程id和对应的句柄
Debug.Print(p)
Debug.Print(h.ToString)