Hirdetés
-
IT café
A topic a Microsoft Windows 7 operációs rendszerrel kapcsolatban felmerülő kérdésekkel fogalkozik:
Gyakori hibajelenség: A Windows Update csak keres-keres (svchost.exe jelentős a processzorterhelés), de nem talál frissitéseket. Itt a megoldás (Az angol nyelvű forrásanyag: http://wu.krelay.de/en/ )
Új hozzászólás Aktív témák
-
mis69
tag
válasz
#73959936 #51755 üzenetére
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 FunctionA fenti kodot notepad-ba (jegyzettombb) masolva --> mentes maskent --> Fajl tipus --> minden (*.*) --> fajl neve: productkey.vbs --> Mentes
Új hozzászólás Aktív témák
• A topikban Alapelveink értelmében tilos a warez témák tárgyalása!
• Hozzászólás előtt olvasd el az összefoglalót!
• Tilos az OFF!
- Apple iPhone 15 128GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! iPhone 16/iPhone 16 Plus/iPhone 16 Pro/iPhone 16 Pro Max
- Telefon felvásárlás!! Apple Watch Series 6/Apple Watch Series 7/Apple Watch Series 8
- Telefon felvásárlás!! iPhone X/iPhone Xs/iPhone XR/iPhone Xs Max
- Részletfizetés elérhető , bérlési lehetőség elérhető LENOVO LEGION SLIM 5 16APH8
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest