윈 도 우 윈도우8.1키를 찾아보았습니다.
2020.03.12 22:19
아래 올려주신글 https://windowsforum.kr/index.php?mid=lecture&document_srl=13030695&rnd=13033122#comment_13033122
이걸 보고 따라했는데 중간에 이해가 안가서 시행착오 해가면 머리 빠개지는줄 알았습니다. ^^
결국 찾아 냈네요. ^^
했던거 쉽게 풀어봤습니다.
실행창 열어놓고 아무것도 안하고 그냥 두면 됩니다.
텍스트 문장은 아래 문장 복사해서 붙여 넣으시면 됩니다.
"
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
"
붙여 넣었으면 다른이름으로 저장을 합니다.
여기서 확장자는 꼭 VBS 로 해야 합니다.
파일이 생성 되었네요. 이걸 열어보면 됩니다.
하고 보니 쉬운데 설명이 중간에 저의 이해력 부족으로 무진장 삽질을 했네요.^^
댓글 [7]
-
frolian 2020.03.12 22:28
-
cungice 2020.03.12 22:58
감사합니다. 수고 하셨습니다.
-
9802 2020.03.14 01:15
감사합니다
-
려니 2020.03.14 01:52
좋은정보 감사합니다..
수고하셨습니다
-
천소망 2020.03.14 21:23
그냥 메모장에 내용 집어넣고 저장한 후에, 확장자만 바꾸시면 간단합니다.
-
하늘은높고구름은뭉개구름 2020.03.15 10:16
그렇게 쉬운 방법이 있었네요.
감사합니다. ^^
-
tokyocafe 2020.03.17 15:16
호 신기하네요 어케된거죠?
Windows10 에서도 되는데요
수고 하셨습니다.