FindWindowExA_文本
时间: 2023-07-12 11:57:42 浏览: 104
FindWindowExA是Windows API中的一个函数,用于在指定窗口的子窗口中查找符合指定条件的第一个子窗口。而"_文本"这个词可能是指要查找的子窗口的类名或窗口标题中包含的文本内容。因为FindWindowExA函数需要传入的参数包括父窗口句柄、子窗口类名、子窗口标题等,具体取决于要查找的子窗口的特征。
相关问题
Public Sub OpenChatWindow(ByVal name As String) If m_hWnd = 0 Then m_hWnd = FindWindowExA(0, 0, "WeChatMainWndForStore", vbNullString) End If If m_hWnd <> 0 Then Dim hEdit As Long hEdit = FindWindowExA(m_hWnd, 0, "Edit", vbNullString) If hEdit <> 0 Then SendMessageA hEdit, WM_SETTEXT, 0, ByVal name & vbNullChar PostMessageA hEdit, WM_KEYDOWN, VK_RETURN, 0 PostMessageA hEdit, WM_KEYUP, VK_RETURN, 0 End If End If End Sub 我运行了这个代码,但是m_hwnd=0
m_hWnd = 0表示微信主窗口的句柄不存在。在这段代码中,如果m_hWnd的值为0,则需要通过FindWindowExA函数来查找微信主窗口的句柄。如果FindWindowExA函数返回的句柄值为0,可能是因为没有找到相应的窗口。以下是可能的问题和解决方法:
1. 确认微信主窗口已经打开。如果微信主窗口还未打开,那么FindWindowExA函数无法找到相应的窗口,并返回0。需要确保微信已经启动,并且主窗口已经显示出来。
2. 确认窗口类名和窗口名是否正确。如果窗口类名或窗口名不正确,FindWindowExA函数也无法找到相应的窗口,并返回0。需要根据实际情况修改代码中的窗口类名和窗口名。
3. 确认代码是否正确。如果以上几种情况都确认无误,可能是代码本身存在问题。可以检查代码中的变量名、函数名等是否正确,以及代码中是否存在语法错误等问题。可以借助IDE等工具进行排查。
可以在代码中添加一些调试信息,例如输出窗口类名、窗口名和句柄值等,以便更好地进行排查。例如:
```vb.net
Public Sub OpenChatWindow(ByVal name As String)
Debug.Print("m_hWnd = " & m_hWnd)
If m_hWnd = 0 Then
m_hWnd = FindWindowExA(0, 0, "WeChatMainWndForStore", vbNullString)
Debug.Print("FindWindowExA returned " & m_hWnd)
End If
If m_hWnd <> 0 Then
Dim hEdit As Long
hEdit = FindWindowExA(m_hWnd, 0, "Edit", vbNullString)
Debug.Print("FindWindowExA returned " & hEdit)
If hEdit <> 0 Then
SendMessageA hEdit, WM_SETTEXT, 0, ByVal name & vbNullChar
PostMessageA hEdit, WM_KEYDOWN, VK_RETURN, 0
PostMessageA hEdit, WM_KEYUP, VK_RETURN, 0
End If
End If
End Sub
```
在上述代码中,添加了Debug.Print语句用于输出调试信息。可以通过调试窗口查看输出的信息,以便更好地进行排查。
帮我封装WeChat_control 以便实现上述代码
好的,以下是一个可能的`WeChat_control`类的封装实现。该类封装了微信PC客户端API的常用功能,可以方便地实现打开微信、打开聊天窗口、发送消息等操作。请将以下代码保存为一个名为`WeChat_control`的类模块。
```
Option Explicit
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Any, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
Private Declare Function WaitForInputIdle Lib "user32" (ByVal hProcess As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Const GW_HWNDNEXT = 2
Private Const WM_SETTEXT = &HC
Private Const WM_GETTEXT = &HD
Private Const WM_GETTEXTLENGTH = &HE
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Const VK_RETURN = &HD
Private m_WeChatPath As String
Private m_WeChatHWnd As Long
Private m_WeChatEditHWnd As Long
Private m_ChatHWnd As Long
Private m_ChatTitle As String
Public Property Let WeChatPath(ByVal value As String)
m_WeChatPath = value
End Property
Public Sub StartWeChat()
'启动微信PC客户端
Dim pid As Long
pid = Shell(m_WeChatPath, vbNormalFocus)
'等待微信窗口加载完成
Do While m_WeChatHWnd = 0
m_WeChatHWnd = FindWindowEx(0&, m_WeChatHWnd, "WeChatMainWndForPC", vbNullString)
Sleep 100
Loop
'等待微信进程空闲
WaitForInputIdle pid, 5000
'获取微信编辑框句柄
m_WeChatEditHWnd = FindWindowEx(m_WeChatHWnd, 0&, "Edit", vbNullString)
End Sub
Public Sub OpenChatWindow(ByVal title As String)
'打开聊天窗口
Dim hwnd As Long
hwnd = FindWindowEx(m_WeChatHWnd, 0&, "WeChatChatWndForPC", vbNullString)
Do While hwnd > 0
If WindowText(hwnd) = title Then
m_ChatHWnd = hwnd
m_ChatTitle = title
Exit Sub
End If
hwnd = FindWindowEx(m_WeChatHWnd, hwnd, "WeChatChatWndForPC", vbNullString)
Loop
SendMessageTimeout m_WeChatHWnd, &H10, 0&, 0&, 2, 5000, ByVal 0&
SendMessageTimeout m_WeChatHWnd, &H10, 0&, 0&, 2, 5000, ByVal 0&
SendMessageTimeout m_WeChatHWnd, &H10, 0&, 0&, 2, 5000, ByVal 0&
hwnd = FindWindowEx(m_WeChatHWnd, 0&, "WeChatChatWndForPC", vbNullString)
Do While hwnd > 0
If WindowText(hwnd) = title Then
m_ChatHWnd = hwnd
m_ChatTitle = title
Exit Sub
End If
hwnd = FindWindowEx(m_WeChatHWnd, hwnd, "WeChatChatWndForPC", vbNullString)
Loop
End Sub
Public Sub SendMessage(ByVal text As String)
'发送消息
If m_ChatHWnd = 0 Then Exit Sub
SendMessageTimeout m_ChatHWnd, WM_SETTEXT, 0&, ByVal text, 2, 5000, ByVal 0&
SendMessageTimeout m_WeChatEditHWnd, WM_KEYDOWN, VK_RETURN, 0&, 2, 5000, ByVal 0&
SendMessageTimeout m_WeChatEditHWnd, WM_KEYUP, VK_RETURN, 0&, 2, 5000, ByVal 0&
End Sub
Public Function WindowText(ByVal hwnd As Long) As String
'获取窗口标题
Dim len As Long
len = SendMessageTimeout(hwnd, WM_GETTEXTLENGTH, 0&, ByVal 0&, 2, 5000, ByVal 0&)
If len > 0 Then
Dim buf As String
buf = Space(len + 1)
SendMessageTimeout hwnd, WM_GETTEXT, len + 1, ByVal buf, 2, 5000, ByVal 0&
WindowText = Left$(buf, len)
End If
End Function
```
使用示例:
```
Sub main()
'创建WeChat_control对象
Dim WeChat As New WeChat_control
'设置微信PC客户端路径
WeChat.WeChatPath = "E:\WeChat\WeChat.exe"
'启动微信PC客户端
WeChat.StartWeChat
'等待微信窗口加载完成(可根据需要设置等待时间)
Sleep 5000
'打开目标窗口
WeChat.OpenChatWindow "文件传输助手"
'向目标窗口发送消息
WeChat.SendMessage "负胜已分"
End Sub
```