Ú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
- Eladó macbook pro 16 M1 Max 10 CPU/32 GPU 64GB 1TB
- Nálam már kapható a jelenlegi leggyorsabb brutál notebook: Samsung Galaxy Book 5 Edge 5G!
- GAMER LAPTOP - ASUS Rog Zephyrus M16 / Intel i7 12700 / RTX 3060 6gb / 24gb DDR5 / 2TB ssd
- MacBook Pro 17" i7 2.6 GHz 8GB RAM 240 GB SSD 8 ciklus az akkuban!
- HP Victus 16 Gamer Laptop - Intel 11400H, 16 GB RAM, RTX 3050 Ti, 512 GB NVME
- Bomba ár! Lenovo ThinkPad X260 - i5-6G I 8GB I 128GB SSD I 12,5" HD I HDMI I CAM I W10 I Gari!
- REFURBISHED - Lenovo ThinkPad 40AC Thunderbolt 3 Dock
- GYÖNYÖRŰ iPhone 13 Mini 128GB Midnight - 1 ÉV GARANCIA -Kártyafüggetlen, MS4071
- Eredeti, új Lenovo 330W töltők - ADL330SDC3A
- Apple iPhone 13 / 128GB / Kártyafüggetlen / 12Hó Garancia / Akku: 100%
Állásajánlatok
Cég: ATW Internet Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest