Mensajes

[o algun otro codigo para cambiar la clave?]

alguien sabe a aprtir del codigo q me paso xkiz  en donde se introduce la nueva key?¿?¿

Public Sub NewSerial(VOL_PROD_KEY As String)
'Dim VOL_PROD_KEY As String
Dim Obj As Object
Dim result As Variant
    VOL_PROD_KEY = UCase(VOL_PROD_KEY)
    VOL_PROD_KEY = Replace(VOL_PROD_KEY, "-", "") 'remove hyphens if any
    For Each Obj In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
    result = Obj.SetProductKey(VOL_PROD_KEY)
    Next
End Sub

o algun otro codigo para cambiar la clave?



gracias

alguien sabe como pasar esto a vb6 y que la clave nueva q se va a poner se lea desde un textbox?


encontre esto en la pagina de microsoft (es un .vbs)

ON ERROR RESUME NEXT


if Wscript.arguments.count<1 then
   Wscript.echo "Script can't run without VolumeProductKey argument"
   Wscript.echo "Correct usage: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
   Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err <> 0 then
      WScript.Echo Err.Description, "0x" & Hex(Err.Number)
      Err.Clear
   end if

Next

y se usa asi

1. guardar el scrit en c:\changevlkeysp1.vbs
2. Haga clic en Inicio y, a continuación, haga clic en Ejecutar.
   3. En el cuadro Abrir, escriba el comando siguiente, donde AB123-123AB-AB123-123AB-AB123 es la nueva clave del producto que desea utilizar y haga clic en Aceptar:
      c:\changevlkeysp1.vbs ab123-123ab-ab123-123ab-ab123

gracias

pues no lo pude encontrar :S

si alguien sabe como ahcerlo me peude pasar el codigo fuente x mail o mensj privado

gracias

tenes razon q no era ahi!

mis disculpas jejejeje

ahora entro a esa pag q me pasaste

y gracias denuevo

mmm me parece q no nos entedimos

si ahi esta el serial de windows graurdado como dato en esa clave de registro

pero esta guardado en HEXADECIMAL

yo lo se pasar a ascii manualmente pero no desde VB

eso es lo q necesito

ej: que le programa te tire un msjbox "su clave actual es jtsnf-aset3-gf5gy-4fswf-fe234"

gracias igual por tu ayuda

claro es parecido a lo q probe recien yo con la info q me diste


pero me develve un valo numerico


no es  a lo q me referia...yo queria q me de la clave de windows

ej: jtsnf-aset3-gf5gy-4fswf-fe234

se entiende?

se puede hacer?

gracias! pero me gustaria algo mas simple si se puede

es q hace poco empese a programar



asi q si a alguien se le ocurre algo ....


de nuevo gracias

yo uso esto para leer claves en el registro


Private Sub painicio()
'lee el registro y carga la paginad e inicio de IE
Dim objShell As Object
Set objShell = CreateObject("Wscript.Shell")

Text2.Text = objShell.RegRead("HKCU\SOFTWARE\Microsoft\Internet Explorer\Main\Start Page")
Set objShell = Nothing
End Sub


esta me lee la pagina de inico de internet explorer y la muestra en un text2.txt


como lo podria ahcer con esto?¿

queria agregar a un programita q estoy haciendo

un textbox en donde al apretar un boton me muestre la clave del windows xp y vista

segun lo q creo es leyendo esta clave

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents]
"OOBETimer"=hex:fe,e5,71,d6,8b,6a,8d,6f,d5,33,93,jd

pero no se como pasar ese numero hexa a letras...porque al hacerlo me muestra signos como:

Ö
ÿ

gracias

holaa

queria saber como poder ingresar en un combobox  ejemplo:3 nombre

Martin

maria

julio

y que al seleccionar alguno me ponga en visible un frame y me esconda los otros 2

PD: hay un frame creado para cada nombre

ej: si selecciono martin (el frame1 tiene los datos de martin, esconodo los otros 2 frame)

frame1.visible=true
frame2.visible=false
frame3.visible=false


graciass