懂VB的帮我写一段代码。很简单的。先谢谢了。

我来理解一下你的意思,看对不对。
首先，程序要有这么一个功能：可以在一个文本框里输入一段文字，比如你和小李聊天，你就输入他的名字，当然别的字也可。
其次，这个程序还具有键盘捕捉功能，也就是说，无论你在什么应用程序里面操作时按下Esc键你写的这个程序都有能响应，对不对？比如说在QQ里面和我聊天，它也能响应ESC键？
第三，它还能产生一段预先设定好的文字，和你在程序里面输入的文字组合，形成一段新的文字是不是？
第四，它还能将这段文字自动填入你当前正在操纵的其它程序里面的文字输入界面中是不是？
用一个完整的例子来说明一下：
假定我们俩个在网上下棋，
开局前你在这个程序里写入我的名字“乐游原上的歌者”。
然后我们进入棋局开始下棋。（此时你写的这个程序并没有关闭，但我们已离开这个界面而处在下棋的界面了）
下了一会你不高兴了，于是你立马按下Esc键（就在下棋的界面里，而不必进入你写的这个程序），于是，下棋的界面上的对话框里出现了“臭棋蒌子，乐游原上的歌者”（你好和臭棋蒌子都是字符，其实没区别）
然后，你把这句话发给了我（就在下棋的界面里）。
是不是这么一个程序。
如果是,前三步都好实现，完全就是一个简版的间谍程序,躲在后端,偷偷摸摸地侦测别人的键盘输入。
第四步不会,你怎么知道每一个游戏软件的接口?
在WORD中可以实现,记事本中也可以,微软的很多软件都可以,因为他的接口是公开了的.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '这是延时的api不想要可以不用
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then '如果按下ESC
Text1 = ""
SendKeys "{ENTER}"
SendKeys "你"
Sleep 300 '延时300毫秒
DoEvents
SendKeys "好"
Sleep 300 '延时300毫秒
DoEvents
SendKeys "A"
Sleep 300 '延时300毫秒
DoEvents
SendKeys "{ENTER}"
End If
End Sub

记得采纳~

添加一个文本框，把MultiLine属性设置为True
Private Sub Form_Load()
Text1.Text = "A"
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then
SendKeys "{enter}你好A{enter}"
End If
End Sub

你这个为什么不用ctrl+c和ctrl+v，一样的效果啊。。。

我有写过的