Поверх диспетчера задач

[ACiD]

Подскажите пожалуйста как
сделать форму поверх диспетчера задач?

[Tamplier]

В таймере SetWindowPosition? Способ извращенский, но действенный.

[tyomitch]

Tamplier, http://bbs.vbstreets.ru/viewtopic.php?p=163125#163125

[Tamplier]

У меня небольшие проблемы с английским, так что если не правильно понял - поправьте. Вы намекаете на то, что сделать окно, которое будет поверх ДЗ нельзя, так?

[tyomitch]

For example, somebody might ask me, "I have a window, and I want to make sure it's always on top no matter what. Is there a window style I can set so that nobody ever covers this window?" Oh, what if two programs did this, and they use this bit one over the other? You now have two windows trying to occupy the same space, and somebody is going to lose.
Some people decide to "fix" this problem by saying, "well, I will run a timer, and every second I will check to see if somebody's covering me, and if somebody is covering me, I'm going to push them out of the way."
Now, that works, until two programs do this. And I think you can see what is happening: you have two programs, each of which, once a second, take turns, as it is in charge. We have seen this happen in programs that people pay for; where both of them decide that they should be the one, and work really hard at it. And as a result, you sit there and you install both of these programs, and you watch your screen. And you see that your icons change to the icon of one program, and then to the other one, and then to the first, and then back and forth. And it does this for about 15 seconds; your machine is completely unusable. And then finally one of them puts a big message box saying, "Hey, there's a mean guy around here!"

[Tamplier]

У меня небольшие проблемы с английским, так что если не правильно понял - поправьте. Вы намекаете на то, что сделать окно, которое будет поверх ДЗ нельзя, так?

[alibek]

www.translate.ru

[IIIypuk]

Тебе пытались намекнуть, что, если сделать в таймере - то все будет работать нормально. НО! Если запустить еще одну такую-же прогу, которая вставит себя поверх других окон раз в секунду - получится гемморой вплоть до зависания ПиСишника.
В крайнем случае, если очень хочется, есть, на мой взгляд, два варианта:
1. Ловить нажатие Ctrl+Alt+Delete и попросу сразу убивать TaskManager.
2. Поставить интервал 5 или 10 секунд.

Минусы:
по пункту 1. Запустить ДЗ можно и по другому.
по пункту 2. Все равно чушь получится.

З.Ы. Я кстати где-то видел dll`эшку, которая как раз предназначалась для того, чтоб отключать горячие клавиши Window (такие как Alt+Tab, Ctrl+Alt+Delete, Win+L и т.д.).

[alibek]

З.Ы. Я кстати где-то видел dll`эшку, которая как раз предназначалась для того, чтоб отключать горячие клавиши Window (такие как Alt+Tab, Ctrl+Alt+Delete, Win+L и т.д.).

Обманываешь.

[IIIypuk]

Счас попытаюсь найти, но по-моему точно.

[keks-n]

DLL, видать, ижектируется в winlogon и что-то перехватывает. По идее может работать...

[IIIypuk]

Текст из ReadMe.txt:
"Те,кто хотят заблокировать Ctrl_Alt_Del,Alt_Tab,TaskSwitching,TaskManager,Windows clock,Desktop,StartButton,Taskbar:
1.)Качаем block.dll(могу намылить)
2.)Пишем:
Private Declare Function Desktop_Show_Hide Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bShowHide As Boolean) As Short
Private Declare Function StartButton_Show_Hide Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bShowHide As Boolean) As Short
Private Declare Function Taskbar_Show_Hide Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bShowHide As Boolean) As Short
Private Declare Function Clock_Show_Hide Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bShowHide As Boolean) As Short
Private Declare Function Process_Desktop Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal szDesktopName As String, ByVal szPath As String) As Short
Private Declare Function Keys_Enable_Disable Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bEnableDisable As Boolean) As Short
Private Declare Function AltTab1_Enable_Disable Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bEnableDisable As Boolean) As Short
Private Declare Function AltTab2_Enable_Disable Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal hWnd As Integer, ByVal bEnableDisable As Boolean) As Short
Private Declare Function TaskSwitching_Enable_Disable Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bEnableDisable As Boolean) As Short
Private Declare Function TaskManager_Enable_Disable Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bEnableDisable As Boolean) As Short
Private Declare Function CtrlAltDel_Enable_Disable Lib "C:\Club FocuS pro\Dll\Block.dll" (ByVal bEnableDisable As Boolean) As Short

Указываем tru или false
Пример:CtrlAltDel_Enable_Disable(False)
gL"

И сама dll:

[IIIypuk]

Проверил, все прекрасно работает:

Код: Выделить всё

Option Explicit
Private Declare Function CtrlAltDel_Enable_Disable Lib "Block.dll" (ByVal bEnableDisable As Boolean) As Integer

Private Sub Form_Click()
Static tmp As Boolean

   CtrlAltDel_Enable_Disable tmp
   tmp = Not tmp

End Sub

[GSerg]

Посмотрим, посмотрим...

Итак, для начала dll активирует себе SeDebugPriviledge. Интересно, как у неё это получится не под админом.
Создаёт снэпшот процессов... ищет в нём... открывает найденный с правами PROCESS_ALL_ACCESS. Интересно, как у неё это получится не под админом.
Через VirtualAllocEx отводит в том процессе память, пишет в неё асмовый код... запускает его в удалённом потоке, дожидается окончания его работы... делает это ещё раз... да ну его, на сон грядущий.

Короче, не будет это работать не под админом...

[ACiD]

А нельзя ли привести исходный код block'a
Просто хочется понять как это сделать,
а не тупо воспользоваться .dll

[Dangerous]

а dll'ку в систем32 кидать?

[Lumen]

Необязательно. Просто VB ищет прописанную DLL по следующему сценарию (если где-то ошибусь, поправьте меня, плз): сначала в папке с программой, затем в C:\Windows\system32\ или куда у тебя установлена Винда, а уж только потом смотрит на явное указание пути для библы. То есть если не кидать в system32, то можно просто прописать полный путь для этой библиотеки и всё буит работать.

[GSerg]

Поправляю.

В случае, если путь указан, поиск не производится (естественно).
В иных случаях http://bbs.vbstreets.ru/viewtopic.php?p=37224#37224

[truk]

Проверил, все прекрасно работает:

Код: Выделить всё

Option Explicit
Private Declare Function CtrlAltDel_Enable_Disable Lib "Block.dll" (ByVal bEnableDisable As Boolean) As Integer

Private Sub Form_Click()
Static tmp As Boolean

   CtrlAltDel_Enable_Disable tmp
   tmp = Not tmp

End Sub

А как теперь разблокировать?

[Lumen]

Проверил, все прекрасно работает:

Код: Выделить всё

Option Explicit
Private Declare Function CtrlAltDel_Enable_Disable Lib "Block.dll" (ByVal bEnableDisable As Boolean) As Integer

Private Sub Form_Click()
Static tmp As Boolean

   CtrlAltDel_Enable_Disable tmp
   tmp = Not tmp

End Sub

А как теперь разблокировать?

Добавлено в цитаты.

[keks-n]

Ещё раз нажать на форму.

[IIIypuk]

ну вы блин даете "А как теперь разблокировать?"
Хотя конечно бывает.

З.Ы. У меня вопрос, как ты её разблокировал? Ждал, пока напишут ответ или ресет нажал?

[VVitafresh]

IIIypuk, а ты кликни раз по форме для блокировки Ctrl+Alt+Del и закрой форму.
Как теперь разблокировать?

444 сообщение

[ACiD]

VVitafresh
щёлкни ещё разок
333 корочки

[VVitafresh]

VVitafresh, щёлкни ещё разок

Пальцами по воздуху?

[IIIypuk]

VVitafresh, щёлкни ещё разок

Пальцами по воздуху?

Это тож к цитатам надо =)

По форме щелкни еще раз

[VVitafresh]

Это тож к цитатам надо =)

По форме щелкни еще раз

IIIypuk, а ты кликни раз по форме для блокировки Ctrl+Alt+Del и закрой форму.
Как теперь разблокировать?

[IIIypuk]

О, пардон, я не прочитал пост

IIIypuk, а ты кликни раз по форме для блокировки Ctrl+Alt+Del и закрой форму.
Как теперь разблокировать?

444 сообщение

Именно поэтому дядьки программисты профессионалы и получают хорошие зарплаты, потому как это учитывать все надо. В данном случае, мона добавить код в Form_UnLoad() примерно такой:

CtrlAltDel_Enable_Disable False ' или True - надо смотреть как значение учитывается