Keskustelu: Ohjelmointikysymykset: VB6: Tunnistuksen kaappaus (VB:llä)

Onko mahdollista kaapata jonkun ohjelman päivämäärä tunnistus, että se ohjelma tunnistais vaikka 2.5.2002 ja tietokeneen päivämäärä on silti nykypäivässä? Eli tuossa ohjelman ja kellon välissä on emulointi, joka antaa ohjelmalle väärän päivämäärän. Onks mahdollista?

Ai ai, vaikutaa siltä, että joku yrittää nyt huijata jotain ohjelmaa, missä on käyttöaikarajoitus. Enpä usko, että moinen on ainakaan Windowsissa mahdollista (en tosin aivan varmaksi sano).

Ei sellaista ollu miellessäkään tai en tunnusta sitä. :-D

Helpoiten selviät näin: Muuta kellonaika haluamaksesi ja käynnistä ohjelma. Kun ohjelma on tarkistanut kellonajan, muuta aika takaisin oikeaksi.

Tuollain olen tähän asti tehnykkin.

Voithan tietysti tehdä pienen ohjelman pätkän, jolla muutat kellonajan, käynnistät ohjelman ja palautat kellonajan ennalleen.

En nyt todellakaan ole varma toimiiko tämä, mutta kokeile... eli teet 2 commandbuttonia...
toisesta asetetaan aika ja toisesta otetaan pois. Tässä kaverin koneessa kun ei ole mitään VB:tä niin joutuu suoraan tähän koodaamaan. Itse en ole tuota SYSTEMTIMEä käyttänyt... Pienellä googletuksella sain tuota aikaan. jne jne jne. :P

Dim TimeSys as SYSTEMTIME
Dim CurDate as Date

Private Sub Form_Load()
	CurDate = Date
	Command1.caption = "Aseta aika"
	Command2.caption = "Palauta aika"
End Sub

Private Sub Command1_Click()
	TimeSys.wDay = 2		'Päivä
	TimeSys.wMonth = 5		'Kuukausi
	TimeSys.wYear = 2002		'Vuosi
	TimeSys.wDayOfWeek = 1		'Vai?
	TimeSys.wHour = 0
	TimeSys.wMinute = 0
	TimeSys.wSecond = 0
End Sub

Private Sub Command2_Click()
	TimeSys.wDay = Day(CurDate)
	TimeSys.wMonth = Month(CurDate)	'Kuukausi
	TimeSys.wYear = Year(CurDate)	'Vuosi
	TimeSys.wDayOfWeek = 1		'Vai?
End Sub

Toivottavasti toimii :|, nyt koodaamaan kämpille ogl:lläää... moro.

Tästä edespäin muistetaan ne kooditagit jooko?

Päivämäärän voi muuttaa helpoiten näin:

Date = "2.5.2002"

Alkuperäinen päivämäärä pitää tietenkin ottaa talteen ennen tätä ja huolehtia, että päivä ei ehdi vaihtua muutosten välissä.

Mitkä ihmeen koodi tagit? :P

hmmhhmh??

Lue ohjeet viestien kirjoitusta varten..