|
|
我们知道，Word等软件具有定时存盘功能，隔一段时间就自动存盘，十分方便。可我们常用的“记事本”程序就没有此功能，其实用VB实现此功能十分简单，不出5分钟就可以搞定，不信试试看。
记事本中用Alt＋F打开“文件”菜单，按“S”键保存，我们只要用VB的Sendkeys语句定时将以上二键送出就完成了。
在VB中建一窗体form1,内加一时间控件timer1,程序实现每5分钟保存一次文件，代码如下：
Dim i As Integer
Private Sub Form_Load()
i = 0 '计数器初值
returnvalue=Shell("notepad .exe", 3) '记事本窗体最大化
AppActivat = returnvalue '激活记事本
Timer1.Interval = 1000
'定时器timer事件的时间间隔约1秒
Form1.WindowState = 1 'form窗体最小化
Timer1.Enabled = True '启动定时器
End Sub
Private Sub Timer1_Timer()
i = i ＋ 1 '计数器加一
If i = 300 Then
'约5分钟保存一次,可酌情'改变
i = 0 '计数器清零
SendKeys "％(F)", True '送出Alt＋F键
SendKeys "S", True '送出S键
End If
End Sub
将窗体及工程均取名为note并生成note.exe文件，以后使用记事本时运行note就可以了。怎么样，是不是5分钟不到？
|
|
