如果向另一个应用程序的TEXTBOX发送文本,该如何处理

如果向另一个应用程序的TEXTBOX发送文本
如果向另一个应用程序的TEXTBOX发送文本？

另外，如果装另外应用程序无效TEXTBOX的属性改为有效？

------解决方案--------------------
API 
SENDMESSAGE 'SETTEXT
FINDWINDOWEX
ENABLEDWINDOW
------解决方案--------------------
sendmessage,postmessage
------解决方案--------------------
学习，帮顶一下。。。
------解决方案--------------------
1、取得该TextBox的句柄
2、使用API函数：SendMessage或者PostMessage向它发送文本消息即可。
------解决方案--------------------

探讨

1、取得该TextBox的句柄
2、使用API函数：SendMessage或者PostMessage向它发送文本消息即可。

------解决方案--------------------

探讨

引用:
1、取得该TextBox的句柄
2、使用API函数：SendMessage或者PostMessage向它发送文本消息即可。



如何取得TextBox的句柄？假设已经知道该TextBox所在窗口的句柄

------解决方案--------------------
我用SendMessage怎么引起内存不能读呢？
下面是我的源码：
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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
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 Const WM_GETTEXT = &HD
Public a, b As Long

Private Sub Command1_Click()
a = FindWindow(vbNullString, "Form1")
End Sub

Private Sub Command2_Click()
b = FindWindowEx(a, 0, "ThunderRT6TextBox", vbNullString)
Dim tempstr As String * 256

Dim rtn As Long

rtn = SendMessage(b, WM_GETTEXT, 257, tempstr)

tempstr = Trim(tempstr)

MsgBox tempstr
End Sub

引起了内存不能读
------解决方案--------------------

探讨

我用SendMessage怎么引起内存不能读呢？
下面是我的源码：
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private ……

------解决方案--------------------
在我的资源页里有一个源码，完全符合你的要求，下载地址是http://download.csdn.net/user/JiLuoXingRen/all/4，可以先下【VB使用DDE数据交换技术【预览版】 】看看（这是不用分的，但没有源码），如果真的符合你的要求，就下【VB DDE数据交换技术】（要5个分），但是提醒一下，你要发送文本的那个程序必须是你能够编程的。
------解决方案--------------------
楼主已出国定居，后面的不要再回了！