APi et VB NET [Résolu]

COlive 91 Messages postés mercredi 27 février 2002Date d'inscription 3 décembre 2011 Dernière intervention - 21 janv. 2005 à 11:34 - Dernière réponse : zippro4012 218 Messages postés mardi 15 juin 2004Date d'inscription 26 février 2006 Dernière intervention
- 23 janv. 2005 à 20:23
Bonjour,

je cherche le moyen d'utiliser des apis ou bien de les remplcer sous .net

voici le code qui fonctionne parfaitement en vb6 :

Public Function LitRemoteChaine(ByVal Nom_UNC_PC As String, ByVal hKey As Long, ByVal PathKey As String, ByVal ValueName As String) As String
Dim keyhand As Long
Dim RemoteHand As Long
Dim lValueType As Long
Dim lResult As Long
Dim strBuf As String
Dim lDataBufSize As Long
Dim intZeroPos As Integer
r = RegConnectRegistry(Nom_UNC_PC, hKey, RemoteHand)
r = RegOpenKey(RemoteHand, PathKey, keyhand)
lResult = RegQueryValueEx(keyhand, ValueName, 0&, lValueType, ByVal 0&, lDataBufSize) If lValueType REG_SZ Or lValueType REG_EXPAND_SZ Then
strBuf = String(lDataBufSize, " ")
lResult = RegQueryValueEx(keyhand, ValueName, 0&, 0&, ByVal strBuf, lDataBufSize)
If lResult = ERROR_SUCCESS Then
intZeroPos = InStr(strBuf, Chr$(0))
If intZeroPos > 0 Then
LitRemoteChaine = Left$(strBuf, intZeroPos - 1)
Else
LitRemoteChaine = strBuf
End If
End If
End If
r = RegCloseKey(keyhand)
r = RegCloseKey(RemoteHand)
End Function

La conversion en VB.NET ne fonctionne pas et malgrès plusieurs manipulation dans la déclaration des variables ou bien l'utilisation des fonctions, rien n'y fait.

Cette fonction permet à l'origine de lire une valeur chaine dans une base de registre d'un pc distant.

COlive.
Deux intellectuels assis iront moins loin qu'un con qui marche. Pensez-y !
Afficher la suite 

4 réponses

Meilleure réponse
cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 21 janv. 2005 à 17:26
3
Merci
Voici sa déclaration en .NET :

Declare Function RegConnectRegistry Lib "advapi32.dll" Alias "RegConnectRegistryA" ( _

ByVal lpMachineName As String, _

ByVal hKey As Int32, _

ByRef phkResult As Int32) As Int32


DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com

Merci cs_DARKSIDIOUS 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

cs_DARKSIDIOUS 15838 Messages postés jeudi 8 août 2002Date d'inscription 4 mars 2013 Dernière intervention - 21 janv. 2005 à 11:53
0
Merci
Voir mon programme de visualisation d'API sur ProgOtoP.com (menu
POPAPI) : il te donnera les déclarations des fonctions de l'API Windows
en VB et en VB.NET !

DarK Sidious

Administrateur et reponsable VB/API du site www.ProgOtoP.com
COlive 91 Messages postés mercredi 27 février 2002Date d'inscription 3 décembre 2011 Dernière intervention - 21 janv. 2005 à 17:12
0
Merci
Merci, ce programme est très interressant, mais il ne m'aide pas pour la fonction :

RegConnectRegistry

Car c'est celle si qui ne fonctionne plus an .NET.

COlive.
Deux intellectuels assis iront moins loin qu'un con qui marche. Pensez-y !
zippro4012 218 Messages postés mardi 15 juin 2004Date d'inscription 26 février 2006 Dernière intervention - 23 janv. 2005 à 20:23
0
Merci
En .NET, il n'y a plus besoin des api pour accéder au registre
On peut utiliser les classes Microsoft.Win32.Registry et Microsoft.Win32.RegistryKey

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.