resultado = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\Default%20Settings", 0, KEY_ALL_ACCESS, hKey)
Dim Port
Port = Val(Text4)
If resultado = ERROR_SUCCESS Then
RegSetValueEx hKey, "ProxyPort", 0, REG_DWORD, Port, 4
End
End If
Lo pongo asi encuero pero ya las funciones estan declaradas con las constantes codigo como tal funciona lo que sencillamente no me agrega el valor que deseo....
Como ven en la linea RegSetValue.... el valor DWORD lo quiero tomar de un Text, ya lo converti en numero y no me lo agrega me agrea un 5... pq sucede esto, sin embargo le pongo un numero en ves de la Variable "Port" y pincha bien... bueno diganme algo....grx