用PostMessage 发送字符，为什么持续发送

Answer 1

定义问题，最后一个参数，在VB中通常解释为地址，所以实际调用的时候，在最后一个实参前加上byval关键字

Answer 2

Private Const WM_SETTEXT = &HC
Private Const WM_KEYDOWN = &H100
Private Const WM_KEYUP = &H101
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Private Sub Command1_Click()
Dim hWnd() As Long
找到窗口 = 搜索所有模糊窗口("新建", 2, hWnd())
If 找到窗口 Then
编辑区 = FindWinEx(hWnd(0), 0, "Edit", 0)
SendMessage 编辑区, WM_SETTEXT, 0, "sss" & Chr(0)
PostMessage 编辑区, WM_KEYDOWN, vbKeyReturn, 0
PostMessage 编辑区, WM_KEYUP, vbKeyReturn, 0
End If
End Sub