PC SOFT

FOROS PROFESIONALES
WINDEVWEBDEV y WINDEV Mobile

Inicio → WINDEV 25 → System Info, Power Computer, Informações do sistema, Numero do HD, Numero da Placa Mae, Numero do MacAddress da placa de rede e wifi, tamanho do disco, INFORMAÇÕES DO WINDOWS PARA SEGURANÇA DE APLICAÇÕES
System Info, Power Computer, Informações do sistema, Numero do HD, Numero da Placa Mae, Numero do MacAddress da placa de rede e wifi, tamanho do disco, INFORMAÇÕES DO WINDOWS PARA SEGURANÇA DE APLICAÇÕES
Iniciado por Boller, 07,mar. 2023 15:38 - No hay respuesta
Miembro registrado
3.651 mensajes
Popularité : +175 (223 votes)
Publicado el 07,marzo 2023 - 15:38





















INFORMAÇÕES DO WINDOWS PARA SEGURANÇA DE APLICAÇÕES

System Info, Power Computer, Informações do sistema, Numero do HD, Numero da Placa Mae, Numero do MacAddress da placa de rede e wifi, tamanho do disco

CODIGOS IMPORTANTES A SEREM ANALISADOS

// Summary: <specify the procedure action>
// Syntax:
// GerarIdPc ()
//
// Parameters:
// None
// Return value:
// None
//
// For instance:
// Indicate an example.
//
PROCEDURE GerarIdPc()

//SERIAL
IF EDT_Company <> "" AND EDT_CNPJ_CPF_ID <> "" AND EDT_E_mail <> "" THEN

EDT_Hard_Drive = ""
EDT_Serial_Webdev = ""
EDT_Serial_Windev = ""
EDT_Serial_WindevMobile = ""

SERIAL_DOUNGLE_WEBDEV, SERIAL_DOUNGLE_WINDEV, SERIAL_DOUNGLE_WINDEVMOBILE, Windows, SerialWindows is string = ""

//FUNCAO GET SERIAL DOUNGLE
SERIAL_DOUNGLE_WEBDEV = 10
SERIAL_DOUNGLE_WINDEV = 20
SERIAL_DOUNGLE_WINDEVMOBILE = 30

EDT_Doungle_Webdev = "WEBDEV_" + SERIAL_DOUNGLE_WEBDEV
EDT_Doungle_Webdev_PcSoft = EDT_Doungle_Webdev //Envia para o Webservice da PcSoft

EDT_Doungle_Windev = "WINDEV_" + SERIAL_DOUNGLE_WINDEV
EDT_Doungle_Windev_PcSoft = EDT_Doungle_Windev //Envia para o Webservice da PcSoft

EDT_Doungle_WindevMobile = "WINDEVMOBILE_" + SERIAL_DOUNGLE_WINDEVMOBILE
EDT_Doungle_WindevMobile_PcSoft = EDT_Doungle_WindevMobile //Envia para o Webservice da PcSoft

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

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_Pais = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "sCountry", 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

Windows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", True)

SerialWindows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "BuildGUID", True)

EDT_Version_Windows = Windows +" - "+ SerialWindows +" - "+ SysWindowsVersion(sysProcessor) +" bits - "+ SysWindowsVersion(sysVersionBuild) +" - "+ SysWindowsVersion(sysVersionInfo) +" - "+ SysWindowsVersion(sysVersionNumber) +" - "+ SysWindowsVersion(sysVersionPlatform)

END

//EDT_Hard_Drive ====> Envia para o Webservice da PcSoft
EDT_Hard_Drive = fDriveInfo(Middle(SysDir(srWindows),1,2),fdSerialNumber)

EDT_Hard_Drive_PcSoft = EDT_Hard_Drive //EDT_Hard_Drive_PcSoft ====> Envia para o Webservice da PcSoft

EDT_IP_4 = NetIPAddress()

EDT_Placa_de_Rede_Mac = Upper(NetMACAddress())

EDT_Name_PC = Upper(NetMachineName())

//Marca_Modelo_Placa_de_Rede
ResExist3 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards")
IF ResExist3 = True THEN

Key is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
Achou is string = ""
x is int = 0
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
EDT_Placa_de_Rede_Marca_Modelo = Achou
EDT_Placa_de_Rede_ServiceName = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 30 THEN
BREAK
END
END
END

//Crypto
EDT_Serial_Webdev = EDT_Doungle_Webdev +"; "+ EDT_Company +"; "+ EDT_Pais +"; "+ EDT_CNPJ_CPF_ID +"; "+ EDT_E_mail +"; "+ EDT_Processador +"; "+ EDT_Placa_Mae +"; "+ EDT_Hard_Drive +"; "+ EDT_IP_4 +"; "+ EDT_Placa_de_Rede_Mac +"; "+ EDT_Version_Windows +"; "+ EDT_Name_PC +"; "+ EDT_Placa_de_Rede_Marca_Modelo +"; "+ EDT_Placa_de_Rede_ServiceName
EDT_Serial_Webdev = Encrypt(EDT_Serial_Webdev,EDT_Doungle_Webdev,cryptAnsi+compressShortString,encodeBASE64)
//EDT_Serial_Webdev ===> Envia para o Webservice da PcSoft

//Crypto
EDT_Serial_Windev = EDT_Doungle_Windev +"; "+ EDT_Company +"; "+ EDT_Pais +"; "+ EDT_CNPJ_CPF_ID +"; "+ EDT_E_mail +"; "+ EDT_Processador +"; "+ EDT_Placa_Mae +"; "+ EDT_Hard_Drive +"; "+ EDT_IP_4 +"; "+ EDT_Placa_de_Rede_Mac +"; "+ EDT_Version_Windows +"; "+ EDT_Name_PC +"; "+ EDT_Placa_de_Rede_Marca_Modelo +"; "+ EDT_Placa_de_Rede_ServiceName
EDT_Serial_Windev = Encrypt(EDT_Serial_Windev,EDT_Doungle_Windev,cryptAnsi+compressShortString,encodeBASE64)
//EDT_Serial_Windev ===> Envia para o Webservice da PcSoft

//Crypto
EDT_Serial_WindevMobile = EDT_Doungle_WindevMobile +"; "+ EDT_Company +"; "+ EDT_Pais +"; "+ EDT_CNPJ_CPF_ID +"; "+ EDT_E_mail +"; "+ EDT_Processador +"; "+ EDT_Placa_Mae +"; "+ EDT_Hard_Drive +"; "+ EDT_IP_4 +"; "+ EDT_Placa_de_Rede_Mac +"; "+ EDT_Version_Windows +"; "+ EDT_Name_PC +"; "+ EDT_Placa_de_Rede_Marca_Modelo +"; "+ EDT_Placa_de_Rede_ServiceName
EDT_Serial_WindevMobile = Encrypt(EDT_Serial_WindevMobile,EDT_Doungle_WindevMobile,cryptAnsi+compressShortString,encodeBASE64)
//EDT_Serial_WindevMobile ===> Envia para o Webservice da PcSoft

ELSE

IF EDT_Company = "" THEN
EDT_Company.BackgroundColor = DarkRed
END
IF EDT_CNPJ_CPF_ID = "" THEN
EDT_CNPJ_CPF_ID.BackgroundColor = DarkRed
END
IF EDT_E_mail = "" THEN
EDT_E_mail.BackgroundColor = DarkRed
END

END

///---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
// PlacaRede ()
//
// Parameters:
// None
// Return value:
// None
//
// Example:
// <Specify a usage example>
//
PROCEDURE PlacaRede()

//Marca_Modelo_Placa_de_Rede
ResExist1 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards")
IF ResExist1 = True THEN

Key is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
Achou is string = ""
x is int = 0
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
EDT_Placa_de_Rede_Marca_Modelo01 = Achou
EDT_Placa_de_Rede_ServiceName01 = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 30 THEN
BREAK
END
END
Achou = ""
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
EDT_Placa_de_Rede_Marca_Modelo02 = Achou
EDT_Placa_de_Rede_ServiceName02 = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 30 THEN
BREAK
END
END
END

//-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

NUMERO DO HD
EDT_Hard_Drive = fDriveInfo(Middle(SysDir(srWindows),1,2),fdSerialNumber)

//-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

PROCEDURE AfficheBrancheReseau()

// Récupération de la branche sélectionnée et de son identifiant
sEmplacement is string = TreeSelect(Voisinage_reseau)
sId is string = TreeIdentifier(Voisinage_reseau,sEmplacement)

// Si le nœud n'a pas de fils on appelle la fonction d'énumération pour le remplir
IF TreeGiveChild(Voisinage_reseau,sEmplacement,tvFirst)="" THEN
// On énumère son contenu
ReseauElementPremier(sId)
WHILE NOT ReseauEnDehors()
sIcone is string = sIconeObjetReseau()
TreeAdd(Voisinage_reseau,sFormateNomFils(sEmplacement,ReseauElementNomDistant()),sIcone,sIcone,ReseauElementNomDistant())
ReseauElementSuivant()
END
TreeExpand(Voisinage_reseau,sEmplacement)
END

//-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------

PROCEDURE AfficheMachine()

// Nom NetBIOS
sNomNetBios = NomOrdinateur()

// Nom DNS
sNomDNS = NomOrdinateurDNS()

// Infos de processeur
ProcesseurInfo(sProcesseur,nNbProcesseur,sInfoProcesseur)

// OS
SWITCH TypeOS()
CASE DetecteOS.WIN_95
sSysteme = "Windows 95"
CASE DetecteOS.WIN_98
sSysteme = "Windows 98"
CASE DetecteOS.WIN_ME
sSysteme = "Windows Me"
CASE DetecteOS.WIN_NT
sSysteme = "Windows NT 4.0"
CASE DetecteOS.WIN_2K
sSysteme = "Windows 2000"
CASE DetecteOS.WIN_XP
sSysteme = "Windows XP"
CASE DetecteOS.WIN_VISTA
sSysteme = "Windows Vista"
CASE DetecteOS.WIN_2003
sSysteme = "Windows 2003 Server"
CASE DetecteOS.WIN_2008
sSysteme = "Windows 2008 Server"
CASE DetecteOS.WIN_8
sSysteme = "Windows 8"
CASE DetecteOS.WIN_10
sSysteme = "Windows 10"
OTHER CASE
sSysteme = "Inconnu"
END

sSystemeComplement = SysWindowsVersion(sysVersionInfo)
sVersionOS = SysWindowsVersion(sysVersionNumber)
sBuildOS = SysWindowsVersion(sysVersionBuild)

// Mémoire
sMemoire = sTailleFormat(TailleMemoirePhysique())

//------------------------------------------------------------------------------------------------------------------------------------------------------------------------

PROCEDURE AfficheReseau()

// Construction de l'arbre de voisinage réseau
sNomRacine is string = "Tout le réseau"

// On vide l'arbre du voisinage réseau
TreeDeleteAll(Voisinage_reseau)

// On ajoute la racine
TreeAdd(Voisinage_reseau,sNomRacine,tvDefault,tvDefault,ParcoursReseau.RESEAU_RACINE)

// ET on la sélectionne
TreeSelectPlus(Voisinage_reseau,sNomRacine)

// On déroule automatiquement le premier niveau
// (les autres seront calculés et déroulés par double-clic)
AfficheBrancheReseau()

//-----------------------------------------------------------------------------------------------------------------------------------------------------

PROCEDURE AfficheUtilisateur()

// Affichage du nom de l'utilisateur connecté
sUtilisateur = NomUtilisateur()

// Les autres infos ne sont accessibles que sur les plateformes NT
IF bFamille9x() THEN RETURN

// On vide la liste des groupes
ListDeleteAll(LST_GROUPE)
// Et on la remplit de nouveau
ListAdd(LST_GROUPE,GroupeAppartenance())

//---------------------------------------------------------------------------------------------------------------------------

PROCEDURE sFormateNomFils( sPere , sFils )

// On récupère le dernier composant du père
nDernierTab is int = Position(sPere,TAB,0,FromEnd)
sChainePere is string = Middle(sPere,nDernierTab+1)

IF Left(sFils,Length(sChainePere))~=sChainePere THEN
RETURN sPere+TAB+Middle(sFils,Length(sChainePere)+1)
END

RETURN sPere+TAB+sFils

//-----------------------------------------------------------------------------------------------------------------------------------------------------------

PROCEDURE sIconeObjetReseau()

SWITCH ParcoursReseau.ReseauElementType()
CASE ParcoursReseau.RESEAU_DISQUE
RETURN "hd.gif"
CASE ParcoursReseau.RESEAU_GROUPE
RETURN "group.gif"
CASE ParcoursReseau.RESEAU_IMPRIMANTE
RETURN "imprim.gif"
CASE ParcoursReseau.RESEAU_MACHINE
RETURN "pc.gif"
OTHER CASE
// par défaut
END

RETURN "reseau.gif"

//---------------------------------------------------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] PowerComputer (<bVerificarIpExterno> is boolean)
//
// Parameters:
// bVerificarIpExterno (boolean): <specify the role of bVerificarIpExterno>
// Return Value:
// ANSI string: // None
//
// For instance:
// Indicate an example.
//
PROCEDURE PowerComputer(bVerificarIpExterno is boolean)

bufPowerComputer is Buffer
sPowerComputer is string = ""
arrPowerComputer is array of string
Processador, Placa_Mae, Version_Windows, Pais, Idioma, PathWindows, Hard_Drive, IP_4, Placa_de_Rede_Mac, Name_PC, User_Windows, Placa_de_Rede_Marca_Modelo, Placa_de_Rede_ServiceName is string = ""
Doc_User, APPDATA, LOCALAPPDATA, Images_User, Contacts_User, Desktop_User, Downloads_User, Music_User, Videos_User, Doc_User_Alternativo, Programas, Programas64 is string = ""
SERIAL_DOUNGLE_WEBDEV, SERIAL_DOUNGLE_WINDEV, SERIAL_DOUNGLE_WINDEVMOBILE, Windows, SerialWindows is string = ""

//FUNCAO GET SERIAL DOUNGLE
SERIAL_DOUNGLE_WEBDEV = 10
SERIAL_DOUNGLE_WINDEV = 20
SERIAL_DOUNGLE_WINDEVMOBILE = 30

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

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)

Processador = RegistryQueryValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", True)
sPowerComputer += Processador
Add(arrPowerComputer,"Processador:"+Processador)

Placa_Mae = sBaseBoardManufacturer +" - "+ sBaseBoardProduct +" - "+ sBaseBoardVersion +" - "+ sBIOSReleaseDate +" - "+ sBIOSVendor +" - "+ sBIOSVersion +" - "+ sSystemFamily +" - "+ sSystemManufacturer
sPowerComputer += Placa_Mae
Add(arrPowerComputer,"PlacaMae:"+Placa_Mae)

Windows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "ProductName", True)
sPowerComputer += Windows
Add(arrPowerComputer,"Windows:"+Windows)

SerialWindows = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "BuildGUID", True)
sPowerComputer += SerialWindows
Add(arrPowerComputer,"SerialWindows:"+SerialWindows)

Version_Windows = Windows +" - "+ SerialWindows +" - "+ SysWindowsVersion(sysProcessor) +" bits - "+ SysWindowsVersion(sysVersionBuild) +" - "+ SysWindowsVersion(sysVersionInfo) +" - "+ SysWindowsVersion(sysVersionNumber) +" - "+ SysWindowsVersion(sysVersionPlatform)
sPowerComputer += Version_Windows
Add(arrPowerComputer,"Version_Windows:"+Version_Windows)

Pais = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "sCountry", True)
sPowerComputer += Pais
Add(arrPowerComputer,"Pais"+Pais)

Idioma = RegistryQueryValue("HKEY_CURRENT_USER\Control Panel\International", "LocaleName", True)
sPowerComputer += Idioma
Add(arrPowerComputer,"Idioma"+Idioma)

PathWindows = RegistryQueryValue("HKEY_CURRENT_USER\Environment", "Path", True)
sPowerComputer += PathWindows
Add(arrPowerComputer,"PathWindows:"+PathWindows)

END

//EDT_Hard_Drive ====> Envia para o Webservice da PcSoft
Hard_Drive = fDriveInfo(Middle(SysDir(srWindows),1,2),fdSerialNumber)
gsHDSerial = Hard_Drive
sPowerComputer += Hard_Drive
Add(arrPowerComputer,"Hard_Drive"+Hard_Drive)

IP_4 = NetIPAddress()
gsIP = IP_4
sPowerComputer += IP_4
Add(arrPowerComputer,"IP_4:"+IP_4)

IF bVerificarIpExterno = 1 OR bVerificarIpExterno = True
MyIpExterno()
END

Placa_de_Rede_Mac = Upper(NetMACAddress())
gsMacAddress = Placa_de_Rede_Mac
sPowerComputer += Placa_de_Rede_Mac
Add(arrPowerComputer,"Placa_de_Rede_Mac:"+Placa_de_Rede_Mac)

Name_PC = Upper(NetMachineName())
gsPC = Name_PC
sPowerComputer += Name_PC
Add(arrPowerComputer,"Name_PC:"+Name_PC)

User_Windows = Upper(NetworkUser())
gsUserPc = User_Windows
sPowerComputer += User_Windows
Add(arrPowerComputer,"User_Windows"+User_Windows)


//PCSOFT
gsPCSOFT is string = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Aladdin Knowledge Systems\HASP\Driver\Installer", "DrvPkgVersion", True)
sPowerComputer += gsPCSOFT
Add(arrPowerComputer,"PCSOFT:"+gsPCSOFT)


//Marca_Modelo_Placa_de_Rede
ResExist3 is boolean = RegistryExist("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards")
IF ResExist3 = True THEN

Key is string = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\"
Achou is string = ""
x is int = 0
WHILE Key <> ""
x+= 1
Achou = RegistryQueryValue(Key+x, "Description", True)
IF Achou <> ""
Placa_de_Rede_Marca_Modelo = Achou
Placa_de_Rede_ServiceName = RegistryQueryValue(Key+x, "ServiceName", True)
BREAK
END
IF x > 5 THEN
BREAK
END
END
END

Add(arrPowerComputer,"Placa_de_Rede_Marca_Modelo:"+Placa_de_Rede_Marca_Modelo)
Add(arrPowerComputer,"Placa_de_Rede_ServiceName"+Placa_de_Rede_ServiceName)

//-------------------------------------------------------------------------------------

//AMBIENTE USER - DIRETORIOS A SEREM CRIPTOGRAFADOS
IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Documents\")
Doc_User = "C:\Users\"+Upper(NetworkUser())+"\Documents\"
sPowerComputer += Doc_User
Add(arrPowerComputer,"Doc_User:"+Doc_User)

APPDATA = "C:\Users\"+Upper(NetworkUser())+"\AppData\Roaming\"
sPowerComputer += APPDATA
Add(arrPowerComputer,"APPDATA:"+APPDATA)

LOCALAPPDATA = "C:\Users\"+Upper(NetworkUser())+"\AppData\Local"
sPowerComputer += LOCALAPPDATA
Add(arrPowerComputer,"LOCALAPPDATA:"+LOCALAPPDATA)
ELSE
Doc_User = ""
APPDATA = ""
LOCALAPPDATA = ""
Add(arrPowerComputer,"Doc_User:"+Doc_User)
Add(arrPowerComputer,"APPDATA:"+APPDATA)
Add(arrPowerComputer,"LOCALAPPDATA:"+LOCALAPPDATA)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Pictures\")
Images_User = "C:\Users\"+Upper(NetworkUser())+"\Pictures\"
sPowerComputer += Images_User
Add(arrPowerComputer,"Images_User:"+Images_User)
ELSE
Images_User = ""
Add(arrPowerComputer,"Images_User:"+Images_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Contacts\")
Contacts_User = "C:\Users\"+Upper(NetworkUser())+"\Contacts\"
Add(arrPowerComputer,"Contacts_User"+Contacts_User)
ELSE
Contacts_User = ""
Add(arrPowerComputer,"Contacts_User"+Contacts_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Desktop\")
Desktop_User = "C:\Users\"+Upper(NetworkUser())+"\Desktop\"
sPowerComputer += Desktop_User
Add(arrPowerComputer,"Desktop_User:"+Desktop_User)
ELSE
Desktop_User = ""
Add(arrPowerComputer,"Desktop_User:"+Desktop_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Downloads\")
Downloads_User = "C:\Users\"+Upper(NetworkUser())+"\Downloads\"
sPowerComputer += Downloads_User
Add(arrPowerComputer,"Downloads_User:"+Downloads_User)
ELSE
Downloads_User = ""
Add(arrPowerComputer,"Downloads_User:"+Downloads_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Music\")
Music_User = "C:\Users\"+Upper(NetworkUser())+"\Music\"
sPowerComputer += Music_User
Add(arrPowerComputer,"Music_User"+Music_User)
ELSE
Music_User = ""
Add(arrPowerComputer,"Music_User"+Music_User)
END

IF fDirectoryExist("C:\Users\"+Upper(NetworkUser())+"\Videos\")
Videos_User = "C:\Users\"+Upper(NetworkUser())+"\Videos\"
sPowerComputer += Videos_User
Add(arrPowerComputer,"Videos_User:"+Videos_User)
ELSE
Videos_User = ""
Add(arrPowerComputer,"Videos_User:"+Videos_User)
END


IF fDirectoryExist("C:\Meus Documentos\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "C:\Meus Documentos\"
ELSE IF fDirectoryExist("D:\Meus Documentos\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "D:\Meus Documentos\"
ELSE IF fDirectoryExist("E:\Meus Documentos\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "E:\Meus Documentos\"
ELSE

IF fDirectoryExist("C:\My Documents\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "C:\My Documents\"
ELSE IF fDirectoryExist("D:\My Documents\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "D:\My Documents\"
ELSE IF fDirectoryExist("E:\My Documents\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "E:\My Documents\"
ELSE

IF fDirectoryExist("C:\Documentos\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "C:\Documentos\"
ELSE IF fDirectoryExist("D:\Documentos\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "D:\Documentos\"
ELSE IF fDirectoryExist("E:\Documentos\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "E:\Documentos\"
ELSE

IF fDirectoryExist("C:\Documents\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "C:\Documents\"
ELSE IF fDirectoryExist("D:\Documens\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "D:\Documents\"
ELSE IF fDirectoryExist("E:\Documents\") AND Doc_User_Alternativo = ""
Doc_User_Alternativo = "E:\Documents\"
ELSE
Doc_User_Alternativo = ""
END

END

END

END

sPowerComputer += Doc_User_Alternativo
Add(arrPowerComputer,"Doc_User_Alternativo:"+Doc_User_Alternativo)


sPowerComputer = HashString(HA_HMAC_SHA3_512,sPowerComputer)
sPowerComputer = Replace(sPowerComputer," ","ç")
Add(arrPowerComputer,"PCID:"+sPowerComputer)

//Programas Instalados
Programas = RegistryListkey("HKEY_CURRENT_USER\Software")
sPowerComputer += Programas
Add(arrPowerComputer,"Programas32bits"+Programas)

Programas64 = RegistryListkey("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node")
sPowerComputer += Programas64
Add(arrPowerComputer,"Programas64bits:"+Programas64)

IF fDirectoryExist("C:\TEMP") = False THEN
fMakeDir("C:\TEMP")
END
Add(arrPowerComputer,"TEMP: C:\Temp")

gbPowerComputer = True

HReset(GPU_09_SoftInventario)

IF HReadSeek(GPU_09_SoftInventario,SerialHD,gsHDSerial,hIdentical) = True

IF HFound(GPU_09_SoftInventario) = False THEN
GPU_09_SoftInventario.GPU_PC_ID = GPU_GetSEQ("GPU_09_SoftInventario","GPU_PC_ID")
GPU_09_SoftInventario.SerialHD = gsHDSerial
GPU_09_SoftInventario.Estacao = gsPC
GPU_09_SoftInventario.Usuario = gsUserPc
GPU_09_SoftInventario.IP_Address = gsIP
GPU_09_SoftInventario.Licenciado = 1
GPU_09_SoftInventario.StatusONOFF= "ON"
Serialize(arrPowerComputer,bufPowerComputer,psdJSON)
GPU_09_SoftInventario.Computador = bufPowerComputer
HAdd(GPU_09_SoftInventario,hForceIDAuto)
ELSE
GPU_09_SoftInventario.SerialHD = gsHDSerial
GPU_09_SoftInventario.Estacao = gsPC
GPU_09_SoftInventario.Usuario = gsUserPc
GPU_09_SoftInventario.IP_Address = gsIP
GPU_09_SoftInventario.Licenciado = 1
GPU_09_SoftInventario.StatusONOFF= "ON"
Serialize(arrPowerComputer,bufPowerComputer,psdJSON)
GPU_09_SoftInventario.Computador = bufPowerComputer
HModify(GPU_09_SoftInventario)
END
ELSE
GPU_09_SoftInventario.GPU_PC_ID = GPU_GetSEQ("GPU_09_SoftInventario","GPU_PC_ID")
GPU_09_SoftInventario.SerialHD = gsHDSerial
GPU_09_SoftInventario.Estacao = gsPC
GPU_09_SoftInventario.Usuario = gsUserPc
GPU_09_SoftInventario.IP_Address = gsIP
GPU_09_SoftInventario.Licenciado = 1
GPU_09_SoftInventario.StatusONOFF= "ON"
Serialize(arrPowerComputer,bufPowerComputer,psdJSON)
GPU_09_SoftInventario.Computador = bufPowerComputer
HAdd(GPU_09_SoftInventario,hForceIDAuto)
END

RESULT Hard_Drive


//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

// Summary: <specify the procedure action>
// Syntax:
//TaskManager (<bEnableDisable> is boolean)
//
// Parameters:
// bEnableDisable (boolean): <specify the role of bEnableDisable>
// Return Value:
// None
//
// For instance:
// Indicate an example.
//
PROCEDURE TaskManager(bEnableDisable is boolean)

//Buscar
ResExist1 is boolean = RegistryExist("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\")
ResExist2 is boolean = RegistryExist("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System")

//Criar se nao existe a Pasta System
IF ResExist1 = True AND ResExist2 = False THEN
//cria a pasta da esquerda
RegistryCreateKey("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System")
//cria a chave DisableTaskMgr tipo DWORD 32 dentro da Pasta
RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr",0)
//verifica se existe
ResExist2 = RegistryExist("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System")
END

IF bEnableDisable = True AND ResExist1 = True AND ResExist2 = True //Habilita THEN

RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr",0)

ELSE IF bEnableDisable = False AND ResExist1 = True AND ResExist2 = True //Desabilita THEN

RegistrySetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System","DisableTaskMgr",1)

END

//-----------------------------------------------------------------------------------------------------------------------------------------------------

ALTERAR PAPEL DE PAREDE DO WINDOWS

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] Wallpaper ()
//
// Parameters:
// None
// Return Value:
// boolean: // None
//
// For instance:
// Indicate an example.
//
PROCEDURE Wallpaper()

// Alterando o Papel de parede do Windows
bAlterado is boolean = False
fMakeDir("C:\Temp\")
fCopyFile("saw.apt","sawarning.jpg")
WRegFondEcran is string = "C:\Temp\sawarning.jpg"
fCopyFile("sawarning.jpg","C:\Temp\sawarning.jpg")
WChemin is string = "HKEY_CURRENT_USER\Control Panel\Desktop"
IF RegistrySetValue(WChemin, "Wallpaper", WRegFondEcran) = False
Error("Error image")
bAlterado = False
ELSE
bAlterado = True
uAction is int
uParam is int
lpvParam is string ASCIIZ on 255
uAction = 20
uParam = 0
lpvParam = WRegFondEcran
CallDLL32("user32", "SystemParametersInfoA", uAction, uParam,&lpvParam, 0)
END

RESULT bAlterado






--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/