Левая колонка

Туйчибой Мухаммадиев

Последний визит: 6 янв 2015

Фильтр

Заметки Увлечения

22 дек 2014

Поделитесь мыслями14
15
PrivateDeclareFunction GetVolumeInformation Lib "Kernel32"Alias"GetVolumeInformationA"(ByVal RootPath AsString, ByVal VolumeName AsString, ByVal VolumeNameSize AsLong, ByVal VolumeSerial AsLong, ByVal MaximumComponentLength AsLong, ByVal FileSystemFlags AsLong, ByVal FileSystem AsString, ByVal FileSystemSize AsLong)AsLong
PublicFunction VolumeSerial(ByRef RootPath AsString)AsString Dim Serial AsLong DimVolumeAsString Dim FileSystem AsString Dim Response AsString Volume=Volume'' FileSystem = FileSystem'' Response = GetVolumeInformation(RootPath,Volume, 255, Serial, 0, 0, FileSystem, 255) If Response =0Then

Туйчибой Мухаммадиев

22 дек 2014

Поделитесь мыслями12
13
14
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1.Click Dim fso, objDrive, sn
fso =CreateObject("Scripting.FileSystemObject") ForEach objDrive In fso.drives If objDrive.drivetype=1Then'Проверка устройств, выбирает те которые являются съемными (USB, Flash) If objDrive.isreadyThen'Состояние готовности тома для проведения файловых операций. sn = sn &"Буква => [ "& objDrive.Path&" ]"& vbLf _
&"Название => [ "& objDrive.volumename&" ]"& vbLf _
&"Серийный номер => [ "& objDrive.SerialNumber&" ]"& v

Туйчибой Мухаммадиев

21 дек 2014

Поделитесь мыслями13
14
Dim obj, objs, PnPID
objs = GetObject("winmgmts:").InstancesOf("Win32_DiskDrive") ForEach obj In objs
If obj.InterfaceType="USB"Then PnPID = obj.PnPDeviceID EndIf Next
PnPID =Replace(PnPID, "\", "\\")&Chr(34)
objs = GetObject("winmgmts:").InstancesOf("Win32_USBControllerDevice") ForEach obj In objs
If Microsoft.VisualBasic.Right(obj.Dependent, Len(PnPID))= PnPID Then MsgBox(PnPID & vbCr & obj.Dependent& vbCr & obj.Antecedent) EndIf Next