- dim Wshell
-
- Set WshShell = CreateObject("WScript.Shell")
-
- WshShell.run """H:\操作平台\打印\打印清除执行.bat""",,True
-
- WScript.Sleep 10
-
- WshShell.run """H:\操作平台\打印\dayin.txt""",5,True
-
- WScript.Sleep 10
- WshShell.SendKeys "%e"
-
- WScript.Sleep 10
- WshShell.SendKeys "^a"
-
-
- WScript.Sleep 10
- WshShell.SendKeys "^c"
复制代码 我想在电脑桌面上打开dayin文本文件,并且选中任务栏中的“编辑”,再选中编辑中的“全选”,然后复制
问题是:文本打开后,在桌面显示,却不能执行后面的内容,请高手指点! |