用Visual Basic编制定时存盘程序

我们知道，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分钟不到？ 

原文转自：http://www.ltesting.net