求大神帮忙写个VBS代码，我想自动运行D:/a.exe程序，然后在这个程序界面上自动按‘F5’。

想做坏事吗

不是，我想每天定时运行这个程序进行一键整理数据。用windwos的任务计划，只能打开程序界面，但是不会自动‘一键整理’。

网上搜的  拿去看看能不能用

Dim WshShell, oNotepad
    Set WshShell = CreateObject("WScript.Shell") '创建WScript.Shell对象
    Set oNotepad = WshShell.Exec("notepad") '运行记事本
    WshShell.AppActivate oNotepad.ProcessID '激活记事本
    WScript.Sleep 300
    WshShell.SendKeys "CCCC"
    WScript.Sleep 300
    WshShell.SendKeys "CCCC"
    WScript.Sleep 300
    WshShell.SendKeys "CCCC"
    WScript.Sleep 300
    WshShell.SendKeys "^a" 'CTRL+A组合键——全选
    WScript.Sleep 200
    WshShell.SendKeys "^c" 'CTRL+C组合键——复制
    WScript.Sleep 200
    WshShell.SendKeys "%{F4}" '关闭当前的记事本窗体
    WScript.Sleep 300
    WshShell.SendKeys "!n" '关闭当前的记事本窗体,不保存
    WScript.Sleep 200
    Set oNotepad = Nothing '释放内存
    Set WshShell = Nothing

谢谢大哥
我是小白，一点都看不懂，你让我套我也不会套，尴尬ing...
能不能麻烦帮我写好？感激不尽

Dim WshShell, oNotepad
Set WshShell = CreateObject("WScript.Shell") '创建WScript.Shell对象
Set oNotepad = WshShell.Exec("notepad") '这里修改为你的程序名称
WshShell.AppActivate oNotepad.ProcessID '激活你的程序
wscript.sleep 200
WshShell.SendKeys "{F5}" '模拟F5按键

把这段文本保存为 xxx.vbs  如无特殊情况 系统会自动调出记事本 并再上面第一行显示当前日期(发送F5的作用）
如果如此 你就成功了一半，然后你再替换你的程序 再看看效果

对了，这个vbs 如果没有特殊情况 你双击 它 它自己会自动运行  类似xxx.exe似的

Dim WshShell, oNotepad
Set WshShell = CreateObject("WScript.Shell") '创建WScript.Shell对象
Set oNotepad = WshShell.Exec("D:\Program Files\a.exe") '这里修改为你的程序名称
WshShell.AppActivate oNotepad.ProcessID '激活你的程序
wscript.sleep 200
WshShell.SendKeys "{F5}" '模拟F5按键

大哥，我把代码写成这样，保存为aa.vbs。我双击运行是没有问题的，能满足我的需求，自动启动了a.exe，并且在a程序界面下自动按了'f5'启动了相关功能。但是我把它放到任务计划里运行，就只会打开a.exe程序，‘F5’不起作用了！！！这是为什么？