Por ahora la informacion qe he conseguido, es para crear y o modificar una entrada:
Código:
Set reeg = CreateObject("WScript.Shell")
reeg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ATI",
"0"
Pero poner esto no me serviria, ya qe cada vez qe se inicie la aplicacion el valor seria 0, evidentemente.reeg.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\ATI",
"0"
Y para leer EL VALOR de una entrada:
Código:
On Error Resume Next
Set lee = CreateObject("WScript.Shell")
X = lee.regRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ATI")
label1.caption= X
Con esto solo consigo qe me salga el valor de la clave indicada, y si la clave no existe me da error, por tanto lo qe tendria qe hacer es crear una variable de la lectura de la clave, luego sumarle 1 y volverla a guardar, pero on se como hacerlo... Set lee = CreateObject("WScript.Shell")
X = lee.regRead ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\ATI")
label1.caption= X
¿Alguien me puede dar una ayuidita pliss?
SaludoS