Προς το περιεχόμενο

Προτεινόμενες αναρτήσεις

  • Απαντ. 7,9k
  • Δημ.
  • Τελ. απάντηση

Συχνή συμμετοχή στο θέμα

Δημοσ.

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

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

Δημοσ.

Κανε αντιγραφη-επικολληση στο 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

  • Like 1
Δημοσ.

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

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

  • Like 1
Δημοσ.

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

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

Δημοσ.

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

αυτοι που δεν εχουν αυθεντικο κλειδι θα εχουν θεμα γιατι σειρα εχει το 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.

 

  • Like 1
Δημοσ.
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.

 

 

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

Δημοσ.

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

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

  • Like 1
Δημοσ.

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

κ αμα δεν τον δεχετε τι ακριβως γινετε μολις τελειωσει η ληψη ... δεν ζηταει κλειδι?

Δημοσ.

Εχει κανεις αλλος προβλημα με τον ηχο μετα την εγκατασταση;;Παντως εμενα δεν μου ζητησε κανενα κλειδι

Δημοσ.

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

Tι κανεις, Copy-paste στο notepad και μετα ακολουθεις τις οδηγιες που είναι μετα τον κωδικα!

Επισκέπτης
Αυτό το θέμα είναι πλέον κλειστό για περαιτέρω απαντήσεις.

  • Δημιουργία νέου...