윈 도 우 윈도우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 에서도 되는데요
번호 | 제목 | 글쓴이 | 조회 | 추천 | 등록일 |
---|---|---|---|---|---|
[공지] | 강좌 작성간 참고해주세요 | gooddew | - | - | - |
3661 | 윈 도 우| file_folder2Hide&show, vbe <--> vbs [2] |
|
631 | 8 | 04-03 |
3660 | 윈 도 우| Move over there 등록_제거 final 2020-04-15 [51] |
|
2661 | 22 | 03-29 |
3659 | 하드웨어| 메인보드 모델명 확인하기 [5] | gooddew | 3633 | 22 | 03-28 |
3658 | 소프트웨어| 진행바와 함께 URL 다운로드 VBS + AHK [15] | 지후빠 | 1357 | 10 | 03-28 |
3657 | 윈 도 우| Windows 10 버전별 CPU 지원 리스트.. [4] | 은주얌 | 3099 | 4 | 03-27 |
3656 | 윈 도 우| Gpedit.msc는 무엇 이죠? (구글링) [4] |
|
1323 | 1 | 03-27 |
3655 | 기 타| 특정 프로그램이 32비트? 64 비트? 여부 확인하기 [6] | gooddew | 1448 | 8 | 03-27 |
3654 | 윈 도 우| 레노버 노트북 충천USB 사용시 마우스 버벅거림 [1] | 번개 | 722 | 1 | 03-26 |
3653 | 윈 도 우| Move over there 우메뉴등록_제거 + 그룹정책 백복 [10] |
|
1191 | 11 | 03-25 |
3652 | 윈 도 우| 탐색기 화면에 글자가 부실해 보일 때 설정 방법 [1] | 하늘은높고 | 1426 | 3 | 03-25 |
3651 | 소프트웨어| VBScript 기능 확장하기 개요 - API, COM server [8] | 지후빠 | 1102 | 9 | 03-24 |
3650 | 소프트웨어| 압축 프로그램으로 삭제할 수 없는 파일 및 폴더 삭제하기 [7] | 5테라 | 1794 | 15 | 03-23 |
3649 | 윈 도 우| 윈도우10 작업표시줄 시계 초 단위 표시하는 방법 [12] | gooddew | 3247 | 16 | 03-22 |
3648 | 소프트웨어| 디스크 다중 복사 ( HDCLONE ) [5] | gooddew | 2816 | 17 | 03-21 |
3647 | 윈 도 우| [스크립트] Windows 7 January 2020 ISO 만들기 [4] | VenusGirl | 2150 | 14 | 03-21 |
3646 | 소프트웨어| Rollback RX Tip [1] | 누군가 | 1027 | 3 | 03-20 |
3645 | 기 타| 보안 부팅 위반 [19] |
|
2992 | 2 | 03-20 |
3644 | 윈 도 우| CapsLock-toggle [7] |
|
700 | 4 | 03-20 |
3643 | 기 타| 유튜브에서 채널, 비디오 차단하기 [4] | 빛나는길 | 1683 | 17 | 03-19 |
3642 | 윈 도 우| 인터넷 ON/OFF [12] |
|
3162 | 12 | 03-18 |
수고 하셨습니다.