Dll pour vb/vba (7)

Soyez le premier à donner votre avis sur cette source.

Vue 6 580 fois - Téléchargée 478 fois

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.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
26
ICI
http://www.vbfrance.com/code.aspx?id=18494

et nous diras ce que tu en penses vu que tu y tenais tant, au point de balancer des 1/10 nimporte comment.
Messages postés
550
Date d'inscription
jeudi 12 octobre 2006
Statut
Membre
Dernière intervention
6 juin 2015
4
Les sources, elles sont ou ?
vbfrance, codessource...

Ta pas oublié que l'on doit partager ses sources ?
Messages postés
19
Date d'inscription
vendredi 11 février 2005
Statut
Membre
Dernière intervention
18 novembre 2009

ça a l'air bien mais j'avoue que je suis surtout intéressé par un reboot à distance (faire une petite appli en VB qui permette, entre autres, de rebooter une machine présente sur mon réseau local, avec l'instruction shutdown ou reboot je suppose, mais comment inclure de telles fonctions à un projet VB ?)
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
26
http://www.vbfrance.com/code.aspx?ID=18494
J'ai fait un update de la version 9, devrait ameliorer le calcul speed CPU mais en restant sur 2/10.
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
26
tu as quelle frequence ?
Pour une haute precision, aurait fallu que je bloque la CPU pendant un presque une demi seconde, ici je fais en 2/10. Alors va assez precis si cpu > 2 Ghz sinon c'est a peu pres.
Afficher les 6 commentaires

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.