APi et VB NETRésolu

Question

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&#232;s plusieurs manipulation dans la d&#233;claration des variables ou bien l'utilisation des fonctions, rien n'y fait.

Cette fonction permet &#224; 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 !

cs_DARKSIDIOUS · Accepted Answer

Voici sa d&#233;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

cs_DARKSIDIOUS · Answer

Voir mon programme de visualisation d'API sur ProgOtoP.com (menu
POPAPI) : il te donnera les d&#233;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 · Answer

Merci, ce programme est tr&#232;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 · Answer

En .NET, il  n'y a plus besoin des api pour acc&#233;der au registre
On peut utiliser les classes Microsoft.Win32.Registry et Microsoft.Win32.RegistryKey

APi et VB NET

4 réponses

Discussions similaires