Autor
|
Tema: (ayuda) product key de windows (Leído 13,163 veces)
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 Saludos
|
|
|
En línea
|
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
Desconectado
Mensajes: 624
|
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 NovluckerSaludos
|
|
|
En línea
|
Adrian Desanti
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
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 Saludos
|
|
|
En línea
|
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
Desconectado
Mensajes: 75
|
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
|
|
|
En línea
|
|
|
|
Dessa
Desconectado
Mensajes: 624
|
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 Saludos Tenes toda la razon, entre tantos mensajes se me pasó, gracias por el aporte xkis
|
|
|
En línea
|
Adrian Desanti
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Private Sub TextBox1_Change() If Len(TextBox1.Text) = TextBox1.MaxLength Then TextBox2.SetFocus End If End Sub
|
|
|
En línea
|
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
Desconectado
Mensajes: 75
|
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
|
|
« Última modificación: 6 Abril 2009, 20:44 pm por guidosl »
|
En línea
|
|
|
|
Novlucker
Ninja y
Colaborador
Desconectado
Mensajes: 10.683
Yo que tu lo pienso dos veces
|
Ok repito, lee un tuto, te evitarás MUCHAS preguntas Algo así: 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? Saludos
|
|
|
En línea
|
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
Desconectado
Mensajes: 624
|
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
|
|
|
En línea
|
Adrian Desanti
|
|
|
guidosl
Desconectado
Mensajes: 75
|
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 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
|
|
|
En línea
|
|
|
|
|
|