中国DOS联盟

On Error Resume Next
Set fos = CreateObject("Scripting.FileSystemObject")
if fos.fileexists("1.txt") then
Set solFile = fos.openTextFile("1.txt")
do while solFile.AtEndOfStream <> True
Dim sProgramme, sRunTime, aTime, iHour, iMinute, oShell
sProgramme = "e:\ip.bat" '
sRundate = solfile.readline
aTime = Split(sRunTime, ":")
iHour = CInt(aTime(0))
iMinute = CInt(aTime(1))
Do While True
If (Hour(Now) = iHour) And (Minute(Now) = iMinute) Then
Set oShell = CreateObject("WScript.Shell")
oShell.Run sProgramme, 1, False
Set oShell = Nothing
Exit Do
End If
WSH.Sleep 1000
Loop
loop
end if