求大神帮忙写个VBS代码 - 编程论坛

#2

wp2319572019-03-29 13:51

想做坏事吗

#3

ihukh2019-03-29 13:57

回复 2楼 wp231957

只有本站会员才能查看附件，请登录

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

#4

wp2319572019-03-29 14:11

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

程序代码：

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

#5

ihukh2019-03-29 14:32

回复 4楼 wp231957

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

#6

wp2319572019-03-29 14:44

程序代码：

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似的

#7

ihukh2019-04-03 08:25

回复 6楼 wp231957

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’不起作用了！！！这是为什么？