Question

vb sendmessage 问题，为什么代码没有反应。

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindowEx Lib "USER32" Alias "FindWindowExA" (ByVal Hwnd1 As Long, ByVal Hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Sub Macro1()
Dim Hwnd1 As Long
Dim Hwnd2 As Long
Hwnd1 = FindWindow(vbNullString, "无标题 - 记事本")
Hwnd2 = FindWindowEx(Hwnd1, 0, "EDIT", vbNullString)
SendMessage Hwnd2, WM_LBUTTONDOWN, 0, 0
SendMessage Hwnd2, WM_LBUTTONUP, 0, 0
End Sub

求指出错误，各位可以试一试，真的没有反应。（解决了有额外奖赏）

Answer 1

我用你同样的代码在VB6中运行是没问题的。你是在VBA中运行的吗？Macro1子过程你是怎么调用的呢？

追问

我是在EXCEL附带的宏中运行的，就直新建一个模块，写入上面的代码，直接在窗口点击运行按钮，没有建任何窗体，难道这样会有差别吗?求指教！

追答

你这个代码会使空白记事本获得输入焦点，但并不会使记事本窗口变成前台窗口，所以如果记事本处在其它窗口的后面，你是看不到效果的，但代码实际上执行了。

追问

我特意把记事本和vb代码的窗口都拉到前面来了，虽然记事本不是前台窗口，但应该也能看到效果吧？这个代码意思不是模拟鼠标点击菜单栏的"编辑（E)"吗？那我应该看到有子菜单弹出的啊，可是实际上什么都没有弹出，大神能说一下为什么吗？万分感谢！

额，难道是说，EDIT的意思是记事本中输入字符的文本框吗？也就是上面代码知识模拟鼠标在文本框点击一下？

追答

你最后说的这个对了！EDIT是那个编辑框控件的类名！
原来你是把这个理解错了啊，我说呢