| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
买学问 - 大牛一对一辅导,有问必答买学问 - 专业的付费知识问答平台
共有 575 人关注过本帖
标题:求大神帮忙写个VBS代码
只看楼主 加入收藏
ihukh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-3-29
结帖率:50%
  已结贴   问题点数:20  回复次数:6   
求大神帮忙写个VBS代码
求大神帮忙写个VBS代码,我想自动运行D:/a.exe程序,然后在这个程序界面上自动按‘F5’。
2019-03-29 13:50
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:388
帖 子:13246
专家分:51084
注 册:2012-10-18
  得分:0 
想做坏事吗

DO IT YOURSELF !
2019-03-29 13:51
ihukh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-3-29
  得分:0 
回复 2楼 wp231957

不是,我想每天定时运行这个程序进行一键整理数据。用windwos的任务计划,只能打开程序界面,但是不会自动‘一键整理’。
附件: 您没有浏览附件的权限,请 登录注册
2019-03-29 13:57
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:388
帖 子:13246
专家分:51084
注 册:2012-10-18
  得分:0 
网上搜的  拿去看看能不能用

程序代码:
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

DO IT YOURSELF !
2019-03-29 14:11
ihukh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-3-29
  得分:0 
回复 4楼 wp231957
谢谢大哥
我是小白,一点都看不懂,你让我套我也不会套,尴尬ing...
能不能麻烦帮我写好?感激不尽
2019-03-29 14:32
wp231957
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:神界
等 级:版主
威 望:388
帖 子:13246
专家分:51084
注 册:2012-10-18
  得分:20 
程序代码:
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似的

DO IT YOURSELF !
2019-03-29 14:44
ihukh
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2019-3-29
  得分:0 
回复 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’不起作用了!!!这是为什么?
2019-04-03 08:25







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028291 second(s), 8 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved