Все выпуски  

RFpro.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Megaloman
Статус: Мастер-Эксперт
Рейтинг: 101
∙ повысить рейтинг »
solowey
Статус: Академик
Рейтинг: 4
∙ повысить рейтинг »
Асмик Гаряка
Статус: Советник
Рейтинг: 0
∙ повысить рейтинг »

Basic

Номер выпуска:1156
Дата выхода:01.09.2021, 00:45
Администратор рассылки:Андреенков Владимир (Академик)
Подписчиков / экспертов:3 / 14
Вопросов / ответов:3 / 10

Консультация # 95595: Уважаемые эксперты! Я работаю в гос. организацие и нашем в регионах много компьютеров. Но каждого из ных мы контролировать не умеем. Просто возможности нету. Мне нужна программный код который удаляет mp3,avi и mpg файлов. От этого нам нету ползы. Потаму что много вирусов. Как надо создать программу, который автоматический ищет mp3, avi и mpg фа...
Консультация # 42027: Подскажите пожалуйста, как определить какая из вкладок выбрана в группе вкладок на форме.Заранее спасибо....
Консультация # 15437: Привет всем. Я с абсолютно сумасшедшим вопросом. Есть ли возможность дебагнуть экзэшник в ВБ код? Ну, типа, не ассемблерные мнемокоды получить а нормальные ВБ команды?...

Консультация # 95595:

Уважаемые эксперты! Я работаю в гос. организацие и нашем в регионах много компьютеров. Но каждого из ных мы контролировать не умеем. Просто возможности нету. Мне нужна программный код который удаляет mp3,avi и mpg файлов. От этого нам нету ползы. Потаму что много вирусов.
Как надо создать программу, который автоматический ищет mp3, avi и mpg файлы и удаляет его без разрешение?
Спасибо за ответ.

Дата отправки: 18.07.2007, 20:12
Вопрос задал: Muhammedov Abdurohman
Всего ответов: 3
Страница онлайн-консультации »


Консультирует Nance:

Здравствуйте, Muhammedov Abdurohman!
Clearer - Программа для автоматического удаления файлов по заданной маске. Есть возможность задать неограниченное количество папок и масок для удаления файлов в этих папках. Опционально: - запуск с системой - выход из программы по завершении очистки. скачать можно здесь http://itshareware.by.ru/utilities/disk_and_file_system/clearer.shtml. Абсолютно бесплатная!

(По данной ссылке можно перейти на страницу, где указан URL домашней страницы автора программы. Но при попытке зайти на страницу выдается 404 Not Found. Проверяйте ссылки на работоспособность.) [ Климова М. ]

Консультировал: Nance
Дата отправки: 18.07.2007, 20:42
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует PsySex (Профессионал):

Здравствуйте, Muhammedov Abdurohman!
Код для модуля в приложении, при создании проекта форму удалить. Скомпиленный файл в автозагрузку. Поиск идет по всем локальным жестким дискам.

Приложение:

Консультировал: PsySex (Профессионал)
Дата отправки: 18.07.2007, 23:02
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Черников Игорь Владимирович:

Здравствуйте, Muhammedov Abdurohman!
Этот код удаляет файлы *.MP3 с диска С:\ имейте в виду, что в папке Windiws находятся системные файлы *.avi и удалять естественно нельзя, будьте осторожны!

Private Sub Комманда1_Click()
Путь = "C:\" \' Указывает путь.
Имя_папки = Dir(Путь, vbDirectory) \' Возвращает первый элемент.
Do While Имя_папки <> "" \' Начинает цикл. Игнорирует текущий каталог и каталог предыдущего уровня.
If Имя_папки <> "." And Имя_папки <> ".." Then \' Использует поразрядное сравнение для проверки того, является ли Имя_Папки каталогом.
If (GetAttr(Путь & Имя_папки) And vbDirectory) = vbDirectory Then
Колич_папок = Колич_папок + 1 \' Выводит элемент только в том случае, если это каталог.
Метка1.Caption = Колич_папок & " найдено"
Список_папок = Список_папок & Путь & Имя_папки & Chr(10)
End If
End If
Имя_папки = Dir \' Возвращает следующий элемент.
DoEvents
Loop
Do While i <> Len(Список_папок)
i = i + 1
ОдинСимвол = Mid(Список_папок, i, 1)
строка = строка + ОдинСимвол
If Asc(ОдинСимвол) = 10 Then
Путь = Mid(строка, 1, Len(строка) - 1) & "\"
Имя_папки = Dir(Путь, vbDirectory)
Do While Имя_папки <> ""
If Имя_папки <> "." And Имя_папки <> ".." Then
If (GetAttr(Путь & Имя_папки) And vbDirectory) = vbDirectory Then
Колич_папок = Колич_папок + 1
Метка1.Caption = Колич_папок & " папок найдено"
Список_папок = Список_папок & Путь & Имя_папки & Chr(10)
End If
End If
Имя_папки = Dir \' Возвращает следующий элемент.
DoEvents
Loop
строка = ""
End If
Loop
i = 0
Колич_папок = 0

Do While i <> Len(Список_папок)
i = i + 1
ОдинСимвол = Mid(Список_папок, i, 1)
строка = строка + ОдинСимвол
If Asc(ОдинСимвол) = 10 Then
Путь = Mid(строка, 1, Len(строка) - 1) & "\"
Имя_файла = Dir(Путь & "*.mp3")
Do While Имя_файла <> ""
Kill Путь & Имя_файла
Колич_папок = Колич_папок + 1
Метка2.Caption = Колич_папок & " файлов удалено"
Имя_файла = Dir
Loop
строка = ""
End If
DoEvents
Loop
End
End Sub

Консультировал: Черников Игорь Владимирович
Дата отправки: 20.07.2007, 16:57
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 42027:

Подскажите пожалуйста, как определить какая из вкладок выбрана в группе вкладок на форме.Заранее спасибо.

Дата отправки: 04.05.2006, 11:35
Вопрос задал: TTT
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Genyaa:

Здравствуйте, TTT!

Свойство SelectedItem возвращает текущую страницу или объект в группе вкладок... если конечно я правильно понял о чем идет речь.

В приложении простейший пример. Параметр обработчика события Index также возвращает номер страницы (вкладки).

Приложение:

Консультировал: Genyaa
Дата отправки: 04.05.2006, 12:38
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует AlexanderZh:

Здравствуйте, TTT!
У каждой закладки есть свойство Index (или Value), соответственно это значение и принимает объект MultiPage (или TabStrip)

Консультировал: AlexanderZh
Дата отправки: 04.05.2006, 12:40
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 15437:

Привет всем. Я с абсолютно сумасшедшим вопросом.
Есть ли возможность дебагнуть экзэшник в ВБ код? Ну, типа, не ассемблерные мнемокоды получить а нормальные ВБ команды?

Дата отправки: 19.12.2004, 18:18
Вопрос задал: Слава
Всего ответов: 5
Страница онлайн-консультации »


Консультирует PsySex (Профессионал):

Здравствуйте, Слава!
Слышал о такой программе которая декомпилировала VB но только четвертой версии, а EXE файлы высших версии помоему еще не придумали.
P.S. Cлово DEBUG означает отладка, а данный процесс называется декомпиляцией.

Консультировал: PsySex (Профессионал)
Дата отправки: 19.12.2004, 20:31
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Горячев Игорь:

Здравствуйте, Слава!
smile Вместо того, чтоб о всякой фигне мечтать учи асм и будет тебе счастье!!! :)

Консультировал: Горячев Игорь
Дата отправки: 19.12.2004, 23:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Miklucho:

Здравствуйте, Слава!
Декомпилятор для VB? По-моему у меня что-то было. Надо посмотреть.

Консультировал: Miklucho
Дата отправки: 20.12.2004, 07:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует DSota:

Здравствуйте, Слава!
Раньше можно было.
В 5-ой версии в бейсике появилась возможность компилировать не в P-код, как было предыдущих версиях, а создание исполняемого кода, без использования Виртуальной бейсик машины. И после 5-й версии - это то-же самое, что получить Паскалевский или Сишный код - т. е. проблематично.

Консультировал: DSota
Дата отправки: 20.12.2004, 08:28
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует PavPS:

Здравствуйте, Слава!
"дебагнуть экзэшник в" Это как? Типа слизать код и запихать его в ВБ? Если так, то дебаж - и хоть на чём нить пиши ДЛЛ и привязывай в ВБ. На асме писать в ВБ - никак.

Консультировал: PavPS
Дата отправки: 21.12.2004, 14:23
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное