Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


Информационный Канал Subscribe.Ru

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

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 149
от 05.11.2005, 15:45

Администратор:Калашников О.А.
В рассылке:Подписчиков: 122, Экспертов: 20
В номере:Вопросов: 3, Ответов: 3


Вопрос № 28554: Здравствуйте, эксперты! Пишу прогу для моих домочадцев, а именно оболочку вместо Explorer'a. В общем мне надо узнать, сколько учеток загружено в системе. Плюс: Как убить Explorer при загрузке винды, либо заменить его на мою оболочку. Так...
Вопрос № 28564: Как в vb6 скрыть приложение от диспетчера задач?...
Вопрос № 28603: Как мона опредилить когда появиться диск в cd-rom'е и когда его вытащат?...

Вопрос № 28.554
Здравствуйте, эксперты!

Пишу прогу для моих домочадцев, а именно оболочку вместо Explorer'a. В общем мне надо узнать, сколько учеток загружено в системе.
Плюс: Как убить Explorer при загрузке винды, либо заменить его на мою оболочку. Также нужно запретить доступ к дискам (всем), хотя я это и средствами NTFS могу сделать. Помогите, прошу очень!
Отправлен: 30.10.2005, 17:11
Вопрос задал: SKE (статус: Студент)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Miklucho
Здравствуйте, SKE!
Раздел реестра HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon, параметр shell отвечает за запускаемую оболочку. ИМХО.
Ответ отправил: Miklucho (статус: Студент)
Отправлен: 30.10.2005, 18:04
Оценка за ответ: 4
Комментарий оценки:
Спасибо!


Вопрос № 28.564
Как в vb6 скрыть приложение от диспетчера задач?
Отправлен: 30.10.2005, 20:21
Вопрос задал: Dushin Igor (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Miklucho
Здравствуйте, Dushin Igor!
Private Sub Form_Load()
App.TaskVisible = False
End Sub
Ответ отправил: Miklucho (статус: Студент)
Отправлен: 30.10.2005, 20:36
Оценка за ответ: 5


Вопрос № 28.603
Как мона опредилить когда появиться диск в cd-rom'е и когда его вытащат?
Отправлен: 31.10.2005, 09:33
Вопрос задал: Dushin Igor (статус: 1-ый класс)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Miklucho
Здравствуйте, Dushin Igor!
Если заранее известна буква дисковода, то можно использовать FSO.
Подключи в Referense (меню Project) MS Scripting RunTime. Далее:

Dim myFSO As Scripting.FileSystemObject

Private Sub Form_Load()
Set myFSO = New Scripting.FileSystemObject
End Sub

Private Sub Command1_Click()
Dim myDRV As Drive
Set myFSO = CreateObject("Scripting.FileSystemObject")
Set myDRV = myFSO.GetDrive(myFSO.GetDriveName(Text1.Text)) 'Имя диска задается обязательно как x: !
If myDRV.IsReady = True Then
a = "Имя тома: " & myDRV.VolumeName & vbCrLf
b = "Доступное пространство: " & myDRV.AvailableSpace / 1048576 & " MB" & vbCrLf
c = "Серийный номер: " & myDRV.SerialNumber & vbCrLf
d = "Тип устройства: " & myDRV.DriveType & vbCrLf
e = "Общий размер: " & myDRV.TotalSize & vbCrLf
f = "Сетевое имя: " & myDRV.ShareName & vbCrLf
Set myFSO = Nothing
end if

g = "Готовность: " & myDRV.IsReady
MsgBox a & b & c & d & e & f & g, vbInformation, "Информация о диске"
End Sub
Ответ отправил: Miklucho (статус: Студент)
Отправлен: 31.10.2005, 18:40


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

Rambler's Top100 Яндекс


Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Архив рассылки
Отписаться
Вспомнить пароль

В избранное