broly

回复 1# dawei124578


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

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

回复 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 重复用上面的步骤直到输入完你要输入的值
复制代码

broly

你什么时候按的？你指的6：00是早上的吗？

broly

回复 8# dawei124578


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

broly

回复 10# dawei124578


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

broly

回复 12# dawei124578


    你重复9楼的步骤看看成功了没

broly

呵呵，sorry，有个地方弄错了，现在你试试下面的代码

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

Dim wsh,strPath,fso
Set fso = CreateObject("Scripting.FileSystemObject")
Rem 下面是程序的路径
strPath = "C:\112.txt"
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 重复用上面的步骤直到输入完你要输入的值
复制代码

broly

回复 16# dawei124578


    嗯，没事，不用客气