Yra daugybė įrankių, kaip išgauti produkto raktą iš tiesioginės sistemos arba iš neprisijungus naudojamo kompiuterio registro avilio. Be to, čia yra tvarkingas mažas „Vbscript“, kuris gauna dabartinio „Windows“ diegimo produkto kodą - nereikia trečiųjų šalių programų. Scenarijus veikia „Windows 7“, 8 ir „Windows 10“.
Peržiūrėkite „Windows 10“ produkto raktą naudodami scenarijų
Nukopijuokite šį kodą į Notepad ir išsaugokite failą kaip GetProductKey.vbs.
Parinktis Aiškus Dim objshell, kelias, DigitalID, Rezultatas Nustatyti objshell = CreateObject ("WScript.Shell") 'Nustatyti registro rakto kelią Kelias = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \"' Registro rakto vertė DigitalID = objshell.RegRead (Kelias ir „DigitalProductId“) Sumažinti „ProductName“, „ProductID“, „ProductKey“, „ProductData“ „Gaukite produkto pavadinimą, „ ProductID “, „ ProductKey “„ ProductName = “:„ Produkto pavadinimas: “& objshell.RegRead („ Kelias & „ProductName“) ProductID = „Produkto ID:“ ir „objshell“. „RegRead“ („Kelias &„ ProductID “)„ ProductKey = “Įdiegtas raktas:„ & ConvertToKey (DigitalID) „ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey“ „Rodyti šiukšlių dėžę, jei įrašoma į failą. Jei vbYes = MsgBox („ ProductData “ir„ vblf “ir„ vblf “& „Išsaugoti faile?“, „VbYesNo + vbQuestion“, „Atsarginė„ Windows “rakto informacijos kopijavimas“), tada išsaugokite „ProductData“ pabaigą, jei „Konvertuoti dvejetainį į raktus Funkcija ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, „ Maps “, „ i “, „ Current “, „ KeyOutput “., Paskutinis, „keypart1“, įterpkite „Patikrinkite, ar OS yra„ Windows 8 “isWin8 = (Key (66) \ 6) and 1 Key (66) = („Key“ (66) ir & HF7) Arba ((„isWin8 And 2) * 4) i = 24 Maps =„ BCDFGHJKMPQRTVWXY2346789 “Do Current = 0 j = 14 Do Current = Current * 256 Current = Key (j + KeyOffset) + Current Klavišas (j + KeyOffset) = (Dabartinis \ 24) Dabartinis = Dabartinis Mod 24 j = j -1 ciklas, o j> = 0 i = i -1 „KeyOutput“ = Vidurys (žemėlapiai, Dabartinis + 1, 1) ir „KeyOutput“ Paskutinis = Dabartinė kilpa Nors i> = 0 Jei (isWin8 = 1) Tada keypart1 = Viduryje (KeyOutput, 2, Last) insert = "N" KeyOutput = Pakeisti (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Jei Last = 0 Tada „KeyOutput“ = įterpimas ir „KeyOutput“ pabaiga, jei „ConvertToKey“ = viduryje („KeyOutput“, 1, 5) & „-“ ir viduryje („KeyOutput“, 6, 5) & „-“ ir viduryje („KeyOutput“, 11, 5) ir „-“ ir viduryje ( „KeyOutput“, 16, 5) ir „-“ ir vidurys („KeyOutput“, 21, 5) Pabaiga Funkcija 'Įrašyti duomenis į failą Funkcija Išsaugoti (Duomenys) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject ("wscript. apvalkalas ") 'Gaukite dabartinį vartotojo vardą„ UserName = objshell.ExpandEnvironmentStrings “(„% UserName% “)' Sukurkite teksto failą darbalaukyje. fName =" C: \ Vartotojai \ "ir Vartotojo vardas &„ \ Darbastalio \ WindowsKeyInf o.txt "Set fso = CreateObject (" Scripting.FileSystemObject ") Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Uždaryti pabaigos funkciją Šaltinis: „Windows“ produkto rakto gavimas · „GitHub“
Dukart spustelėkite norėdami paleisti scenarijų, kad sužinotumėte „Windows“ diegimo produkto kodą.
