Cara Mengetahui Key Windows Melalui Script Visual Basic

Antusias Teknologi – Ingin mengetahui serial key produk Windows yang anda pakai saat ini, selain menggunakan utility aplikasi seperti ProduKey, anda juga dapat mengetahuinya melalui script visual basic, anda tinggal membuat scriptnya dengan teks editor seperti Notepad++, simpan dan jalankan, dalam sekejap anda bisa mengetahui serial dari windows.

Visual Basic

Pertama silahkan anda copy/paste script dibawah ke Notepad atau Notepad++. Jika belum punya aplikasinya, anda bisa mendownloadnya disini:
https://notepad-plus-plus.org/download

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId"))
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

Kemudian simpan script tersebut dengan akhiran .vbs dalam kotak box misalnya seperti pada gambar dibawah.

Simpan Script

Klik save dan bukalah folder tempat anda menyimpan script tadi, klik dua kali untuk menjalankannya.

Menjalankan Script

Maka akan ditampilkan produk key windows yang anda gunakan.

Windows Product Key

Selamat mencoba.

Add a Comment

Alamat email Anda tidak akan dipublikasikan. Ruas yang wajib ditandai *

This site uses Akismet to reduce spam. Learn how your comment data is processed.