Valaki segítene ezt az egyszerű programot megírni? (nap visszaszámlálás)

Windows Scripting Host alá, JavaScript vagy VBS nyelven nem egy bonyolult dolog.

Létrehozol egy dátum objektumot, ez az aktuális dátumot fogja tartalmazni.

Illetve mégegyet, ez fixen a lejárat dátumát.

A kettőt összehasonlítod és WScript.Echo segítségével kiírod, hány nap jött ki, ha az eredmény pozitív, egyébként az ESET úgyis figyelmeztet, hogy lejárt.

[link]

Megírod a szkriptet egy .VBS fájlba, és behajítod az indítópultba.

Mellesleg, valamivel több munka hozzáadásával közvetlenül a Registry-ből is ki lehet olvasni, mikor jár le. Olvass utána, ha érdekel ez a megoldás.

Nem olyan bonyolult az. Pár sor lehet az egész: [link]

Kb.

var expirationDate = new Date("09 October 2014");

var today = new Date();

var milliSecondsPerDay = 24 * 60 * 60 * 1000;

var differenceInMillis = expirationDate.getTime() - today.getTime();

var differenceInDays = Math.ceil(differenceInMillis / milliSecondsPerDay);

WScript.Echo("Az ESET aktiváció " + differenceInDays + " nap múlva lejár.");

Sebtében hánytam össze, nem a legjobb megoldás, de tán még működik is változtatás nélkül. Csak mentsd el egy .JS kiterjesztésű fájlba és indítsd el.

A később esetlegesen érkező szőrszálhasogatónak: Nyilván nem ezt szántam az életművemnek. ;)

Az ötlet: Tárold el egy sima szövegfájlban az aktuális lejárati dátumot, majd hasonlítsd össze a jelenlegi dátummal. Ha már lejárt, módosítsd a szövegfájlt (pl.: a következő hónapra.)

Ez így nagyon bonyolultnak tűnik? Ha nem megy küldhetek kódot, hogy megnézd.

Rendben, igyekeztem megjegyzéseket írni hozzá, talán érthető, legalábbis a logikája. (A nyelvben a Google sokat segített :) Ez alapján elindulhatsz, változtathatsz ezt-azt, ha nem erre gondoltál.

sajatfajlnev = "C:\sajatfajlom.txt" 'tetszoleges lehet

Most = Date() 'A mostani datum

WScript.echo Most 'kiirja, hogy most, de ezt a sort ki is torolheted

Set olvasando = CreateObject("Scripting.FileSystemObject").OpenTextFile(sajatfajlnev,1) 'megnyitja a sajat faljt

Lejarat = olvasando.ReadAll() 'Ide teszi a kiolvasott datumot

Wscript.echo Lejarat 'kiirja a learat datumat

kulonbseg = DateDiff("d", Most, Lejarat) 'kulonbseget szamol, napokban

WScript.echo "Még " & kulonbseg & " nap van hátra" 'Kiszamolja es kiirja a kulonbseget

if kulonbseg <=0 then

ujDatum = InputBox("Kerem az uj lejarati datumot:", "Cim", DateAdd("d", 30, Most ) )' Kovetkezo honap, de atirhato

ujDatum = FormatDateTime(ujdatum)

Set irando = CreateObject("Scripting.FileSystemObject").OpenTextFile(sajatfajlnev,2,true) ' megnyitja ugyanazt a megadott fajlt

irando.WriteLine(ujDatum) 'beleirja a datumot

end if