Ú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
- Lenovo legion pro ryzen 9
- T14S G1 MAGYAR, i7-10510u érintő kilejző, 16Gb ram, 256Gb NVMe, számla, garancia
- Akciós! Makulátlan MacBook Pro 16" i9 16GB 1TB 5500M asztro szürke részletek a leírásban.
- UF Lenovo Yoga 9i x360 Érintős Hajtogatós Laptop Tab 14" -50% i7-1360P 16/1TB Iris Xe 2,8K OLED 90Hz
- HP Zbook 15 G6 i7/32GB/500GB M2 SSD/Nvida Quadro
- Lenovo T14S Thinkpad FHD IPS i5-1135G7 16GB RAM 256GB SSD Intel Iris XE Graphics Win11 Pro Garancia
- HIBÁTLAN iPhone 13 128GB Starlight -1 ÉV GARANCIA - Kártyafüggetlen, MS3432
- BESZÁMÍTÁS! Gigabyte Z170X-Ultra Gaming Z170 chipset alaplap garanciával hibátlan működéssel
- ÁRGARANCIA!Épített KomPhone i5 10400F 16/32/64GB RAM RX 7600 8GB GAMER PC termékbeszámítással
- LED Neon kötél 5 méter 8W/méter / 12 hó jótállás
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: ATW Internet Kft.
Város: Budapest