写一个Public Sub Typeword(Word as string)上来给我吧。。例如:Call typeword("你好")实现的效果是这样。。。Text1.Text="你_"Text1.Text="你好_"就这样显示下去。像打字一样。

模拟键盘 每秒自动输入一个字母'添加 Timer1 Text1 Command1Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Const KEYEVENTF_KEYUP = &H2Dim startc%Private Sub Form_Load() startc = 65 Timer1.Interval = 1000 Timer1.Enabled = FalseEnd SubPrivate Sub Command1_Click() Text1.Text = "" Text1.SetFocus Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() keybd_event startc, 0, 0, 0 keybd_event startc, 0, KEYEVENTF_KEYUP, 0 startc = IIf(startc >= 90, 65, startc + 1)End Sub今年过节不收礼，收礼只要邮箱登录器。哈哈，闲着没事做了个小软件，作礼物送给大家^_^http://www.yihe123.com/htm/down.htm

不符合我的要求。不过还是谢谢你。