[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
12
返回列表 发帖
dawei124578

Rank: 1

帖子
17 
积分
21 
技术
0  
捐助
0  
注册时间
2010-9-23 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-8-27 07:14 | 只看该作者

[问题求助] [已解决]VBS怎样模拟键盘输入程序？

因为工作的原因，每天早6点就得到单位调数，很累想求助一个批处理程序，实现如下功能：
首先，在前一天下班前运行程序，程序开始自动检测当前的系统时间是否为早晨6:00？不是继续检测。是，运行指定程序（比如：以DOS为例）。
第二功能，打开调数程序（比如：以DOS为例）。
第三功能，DOS窗口打开了，要根据提示录入英文字母、数字、空格、Del键、回车键等。比如：录入qwe122后面要有个回车才能进行下一个提示的录入；还有如，hh空格123.sh同样后面要有个回车才能进行下一个提示；录入了几次上述的条件后，系统会弹出个大菜单，只有按一次Del键才能继续录入像上面例子中的条件。
----依次录入字符串（注：英文小写）qwe2100回车；qqq111回车；按Delete键；sh bbw.sh回车；qqq11100回车；20100101回车；20100228回车；
第四功能，再在桌面上新建一个以当前系统日期为名的文件夹。
我在网上苦找很久，有一个叫vbs的文章模拟键盘输入，介绍的内容好像可以帮我实现第三功能，但我不懂，请高手帮忙看看好吧
--------------------------------------------------------------------------------------------------------
以下是我在网上找的初步能满足上述功能小段落，但是请高手相助：
  1. [b]功能二代码：[/b]

  2. @echo off

  3. echo...正在运行软件……请稍后.

  4. start  C:\PROGRA~1\Dos\Dos.exe 212.1.30.45

  5. [exit]
复制代码
  1. [b]功能四代码：[/b]@echo off 

  2. start mshta vbscript:execute("createobject(""scripting.filesystemobject"").CreateFolder date()")(window.close)

  3. exit

  4.  
复制代码
功能三代码：【原文网址：http://hi.baidu.com/yangbu/blog/ ... 70b4369b5027f0.html】
  1. Set objShell = CreateObject("Wscript.Shell") 

  2. strCommandLine = "ttpsetup.exe"        '启动安装程序

  3. objShell.Run(strCommandLine)

  4. set WshShell = CreateObject("WScript.Shell")

  5. WScript.Sleep 3000        '延时3秒

  6. WshShell.SendKeys "s"        '模拟按下 S 键开始安装

  7. WScript.Sleep 300        '延时0.3秒

  8. WshShell.SendKeys "a"        '模拟按下 A 键同意协议

  9. WScript.Sleep 300

  10. WshShell.SendKeys "{ENTER}"        '模拟按下回车键执行下一步

  11. WScript.Sleep 300

  12. WshShell.SendKeys "{ENTER}"        '模拟按下回车键执行下一步

  13. WScript.Sleep 300

  14. WshShell.SendKeys "{ENTER}"        '模拟按下回车键执行下一步

  15. WScript.Sleep 2000

  16. WshShell.SendKeys "{TAB}"        '模拟按下 Tab 键选择安装项目

  17. WScript.Sleep 300

  18. WshShell.SendKeys "{TAB}"

  19. WScript.Sleep 300

  20. WshShell.SendKeys " "        '模拟按下空格键去除安装百度超级搜霸一行前的√号

  21. WScript.Sleep 300

  22. [WshShell.SendKeys "{ENTER}"        '模拟按下回车键完成最后一步
复制代码
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
2楼
发表于 2011-8-27 14:23 | 只看该作者
回复 1# dawei124578


    嗯，先提供个思路：
不用检测是否为6：00，用 at命令计划任务，然后用VBS运行程序和模拟按键。现在不在电脑旁边，晚上我回去再看看
---学无止境---

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
3楼
发表于 2011-8-27 22:28 | 只看该作者
记住最后那部分发送模拟按键的，根据你的需要自己修改可以了，其他功能都OK了
  1. @rem 保存我为 AutoWork.bat

  2. @echo off

  3. if not exist Work.vbs more +6 "%~f0">Work.vbs

  4. at 6:00 /interactive "Work.vbs"

  5. exit

  6. 

  7. Dim wsh,strPath,fso

  8. Set fso = CreateObject("Scripting.FileSystemObject")

  9. Rem 下面是程序的路径

  10. strPath = "C:\Dos.exe"

  11. set wsh = CreateObject("WScript.Shell")

  12. fso.CreateFolder wsh.SpecialFolders("Desktop") & "\" _

  13. 	& DatePart("yyyy",Date) & "-" _

  14. 	& DatePart("m",Date) & "-" _

  15. 	& DatePart("d",Date)

  16. wsh.Run strPath

  17. WScript.Sleep 3000 '延时3秒

  18. wsh.SendKeys "test" 

  19. WScript.Sleep 500

  20. wsh.SendKeys "{enter}"

  21. WScript.Sleep 500

  22. wsh.SendKeys "test" 

  23. WScript.Sleep 500

  24. wsh.SendKeys "{enter}"

  25. Rem 重复用上面的步骤直到输入完你要输入的值
复制代码
---学无止境---

TOP

dawei124578

Rank: 1

帖子
17 
积分
21 
技术
0  
捐助
0  
注册时间
2010-9-23 
4楼
发表于 2011-8-28 06:45 | 只看该作者
感谢版主的帮助，小弟有些小问题请版主相告：
1、我把这段代码复制到名为 文本文档.txt里，
2、是不是从第10行和第18行开始改成自己实际路径。您看是这样吗？
  1. @rem 保存我为 AutoWork.bat

  2. @echo off

  3. if not exist Work.vbs more +6 "%~f0">Work.vbs

  4. at 6:00 /interactive "Work.vbs"

  5. exit

  6. 

  7. Dim wsh,strPath,fso

  8. Set fso = CreateObject("Scripting.FileSystemObject")

  9. Rem 下面是程序的路径

  10. strPath = "C:\PROGRA~1\Dos\Dos.exe 212.1.30.45"

  11. set wsh = CreateObject("WScript.Shell")

  12. fso.CreateFolder wsh.SpecialFolders("Desktop") & "\" _

  13.         & DatePart("yyyy",Date) & "-" _

  14.         & DatePart("m",Date) & "-" _

  15.         & DatePart("d",Date)

  16. wsh.Run strPath

  17. WScript.Sleep 3000 '延时3秒

  18. wsh.SendKeys "qwe2100" 

  19. WScript.Sleep 500

  20. wsh.SendKeys "{enter}"

  21. WScript.Sleep 500

  22. wsh.SendKeys "qqq111" 

  23. WScript.Sleep 500

  24. wsh.SendKeys "{enter}"

  25. WScript.Sleep 500

  26. wsh.SendKeys "DELETE" 

  27. WScript.Sleep 500

  28. wsh.SendKeys "sh bbw.sh" 

  29. WScript.Sleep 500

  30. wsh.SendKeys "{enter}"

  31. WScript.Sleep 500

  32. wsh.SendKeys "qqq11100" 

  33. WScript.Sleep 500

  34. wsh.SendKeys "{enter}"

  35. WScript.Sleep 500

  36. wsh.SendKeys "20100101" 

  37. WScript.Sleep 500

  38. wsh.SendKeys "{enter}"

  39. WScript.Sleep 500

  40. wsh.SendKeys "20100228" 

  41. WScript.Sleep 500

  42. wsh.SendKeys "{enter}"

  43. Rem 重复用上面的步骤直到输入完你要输入的值
复制代码
3、@rem 保存我为 AutoWork.bat，是啥意思？是说要将文本文档.txt的名和扩展名改成autowork.bat吗？
4、运行这个批处理后，在桌面上自动生成了一个Work.vbs。但是并没有生成文件夹。我只有双击work.vbs后，才会出现文件夹和打开DOS，并录入了相应命令。这都是靠人工打开才有的呀？

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
5楼
发表于 2011-8-28 12:56 | 只看该作者
本帖最后由 broly 于 2011-8-28 12:59 编辑

回复 4# dawei124578


    嗯，是的，现在你目前的操作都是对的。还有，那个VBS不用你手动去打开，我用批处理加了计划任务，到6:00会自己打开的了（当然，前提是你开机了）。你只是下班前打开批处理文件就可以了

还有你的代码有点错误，就是  delete 键。这些特殊键要加个括号  {delete}

参考：http://baike.baidu.com/view/1133305.htm
  1. @rem 保存我为 AutoWork.bat

  2. @echo off

  3. more +6 "%~f0">Work.vbs

  4. at 6:00 /interactive "Work.vbs"

  5. exit

  6. 

  7. Dim wsh,strPath,fso

  8. Set fso = CreateObject("Scripting.FileSystemObject")

  9. Rem 下面是程序的路径

  10. strPath = "C:\PROGRA~1\Dos\Dos.exe 212.1.30.45"

  11. set wsh = CreateObject("WScript.Shell")

  12. fso.CreateFolder wsh.SpecialFolders("Desktop") & "\" _

  13.         & DatePart("yyyy",Date) & "-" _

  14.         & DatePart("m",Date) & "-" _

  15.         & DatePart("d",Date)

  16. wsh.Run strPath

  17. WScript.Sleep 3000 '延时3秒

  18. wsh.SendKeys "qwe2100" 

  19. WScript.Sleep 500

  20. wsh.SendKeys "{enter}"

  21. WScript.Sleep 500

  22. wsh.SendKeys "qqq111" 

  23. WScript.Sleep 500

  24. wsh.SendKeys "{enter}"

  25. WScript.Sleep 500

  26. wsh.SendKeys "{DELETE}" 

  27. WScript.Sleep 500

  28. wsh.SendKeys "sh bbw.sh" 

  29. WScript.Sleep 500

  30. wsh.SendKeys "{enter}"

  31. WScript.Sleep 500

  32. wsh.SendKeys "qqq11100" 

  33. WScript.Sleep 500

  34. wsh.SendKeys "{enter}"

  35. WScript.Sleep 500

  36. wsh.SendKeys "20100101" 

  37. WScript.Sleep 500

  38. wsh.SendKeys "{enter}"

  39. WScript.Sleep 500

  40. wsh.SendKeys "20100228" 

  41. WScript.Sleep 500

  42. wsh.SendKeys "{enter}"

  43. Rem 重复用上面的步骤直到输入完你要输入的值
复制代码
---学无止境---

TOP

dawei124578

Rank: 1

帖子
17 
积分
21 
技术
0  
捐助
0  
注册时间
2010-9-23 
6楼
发表于 2011-8-28 13:05 | 只看该作者
???我的电脑为什么双击完批处理后，等右下角时间到6:00后，并没有自动运行

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
7楼
发表于 2011-8-28 13:09 | 只看该作者
你什么时候按的？你指的6：00是早上的吗？
---学无止境---

TOP

dawei124578

Rank: 1

帖子
17 
积分
21 
技术
0  
捐助
0  
注册时间
2010-9-23 
8楼
发表于 2011-8-28 13:11 | 只看该作者
回复 7# broly


    是早上6点，

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
9楼
发表于 2011-8-28 13:13 | 只看该作者
回复 8# dawei124578


    你现在运行一次批处理，然后在命令提示符下输入 at ，然后回车，看看里面的内容是什么
---学无止境---

TOP

dawei124578

Rank: 1

帖子
17 
积分
21 
技术
0  
捐助
0  
注册时间
2010-9-23 
10楼
发表于 2011-8-28 13:15 | 只看该作者
回复 9# broly


    一运行，窗口一闪就没了

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
11楼
发表于 2011-8-28 13:20 | 只看该作者
回复 10# dawei124578


    呵呵，我说呢，原来你的  at 服务都还没开通。解决方法：控制面板->管理工具->服务->开启Task Scheduler服务
黑框闪一下就没了是正常的，因为运行完了就退出了。
---学无止境---

TOP

dawei124578

Rank: 1

帖子
17 
积分
21 
技术
0  
捐助
0  
注册时间
2010-9-23 
12楼
发表于 2011-8-28 13:29 | 只看该作者
回复 11# broly


    是这样吗？

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
13楼
发表于 2011-8-28 13:52 | 只看该作者
回复 12# dawei124578


    你重复9楼的步骤看看成功了没
---学无止境---

TOP

dawei124578

Rank: 1

帖子
17 
积分
21 
技术
0  
捐助
0  
注册时间
2010-9-23 
14楼
发表于 2011-8-28 13:59 | 只看该作者
回复 12# dawei124578


    第一步：重启电脑，运行命令提示符：at，如下图1
[attach]4356[/attach]

    第二步：在管理工具--服务---把task scheduler状态改为启动，如下图2
[attach]4357[/attach]

   第三步：在29日，5:57:36运行了批处理，如下图3
[attach]4358[/attach]

   第四步：再次运行命令提示符：at，如下图4
[attach]4359[/attach]

   第五步：等待6:00后批处理能自动打开程序，并录入设置好的命令字符，但是奇迹没有出现。如下图5
  1. @rem 保存我为 AutoWork.bat

  2. @echo off

  3. if not exist Work.vbs more +6 "%~f0">Work.vbs

  4. at 6:00 /interactive "Work.vbs"

  5. exit

  6. 

  7. Dim wsh,strPath,fso

  8. Set fso = CreateObject("Scripting.FileSystemObject")

  9. Rem 下面是程序的路径

  10. strPath = "C:\112.txt"

  11. set wsh = CreateObject("WScript.Shell")

  12. fso.CreateFolder wsh.SpecialFolders("Desktop") & "\" _

  13.         & DatePart("yyyy",Date) & "-" _

  14.         & DatePart("m",Date) & "-" _

  15.         & DatePart("d",Date)

  16. wsh.Run strPath

  17. WScript.Sleep 3000 '延时3秒

  18. wsh.SendKeys "qwe2100" 

  19. WScript.Sleep 500

  20. wsh.SendKeys "{enter}"

  21. WScript.Sleep 500

  22. wsh.SendKeys "qqq111" 

  23. WScript.Sleep 500

  24. wsh.SendKeys "{enter}"

  25. WScript.Sleep 500

  26. wsh.SendKeys "{DELETE}" 

  27. WScript.Sleep 500

  28. wsh.SendKeys "sh bbw.sh" 

  29. WScript.Sleep 500

  30. wsh.SendKeys "{enter}"

  31. WScript.Sleep 500

  32. wsh.SendKeys "qqq11100" 

  33. WScript.Sleep 500

  34. wsh.SendKeys "{enter}"

  35. WScript.Sleep 500

  36. wsh.SendKeys "20100101" 

  37. WScript.Sleep 500

  38. wsh.SendKeys "{enter}"

  39. WScript.Sleep 500

  40. wsh.SendKeys "20100228" 

  41. WScript.Sleep 500

  42. wsh.SendKeys "{enter}"

  43. Rem 重复用上面的步骤直到输入完你要输入的值
复制代码
[attach]4360[/attach]

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
15楼
发表于 2011-8-28 14:14 | 只看该作者
呵呵，sorry，有个地方弄错了，现在你试试下面的代码
  1. @rem 保存我为 AutoWork.bat

  2. @echo off

  3. more +6 "%~f0">Work.vbs

  4. at 6:00 /interactive "%~dp0Work.vbs"

  5. exit

  6. 

  7. Dim wsh,strPath,fso

  8. Set fso = CreateObject("Scripting.FileSystemObject")

  9. Rem 下面是程序的路径

  10. strPath = "C:\112.txt"

  11. set wsh = CreateObject("WScript.Shell")

  12. fso.CreateFolder wsh.SpecialFolders("Desktop") & "\" _

  13.         & DatePart("yyyy",Date) & "-" _

  14.         & DatePart("m",Date) & "-" _

  15.         & DatePart("d",Date)

  16. wsh.Run strPath

  17. WScript.Sleep 3000 '延时3秒

  18. wsh.SendKeys "qwe2100" 

  19. WScript.Sleep 500

  20. wsh.SendKeys "{enter}"

  21. WScript.Sleep 500

  22. wsh.SendKeys "qqq111" 

  23. WScript.Sleep 500

  24. wsh.SendKeys "{enter}"

  25. WScript.Sleep 500

  26. wsh.SendKeys "{DELETE}" 

  27. WScript.Sleep 500

  28. wsh.SendKeys "sh bbw.sh" 

  29. WScript.Sleep 500

  30. wsh.SendKeys "{enter}"

  31. WScript.Sleep 500

  32. wsh.SendKeys "qqq11100" 

  33. WScript.Sleep 500

  34. wsh.SendKeys "{enter}"

  35. WScript.Sleep 500

  36. wsh.SendKeys "20100101" 

  37. WScript.Sleep 500

  38. wsh.SendKeys "{enter}"

  39. WScript.Sleep 500

  40. wsh.SendKeys "20100228" 

  41. WScript.Sleep 500

  42. wsh.SendKeys "{enter}"

  43. Rem 重复用上面的步骤直到输入完你要输入的值
复制代码
2

评分人数

---学无止境---

TOP

12
返回列表