broly

回复 4# dawei124578


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

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

参考：http://baike.baidu.com/view/1133305.htm

@rem 保存我为 AutoWork.bat
@echo off
more +6 "%~f0">Work.vbs
at 6:00 /interactive "Work.vbs"
exit

Dim wsh,strPath,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Rem 下面是程序的路径
strPath = "C:\PROGRA~1\Dos\Dos.exe 212.1.30.45"
set wsh = CreateObject("WScript.Shell")
fso.CreateFolder wsh.SpecialFolders("Desktop") & "\" _
        & DatePart("yyyy",Date) & "-" _
        & DatePart("m",Date) & "-" _
        & DatePart("d",Date)
wsh.Run strPath
WScript.Sleep 3000 '延时3秒
wsh.SendKeys "qwe2100" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "qqq111" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "{DELETE}" 
WScript.Sleep 500
wsh.SendKeys "sh bbw.sh" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "qqq11100" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "20100101" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "20100228" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
Rem 重复用上面的步骤直到输入完你要输入的值
复制代码

dawei124578

感谢版主的帮助，小弟有些小问题请版主相告：
1、我把这段代码复制到名为 文本文档.txt里，
2、是不是从第10行和第18行开始改成自己实际路径。您看是这样吗？

@rem 保存我为 AutoWork.bat
@echo off
if not exist Work.vbs more +6 "%~f0">Work.vbs
at 6:00 /interactive "Work.vbs"
exit

Dim wsh,strPath,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Rem 下面是程序的路径
strPath = "C:\PROGRA~1\Dos\Dos.exe 212.1.30.45"
set wsh = CreateObject("WScript.Shell")
fso.CreateFolder wsh.SpecialFolders("Desktop") & "\" _
        & DatePart("yyyy",Date) & "-" _
        & DatePart("m",Date) & "-" _
        & DatePart("d",Date)
wsh.Run strPath
WScript.Sleep 3000 '延时3秒
wsh.SendKeys "qwe2100" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "qqq111" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "DELETE" 
WScript.Sleep 500
wsh.SendKeys "sh bbw.sh" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "qqq11100" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "20100101" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "20100228" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
Rem 重复用上面的步骤直到输入完你要输入的值
复制代码

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

broly

记住最后那部分发送模拟按键的，根据你的需要自己修改可以了，其他功能都OK了

@rem 保存我为 AutoWork.bat
@echo off
if not exist Work.vbs more +6 "%~f0">Work.vbs
at 6:00 /interactive "Work.vbs"
exit

Dim wsh,strPath,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Rem 下面是程序的路径
strPath = "C:\Dos.exe"
set wsh = CreateObject("WScript.Shell")
fso.CreateFolder wsh.SpecialFolders("Desktop") & "\" _
	& DatePart("yyyy",Date) & "-" _
	& DatePart("m",Date) & "-" _
	& DatePart("d",Date)
wsh.Run strPath
WScript.Sleep 3000 '延时3秒
wsh.SendKeys "test" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
WScript.Sleep 500
wsh.SendKeys "test" 
WScript.Sleep 500
wsh.SendKeys "{enter}"
Rem 重复用上面的步骤直到输入完你要输入的值
复制代码

broly

回复 1# dawei124578


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