| Вопрос: Как заморозить комп? | Добавлено: 07.09.07 13:13 |
Автор вопроса:  Arseny | ICQ: 298826769 |
| Ответы | Всего ответов: 40 |
|
Номер ответа: 16 Автор ответа:  Stuart Вопросов: 5 Ответов: 152 |
Профиль | | #16 | Добавлено: 08.09.07 14:35 |
И вот еще один способ у меня пришел в голову.  после такого начальник pзапустит прогу эту он даже не то что не сможет закрыть игру а он вообще даже не сможет нажать не на какую кнопку да и не только на кнопку, а вообще он даже комп через меню пуск не сможет выключить. В общем так, можно сделать такую прогу поверх всех окон и чтобы форма у неё была прозрачна т.е. закрыть её можно будет только через диспетчер задач, ну в обещм не буду трепаться диктую код:
Как обычно запускай ВБ>СтандартЕксе. Теперь создай модул , 2 мышь>добавить>модуль ну думаю ты знаешь как это делается) вот код который тебе надо писать в модуль: Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Public Const HWND_NOTOPMOST = -2 Public Const HWND_TOPMOST = -1 Public Const SWP_NOACTIVATE = &H10 Public Const SWP_NOMOVE = &H2 Public Const SWP_NOSIZE = &H1 Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean) If TopPosition Then SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE Else SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE End If End Sub Все модуль готов! Теперь возвращайся на форму, вот код к ней: Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Const GWL_EXSTYLE = (-20) Const WS_EX_LAYERED = &H80000 Const LWA_ALPHA = &H2 Private Sub Form_Load() Call SetFormPosition(Me.hwnd, True) Form1.WindowState = 2 SetTransparent Form1.hwnd, Int(255 * 1 / 100) End Sub Private Sub SetTransparent(hwnd As Long, Layered As Byte) Dim Ret As Long Ret = GetWindowLong(hwnd, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong hwnd, GWL_EXSTYLE, Ret SetLayeredWindowAttributes hwnd, 0, Layered, LWA_ALPHA End Sub Вот и всё
|
||
|
Номер ответа: 17 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333 |
Web-сайт: Профиль | | #17 | Добавлено: 08.09.07 16:35 |
|
Ну смотря как. Если проц четырех ядерный и умный, а еще хуже, установлена виста, то она мигом скинет тормозящую бадягу на маленький кусок процессора и ниче не будет заметно.
P.S. Наскоко я знаю, большинство игр можно запускать несколько раз, тобишь сворганить прогу, которая как только видит, что игра запущена, запускает ее еще 50 раз. Будет весело ))
|
||
|
Номер ответа: 18 Автор ответа: dNWВопросов: 30 Ответов: 683 |
Профиль | | #18 | Добавлено: 08.09.07 22:15 |
|
Окно диспетчера задач без проблем вылезет поверх твоего окна Его можно убить через FindWindow
|
||
|
Номер ответа: 19 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #19 | Добавлено: 08.09.07 22:37 |
| А вот интересно, можно-ли на VB6 создать окно нулевого уровня? Например как окно сообщения по сети? | ||
|
Номер ответа: 20 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #20 | Добавлено: 09.09.07 04:05 |
|
А тупо сделать скрин нельзя???
Открыть в пэинте с подписью "Папался!!!" Вывести на картинку инфу: ComputerName Username IP-Adress Date Time И разослать по корпоративной почте всем ) Причем с его айпи адреса... Вот люди посмеются...
|
||
|
Номер ответа: 21 Автор ответа: AWPICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | | #21 | Добавлено: 09.09.07 04:09 |
|
Есть еще способ, просто проще некуда...
Заморозить процесс "Sevices.exe" и никуда он не денется... А если есть прямой и сетевой доступ к его компу, то тут дело фантазии
|
||
|
Номер ответа: 22 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #22 | Добавлено: 09.09.07 21:25 |
|
А вот интересно, можно-ли на VB6 создать окно нулевого уровня? Например как окно сообщения по сети? Всмысле нулевого уровня?
|
||
|
Номер ответа: 23 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #23 | Добавлено: 09.09.07 22:07 |
Нулевого уровня, т.е. оно выше ВСЕХ (включая простые окна "поверх всех" . Отправь себе сообщение по сети, и попробуй это окошко чем-нибудь перекрыть!
|
||
|
Номер ответа: 24 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #24 | Добавлено: 09.09.07 22:09 |
|
:\
Public Sub AlwaysOnTop(ByVal hWnd As Long, ByVal OnTop As Boolean)
(с) sne
Call SetWindowPos(hWnd, IIf(OnTop, &HFFFF, &HFFFE), &H0, &H0, &H0, &H0, &H1 Or &H3) End Sub |
||
|
Номер ответа: 25 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #25 | Добавлено: 09.09.07 22:14 |
| Смеёшься что-ли? Не работает! | ||
|
Номер ответа: 26 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #26 | Добавлено: 09.09.07 22:48 |
|
В смысле нулевого уровня?
2 ALL: Откройте Пуск->Выполнить, и введите net send [имя вашего компьютера] Это окно 0-го уровня. Выше его ничего нет! (если сообщение не пришло, то возможно у Вас отключена служба сообщений). А теперь ответьте, можно-ли такое сделать на VB6?
|
||
|
Номер ответа: 27 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #27 | Добавлено: 09.09.07 22:53 |
|
Опять отправка глючит...
А если по теме, то А тупо сделать скрин нельзя???
Очень даже неплохо! Ксати, шЭфа об этом лучше не предупреждать, а то не всем успеет отправиться Открыть в пэинте с подписью "Папался!!!" Вывести на картинку инфу: ComputerName Username IP-Adress Date Time И разослать по корпоративной почте всем ) Причем с его айпи адреса... Вот люди посмеются...
|
||
|
Номер ответа: 28 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #28 | Добавлено: 10.09.07 00:41 |
| Кажется, это называется системно-модальное окно | ||
|
Номер ответа: 29 Автор ответа: Mr.SmileICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | | #29 | Добавлено: 10.09.07 00:48 |
|
Кажется, это называется системно-модальное окно И как его делать?
|
||
|
Номер ответа: 30 Автор ответа: gvozdРазработчик Offline Client Вопросов: 164 Ответов: 1317 
|
Web-сайт: Профиль | | #30 | Добавлено: 10.09.07 09:36 |
| Вообще-то начальник прав, нефиг на работе играться, а то, что играет начальник, дык на то он и начальник, чтобы делать то, чего не делают другие. | ||