Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Serial number
Message
De
02/01/2013 07:12:57
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turquie
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
01560527
Message ID:
01561036
Vues:
98
There is a developer talked about that at this forum. Of course that date can be change but if you don't say maybe pirates don't know this secret. Of course this cannot be use alone.

>I am not sure if you are serious or not. Foxtouch() will change that date anyways (or could) so I would not trust that.
>I never recommend to apply a copy protection of any kind, If there is a concern, consider changing your market.
>
>>I see you know system very well. I remembered there is a developer talked about "Reading create date of recylcle bin is good for copy protecting". I have two questions for you:
>>1-Do you think like him?
>>2-If you contribute him how can I read recycle bin's create date?
>>
>>>>i would like the bios serial number ?
>>>
lcComputer = "."
>>>loWMIService = Getobject("winmgmts:" ;
>>>	+ "{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
>>>colBIOS = loWMIService.ExecQuery ;
>>>	("Select * from Win32_BIOS")
>>>For Each loBIOS In colBIOS
>>>	?"Build Number: " + loBIOS.BuildNumber
>>>	?"Current Language: " + loBIOS.CurrentLanguage
>>>	?"Installable Languages: " + TRANSFORM(loBIOS.InstallableLanguages)
>>>	?"Manufacturer: " + loBIOS.Manufacturer
>>>	?"Name: " + loBIOS.Name
>>>	?"Primary BIOS: " + TRANSFORM(loBIOS.PrimaryBIOS)
>>>	?"Release Date: " + TRANSFORM(loBIOS.ReleaseDate)
>>>	?"Serial Number: " + loBIOS.SerialNumber
>>>	?"SMBIOS Version: " + loBIOS.SMBIOSBIOSVersion
>>>	?"SMBIOS Major Version: " + transf(loBIOS.SMBIOSMajorVersion)
>>>	?"SMBIOS Minor Version: " + TRANSFORM((loBIOS.SMBIOSMinorVersion))
>>>	?"SMBIOS Present: " + TRANSFORM(loBIOS.SMBIOSPresent)
>>>	?"Status: " + loBIOS.Status
>>>	?"Version: " + loBIOS.Version
>>>	For i = 0 To 100
>>>		?"BIOS Characteristics: " + ;
>>>			TRANSFORM(loBIOS.BiosCharacteristics(i))
>>>	Next
>>>Next
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform