按键精灵8的后台 *** 作问题（获取当前窗口句柄）

//得到当前最前面的窗口句柄-就是把需要的窗口激活在最前面

Hwnd = PluginWindowForeground() //得到鼠标指向的窗口句柄Hwnd = PluginWindowMousePoint() 2种都是可以获取句柄的

获取句柄不一定要用 FindWindow ，还可以枚举：

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Const GW_HWNDFIRST = 0

Private Const GW_HWNDNEXT = 2

Private Sub Command1_Click()

Dim lngHwnd As Long, ret As Long

Dim s As String 255

Dim sName As String

lngHwnd = GetWindow(Mehwnd, GW_HWNDFIRST)

Do While lngHwnd

ret = GetWindowText(lngHwnd, s, 255)

sName = Blank(s)

If InStr(sName, "记事本") <> 0 Then '这里“记事本”替换成程序标题相同的部分

'这里写 将句柄加入数组的相关代码

End If

lngHwnd = GetWindow(lngHwnd, GW_HWNDNEXT)

Loop

End Sub

Public Function Blank(ByVal szString As String) As String

Dim l As Integer

l = InStr(szString, Chr(0))

If l > 0 Then

Blank = Left(szString, l - 1)

Else

Blank = szString

End If

End Function

解决这个问题的方法如下：

1、首先新建一个程序。

2、在程序里面画一个“按钮”、两个编辑框、两个标签，然后改成相应的名字好辨认。

3、依次左键点击下图的：

一、个作夹（没有点击的情况下才需要点击）

二、程序

三、模块应用。

4、在浏览窗口找到下载存放的超级模块位置，点击打开“超级模块”。

5、在模块下面便会多出一个“超级模块”。

6、双击按钮1，在子程序“_按钮1_被单击”下面新建一个名为“i”的整数型变量，然后编写代码如下：i ＝ 取句柄2 (“notepadexe”)编辑框1内容 ＝ 到文本 (i)。

7、编写以上代码后，就能取到“notepadexe”的窗口句柄了，然后，再来取窗口标题！继续编写代码如下：编辑框2内容 ＝ 取窗口标题 (取句柄2 (“notepadexe”))。

8、最后调试运行一下该程序，这样就完成了。

是里面 *** 作浏览器吧？ 你用的是 web还是超文本啊？

一般都是用模块 *** 作的， 精易模块， 普通填表初始化 (WebBrowser1取窗口句柄 ())这个是WEB浏览器， 还有普通填表初始化 (超文本浏览框1取窗口句柄 ()) 前面需要加个变量， 你说的IE 就是超文本浏览框，他是使用IE浏览器的， 后面代码就很简单了， 他的参数是什么填什么！！

以上就是关于按键精灵8的后台 *** 作问题（获取当前窗口句柄）全部的内容，包括:按键精灵8的后台 *** 作问题（获取当前窗口句柄）、vb如何获取到窗口的句柄、易语言，取窗口句柄并 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！