(ayuda) product key de windows

Iniciado por guidosl, 6 Abril 2009, 09:36 AM

0 Miembros y 4 Visitantes están viendo este tema.

Novlucker

Exacto, ahora si te cuesta entender eso, te recomiendo que antes de ponerte a hacer cualquier cosa, te pases por algún tuto básico de VB  :silbar:

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

Dessa

Cita de: Novlucker en  6 Abril 2009, 19:34 PM
Código (vb) [Seleccionar]
Public Sub NewSerial(VOL_PROD_KEY As String)
'Dim VOL_PROD_KEY As String
'El valor de la key se le pasa como parámetro
Dim Obj As Object
Dim result As Variant
    VOL_PROD_KEY = UCase(VOL_PROD_KEY)
'Se cambian las letras/numeros a mayusculas
    VOL_PROD_KEY = Replace(VOL_PROD_KEY, "-", "") 'remove hyphens if any
'Se reemplazan los guiones "altos"
    For Each Obj In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("win32_WindowsProductActivation")
'Se utiliza WMI para acceder a la clase correspondiente
    result = Obj.SetProductKey(VOL_PROD_KEY)
'Se cambia la key de win y se almacena el resultado en una variable
    Next
End Sub


Saludos

Bueno, bien que yo la estaba haciendo bien larga para cambiar la key, este code parece bien directo, gracias por el aporte Novlucker

Saludos
Adrian Desanti

Novlucker

Naaa, el code lo dejó xkiz, yo solo lo comenté para que se entendiera.

Tener en cuenta que este hace uso de WMI, para lo cual se deben de tener permisos de admin, pero igualmente para cambiar la clave hay que tenerlos, así que en este caso da igual :P

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

guidosl

otra consultita alguien sabe como hacer apra q cuando se complete la cantidad maxima de caracteres q acepta un textbox se pase directamente al textbox siguiente para seguir escribiendo??
graciass

Dessa

Cita de: Novlucker en  6 Abril 2009, 20:05 PM
Naaa, el code lo dejó xkiz, yo solo lo comenté para que se entendiera.

Tener en cuenta que este hace uso de WMI, para lo cual se deben de tener permisos de admin, pero igualmente para cambiar la clave hay que tenerlos, así que en este caso da igual :P

Saludos

Tenes toda la razon, entre tantos mensajes se me pasó, gracias por el aporte xkis
Adrian Desanti

Novlucker

Código (vb) [Seleccionar]
Private Sub TextBox1_Change()
If Len(TextBox1.Text) = TextBox1.MaxLength Then
    TextBox2.SetFocus
End If
End Sub
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

guidosl

#36
graciassss

y una ultima preguntita yo puse para q ingrese la clave 5 textbox diferentes

queria sabar si se peude q copien la clave completa y q al pegarla en el 1er textbox se completen los 5

osea q tomen cada "-" como cambio de textbox


gracias denuevo

Novlucker

Ok repito, lee un tuto, te evitarás MUCHAS preguntas  ;)

Algo así:
Código (vb) [Seleccionar]
Private Sub TextBox1_Change()

If Len(TextBox1.Text) = 29 Then
claves = Split(TextBox1.Text, "-")

For i = 1 To 5
    Controls("TextBox" & i).Text = claves(i - 1)
Next
End If

End Sub

Que gracia tiene si te hacemos todo el code?  :rolleyes:

Saludos
Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD

"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein

Dessa

Me queda una duda, antes de modificar la key no hay que crear una nueva ID ???

HKEY_LOCAL_MACHINE SOFTWARE\Microsoft\Internet Explorer\Registration\ProductId
Adrian Desanti

guidosl

CitarPrivate Sub TextBox1_Change()

If Len(TextBox1.Text) = 29 Then
claves = Split(TextBox1.Text, "-")

For i = 1 To 5
    Controls("TextBox" & i).Text = claves(i - 1)
Next
End If

End Sub



declare

Dim claves As String


pero i lo declare de varias formas y ninguna me sirvio


Dim i (5) As String
Dim i (1 to 5) as integer


Novlucker no es q no lea tutos ni nada...tampoco quiero q me hagan todo ustedes, yo si busco info x mi parte hago todo lo q me sale solo y lo q no bueno ahi pregunto...esto solo es una parte del programa q estoy haciendo, no me creas tan vago jajajaj

muchas graciass