Список запущеных приложений...

[Memfivosfey]

Как узнать с какими приложениями в данный момент работает пользователь и конкретно активное...

[RayShade]

Поиск по форуму. Ключевые слова - enumprocesses

[Ship]

Может быть это подойдет:
На форме: Timer, Command1, ListBox

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

Option Explicit

Const TH32CS_SNAPPROCESS As Long = 2&
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

Private Sub Command1_Click()'Список всех процессов

List1.Clear
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)

If hSnapShot = 0 Then
    Exit Sub
End If

uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)

Do While r
    List1.AddItem uProcess.szExeFile
    r = ProcessNext(hSnapShot, uProcess)
Loop

Call CloseHandle(hSnapShot)

End Sub

Private Sub Timer1_Timer()'заголовок активного окна

Dim hwnd As Long
Dim buffer As String
buffer = Space(100)

hwnd = GetForegroundWindow()
GetWindowText hwnd, buffer, 100
Form1.Caption = buffer

End Sub


[Memfivosfey]

Может быть это подойдет:
На форме: Timer, Command1, ListBox

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

Option Explicit

Const TH32CS_SNAPPROCESS As Long = 2&
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

Private Sub Command1_Click()'Список всех процессов

List1.Clear
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)

If hSnapShot = 0 Then
    Exit Sub
End If

uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)

Do While r
    List1.AddItem uProcess.szExeFile
    r = ProcessNext(hSnapShot, uProcess)
Loop

Call CloseHandle(hSnapShot)

End Sub

Private Sub Timer1_Timer()'заголовок активного окна

Dim hwnd As Long
Dim buffer As String
buffer = Space(100)

hwnd = GetForegroundWindow()
GetWindowText hwnd, buffer, 100
Form1.Caption = buffer

End Sub


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

[RayShade]

GetActiveWindow



Сказано же было: в поиск.

В следующий раз, кто напишет хоть один ответ в тему, которая явно находится поиском (пусть даже и по английским словам) будет награжден замечанием.

[Ship]

Тобишь на каком сфокусирован пользователь...

Private Sub Timer1_Timer()'заголовок активного окна

Dim hwnd As Long
Dim buffer As String
buffer = Space(100)

hwnd = GetForegroundWindow()
GetWindowText hwnd, buffer, 100
Form1.Caption = buffer

End Sub

Caption Формы становится заголовком активного окна

[tyomitch]

2RayShade: GetForegroundWindow
(не упускать же шанс поддеть модера)

[Memfivosfey]

Усё, въехал, всё просто суперски работает....
Спасибо Ship!

[Memfivosfey]

А ты RayShade Scarmarked Не ругайся, искал по форуму, там много воды, а найти что нужно не могу!!!!!

А Ship ответил прямо в десятку...

[Amed]

Ой, что сейчас будет!

[Ramzes]

Ой, что сейчас будет!

Ой ничего сейчас не будет

Тока не надо меня в поиск посылать

Как узнатиь папку из которой был запущен процес

[tyomitch]

Ramzes, ты чего
Я же только на прошлой неделе это разжёвывал...
GetWindowModuleFileName (по hWnd) / GetModuleFileNameEx (по hProcess)

[Ramzes]

Ramzes, ты чего
Я же только на прошлой неделе это разжёвывал...
GetWindowModuleFileName (по hWnd) / GetModuleFileNameEx (по hProcess)

Я ничего, мне просто стало вдруг очень интересно, а ApiGuide'a под рукой нету

[neic]

Блин последних 5 постов(включая мой) полный флуд мой пост поясняющий так что за флуд мона и не ругать! А вы чё тему развиваете если уже всё нашлось!?

[--=GAMER=--]

Традиция ....

[tyomitch]

neic, GAMER, а где вы здесь флуд вообще нашли-то?
Лежал себе топик с февраля, никто его не трогал, вдруг откуда ни возьмись вы двое...

[SAS]

Может быть это подойдет:
На форме: Timer, Command1, ListBox

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

Option Explicit

Const TH32CS_SNAPPROCESS As Long = 2&
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function CreateToolhelpSnapshot Lib "Kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function ProcessFirst Lib "Kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function ProcessNext Lib "Kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)

Private Sub Command1_Click()'Список всех процессов

List1.Clear
Dim hSnapShot As Long
Dim uProcess As PROCESSENTRY32
Dim r As Long
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&)

If hSnapShot = 0 Then
    Exit Sub
End If

uProcess.dwSize = Len(uProcess)
r = ProcessFirst(hSnapShot, uProcess)

Do While r
    List1.AddItem uProcess.szExeFile
    r = ProcessNext(hSnapShot, uProcess)
Loop

Call CloseHandle(hSnapShot)

End Sub

Private Sub Timer1_Timer()'заголовок активного окна

Dim hwnd As Long
Dim buffer As String
buffer = Space(100)

hwnd = GetForegroundWindow()
GetWindowText hwnd, buffer, 100
Form1.Caption = buffer

End Sub


А можно ли преобразовать этот код для использования на VBScript - конкретно меня интересует - как ывзвать функции API на VBScript?

[tyomitch]

Нельзя.
Можно только создать на VB6 библиотеку с вызовами API и из скрипта обращаться к ней.

[SAS]

Нельзя.
Можно только создать на VB6 библиотеку с вызовами API и из скрипта обращаться к ней.

Очень жаль. У меня этот скрипт должен работать при загрузке asp страницы с сервера на клиентских машинах. Библиотеку как переходник сделать можно, но тогда ее придется загружать и регистрировать на клиентских машинах. Неужели нет стандартного переходника, который входил бы в состав Вин ХР?

[Jenizix]

SAS, ты хоть представь что будет если все смогут выполнять апи ф-ии на клиентских компах!!!!!! Беспредел!

[SAS]

Нельзя.
Можно только создать на VB6 библиотеку с вызовами API и из скрипта обращаться к ней.

Подобная тема уже обсуждалась http://bbs.vbstreets.ru/viewtopic.php?t=9545&highlight=windows+api+vbscript, там дается ссылка на уже готовый переходник с примерами - http://cwashington.netreach.net/main/tools/default.asp?topic=a-m, но, к сожалению меня это не очень устраивает, так как длл-ка должна копироваться на клиентскую машину и там регистрироваться. Может быть есть какие нибудь другие способы перечислить окна работающих приложений (w/o API) и переключаться программно между ними из vbscript?

[SAS]

SAS, ты хоть представь что будет если все смогут выполнять апи ф-ии на клиентских компах!!!!!! Беспредел!

Да, действительно. Я об этом как-то не подумал.

[Jenizix]

Мне бы такое удовольствие...

[SAS]

SAS, ты хоть представь что будет если все смогут выполнять апи ф-ии на клиентских компах!!!!!! Беспредел!

Однако можно устроить беспредел и без API функций - используя класс WMI - можно убивать и создавать процессы, просматривать их список, выключать машину и пр. Однако я пока не пойму можно ли с помощью этого объекта получить список окон работающих приложений. Список процессов я уже получил.

[Jenizix]

SAS, угу вот тока у меня опера, и мне по барабану все эти БВСкрипты...

[Ruslan Demidow]

SAS, угу вот тока у меня опера, и мне по барабану все эти БВСкрипты...

Даже если у тебя опера - от выполнения скриптов, при применении групповых политик в домене, она не освободит. Если ты в домене, а в политике предусмотрен запуск скрипта при загрузке компьютера - то выполнится без проблем. Вот если при отображении странички - тогда да - тут и в IE можно накрутить запрет на выполнение скриптов.

[BV]

...и мне по барабану все эти БВСкрипты...

Ну BV ещё до скриптов не добрался... А вот как доберётся!

[SAS]

SAS, угу вот тока у меня опера, и мне по барабану все эти БВСкрипты...

На самом деле без разницы - пользуетесь Вы Интернет через MS IE или оперу или кардебалет какой нибудь и не важно на VBScript или на JavaScript я напишу этот скрипт, он будет выполняться в нашей интрасети на каждой локальной машине как сценарий Windows Script Host (WSH). Здесь я пытался узнать об объектной модели WMI для того, чтобы узнать список работающих приложений. имеющих активные окна.

[Ruslan Demidow]

SAS, угу вот тока у меня опера, и мне по барабану все эти БВСкрипты...

На самом деле без разницы - пользуетесь Вы Интернет через MS IE или оперу или кардебалет какой нибудь и не важно на VBScript или на JavaScript я напишу этот скрипт, он будет выполняться в нашей интрасети на каждой локальной машине как сценарий Windows Script Host (WSH). Здесь я пытался узнать об объектной модели WMI для того, чтобы узнать список работающих приложений. имеющих активные окна.

Тогда тебе прямая дорога в WMI - класс Win32_Process. Там и хендлы можешь узнать и PID процесса (чтобы потом можно было управлять им через Shell.Activate(ProcessPID) ...

[SAS]

Тогда тебе прямая дорога в WMI - класс Win32_Process. Там и хендлы можешь узнать и PID процесса (чтобы потом можно было управлять им через Shell.Activate(ProcessPID) ...

Процессы как перечислять я понял еще вчера.

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


'чтобы запустить этот пример нужно скопировать
'содержимое в файл "*.vbs", сохранить его и запустить

on error resume next

'create instances of all processes
Machine = InputBox ("Enter a machine name" & vbCRLF & _
                "например //geoth0", " ","//")
set oWMI = _
   GetObject("winmgmts:{impersonationLevel=impersonate}" & _
             "!" & Machine).InstancesOf("Win32_Process")

' enumerate all processes
For Each oProcess in oWMI
processes =  processes &  oProcess.Name & " " & oProcess.ProcessID & " " & oProcess.priority & chr (13) & chr(10)
Next
msgbox processes

Но вот как ими управлять я не понял. В соответствии с документацией для использования Shell.Activate необходимо как параметр передавать заголовок окна, которое нужно активировать - а вот заголовки как получить я не знаю. Если для этого как то используется список процессов - то как? ведь не для всех процессов есть открытые окна.