VB编制定时存盘程序

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

  • 0
    点赞
  • 0
    评论
  • 1
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值