请教一个折腾了我无数次未果的问题. SendMessage清除Debug.Print的立即窗口

cgx5871

关于如何稳定地清除VBE的"立即窗口", 搜索过无数资料.首先, 大部分找到的答案是:
1.  Send Ctrl+G  定位到该窗口, 再Ctrl+A,  再删除,   这种风险很大,  容易误删代码窗口.

2.  先用Debug.Print循环几十次空白行, 来达到清空的目的.

以上, 都不是满意的答案.
最完美的办法, 应该是取得hwnd后,  直接用WM_SETTEXT,  变成输出的文本.

但测试下来.  它只改变了窗口标题. 却没能改变窗口内的内容.

退而求次,  定位"立即窗口" 后用Ctrl+A删除后, 再输出Debug.Print
但发现, 由于按键有延时效果. 会把自身都删除了.

求论坛高手  有什么更好的办法解决呢?

1. Option Explicit
   
2. 
   
3. Private Declare PtrSafe Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
   
4. Private Declare PtrSafe Function FindWindowExA Lib "user32" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr
   
5. Private Declare PtrSafe Function PostMessageA Lib "user32" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long
   
6. Private Declare PtrSafe Function SendMessageA Lib "user32" (ByVal hWnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As Long
   
7. Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As LongPtr)
   
8. 
   
9. Private Const WM_ACTIVATE As Long = &H6
   
10. Private Const KEYEVENTF_KEYUP = &H2
    
11. Private Const VK_CONTROL = &H11
    
12. 
    
13. Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    
14. Private Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    
15. Private Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
    
16. Private Declare PtrSafe Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
    
17. Private Declare PtrSafe Function IsWindowVisible Lib "user32" (ByVal hWnd As Long) As Boolean
    
18. Private Declare PtrSafe Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpszClass As String, ByVal lpszWindow As String) As Long
    
19. Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    
20. 
    
21. Private Const WM_GETTEXT As Integer = &HD
    
22. Private Const WM_GETTEXTLENGTH As Integer = &HE
    
23. Private Const WM_SETTEXT As Integer = &HC
    
24. 
    
25. Sub test()
    
26.    Call dp("w")
    
27. End Sub
    
28. Sub dp(ByVal s As String)
    
29.     Dim hwndVBE As LongPtr
    
30.     Dim hwndImmediate As LongPtr
    
31.    
    
32.     hwndVBE = FindWindowA("wndclass_desked_gsk", vbNullString)
    
33.     'hwndImmediate = FindWindowExA(hwndVBE, ByVal 0&, "VbaWindow", "Immediate") ' English caption
    
34.     hwndImmediate = FindWindowExA(hwndVBE, ByVal 0&, "VbaWindow", "立即窗口") ' Chinese caption
    
35.     'If hwndImmediate = 0 Then hwndImmediate = FindWindowExA(hwndVBE, ByVal 0&, "VbaWindow", "Direct") ' Dutch caption
    
36.         Debug.Print hwndImmediate, s
    
37.     If hwndImmediate > 0 Then
    
38.         PostMessageA hwndImmediate, WM_ACTIVATE, 1, 0&
    
39.         keybd_event VK_CONTROL, 0, 0, 0
    
40.         keybd_event vbKeyA, 0, 0, 0
    
41.         keybd_event vbKeyA, 0, KEYEVENTF_KEYUP, 0
    
42.         keybd_event VK_CONTROL, 0, KEYEVENTF_KEYUP, 0
    
43.         
    
44.         keybd_event vbKeyDelete, 0, 0, 0
    
45.         keybd_event vbKeyDelete, 0, KEYEVENTF_KEYUP, 0
    
46.         'Debug.Print s    '测试由于按键延时, 会把自身删除.
    
47.     End If
    
48.     SendMessage hwndImmediate, WM_SETTEXT, 0, ByVal s
    
49. End Sub

复制代码

lss001

        keybd_event vbKeyDelete, 0, KEYEVENTF_KEYUP, 0
        Stop'暂停
        Debug.Print s    '测试由于按键延时, 会把自身删除.

Sub ClearImmediate()

    x = "excel" '打印文本x
    SendKeys "^g" & x & ""
    SendKeys "^g^a{del}" '删除旧文本
    y = "vba" '打印文本y
    SendKeys "^g" & y & ""
   
End Sub

cgx5871

lss001 发表于 2021-2-27 11:44
keybd_event vbKeyDelete, 0, KEYEVENTF_KEYUP, 0
        DoEvents '转让控制权，以便让操作系统 ...

我就是吃过一次亏, Ctrl+A 误删了代码.
再也不敢去试这种方式了.

nk0769

弹出窗口自动关闭?

cgx5871

lss001 发表于 2021-2-27 11:44
keybd_event vbKeyDelete, 0, KEYEVENTF_KEYUP, 0
        DoEvents '转让控制权，以便让操作系统 ...

测试发现,
VBA.DoEvents '转让控制权  
效果就和Debug.Print是一样的.  并不能删除原来的 Debug.Print

lss001

cgx5871 发表于 2021-3-2 12:35
测试发现,
VBA.DoEvents '转让控制权  
效果就和Debug.Print是一样的.  并不能删除原来的 Debug.Print

可参考2楼更新。。。。。。