|
Inicio → WINDEV 25 → Windev - Ativacao de Serial Unica para Aplicativo, Usando Webservice e Api do Windows |
Windev - Ativacao de Serial Unica para Aplicativo, Usando Webservice e Api do Windows |
Iniciado por adrianoboller, jul., 06 2015 10:06 PM - 3 respostas |
| |
| | | |
|
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em julho, 06 2015 - 10:06 PM |
EDT_Hard_Drive = "" EDT_Serial = ""
sBaseBoardManufacturer, sBaseBoardProduct, sBaseBoardVersion, sBIOSReleaseDate, sBIOSVendor, sBIOSVersion, sSystemFamily, sSystemManufacturer is string = ""
ResExist1 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS")
ResExist2 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0")
IF ResExist1 = True AND ResExist2 = True
sKey is string = "HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS"
sBaseBoardManufacturer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardManufacturer", True) sBaseBoardProduct = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardProduct", True) sBaseBoardVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BaseBoardVersion", True) sBIOSReleaseDate = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSReleaseDate", True) sBIOSVendor = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVendor", True) sBIOSVersion = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "BIOSVersion", True) sSystemFamily = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemFamily", True) sSystemManufacturer = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS", "SystemManufacturer", True)
EDT_Processador = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", True)
EDT_Placa_Mae = sBaseBoardManufacturer +"-"+ sBaseBoardProduct +"-"+ sBaseBoardVersion +"-"+ sBIOSReleaseDate +"-"+ sBIOSVendor +"-"+ sBIOSVersion +"-"+ sSystemFamily +"-"+ sSystemManufacturer END
EDT_Hard_Drive = fDisqueInfo(Middle(SysDir(srWindows),1,2),fdSerialNumber)
EDT_IP_4 = NetIPAddress()
EDT_Placa_de_Rede_Mac = Upper(NetMACAddress())
EDT_Version_Windows = SysWindowsVersion(sysProcessor) +" bits - "+ SysWindowsVersion(sysVersionBuild) +"-"+ SysWindowsVersion(sysVersionInfo) +"-"+ SysWindowsVersion(sysVersionNumber) +"-"+ SysWindowsVersion(sysVersionPlatform)
EDT_Name_PC = Upper(NetMachineName())
EDT_Serial = EDT_Company +"; "+ EDT_CNPJ_CPF_ID +"; "+ EDT_Processador +"; "+ EDT_Placa_Mae +"; "+ EDT_Hard_Drive +"; "+ EDT_IP_4 +"; "+ EDT_Placa_de_Rede_Mac +"; "+ EDT_Version_Windows +"; "+ EDT_Name_PC EDT_Serial = Crypt(EDT_Serial,EDT_Hard_Drive,cryptAnsi+compressShortString,encodeBASE64)
IF InternetConnected() = True THEN
ok is boolean = HTTPRequest("http://www.empresa.com.br")
IF ok = True
Info("The server is OK")
Token is string = EDT_CNPJ_CPF_ID
Info(Token, EDT_Hard_Drive, EDT_Serial)
IF YesNo("Deseja desativar o serial do computador x"+CR+"e ativar para este computador y") = Yes
Info("Serial ativado para esse computador")
END
ELSE Info("Server temporarily unavailable") END
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em julho, 06 2015 - 10:15 PM |
EDT_Serial_Servidor = ""
EDT_Serial_Servidor = Uncrypt(EDT_Serial, EDT_Hard_Drive, cryptAnsi+compressShortString,encodeBASE64) = IF PositionOccurrence(EDT_Serial_Servidor , EDT_Hard_Drive, firstRank,FromBeginning) > 0 STC_Resultado = "Serial Valido" STC_Resultado..Color = DarkBlue ELSE STC_Resultado = "Serial não é Valido" STC_Resultado..Color = DarkRed
IF CBOX_Simular..Value = False IF YesNo("Deseja desativar o serial do computador x"+CR+"e ativar para este computador y") = Yes
Info("Serial ativado para esse computador")
END END
END
|
| |
| |
| | | |
|
| | |
| |
Membro registado 3.657 mensagems Popularité : +175 (223 votes) |
|
Publicado em julho, 07 2015 - 2:48 AM |
bResCreateKey is boolean = RegistryCreateKey("HKEY_LOCAL_MACHINE\SOFTWARE\SOFTHOUSE")
bCHAVE_WB is boolean = RegistrySetValue("HKEY_LOCAL_MACHINE\SOFTWARE\SOFTHOUSE", "SYSCLINICA", EDT_Serial)
|
| |
| |
| | | |
|
| | |
| |
Membro registado 1 mensagem |
|
Publicado em fevereiro, 24 2018 - 5:00 PM |
Bom exemplo Adriano, parabéns. |
| |
| |
| | | |
|
| | | | |
| | |
|