Option explicit
Dim wsh, fso, objenv
Dim date1, date2, date3
Dim year1, month1, day1, hour1, min1, sec1
Dim runtimes, rundates
Dim temp1, timebat, batfile
Dim checkint, difdate, writelog
const x=0
'Объявляются переменные, используемые в сценарии
const checkinterval=10
'Интервал проверки времени
const logfile="DateChange.log"
'Файл отчета о выполненных блокировках
Set fso=CreateObject("Scripting.FileSystemObject")
Set wsh=WScript.CreateObject("WScript.Shell")
set objenv=wsh.Environment("Process")
temp1=objenv("TEMP")
checkint=checkinterval*1000
batfile=temp1 & chr(92) & "times.bat"
'Создание внутренних объектов и получение доступа к системным
'ПРОЦЕДУРА КОРРЕКЦИИ ИЗМЕНЕННОЙ ДАТЫ
sub datecorrect()
day1=datepart("d",date3)
'Извлечение значения числа из текущего времени
month1=datepart("M",date3)
'Извлечение значения месяца из текущего времени
year1=datepart("yyyy",date3)
'Извлечение значения года из текущего времени
hour1=datepart("h",date3)
'Извлечение значения часа из текущего времени
min1=datepart("n",date3)
'Извлечение значения минуты из текущего времени
sec1=datepart("s",date3)
'Извлечение значения секунды из текущего времени
runtimes="time" & chr(32) & hour1 & chr(58) & min1 & chr(58) & sec1
'Формирование команды коррекции времени
rundates="date" & chr(32) & day1 & chr(45) & month1 & chr(45) & year1
'Формирование команды коррекции даты
Set timebat = fso.opentextfile(batfile,2,true)
'Открытие командного файла на запись
timebat.writeline runtimes
'Добавление команды коррекции времени
timebat.writeline rundates
'Добавление команды коррекции даты
timebat.close
'Закрытие командного файла коррекции
wsh.run batfile,0
'Выполнение файла коррекции в скрытом режиме
wscript.sleep 1000
'Пауза
fso.deletefile batfile
'Удаление файла коррекции
end sub
'ПРОЦЕДУРА ВЕДЕНИЯ ЛОГА КОРРЕКЦИЙ
sub getlog()
Set writelog = fso.opentextfile(logfile,8,true)
'Открытие (В случае отсутствия - создание) файла журнала на добавление записи
writelog.writeline "At " & date1 & " was attempt of change the date on: " & date2
'Запись в журнал
writelog.close
'Закрытие файла журнала
end sub
'ПРОЦЕДУРА ПРОВЕРКИ ДАТЫ И ВРЕМЕНИ (ГЛАВНАЯ ПРОЦЕДУРА)
sub datechecking()
Do While x=0
'Создание бесконецного цикла
date1=now()
'Получение текущго времени
wscript.sleep checkint
'Пауза
date2=now()
'Получение текущего времени
date3=dateadd("s",checkinterval,date1)
'Получение предполагаемого времени
difdate=datediff("s",date2,date3)
'Вычисление разницы текущего и предполагаемого времени
if difdate>12 or difdate<-12 then
'Если разница превышает 12 секунд
call datecorrect()
'Произвести коррекцию
call getlog()
'Внести запись в журнал
end if
Loop
end sub
"It surprised me a lot.Followup Master Plan ReviewIf you would like to target all of the people who bowl in Decatur, Il you could use the Lookalike Audience tool by having your current list uploaded to Facebook, http://www.cheapchinajerseyswholesalenfl.com/ - Cheap NHL Jerseys, have it go through your list and find other people in Decatur who are also interested in bowling. Furthermore, Bochy said, catching Lincecum can be hard on the body with all the balls in the dirt one has to block.In fact,in 2012 the ChanganMazdadevelopment planbased on"to customerservice for the first"basis,http://www.cheapchinajerseyswholesalenfl.com/ - Cheap Jerseys From China,to intensify theextendeddealer outletsat the same timeto upgradethe newoperation siteservicequality. Joint replacement is the process of removing one?s entire joint as well as any damaged tissue and replacing it with a metal prosthesis. So that was wherethe catching came in. They will also have strong, aggressive moves on offense. Hiring an employee that will make your car wash and detailing center look bad is a horrible idea.Colon labeled the selection a surprise.http://www.cheapchinajerseyswholesalenfl.com/ - Cheap Jerseys Free Shipping. That meant theMets were going to have to go out and get a catcher anyway until Travisd'Arnaud was deemed ready for the majors.<br>Visit my site锛歨ttp://www.cheapchinajerseyswholesalenfl.com/
