Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long Private Const WM_SETTEXT = &HCPrivate Sub Command1_Click() SendMessage &H20DCC, WM_SETTEXT, 0, ByVal "txt" End Sub
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As String) As Long
Private Const WM_SETTEXT = &HCPrivate Sub Command1_Click()
SendMessage &H20DCC, WM_SETTEXT, 0, ByVal "txt"
End Sub
SendMessage &H20DCC, WM_SETTEXT, 0, ByVal "txt"其中的&H20DCC 表示16进制数20DCC,如果你的句柄是10进制数,不用加&H,否则得不到你要的效果
窗口句柄是运行时动态分配的
建议用FindWindow查找窗口