И так, за не имением пока что альтернативы для ЕТКИ 7.2 (версия 7.3 если и есть в свободном доступе то только в урезанном виде), мне всё не давал вопрос как же всё-таки можно продолжить комфортное пользование нею...
И ответ про то как обойти ограничение счётчика, не меняя дату на компьтере вручную перед каждым запуском проги, наконец найден!
Вот текст скрипта:
Option Explicit
Const fna = "\ETKA7.lnk"
Dim Text, Title, i, filep, CurDate, CurYear, path, Shortcut, Formdate
Dim WshShell, fso, oFile, oFolder, regEx, Match, Matches, RetStr
Set WshShell = WScript.CreateObject("WScript.Shell")
filep = WshShell.SpecialFolders("Desktop") & fna
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(filep) Then
Set WshShell = WScript.CreateObject("WScript.Shell")
CurYear = Year(Now)
Formdate = Date
Set regEx = New RegExp
regEx.Pattern = "^\d{1,2}"
Set Matches = regEx.Execute(Date)
For Each Match in Matches
RetStr = Match.Value
Next
If CDate(RetStr) = Month(Now) Then
CurDate = Month(Now) & "." & Day(Now)
Else
CurDate = Day(Now) & "." & Month(Now)
End If
WshShell.Run "%COMSPEC% /c " + "date " + "23.03.2011", 0
WshShell.Run """" & "etka7.exe" & """", 1
WScript.Sleep 10000
WshShell.Run "%COMSPEC% /c " + "date " + CurDate & "." & CurYear, 0
Else
path = WScript.ScriptFullName
path = Left(path, InstrRev(path, "\"))
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Shortcut = WshShell.CreateShortcut(filep)
Shortcut.TargetPath = WScript.ScriptFullName
Shortcut.WorkingDirectory = path
Shortcut.IconLocation = path & "\etka7.exe"
Shortcut.Save
End If
Скопируйте этот текст в Блокнот и сохраните с любым именем с расширением .vbs
Далее скопируйте получившийся файл в директорию C:\
ETKA\PROG\ и запустите. Скрипт создаст на Рабочем столе новый ярлык ETKA7
Этот ярлык используйте для запуска программы, дата будет автоматичеси переводиться на 10 секунд на 23.03.2011 и потом возвращаться текущая.
Ну а ЕТКА естественно без проблем запускаться при этом, без всяких там счётчиков и упоминаний про необходимость обновления или перехода на более новую версию