用Visual Basic编制定时存盘程序

发表于:2007-07-14来源:作者:点击数: 标签:
我们知道,Word等软件具有定时存盘功能,隔一段时间就自动存盘,十分方便。可我们常用的“记事本”程序就没有此功能,其实用 VB 实现此功能十分简单,不出5分钟就可以搞定,不信试试看。 记事本中用Alt+F打开“文件”菜单,按“S”键保存,我们只要用VB的Se
我们知道,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