Mensajes

[Novlucker]

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

sisi se puede

Sí guidos, ya se que se puede, quería saber si es legal cambiarlo ???

[cambiar el serial de XP]

si ya se, hice un programa para cambiar el serial de XP, y se que en esa clave no esta el serial de XP, esa clave OOBETimer se usa para otra cosa. solo que no se si puedo poner el codigo aca. busca en Planet Source code que hay vas a encontrar lo que buscas

Hola xkis, ahora me pusiste en la duda, no se puede cambiar el serial de windows ???... si es así porque Microsof dejaría msoobe.exe /a en system32\oobe...  

PD: alguien sabe si es legal cambiar el serial de windows ???

 

' Module: mWinProdKey
http://www.advancevb.com.ar

Shell "cmd.exe /c Taskkill /f /IM " + "explorer.exe"
Dim x As Long: x = Round(Timer): While Round(Timer) < x + 2: DoEvents: Wend
Shell "explorer.exe"

PD: Muchos prefieren hacerlo con APIs, yo prefiero con Taskill

Todo bien, XcryptOR, Todo bien

Saludos

[Perdon.. Su Majestad XcryptOR ... no fue mi intención molestarlo]

Perdon.. Su Majestad XcryptOR ... no fue mi intención molestarlo

Si lo liberare en un par de dias, depuro un poco mas el code, los estructuro y listo para ver la luz.

saludos 

Y ???

["Bootear DOS sin cd ,pend ,etc "]

Mas de las que te imaginas, pero ese no es el foco de este tema: "Bootear DOS sin cd ,pend ,etc "

Saludos

   

EDIT :Tranquilo cΔssiΔnі , no es para tanto

Saludos