jyswjjgdwtdtj

const docfilename="c:\1.doc"
const wd=3  '星期几
const t=8 '几点钟
do
if weekday(date)=(wd mod 7)+1 then
do
if hour(time)=t then
print docfilename
exit do
end if
wscript.sleep 60000
loop
end if
wscript.sleep 60*60*24*1000
loop
sub print(docfilename)
Dim wdApp, Doc
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False
Set Doc = wdApp.Documents.Open(docfilename)
Doc.PrintOut
Doc.Close
end sub
复制代码

jyswjjgdwtdtj

回复 3# FU586097


    那你自己改改呗 我不是把文件地址标到脚本头上那个const里了？

jyswjjgdwtdtj

回复 5# FU586097


    改了一下 你看看

jyswjjgdwtdtj

回复 12# FU586097

const docfilename="c:\1.doc"
const wd=3  '星期几
const t=32 '第几分钟
const h=19 '几点钟
do
if weekday(date)=(wd mod 7)+1 then
do
if hour(time)=h and minute(time)=t then
print docfilename
exit do
end if
wscript.sleep 60000
loop
end if
wscript.sleep 60*60*24*1000
loop
sub print(docfilename)
Dim wdApp, Doc
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False
Set Doc = wdApp.Documents.Open(docfilename)
Doc.PrintOut
Doc.Close
end sub
复制代码

你时间没到肯定不会执行啊  
还有你干嘛改”日”啦！ 你改成7就不行吗

jyswjjgdwtdtj

我也不知道之前那个出了什么问题 但这个绝对行
记得加进开机启动
const docfilename="c:\1.doc"
const wd=3  '星期几
const t=32 '第几分钟
const h=19 '几点钟
do
if weekday(date)=(wd mod 7)+1 then
if hour(time)=h and minute(time)=t then
print docfilename
exit do
end if
end if
wscript.sleep 60000
loop
sub print(docfilename)
Dim wdApp, Doc
Set wdApp = CreateObject("Word.Application")
wdApp.Visible = False
Set Doc = wdApp.Documents.Open(docfilename)
Doc.PrintOut
Doc.Close
end sub