Restar X cantidad de caracteres al valor de una variable

[raul338]

Haber.... expliquemos.... para obtener un valor, te pase la siguiente funcion en un link

Código (vb) [Seleccionar] Expandir


Public Function IsAutoRun() As Boolean

   Dim Path          As String
   Dim Handle        As Long
   Dim Data          As String
   Dim cch           As Long

   Path = Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34)

   RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, Handle
   RegQueryValueExNULL Handle, App.Title, 0&, 0&, 0&, cch

   If cch > 0 Then
       Data = String(cch - 1, 0)
       RegQueryValueExString Handle, App.Title, 0&, 0&, Data, cch
       IsAutoRun = Path = Data
   End If

   RegCloseKey Handle

End Function


Vamos por partes (dijo jack el destripador)

Se declaran e inicalizan las variables

Código (vb) [Seleccionar] Expandir

RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, Handle
Ahi decimos a windows que nos "abra" una "conexion" al registro, en HKEY_CURRENT_USE (en la parte de arriba estan las constantes para las demas ramas), despues le pasamos la ruta de lo que queramos obtener (RAMA_RUN_WINDOWS tambien esta declarado arriba), despues KEY_ALL_ACCESS se explica a si mismo y por ultimo la API guarda el numero de conexion en Handle (es importante esa variable, no debe cambiar hasta que se cierre la conexion, no es bueno dejar cosas abiertas a medida que se ejecuta el programa

Código (vb) [Seleccionar] Expandir

RegQueryValueExNULL Handle, App.Title, 0&, 0&, 0&, cch
En esta linea vemos si esta vacia la entrada App.Title (puede ser cualquier nombre, pero es el nombre de la clave que queremos obtener) y si no lo esta, devuelve la longitud del valor de la clave App.Title. Como antes, el resultado se guarda en cch (te preguntaras porque lo guarda ahi y no lo devuelve la funcion? Si, es medio lioso la API de windows cuando apenas entra. Lo hace porque la funcion devuelve un codigo de error o si todo esta bien, cosa que si la funcion devolviera FALSO por ejemplo, no sabrias si no existe o si existe o tiene contenido, o si el windows no te dio permiso para comprobar si existe, etc)
Compruebas si cch es mayor que 0, por lo tanto EXISTE y pasamos a obtener el valor con

Código (vb) [Seleccionar] Expandir

RegQueryValueExString Handle, App.Title, 0&, 0&, Data, cch que le pasamos el numero de conexion, el nombre de la cadena, y un string vacio (de longitud "cch")
Y listo, tienes el valor de la cadena que buscas!!!

Y por ultimo cierras la cadena con RegCloseHandle

Espero que te sirva

[extreme69]

A ver si tengo bien el concepto, voy a basarme en en el ejemplo de api guide.

Primero las declaraciones y funciones:

Código [Seleccionar] Expandir

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long


Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String
   Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long
   'retrieve nformation about the key
   lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
   If lResult = 0 Then
       If lValueType = REG_SZ Then
           'Create a buffer
           strBuf = String(lDataBufSize, Chr$(0))
           'retrieve the key's content
           lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)
           If lResult = 0 Then
               'Remove the unnecessary chr$(0)'s
               RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
           End If
       ElseIf lValueType = REG_BINARY Then
           Dim strData As Integer
           'retrieve the key's value
           lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)
           If lResult = 0 Then
               RegQueryStringValue = strData
           End If
       End If
   End If
End Function


Function GetString(hKey As Long, strPath As String, strValue As String)
   Dim Ret
   'Open the key
   RegOpenKey hKey, strPath, Ret
   'Get the key's content
   GetString = RegQueryStringValue(Ret, strValue)
   'Close the key
   RegCloseKey Ret
End Function

Ahora un boton que tome el valor y lo muestre en un msg box:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
   'Get a string from the registry
   Ret = GetString(HKEY_CURRENT_USER, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Programa", "BinaryValue")
   If Ret = "" Then MsgBox "No value found !", vbExclamation + vbOKOnly, App.Title: Exit Sub
   MsgBox "The value is " + Ret, vbOKOnly + vbInformation, App.Title
End Sub



Que estoy haciendo mal? :/

[extreme69]

Ahi intento, repondi sin haber leido tu respuesta >:E

[extreme69]

Jeje, te agradezco el intento de explicarme, pero me estoy mareando más aún con ese código...  

Hago una pregunta más concreta usando el ejemplo de API-GUIDE que se me hace más fácil de entender.

Código [Seleccionar] Expandir

'This program needs 3 buttons
Const REG_SZ = 1 ' Unicode nul terminated string
Const REG_BINARY = 3 ' Free form binary
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Function RegQueryStringValue(ByVal hKey As Long, ByVal strValueName As String) As String
   Dim lResult As Long, lValueType As Long, strBuf As String, lDataBufSize As Long
   'retrieve nformation about the key
   lResult = RegQueryValueEx(hKey, strValueName, 0, lValueType, ByVal 0, lDataBufSize)
   If lResult = 0 Then
       If lValueType = REG_SZ Then
           'Create a buffer
           strBuf = String(lDataBufSize, Chr$(0))
           'retrieve the key's content
           lResult = RegQueryValueEx(hKey, strValueName, 0, 0, ByVal strBuf, lDataBufSize)
           If lResult = 0 Then
               'Remove the unnecessary chr$(0)'s
               RegQueryStringValue = Left$(strBuf, InStr(1, strBuf, Chr$(0)) - 1)
           End If
       ElseIf lValueType = REG_BINARY Then
           Dim strData As Integer
           'retrieve the key's value
           lResult = RegQueryValueEx(hKey, strValueName, 0, 0, strData, lDataBufSize)
           If lResult = 0 Then
               RegQueryStringValue = strData
           End If
       End If
   End If
End Function
Function GetString(hKey As Long, strPath As String, strValue As String)
   Dim Ret
   'Open the key
   RegOpenKey hKey, strPath, Ret
   'Get the key's content
   GetString = RegQueryStringValue(Ret, strValue)
   'Close the key
   RegCloseKey Ret
End Function
Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
   Dim Ret
   'Create a new key
   RegCreateKey hKey, strPath, Ret
   'Save a string to the key
   RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
   'close the key
   RegCloseKey Ret
End Sub
Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
   Dim Ret
   'Create a new key
   RegCreateKey hKey, strPath, Ret
   'Set the key's value
   RegSetValueEx Ret, strValue, 0, REG_BINARY, CByte(strData), 4
   'close the key
   RegCloseKey Ret
End Sub
Sub DelSetting(hKey As Long, strPath As String, strValue As String)
   Dim Ret
   'Create a new key
   RegCreateKey hKey, strPath, Ret
   'Delete the key's value
   RegDeleteValue Ret, strValue
   'close the key
   RegCloseKey Ret
End Sub
Private Sub Command1_Click()
   Dim strString As String
   'Ask for a value
   strString = InputBox("Please enter a value between 0 and 255 to be saved as a binary value in the registry.", App.Title)
   If strString = "" Or Val(strString) > 255 Or Val(strString) < 0 Then
       MsgBox "Invalid value entered ...", vbExclamation + vbOKOnly, App.Title
       Exit Sub
   End If
   'Save the value to the registry
   SaveStringLong HKEY_CURRENT_USER, "KPD-Team", "BinaryValue", CByte(strString)
End Sub
Private Sub Command2_Click()
   'Get a string from the registry
   Ret = GetString(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\NMap", "BinaryValue")
   If Ret = "" Then MsgBox "No value found !", vbExclamation + vbOKOnly, App.Title: Exit Sub
   MsgBox "The value is " + Ret, vbOKOnly + vbInformation, App.Title
End Sub
Private Sub Command3_Click()
   'Delete the setting from the registry
   DelSetting HKEY_CURRENT_USER, "KPD-Team", "BinaryValue"
   MsgBox "The value was deleted ...", vbInformation + vbOKOnly, App.Title
End Sub
Private Sub Form_Load()
   'KPD-Team 1998
   'URL: http://www.allapi.net/
   'E-Mail: KPDTeam@Allapi.net
   Command1.Caption = "Set Value"
   Command2.Caption = "Get Value"
   Command3.Caption = "Delete Value"
End Sub


No le des importancia al código que no necesito, es sacar los botones y declaraciones que no uso... el objetivo es que el botón 2 me devuelva el valor del registro que quiero.

Supongamos que esta es la ruta:



Y que esta es la key que quiero ver el valor:



La pregunta es... ¿donde pongo el "DisplayName"? y ¿porqué me sigue diciendo "No value found!" cuando la ruta es la correcta? :/


Disculpen si molesto con tanta pregunta, pero realmente quiero comprender que es lo que estoy haciendo y como hacerlo.

[extreme69]

ahhh, me pasé de newbie :E

ya lo hice xD

Gracias a todos !!! unos genios como siempre!