| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 12:32:53 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=8255b6d50965af6d6c94271d4e32ca9d6d110808672f02ade0447ae5e43de21aa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%221OTWA8tjXFSBFY7incVjuIP-dQR6RxTs%22%3B%7D; HttpOnly; Path=/
cf-ray: 98ce61fc3d01c1b5-BLR
Тест кода PureBasic - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Получение номера диска и раздела, из буквы раздела
- Procedure.s DriveGetNumber(DriveLetter$)
- Protected DriveInfo.STORAGE_DEVICE_NUMBER, Nul , Ret$="?:?", hDevice
- hDevice = CreateFile_("\\.\" + DriveLetter$, 0, 0, 0, #OPEN_EXISTING, #FILE_ATTRIBUTE_NORMAL, #NUL)
- If hDevice
- If DeviceIoControl_(hDevice,#IOCTL_STORAGE_GET_DEVICE_NUMBER, 0, 0, DriveInfo, SizeOf(STORAGE_DEVICE_NUMBER), @Nul, #NUL)
- Ret$=Str(DriveInfo\DeviceNumber) + ":" + Str(DriveInfo\PartitionNumber)
- EndIf
- CloseHandle_(hDevice)
- EndIf
- ProcedureReturn Ret$
- EndProcedure
- Define.l Serial, type, disk_mask
- Define.s Drive, FileSystem, VolName, Letter, NumDsk
- Define.q total_bytes, StartTime
- FileSystem = Space(256)
- VolName= Space(256)
- Letter = "C"
- Drive=Letter+":\"
- StartTime=ElapsedMilliseconds()
- disk_mask = GetLogicalDrives_()
- Debug Str(ElapsedMilliseconds()-StartTime) + " мсек - время GetLogicalDrives_ "
- StartTime=ElapsedMilliseconds()
- Type = GetDriveType_(Drive)
- Debug Str(ElapsedMilliseconds()-StartTime) + " мсек - время GetDriveType_ "
- StartTime=ElapsedMilliseconds()
- GetDiskFreeSpaceEx_(Drive, 0, @total_bytes, 0)
- Debug Str(ElapsedMilliseconds()-StartTime) + " мсек - время GetDiskFreeSpaceEx_ "
- StartTime=ElapsedMilliseconds()
- GetVolumeInformation_(@Drive, @VolName, 255, @Serial, 0, 0, @FileSystem, 255)
- Debug Str(ElapsedMilliseconds()-StartTime) + " мсек - время GetVolumeInformation_ "
- StartTime=ElapsedMilliseconds()
- NumDsk = DriveGetNumber(Letter + ":")
- Debug Str(ElapsedMilliseconds()-StartTime) + " мсек - время DriveGetNumber "
- Debug #CRLF$ + "Проверяем что работает" + #CRLF$
- Debug "disk_mask = " + ReverseString(RSet(Bin(disk_mask, #PB_Long), 32, "0"))
- Debug "total_bytes = " + Str(total_bytes / 1024 / 1024) ; Мб
- Debug "Type = " + Str(Type)
- Debug "FileSystem, VolName, Serial = " + FileSystem + " - " + VolName + " - " + Str(Serial)
- Debug "NumDsk = " + NumDsk
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make huge profits on trading ⭐⭐ J
JavaScript | 3 sec ago | 0.24 KB
-
⭐ ✅ Free Products Method ✅ ✅ NEVER SEEN BEFOR...
JavaScript | 6 sec ago | 0.24 KB
-
⭐⭐Exchange Exploit⭐⭐ 1
JavaScript | 8 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ 4
JavaScript | 15 sec ago | 0.24 KB
-
⭐ G2A Bug ⭐ (Get more on BTC swaps) ✅ NEVER S...
JavaScript | 15 sec ago | 0.24 KB
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 24 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ C
JavaScript | 26 sec ago | 0.24 KB
-
⭐✅ Online Marketplace Exploit ✅ NEVER SEEN BE...
JavaScript | 33 sec ago | 0.24 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
