VB,API函数中EM_REPLACESEL的纠结
类似像小外挂的形式。我想清除某程序的某个文本框的值，再发送值
SendMessage a2, EM_REPLACESEL, 0, ByVal 发送内容
上面这句的意思是发送 内容，但我想发送前 先清除，什么语句？
-----------------------------
程序的句柄和预写入文本框的句柄我都获取到了，
文本框的内容也可以写入了，但是就是要累加上去啊，郁闷~
SendMessage a2, EM_REPLACESEL, 0, ByVal ttt '向该句柄（文本框）发送 ttt的值
假如：ttt="http://forum.csdn.net"
一直是http://forum.csdn.nethttp://forum.csdn.nethttp://forum.csdn.nethttp://forum.csdn.net......郁闷
我只要一个http://forum.csdn.net就够了，
楼下的，怎么办？改怎么办？
附上我的源码，方便大家查看
http://www.zjbtq.com/测试.rar
[解决办法]
今天的这个程序代码如下：
Private Sub Command1_Click() a1 = FindWindow("ThunderRT6FormDC", "Form1") '检测是否有程序运行界面 a2 = FindWindowEx(a1, 0, "ThunderRT6TextBox", vbNullString) '获取该程序界面的Edit的句柄值 SendMessage a2, 7, 0, 0 '获取焦点 SendMessage a2, 177, 0, -1 '选中 SendMessage a2, EM_REPLACESEL, 0, ByVal "http://www.163.com" Command1.Caption = "成功！"'Timer1.Enabled = True'Timer1.Interval = 3000'Command1.Enabled = FalseEnd SubPrivate Sub Form_Load()hWnd1 = FindWindow("ThunderRT6FormDC", "Form1")If hWnd1 = 0 ThenMsgBox "未运行!"Unload MeExit SubEnd IfIf hWnd1 <> 0 Then'MsgBox "该游戏已经行!句柄:" & hWnd1End IfEnd SubPrivate Sub Timer1_Timer() a1 = FindWindow("ThunderRT6FormDC", "Form1") '检测是否有程序运行界面 a2 = FindWindowEx(a1, 0, "ThunderRT6TextBox", vbNullString) '获取该程序界面的Edit的句柄值 SendMessage a2, EM_REPLACESEL, 0, ByVal "http://www.163.com" Command1.Caption = "成功！"End Sub