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!
- Windows 11 Pro + AJÁNDÉK AAA játék!
- ESET termékek hivatalos forgalmazója / NOD32 / Internet Security / Android / Server / Mail / stb.
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Grand Theft Auto GTA Vice City PC
- Csere-Beszámítás! RTX Gamer Számítógép! I5 14400F / RTX 3080 / 32GB DDR5 / 1TB Nvme SSD
- Apple iPhone 11 Pro 64GB, Kártyafüggetlen, 1 Év Garanciával
- Telefon felvásárlás!! Samsung Galaxy S24/Samsung Galaxy S24+/Samsung Galaxy S24 Ultra
- Telefon felvásárlás!! Samsung Galaxy A13/Samsung Galaxy A33/Samsung Galaxy A53
- Telefon felvásárlás!! Samsung Galaxy S21/Samsung Galaxy S21+/Samsung Galaxy S21 Ultra
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest