规定时间内向txt文本插入字符

来源：百度知道 编辑：UC知道 时间：2024/06/10 11:04:12
我的winform里 放了一个timer,想做这样的一个功能

每2秒种,向另外一个 程序或文本文档插入一个字母 a

实现功能酷似 按键精灵.
========================================================
但是这样做的话。如果我往已经开启的txt里写呢？总不能我的txt开开关关吧？

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Text1.Text = Text1.Text & "a"
Open "C:\Documents and Settings\Administrator\桌面\123.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

制作一个COMMAND 一个TIMER控件 一个TEXT 记得把TIMER的INTERVAL属性设置为2000 （2秒） 初始ENABLE设置为FALSE

这是我测试过的 应该可以的

那还是开按键精灵比较好.......

Text1.SetFocus
SendKeys "A"
可向自己的程序Text1中发送字母A。
Shell ("c:\windows\notepad.exe"),1
Sendkeys "A",True
可向记事本中发送字母A。

那就建议你看看 VB控制文件的知识 分好几种写文件的方法