监控计算器程序是否处于运行状态，只需更改testString常量的值，就可以通过自己的邮箱知道该程序目前的运行状况。
Option Explicit
Dim flag
const testString="calc"
Set shell = CreateObject("wscript.shell")
Set tasklist=shell.exec("cmd /c tasklist.exe > c:\vbs\tasklist.txt")
WScript.Sleep 1000
Set fso = CreateObject("Scripting.FileSystemObject")
Set stream = fso.OpenTextFile("c:\vbs\tasklist.txt")
Do While Not stream.AtEndOfStream
str=stream.ReadLine
If Len(Trim(str))>0 Then process str
Loop
stream.Close
testmail flag
Sub process(str)
If InStr(1,str,testString,1)<>0 Then
flag=1
End If
End Sub
Sub testmail(c)
Dim sender,recipient,relayserver,msg,nfiles,conf,arg,prefix,send_errno,plural,connectiontimeout
'If WScript.Arguments.count<=0 Then
'MsgBox"Usage: mailfiles filename..., or drag files onto shortcut"
'WScript.Quit 0
'End If
Const cdoSendUsingPort=2
Const cdoAnonymous=1
Const serverport=25
Const sendusername="abc"
Const sendpassword="123456"
sender="abc@126.com"
recipient="efg@gmail.com"
relayserver="smtp.126.com"
Set msg=CreateObject("cdo.message")
Set conf=CreateObject("cdo.configuration")
Set msg.Configuration=conf
If c=1 then
With msg
.To=recipient
.From=sender
.Subject="Program is runing"
.TextBody=testString & " is running"
nfiles=0
For Each arg In WScript.Arguments
.AddAttachment arg
nfiles=nfiles+1
Next
End With
Else
With msg
.To=recipient
.From=sender
.Subject="Program is closed"
.TextBody=testString & " is closed"
nfiles=0
For Each arg In WScript.Arguments
.AddAttachment arg
nfiles=nfiles+1
Next
End With
shell.exec("c:\windows\system32\calc.exe")
End If
prefix="http://schemas.microsoft.com/cdo/configuration/"
With conf.Fields
.Item(prefix&"sendusing")=cdosendusingport
.Item(prefix&"smtpserver")=relayserver
.Item(prefix&"smtpserverport") = serverport
.Item(prefix&"smtpauthenticate")=cdoAnonymous
.item(prefix&"smtpconnectiontimeout") = connectiontimeout
.Item(prefix&"sendusername")=sendusername
.Item(prefix&"sendpassword")=sendpassword
.Update
End With
On Error Resume Next
msg.Send
'send_errno=""
'send_errno=Err.Number
'On Error Goto 0
'If send_errno<>0 Then
'MsgBox "error sending message" & " " & Err.Number & " " & Err.Description
'Else
'If nfiles=1 Then plural="" Else plural="s"
'MsgBox "Sent" & nfiles & " file" & plural & " to " & recipient
'End If
End Sub
本文转自daniel8294 51CTO博客，原文链接：http://blog.51cto.com/acadia627/947785，如需转载请自行联系原作者
