H4x0r's Blog

dim min,mfrom,mto,uname,upass,file,totime,lenth,len2,smtpser,nDate,uDate
uDate=Date+1
min=inputbox("每隔多长时间发送一次?",,20)
if(IsNumeric(min)=False or min="") then
wscript.quit
end if
mfrom=inputbox("发信地址 :",,"@163.com")
if(InStrRev(mfrom,"@")="" or mfrom="") then
wscript.echo "发信地址不正确"
wscript.quit
end if
upass=inputbox("发送信箱的密码")
lenth=InStrRev(mfrom,"@")
uname=left(mfrom,lenth-1)
mto=inputbox("接受邮箱:")
if(InStrRev(mfrom,"@")="" or mto="") then
wscript.echo "收信地址不正确"
wscript.quit
end if
path1=inputbox("请输入今天的日志名称",,"c:\\wwwroot\\ex050917.log")
path2=inputbox("请输入第二天日志的名称:",,"c:\\wwwroot\\ex050918.log")
len2=len(mfrom)-lenth
smtpser="smtp."&right(mfrom,len2)
totime=inputbox("截止到第二天:",,"8:30 PM/AM")
stime=cDate(totime) '转换为截止时间
while(1)
if(ReportFileStatus(path2)="N") then '如果存在最新的日志就发送最新的日志
file=path1
else file=path2
end if
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = mfrom
Email.To = mto
Email.Subject = "请看日志"
Email.Textbody = "今天的日志"
Email.AddAttachment path,true '添加附件,如果有多个就另写一行 也可以手工添加
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = smtpser '发信服务器
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = uname'发信人的姓名
.Item(NameSpace&"sendpassword") = upass '发信邮箱密码
.Update
End With
Email.Send
wscript.sleep min*60*1000 '每搁min分钟发送一次
MyTime = Time '获得当前时间
if(Date=uDate and MyTime-stime>0) then
wscript.quit
end if
wend
Function ReportFileStatus(filespec)
 Dim fso, msg
 Set fso = CreateObject("Scripting.FileSystemObject")
 If (fso.FileExists(filespec)) Then
 msg ="Y"
 Else
 msg = "N"
 End If
 ReportFileStatus = msg
End Function