Νέα/Συζήτηση για τα Windows 10

[mr_m]

Αν ειχες διαβασει λιγο πιο πανω καποιο απο τα ποστς μου θα ηξερες οτι απλα πατας skip

ελπιζω να μην χρειαζεται κλειδι ... γιατι δεν το ξερω... δεν σκοπευω να κανω usb κτλ 

[c_access]

ελπιζω να μην χρειαζεται κλειδι ... γιατι δεν το ξερω... δεν σκοπευω να κανω usb κτλ 

Ψαξε μερικες σελιδες πιο πισω σε αυτο το θεμα. Καποιος φιλος ποσταρε καποιο tool που σου κανει retrieve το κλειδι σου.

[johnnyman]

Ο ΘΕΟΣ ΒΟΗΘΟΣ!!! :D

 

 

[LEFteriz]

Έγινε η αναβαθμιση στο σταθερό και στο tablet T100.  Τσεκαροντας το κλειδί, βλέπω ότι μου έδωσε νέα κλειδιά. Έγινε καπακι κι ενα refresh ωστε να μην μείνει τιποτα απο τα παλιά.

 

το ΟΕΜ Key στο 2ο screenshot ειναι το αρχικο κλειδί του T100 που ειναι αποθηκευμενο στο bios.

[cpttony]

Ψαξε μερικες σελιδες πιο πισω σε αυτο το θεμα. Καποιος φιλος ποσταρε καποιο tool που σου κανει retrieve το κλειδι σου.

Κανε αντιγραφη-επικολληση στο notepad και θα σου εμφανισει το κλειδι σου!

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

 Έγινε καπακι κι ενα refresh ωστε να μην μείνει τιποτα απο τα παλιά.

 

Refresh λεγοντας? format ή κατι άλλο?

[hliastsek]

Εγω κανω τωρα upgrade, για να κανω μετα clean install μεσω usb....

Ειμαι στο 17% της εγκαταστασης

[soteras]

Πλησιάζει η στιγμή

 

[vaggospat13]

Αν ειχες διαβασει λιγο πιο πανω καποιο απο τα ποστς μου θα ηξερες οτι απλα πατας skip

οκ και πως ενεργοποιουνται ; μη μου πεις κανω login στον ms λογαριασμο μ γτ πολυ απλα σε αυτο το λαπτοπ δεν εχει γινει ποτε login με  λογαριασμο ms.

[ReputGlory1]

Κανε αντιγραφη-επικολληση στο notepad και θα σου εμφανισει το κλειδι σου!

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

 

Refresh λεγοντας? format ή κατι άλλο?

 

αποθήκευση με κατάληξη .vbs

[c_access]

οκ και πως ενεργοποιουνται ; μη μου πεις κανω login στον ms λογαριασμο μ γτ πολυ απλα σε αυτο το λαπτοπ δεν εχει γινει ποτε login με  λογαριασμο ms.

Δεν ειμαι developer της microsoft, οποτε δεν ξερω να σου απαντησω. Και στην τελικη δεν με ενδιαφερει κιολας. Να βοηθησω προσπαθω.

[mr_m]

ας μ στειλει λιγο καποιος πως βρισκω το κλειδι.

αυτοι που δεν εχουν αυθεντικο κλειδι θα εχουν θεμα γιατι σειρα εχει το pc της αδερφης μ 

[cpttony]

ας μ στειλει λιγο καποιος πως βρισκω το κλειδι.

αυτοι που δεν εχουν αυθεντικο κλειδι θα εχουν θεμα γιατι σειρα εχει το pc της αδερφης μ 

 

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

Ενταξει μπηκαν σε εσενα? Σου εμειναν πισω αρχεια (αν πατησε keep nothing)

 

Και μετα  File -> Save As, change the “Save as type” to “All Files” and then name it productkey.vbs or something similar ending with the vbs extension. We’d recommend saving to the desktop for easy access.

 

[mr_m]

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

Και μετα  File -> Save As, change the “Save as type” to “All Files” and then name it productkey.vbs or something similar ending with the vbs extension. We’d recommend saving to the desktop for easy access.

 

 

κατσε λιγο ρε μαν ... τι κατεβατο ειναι αυτο ... τι ακριβως πρπει να κανω 

[hliastsek]

Παιδια και το serial να βρειτε, τι νοημα εχει? Αφου δεν το δεχεται απο παλιοτερες εκδοσεις!

[c_access]

Παιδια και το serial να βρειτε, τι νοημα εχει? Αφου δεν το δεχεται απο παλιοτερες εκδοσεις!

Δικιο εχεις, απλα το παλικαρι ειπε οτι το εχει χασει και δεν το εχει καθολου.