-
Mobilarena
A témában tilos az aktivátorokkal, vagy egyéb illegálisan történő aktiválással kapcsolatos hozzászólás!
Új hozzászólás Aktív témák
-
netpeti98
addikt
válasz
akoska23
#67711
üzenetére
A Lemezkarbantartóval tudod törölni a frissítések maradékait (utána már nem lesznek eltávolíthatóak).
Lemezkarbatártó->Rendszerfájlok törléseÁltalában egy lefrissített rendszernél ezek szokták a legtöbb helyet foglalni, de már ott vagy akkor a Temp mappát is kitisztíthatod vele.
-
Sanya
nagyúr
válasz
akoska23
#58955
üzenetére
Szia!
Ki tudod írattatni a windows 8.0 kulcsot, amivel az előző tulaj is vette a laptopot.
nyisd meg a notepadot, majd dobd bele ezt:ezt a sort még ne tedd bele
::' Windows RT 8.0 Product Key Dumper by Myria of xda-developers.com
::' Original Windows 8.0 VBScript by janek2012 of mydigitallife.info
::' Batch+VBScript hybrid trick by dbenham of stackoverflow.com
::' Fix for keys starting with N by Osprey00 of xda-developers.com
::'
::' Windows RT doesn't let unsigned VBScript use WScript.Shell, which is
::' required in order to read the registry in VBScript. So instead, we
::' have a batch file call reg.exe to do the registry lookup for us, then
::' execute the VBScript code. Might as well do things this way, since
::' it would really suck to write this math in batch...
::' --- Batch portion ---------
rem^ &@echo off
rem^ &call :'sub
::' If we were run from double-clicking in Explorer, pause.
rem^ &if %0 == "%~0" pause
rem^ &exit /b 0
:'sub
::' Read the registry key into VBScript's stdin.
rem^ &("%SystemRoot%\System32\reg.exe" query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion" /v DigitalProductId | cscript //nologo //e:vbscript "%~f0")
::'rem^ &echo end batch
rem^ &exit /b 0
'----- VBS portion ------------
'WScript.Echo "begin VBS"
' Get registry data that was piped in
RegData = ""
Do While Not WScript.StdIn.AtEndOfStream
RegData = RegData & WScript.StdIn.ReadAll
Loop
' Remove any carriage returns
RegData = Replace(RegData, ChrW(13), "")
' Split into lines
RegLines = Split(RegData, ChrW(10))
' Sanity checking on data
If (RegLines(0) <> "") Or (RegLines(1) <> "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion") Then
WScript.Echo "Got invalid header trying to run reg.exe"
WScript.Quit(1)
End If
If Left(RegLines(2), 38) <> " DigitalProductId REG_BINARY " Then
WScript.Echo "Got invalid value list trying to run reg.exe"
WScript.Quit(1)
End If
' Get hex string
HexString = Mid(RegLines(2), 39)
If (Len(HexString) Mod 2) <> 0 Then
WScript.Echo "Got an odd number of hex digits in REG_BINARY data"
WScript.Quit(1)
End If
' Convert to byte array
Dim ByteArray()
ReDim ByteArray((Len(HexString) / 2) - 1) ' VBScript is just weird with array dimensions >.<
For i = 0 To (Len(HexString) - 2) Step 2
ByteArray(i / 2) = CInt("&H" + Mid(HexString, i + 1, 2))
Next
Key = ConvertToKey(ByteArray)
WScript.Echo Key
' janek2012's magic decoding function
Function ConvertToKey(Key)
Const KeyOffset = 52 ' Offset of the first byte of key in DigitalProductId - helps in loops
isWin8 = (Key(66) \ 8) And 1 ' Check if it's Windows 8 here...
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4) ' Replace 66 byte with logical result
Chars = "BCDFGHJKMPQRTVWXY2346789" ' Characters used in Windows key
' Standard Base24 decoding...
For i = 24 To 0 Step -1
Cur = 0
For X = 14 To 0 Step -1
Cur = Cur * 256
Cur = Key(X + KeyOffset) + Cur
Key(X + KeyOffset) = (Cur \ 24)
Cur = Cur Mod 24
Next
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
Last = Cur
Next
' If it's Windows 8, put "N" in the right place
If (isWin8 = 1) Then
keypart1 = Mid(KeyOutput, 2, Cur)
insert = "N"
KeyOutput = keypart1 & insert & Mid(KeyOutput, Cur + 2)
End If
' Divide keys to 5-character parts
a = Mid(KeyOutput, 1, 5)
b = Mid(KeyOutput, 6, 5)
c = Mid(KeyOutput, 11, 5)
d = Mid(KeyOutput, 16, 5)
e = Mid(KeyOutput, 21, 5)
' And join them again adding dashes
ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
' The result of this function is now the actual product key
End Function
ez a sor már ne legyen benneforrás: http://forum.xda-developers.com/showthread.php?t=2442791
mentsd el bat-ként, majd futtasd le. A kiírt kódod a windows kulcsod.
Amennyiben kérsz egy rendszervisszaállítást, úgy NÉMET nyelvű lesz!
Állítsd alaphelyzetbe, majd telepítés után windows 8.0 fog települni. felrakatsz minden frissítést, majd 8.1-é frissíti magát. Utána fogsz tudni nyelvet telepíteni, mert 8.0 --> 8.1 frissítéskor is visszaáll németre. ( én franciával jártam ugyanígy, ugyanilyen laptoppal, vagy mivel.) -
#57389
szabonagyur
félisten
akoska23
#57388
-
-
-
pzstm
titán
-
#16729600
törölt tag
válasz
akoska23
#7797
üzenetére
TP-LINK USB wifi adapter esetén, ha felrakod setuppal a gyári drivert valóban meghal tőle a Win 8, kézzel kell beadni neki a drivert ( 64 bitnél biztosan ).
Catalyst nálam sajnos mára elfelejtette a teljes képernyős, valamint a képpont formátum beállításokat, minden indításnál újra be kell állítani.Érdekes , hogy a csúszka ugyanott van, de mégis baszkurálni kell.
![;]](http://cdn.rios.hu/dl/s/v1.gif)
Új hozzászólás Aktív témák
Hirdetés
• a Microsoft Windows 8 és Windows 8.1 (Blue) egyaránt a topic témája
• tilos a warez
• Windows Store - alkalmazások
• hozzászólás előtt olvasd el az összefoglalót!
• Tilos az OFF!
- PlayStation Network Card (PSN) ajándékkártyák, egyenesen a Sony-tól!
- SAMSUNG DDR4 REG ECC 32GB 2666MHz RDIMM szerver RAM modulok, nettó 15740Ft+ÁFA, 1 év gar., több db
- Dell USB-C, Thunderbolt 3, TB3, TB4 dokkolók (K20A) WD19TB/ WD19TBS/ WD22TB4, (K16A) TB16/ TB18DC
- Telefon felvásárlás!! iPhone 13 Mini/iPhone 13/iPhone 13 Pro/iPhone 13 Pro Max/
- Csere-Beszámítás! Ryzen 9 9950X Processzor!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest