PC SOFT
DEPOT EN LIGNE
POUR WINDEVWEBDEV ET WINDEV MOBILE

System Info, Power Computer, Informações do sistema, Numero do HD, Numero da Placa Mae, Numero do MacAddress da placa de rede e
Publié par Boller
dans la catégorie Outils
Nouveautés



Description
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_PC SOFT = EDT_Doungle_WEBDEV //Envia para o Webservice da PC SOFT

EDT_Doungle_WINDEV = "WINDEV_" + SERIAL_DOUNGLE_WINDEV
EDT_Doungle_WINDEV_PC SOFT = EDT_Doungle_WINDEV //Envia para o Webservice da PC SOFT

EDT_Doungle_WindevMobile = "WINDEVMOBILE_" + SERIAL_DOUNGLE_WINDEVMOBILE
EDT_Doungle_WindevMobile_PC SOFT = EDT_Doungle_WindevMobile //Envia para o Webservice da PC SOFT

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 PC SOFT
EDT_Hard_Drive = fDriveInfo(Middle(SysDir(srWindows),1,2),fdSerialNumber)

EDT_Hard_Drive_PC SOFT = EDT_Hard_Drive //EDT_Hard_Drive_PC SOFT ====> Envia para o Webservice da PC SOFT

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 PC SOFT

//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 PC SOFT

//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 PC SOFT

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 PC SOFT
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)


//PC SOFT
gsPCSOFT is string = RegistryQueryValue("HKEY_LOCAL_MACHINE\SOFTWARE\Aladdin Knowledge Systems\HASP\Driver\Installer", "DrvPkgVersion", True)
sPowerComputer += gsPCSOFT
Add(arrPowerComputer,"PC SOFT:"+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

Illustrations, copies d'écran
none
none
Avis des utilisateurs
(Pour noter la ressource, cliquez sur Ecrire un avis)
Aucun avis ou commentaire ? Soyez le premier !