Ú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
- MacBook Pro 16" 2019 i7-9750H 2.6GHz 16/1TB RADEON PRO 5300M, US BILL, Üzletből, Garanciával
- Eladó Dell G5 Laptop
- HP ELITEBOOK X360 1030 G4 i5-8365 4G/LTE SIM, 16G/250G Ultravékony Noti, üzletből, garanciával
- Microsoft Surface Book 13.5" 3000x2000 i5-6300U 256GB érintőkijelzős notebook garanciával, üzletből
- RITKA ASUS ROG Strix G15 Electro Punk gamer laptop, i7-10750H, GTX 1660 Ti, szép állapotban,dobozzal
- Bomba ár! Lenovo ThinkPad T14s G1 - i7-10G I 16GB I 512GB SSD I 14" FHD Touch I Cam I W11 I Gari!
- Gamer PC-Számítógép! Csere-Beszámítás! I5 12400F / RTX 3070 8GB / 32GB DDR4 / 1TB SSD
- Samsung Galaxy S25 Ultra Titanium Jetblack Titán dizájn, 120 Hz AMOLED, AI Pro kamera
- ÁRGARANCIA! Épített KomPhone Ryzen 5 5600X 16/32/64GB RAM RTX 5050 8GB GAMER PC termékbeszámítással
- Kezdő Gamer PC-Számítógép! Csere-Beszámítás! I5 7500 / GTX 1050Ti / 16GB DDR4 / 128SSD+1TB HDD
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest