(ayuda) product key de windows

[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 

Saludos

[Dessa]

Código (vb) [Seleccionar] Expandir

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

[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

Saludos

[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]

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

[Novlucker]

Código (vb) [Seleccionar] Expandir

Private Sub TextBox1_Change()
If Len(TextBox1.Text) = TextBox1.MaxLength Then
    TextBox2.SetFocus
End If
End Sub

[guidosl]

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] Expandir

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

[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

[guidosl]

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