Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Закрытие программ Добавлено: 28.12.08 17:31  

Автор вопроса:  $@ny@PG | ICQ: 468469477 
Можно ли в vb 6.0 узнать имя открытых программ или папок и закрыть их?

Ответить

  Ответы Всего ответов: 11  

Номер ответа: 1
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #1 Добавлено: 28.12.08 19:05
открытых программ или папок

Это как? *CRAZY*

Ответить

Номер ответа: 2
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #2 Добавлено: 28.12.08 19:58
Это как сравнивать кислое и квадратное*CRAZY*

Ответить

Номер ответа: 3
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #3 		Добавлено: 29.12.08 03:26
эмм закрыть дескрипторы что ли)

Ответить

Номер ответа: 4
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #4 Добавлено: 29.12.08 11:23
  1. 'На форму List1 (ListBox)
  2. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  3. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  4. Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
  5. Private Declare Function GetDesktopWindow Lib "user32" () As Long
  6. Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  7. Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
  8. Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
  9. Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
  10.  
  11. Private Sub Form_Load()
  12. Dim H As Long: Dim R As Long
  13. Dim L As Long: Dim T As String
  14.  
  15. H = GetDesktopWindow()
  16. H = GetWindow(H, 5)
  17. Do While Not H = 0
  18.     R = GetWindowLong(H, -20)
  19.     R = R Or &H80000
  20.     L = GetWindowTextLength(H)
  21.     T = ""
  22.     T = Space(L)
  23.     GetWindowText H, T, L + 1
  24.     If H <> Me.hwnd Then
  25.         List1.AddItem H & " " & T
  26.         CloseWindow H
  27.     End If
  28.     H = GetWindow(H, 2)
  29. Loop
  30. End Sub


Шота типа такого, если я правильно понял) Правда я ничего не понял *CRAZY*
Закрываем ВСЕ окна кроме себя)

Ответить

Номер ответа: 5
Автор ответа:
 Isage.ru



Вопросов: 3
Ответов: 38
  Профиль | | #5 Добавлено: 29.12.08 14:03
Открытые папки это запущенный (Explorer.exe)
Да и еще работай поаккуратней. А то частенько рабочий стол бахает!
Защити себя (презерватив - самый надежный фаервол)! :)

Ответить

Номер ответа: 6
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #6 Добавлено: 29.12.08 14:19
Isage.ru пишет:
Защити себя (презерватив - самый надежный фаервол)!

Да неудобно с презервативом на голове писАть)) Не видно нифига)
Isage.ru пишет:
А то частенько рабочий стол бахает!

@lex пишет:
Закрываем ВСЕ окна кроме себя)

Ответить

Номер ответа: 7
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #7 Добавлено: 29.12.08 14:21
Хз) Код не проверял, лень потом комп ребутить) Но по идее должно убить вообще все, и рабочий стол в том числе)

Ответить

Номер ответа: 8
Автор ответа:
 LamerOnLine



ICQ: 334781088 

Вопросов: 108
Ответов: 2822
  Профиль | | #8 Добавлено: 29.12.08 17:23
Да, помнится, есть парочка функций - GetGPFEx и ShowBSOD :)

Ответить

Номер ответа: 9
Автор ответа:
 



Администратор

ICQ: 278109632 

Вопросов: 42
Ответов: 3949
  Web-сайт: domkratt.com
 Профиль | | #9 		Добавлено: 29.12.08 17:32
А зачем загадочная переменная R?)

Ответить

Номер ответа: 10
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #10 Добавлено: 29.12.08 20:08
Executioner пишет:
А зачем загадочная переменная R?)

Это кусок от проверки видимости окна) Я шота провтыкал и не убрал)

Ответить

Номер ответа: 11
Автор ответа:
 @lex



Вопросов: 14
Ответов: 262
  Профиль | | #11 Добавлено: 29.12.08 20:19
  1. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  2. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  3. Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

  1. Dim R As Long

  1. R = GetWindowLong(H, -20)
  2. R = R Or &H80000

Лишнее)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам