Új hozzászólás Aktív témák
-
#4530
Darko_addict
őstag
Torry
#4528
Darko_addict
őstag
Én csak olvastam a Windows-os topikban, és teljesen józannak tűnt.
Hiába Plug-and-Play a legtöbb HDD már, nekem volt egy rossz élményem vele, fél délutánom kárba ment a másolgatással, ezért ha így, ha úgy, de én spec. mindig leválasztanám.Más:
A kis gépünk nem reagál semmiféle ceruzára?Olyan tompán kopogós a képernyő, minta nem üvegből lenne. (?) Az viszont biztos, hogy nem olyan jó, mint a Gorilla Glass 3/4, azon van valami vékony kosztaszító réteg, ami miatt mattul maszatolódik, és sokkal kevésbé zavaró. Ez 10 perc után úgy néz ki, mintha hetek óta nem takarítottam volna.
Az anyagösszetétel tényleg szegényes, nem is igazán esik jól kézben tartani, a hátulja is könnyen zsírosodik. Valaki panaszkodott a hangjára, de jetAudioval elég jó kis zajt lehet kicsiholni belőle egyedi EQ-val. Azt gondoltam volna, hogy a relatíve alacsony felbontás miatt "gagyi" lesz, de meglepően tetszik a kijelző. Továbbá a hardveres specifikáció sem volt meggyőző, de használat közben nincs okom panaszra. Billentyűre is mondták, hogy kicsi és kényelmetlen, de picit visszafogva a sebességet és nagyobb hangsúlyt fektetve a "célzásra" megszokható, ezt sem látom olyan nagy gondnak, mint bármelyik cikkben lehozták.Ha hosszú távra vettem volna, nem ezt választottam volna, de arra a három-négy hónapra, ameddig kell, szerintem jóbarátok leszünk.
-
SharpSA
veterán
Hozz létre egy fájlt cdkey.vbs névvel és ez legyen benne:
DIM fso, WriteFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set WriteFile = fso.CreateTextFile("CDKEY.txt", True)
Set WshShell = CreateObject("wscript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set env = WshShell.environment("Process")
strComputer = env.Item("Computername")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Const HKEY_LOCAL_MACHINE = &H80000002
Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_
".\root\default:StdRegProv")
strDigitalProductId="HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"
strxpKey=GetKey(WshShell.RegRead(strDigitalProductId))
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
For Each objItem in colItems
report = report & " ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf
report = report & " Microsoft Windows CD Key Finder (v1.0-Beta)" & vbCrLf
report = report & " ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf
report = report & "- Edition: " & objItem.Name & vbCrLf
report = report & "- Build Number: " & objItem.Version & vbCrLf
report = report & "- Product/CD Key: "& strXPKey & vbCrLf
report = report & "- Product ID: "& objItem.SerialNumber & vbCrLf
WriteFile.WriteLine("Edition:" & objItem.Name)
WriteFile.WriteLine("Build Number:" & objItem.Version)
WriteFile.WriteLine("Product/CD Key:" & strXPKey)
WriteFile.WriteLine("Product ID:" & objItem.SerialNumber)
WriteFile.Close
Next
MsgBox report
Function GetKey(rpk)
Const rpkOffset=52:i=28
szPossibleChars="BCDFGHJKMPQRTVWXY2346789"
Do 'Rep1
dwAccumulator=0 : j=14
Do
dwAccumulator=dwAccumulator*256
dwAccumulator=rpk(j+rpkOffset)+dwAccumulator
rpk(j+rpkOffset)=(dwAccumulator\24) and 255
dwAccumulator=dwAccumulator Mod 24
j=j-1
Loop While j>=0
i=i-1 : szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey
if (((29-i) Mod 6)=0) and (i<>-1) then
i=i-1 : szProductKey="-"&szProductKey
End If
Loop While i>=0 'Goto Rep1
GetKey=szProductKey
End FunctionHa ezt elindítod, akkor kapsz egy cdkey.txt fájlt, amiben benne lesz a kulcs.
-
Necc
addikt
Új hozzászólás Aktív témák
- Elektromos autók - motorok
- Szívós, szép és kitartó az új OnePlus óra
- Mibe tegyem a megtakarításaimat?
- Alakul a SpaceX Starlink európai ellenfele
- Óvodások homokozója
- alza vélemények - tapasztalatok
- Kerékpárosok, bringások ide!
- Androidos tablet topic
- Nintendo 3DS és DS topic
- bitpork: MOD Júni 28- Augusztus 2- szombat jelen állás szerint.
- További aktív témák...
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Bomba ár! HP EliteBook 840 G5 - i5-8G I 8GB I 128GB SSD I 14" FHD I HDMI I Cam I W11 I Gari!
- BESZÁMÍTÁS! Gigabyte B365M i5 8500 16GB DDR4 512GB SSD GTX 1060 3GB Rampage SHIVA FSP 400W
- Honor Magic 7 Lite 256GB Kártyafüggetlen 1Év Garanciával
- Samsung Galaxy S21 Ultra /Kártyafüggetlen / 12/256 GB / 1Év garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest