Sposob na orginalny nr seryjny

15.11.2004

22:52

[1]

mcl007 [ Galaxy Ranger ]

Sposob na orginalny nr seryjny

No mam probelme z Officem XP.
Mam orginal, instalowalm kilka dni temu no ale zgubil mi sie klucz do niego i zaintalowalem na piracie , bo bylo porzebne by dzialal, czy jest moze jakis sposob (za wyjatkiem odinstalowania i zainstalowania na nowo) podmiany klucza pirackeigo na orginalny ?
moze zmaina klucza w rejetrrach, moze jakis programik? cokolwiek

thx za wszelka pomoc

15.11.2004

23:00

[2]

Chupacabra [ Senator ]

tak, jest sposob,m wystarczy napisac skrytp w visual basicu, stworz plik z rozszerzeniem .vbs i wpisz w nim:

Wscript.echo "blabla, zmiana klucza: na"
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
VOL_PROD_KEY = "XXXX-XXXXX-XXXXX-XXXX-XXXXX"
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'delete OOBETimer registry value
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





w miesjce lini:

VOL_PROD_KEY = "XXXX-XXXXX-XXXXX-XXXX-XXXXX"
pod xxxx, wpisz swoj kod ,orginalny!, musisz myslnikami oddzielac.

Mam nadziej, ze za to bana nie dostane, chociaz w sumie to sa zabawy z visual basiciem :] Wszystko mozna do piractwa uzyc, a jak widac czasem przydaje sie w szczytnym celu ;›