3.2 C
New York
Tuesday, March 19, 2024
More
    HomeTechWindowsbit.ly/windowstxt Code to Activate Windows 10

    bit.ly/windowstxt Code to Activate Windows 10

    Published on

    Latest articles

    Jack Manifold

    Jack Manifold Net Worth, Age, Height, Girlfriend, Family, Career, Biography & More

    0
    Jack Manifold is a popular British content creator, best known for his engaging and entertaining videos on the streaming platform Twitch and YouTube. He rose to fame for...
    Codemiko

    Codemiko Net Worth, Age, Height, Boyfriend, Family, Career, Biography & More

    0
    Codemiko is a popular virtual streamer and content creator known for her unique and engaging content. Using a blend of technology, creativity, and humor,...
    Jessica Baio

    Jessica Baio Net Worth, Age, Height, Husband, Family, Career, Biography & More

    0
    Jessica Baio is an up-and-coming singer and songwriter who has gained significant attention and fame in the music industry. Known for her soulful voice...
    Ella Emhoff Biography

    Ella Emhoff Net Worth, Age, Height, Boyfriend, Family, Career, Biography & More

    0
    Ella Emhoff is an American fashion designer, model, and artist who gained immense attention and fame as the stepdaughter of the 49th Vice President...
    Windows 10 Product Keys

    100% Working Windows 10 Product Keys for All Versions

    0
    While updating from Windows 7, 8, or 8.1 to Microsoft's latest operating system Windows 10, Or installing Windows 10 first you need a Windows...

    Here is a bit.ly/windows.txt code to activate windows 10. If you don’t know how to activate windows 10 with code than go to this post and use the number 3 method that we have mentioned there.

    There are other ways to activate windows 10 than entering the code you can also find them in above mentioned post.

    Option Explicit
    Dim objshell,path,DigitalID, Result
    Set objshell = CreateObject("WScript.Shell")
    'Set registry key path
    Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
    'Registry key value
    DigitalID = objshell.RegRead(Path & "DigitalProductId")
    Dim ProductName,ProductID,ProductKey,ProductData
    'Get ProductName, ProductID, ProductKey
    ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
    ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
    ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
    ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
    'Show messbox if save to a file
    If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
    Save ProductData
    End If
    'Convert binary to chars
    Function ConvertToKey(Key)
    Const KeyOffset = 52
    Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
    'Check if OS is Windows 8
    isWin8 = (Key(66) \ 6) And 1
    Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
    i = 24
    Maps = "BCDFGHJKMPQRTVWXY2346789"
    Do
    Current= 0
    j = 14
    Do
    Current = Current* 256
    Current = Key(j + KeyOffset) + Current
    Key(j + KeyOffset) = (Current \ 24)
    Current=Current Mod 24
    j = j -1
    Loop While j >= 0
    i = i -1
    KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
    Last = Current
    Loop While i >= 0
    
    If (isWin8 = 1) Then
    keypart1 = Mid(KeyOutput, 2, Last)
    insert = "N"
    KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
    If Last = 0 Then KeyOutput = insert & KeyOutput
    End If
    ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)
    End Function
    'Save data to a file
    Function Save(Data)
    Dim fso, fName, txt,objshell,UserName
    Set objshell = CreateObject("wscript.shell")
    'Get current user name
    UserName = objshell.ExpandEnvironmentStrings("%UserName%")
    'Create a text file on desktop
    fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txt = fso.CreateTextFile(fName)
    txt.Writeline Data
    txt.Close
    End Function

    More like this

    100% Working Windows 10 Product Keys for All Versions

    While updating from Windows 7, 8, or 8.1 to Microsoft's latest operating system Windows...