Dll pour vb/vba (7)

Télécharger le projet
Commenter

Description

La dll (8 Ko) qui s'etend selon les demandes.
zip contient dll et fichier avec declarations et exemples.
NOUVEAUTES:
- Extinction et reboot.
DEJA FOURNI:
Lecture registres CURENT_USER et LOCAL_MACHINE.
Ecritue registres CURENT_USER et LOCAL_MACHINE.
Determine si current user est administrateur.
Vitesse processeur.
Mesures en hautes precisions (temps de fonctions etc).
Selecteur de dossiers avec initialisation du dossier de depart.
Existe et taille fichier, place libre sur disque.
Donne les dossiers: Windows, System, Temp.
Met tous les fichiers d'un dossier dans une ListBox.
Donne le Long depuis String hexadecimale.
Donne String hexadecimale depuis un Long.

Source / Exemple : 


' enlever chemin de "D:\bn2Vb.dll", juste pour tests perso
Declare Function bnIsWinNT Lib "D:\bn2Vb.dll" () As Long
Declare Function bnIsUserAdminNT Lib "D:\bn2Vb.dll" () As Long

Declare Function bnIsPrecisionOK Lib "D:\bn2Vb.dll" () As Long
Declare Function bnCpuSpeedMghz Lib "D:\bn2Vb.dll" () As Long
Declare Sub bnTicksStart Lib "D:\bn2Vb.dll" ()
Declare Function bnTicksResult Lib "D:\bn2Vb.dll" () As Double
Declare Sub bnMilliscndStart Lib "D:\bn2Vb.dll" ()
Declare Function bnMilliscndResult Lib "D:\bn2Vb.dll" () As Double

Declare Function bnRegLireStringCU Lib "D:\bn2Vb.dll" (sKey As String, sValue As String, sDest As String) As Long
Declare Function bnRegLireStringLM Lib "D:\bn2Vb.dll" (sKey As String, sValue As String, sDest As String) As Long
' valeurs de retour
' 0 - OK, sDest sera String valide, vide possible
' 1 - cle ou valeur inexistante ou impossible d'ouvrir ou autre
' 2 - type non string
' 3 - defaut de memoire
Declare Function bnRegLireDwordCU Lib "D:\bn2Vb.dll" (sKey As String, sValue As String, lDest As Long) As Long
Declare Function bnRegLireDwordLM Lib "D:\bn2Vb.dll" (sKey As String, sValue As String, lDest As Long) As Long
' valeurs de retour
' 0    - OK, lDest sera valide au retour
' <> 0 - impossible de lire, valeur non DWORD ou autre
Declare Function bnRegEcritStringCU Lib "D:\bn2Vb.dll" (ByVal sKey As String, ByVal sValue As String, ByVal sStr As String) As Long
Declare Function bnRegEcritStringLM Lib "D:\bn2Vb.dll" (ByVal sKey As String, ByVal sValue As String, ByVal sStr As String) As Long
Declare Function bnRegEcritDwordCU Lib "D:\bn2Vb.dll" (ByVal sKey As String, ByVal sValue As String, ByVal lVal As Long) As Long
Declare Function bnRegEcritDwordLM Lib "D:\bn2Vb.dll" (ByVal sKey As String, ByVal sValue As String, ByVal lVal As Long) As Long
' retourne <> 0 si erreur

Declare Function bnSelectDir Lib "D:\bn2Vb.dll" (sTitre As String, sDir As String) As Long
' retourne <> 0 - dossier choisi, sDir sort avec \ final
' retourne 0    - sDir ne change pas
Declare Function bnFileExists Lib "D:\bn2Vb.dll" (ByVal sFile As String) As Long
' retourne <> 0 si fichier existe
Declare Function bnFileSize Lib "D:\bn2Vb.dll" (ByVal sFile As String) As Double
' de 0 => (2^64)-1 qui est le maxi sur win32.
Declare Function bnGetDiskFreeSpace Lib "D:\bn2Vb.dll" (ByVal sRootFile As String) As Double
' peut passer "D:\" ou "C:" ou "D:\toto.txt", va idem.
Declare Function bnGetWinDir Lib "D:\bn2Vb.dll" () As String
Declare Function bnGetSysDir Lib "D:\bn2Vb.dll" () As String
Declare Function bnGetTempDir Lib "D:\bn2Vb.dll" () As String
Declare Function bnLbFilesDir Lib "D:\bn2Vb.dll" (ByVal hLst As Long, ByVal sDir As String) As Long

Declare Function bnLongToHexa Lib "D:\bn2Vb.dll" (ByVal lNbr As Long) As String
Declare Function bnHexaToLong Lib "D:\bn2Vb.dll" (ByVal sHexa As String) As Long

Declare Sub bnExitWindows Lib "D:\bn2Vb.dll" ()
Declare Sub bnExitWindowsReboot Lib "D:\bn2Vb.dll" ()

Conclusion :


Tous les exemples sont faits sur Excel.
A ce propos, l'enum fichier dans ListBox n'a pas été testé
cause que Excel ne donne pas de hWnd de ListBox. Si une
personne sympa voulait bien tester, je lui en serais gré.
Postez moi vos demandes d'extensions.
Sera fait suivant disponibilite.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (BruNews)