Проверка подключения USB (flash)

@scripVB · Регистрация: 06.03.2013

Студворк — интернет-сервис помощи студентам

Доброго времени суток народ!!! Написал кривой чекер подключения USB(flash) к компу вроде работает но нужно сделать следующие что бы при подключение он искал на флешке файлы *.ini и выводил в лист бокс (сам чекер кривой т.к. руки кривые

) так что если у кого есть пример хотя бы чекера прошу в студию! Ну и вообщем вопрос решить бы)))
Орущие о вирусах троянах идт идут лесом!!!!

@UBUNTU · 15.03.2017, 07:57

Сообщение от scripVB

Орущие о вирусах троянах идт идут лесом!!!!

даже поорать не дадут.

Есть антивирусы!!!

SoftIce · 15.03.2017, 08:17

Сообщение от scripVB

Орущие о вирусах троянах идт идут лесом!!!!

Пока только ты орешь о троянах и вирусах.

@Pro_grammer · 15.03.2017, 17:10

Сообщение от scripVB

у кого есть пример хотя бы чекера прошу в студию!

У тебя есть, раз написал. Ну покаж!

@scripVB · 15.03.2017, 19:22 **[ТС]**

Pro_grammer, вот

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Private Declare Function GetLogicalDriveStrings Lib "kernel32.dll" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long
Dim p(26) As String
Private Sub sss()
On Error Resume Next
DoEvents
List2.Clear
Test
For i = 0 To 26
If p(i) <> "" Then
If Dir(p(i) & "1.ryr") <> "" Then
List2.AddItem p(i)
Else
Open p(i) & "1.ryr" For Output As #1
Close #1
End If
End If
Next
For i = 0 To 26
p(i) = ""
Next
End Sub
Private Sub Test() 'usb
    Dim sDrives As String, iLenght As Long, xDrive As Variant
    sDrives = String(255, vbNullChar)
    iLenght = GetLogicalDriveStrings(Len(sDrives), sDrives)
    sDrives = Left(sDrives, iLenght - 1)
    For Each xDrive In Split(sDrives, vbNullChar)
     u = u + 1
        If GetDriveType(xDrive) = 2 Then
        p(u) = xDrive
        End If
    Next
    u = 0
End Sub
Private Sub Timer3_Timer()
DoEvents
sss
End Sub

Файл создается для корректного обновления (попросту не знаю как без этого сделать что бы работало) компонента list2

Добавлено через 1 минуту
UBUNTU, SoftIce, потому что на других форумах сразу про вири начали дискуссию...

@fever brain · 15.03.2017, 21:34

На флехе нужен еще обработчик скрипта, если ты говориш это работает то с помощью чего это работает ?

@Pro_grammer · 15.03.2017, 21:36

Раз уж пошёл обмен кодами детектирования USB ( вроде прямой, без таймеров!):

@fever brain · 15.03.2017, 21:45

Pro_grammer, говорите по русски пожалуйста, какие еще таймеры ?

Добавлено через 2 минуты

Не по теме:

Упс... все дошло, у вас исходник

Добавлено через 4 минуты
Pro_grammer, как это заработает сразу-же на флэхе ?

@Pro_grammer · 15.03.2017, 22:04

Сообщение от fever brain

как это заработает сразу-же на флэхе ?

Зачем чекеру подключения USB(flash) к компу работать на флехе?
Эта программа сидит в памяти компа и ждет, когда подключат флеху.
Далее события могут развиваться по нескольким направлениям. ( в моём коде их нет)

Например идентифицирует флешку и если она левая, не зарегистрированная ранее начальством, то отключает её и включает тревогу безопасности. Так поступают на режимных предприятиях, где совсем невозможно запретить флешки.

Или если комп частный, то программа может сканировать содержимое флешки и тайно сделать копию нужных файлов.
Например фото или документы.

Ну и много для чего можно придумать? Например записать на эту флешку тайно свои данные и т.п. действия.

@fever brain · 15.03.2017, 22:15

Тогда вопрос надо было ставить не так, а чтото вроде как отключить блокировщики, и тому подобное
при запуске левой флешки, конечно на флешке можно хоть что хранить, у меня полноценная OS на флехе работает со всеми драйверами

@scripVB · 16.03.2017, 12:42 **[ТС]**

Pro_grammer, спасибо! Это намного лучше моего криворукого варианта)))

Добавлено через 8 минут
Pro_grammer, а еще вопросик, на всех ос работает метод? и как с обновлением в list поступить ?

@fever brain · 16.03.2017, 13:21

А что тему этого топика-то изменили, пускай так-бы оставалась USB это-же очень оригенальное название

@scripVB · 17.03.2017, 13:51 **[ТС]**

fever brain, а вы смешной, в квн играете небось!?

Dragokas · 18.03.2017, 12:46

scripVB, можете воспользоваться freeware-службой USBDLM от Uwe Sieber (закрытый исходный код). Готовый пример есть в составе моего AntiHidden.

Работает тоже по принципу нотификации, т.е. без постоянной нагрузки на ЦПУ, как пример от Pro_grammer-а.
Только в отличие от него, нормально работает и с кард-ридерами (практически я тот пример VB6 не проверял, но проверял аналог на C++ там такой код не опознавал кард-ридеры).

@scripVB · 25.03.2017, 10:48 **[ТС]**

Dragokas, спасибо большое за предоставленную информацию! Очень помогли!

Добавлено через 2 минуты
Народ есть у кого еще предложения делитесь будет полезна такая инфа т.к. в поисковике сложно найти! А так люди хоть тут будут брать примеры!

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

@scripVB 6 / 6 / 2 Регистрация: 06.03.2013 Сообщений: 79

	Проверка подключения USB (flash) 14.03.2017, 22:47. Показов 2072. Ответов 14 Метки нет (Все метки) Доброго времени суток народ!!! Написал кривой чекер подключения USB(flash) к компу вроде работает но нужно сделать следующие что бы при подключение он искал на флешке файлы *.ini и выводил в лист бокс (сам чекер кривой т.к. руки кривые ) так что если у кого есть пример хотя бы чекера прошу в студию! Ну и вообщем вопрос решить бы))) Орущие о вирусах троянах идт идут лесом!!!! 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	15.03.2017, 21:34
	На флехе нужен еще обработчик скрипта, если ты говориш это работает то с помощью чего это работает ? 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	15.03.2017, 21:45
	Pro_grammer, говорите по русски пожалуйста, какие еще таймеры ? Добавлено через 2 минуты Не по теме: Упс... все дошло, у вас исходник Добавлено через 4 минуты Pro_grammer, как это заработает сразу-же на флэхе ? 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	15.03.2017, 22:15
	Тогда вопрос надо было ставить не так, а чтото вроде как отключить блокировщики, и тому подобное при запуске левой флешки, конечно на флешке можно хоть что хранить, у меня полноценная OS на флехе работает со всеми драйверами 0

@scripVB 6 / 6 / 2 Регистрация: 06.03.2013 Сообщений: 79
	16.03.2017, 12:42 [ТС]
	Pro_grammer, спасибо! Это намного лучше моего криворукого варианта))) Добавлено через 8 минут Pro_grammer, а еще вопросик, на всех ос работает метод? и как с обновлением в list поступить ? 0

@fever brain oh my god 1456 / 796 / 161 Регистрация: 05.01.2016 Сообщений: 2,307 Записей в блоге: 8
	16.03.2017, 13:21
	А что тему этого топика-то изменили, пускай так-бы оставалась USB это-же очень оригенальное название 0

@scripVB 6 / 6 / 2 Регистрация: 06.03.2013 Сообщений: 79
	17.03.2017, 13:51 [ТС]
	fever brain, а вы смешной, в квн играете небось!? 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	18.03.2017, 12:46
	scripVB, можете воспользоваться freeware-службой USBDLM от Uwe Sieber (закрытый исходный код). Готовый пример есть в составе моего AntiHidden. Работает тоже по принципу нотификации, т.е. без постоянной нагрузки на ЦПУ, как пример от Pro_grammer-а. Только в отличие от него, нормально работает и с кард-ридерами (практически я тот пример VB6 не проверял, но проверял аналог на C++ там такой код не опознавал кард-ридеры). 1

@scripVB 6 / 6 / 2 Регистрация: 06.03.2013 Сообщений: 79
	25.03.2017, 10:48 [ТС]
	Dragokas, спасибо большое за предоставленную информацию! Очень помогли! Добавлено через 2 минуты Народ есть у кого еще предложения делитесь будет полезна такая инфа т.к. в поисковике сложно найти! А так люди хоть тут будут брать примеры! 0

Проверка подключения USB (flash)

Решение