Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446592 Thu, 08 Feb 2007 17:37:21 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446592 Я помнится так комон контролы лечил...успешно на w2k]]> AlexJ Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446574 Thu, 08 Feb 2007 17:22:23 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446574 B.V.: Ссылка. Видимо, "повезло" тебе с ОС... :unsure: Проблема, как выяснилось в бажной(?) winsta.dll.
Там везде примерно такой код:

:655F2FEB A124A05F65 mov eax, dword ptr [655FA024]

:655F2FF0 83F8FD cmp eax, FFFFFFFD

:655F2FF3 750F jne 655F3004

:655F2FF5 687F040000 push 0000047F

* Reference To: KERNEL32.SetLastError, Ord:02A0h

:655F2FFA FF1528105F65 Call dword ptr [655F1028]

Что там по адресу [655FA024] выяснить не удалось...]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446543 Thu, 08 Feb 2007 17:04:47 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446543 Цитата AlexJ @ 08.02.07, 16:28

Попробуйте скомпилиный вариант на ПБшке

Цитата

---------------------------
AlexJ@src
---------------------------
Failed with error: 1151
---------------------------
OK
---------------------------

]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446490 Thu, 08 Feb 2007 16:28:30 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446490 Цитата B.V. @ 08.02.07, 16:02

Все на месте, все работают.

Попробуйте скомпилиный вариант на ПБшке]]> AlexJ Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446436 Thu, 08 Feb 2007 16:02:47 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446436 Цитата ALXR @ 08.02.07, 15:34

Может, какая библиотека убита?

Все на месте, все работают.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446404 Thu, 08 Feb 2007 15:34:24 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446404 BV: Может, какая библиотека убита? Судя по ошибке, не может подгрузить какую-то длл из импорта, поскольку она "Не Виндовс и не МС-ДОС формата" (могу и ошибаться). К примеру: WINSTA.dll.]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446265 Thu, 08 Feb 2007 14:07:55 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1446265 ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445907 Thu, 08 Feb 2007 11:25:14 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445907 Цитата ALXR @ 08.02.07, 11:14

и, кстати, работает!

Рад за тебя.
Для справки: у меня Win2k SP4 EN, версия Wtsapi32.dll - 5.0.2134.1, вирусов нет.]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445885 Thu, 08 Feb 2007 11:14:13 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445885 Цитата B.V. @ 08.02.07, 11:01

Переменная i не объявлена, код не работает - возвращает "Failed with error: 1151".

Теперь объявлена.

Вообще, странная ошибка:

Цитата

Указанная программа не является программой для Windows или MS-DOS.

Цитата MSDN

Requirements
Client Requires Windows Vista, Windows XP, or Windows 2000 Professional.
Server Requires Windows Server "Longhorn", Windows Server 2003, or Windows 2000 Server.

Т.к. в XP работает, то и в Win2k должно работать (и, кстати, работает!).]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445852 Thu, 08 Feb 2007 11:01:38 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445852 B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445782 Thu, 08 Feb 2007 10:20:06 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445782 Цитата ALXR @ 08.02.07, 10:18

За что боролося, на то и напоролся

В общем то меня это не смущает ;)]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445779 Thu, 08 Feb 2007 10:18:39 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445779 Цитата ANDLL @ 08.02.07, 10:10

Нет, но есть исходники 2k'шного, их я и привел.
В XP, говоришь по другому? Проверять не буду, поверю на слово.

Ну ты бы хоть посмотрел бы, извлекает он там где-нибудь имя пользователя или нет, а то привел совершенно посторонний по отношению к теме кусок кода из программы совершенно другой версии и еще возмущаешься, что автор не прав!

За что боролося, на то и напоролся. ;)

PS: В ХР, кстати, тоже HRESULT CProcPage::GetProcessInfo так выглядит (ну или почти так).]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445761 Thu, 08 Feb 2007 10:10:53 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445761 Цитата ALXR @ 08.02.07, 10:08

У тебя есть исходник таск-манагера из Windows XP ?

Нет, но есть исходники 2k'шного, их я и привел.
В XP, говоришь по другому? Проверять не буду, поверю на слово.]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445757 Thu, 08 Feb 2007 10:08:59 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445757 Цитата ANDLL @ 08.02.07, 07:38

Откуда такая инфа?

У тебя есть исходник таск-манагера из Windows XP ? Насколько я помню, в WinNT4.0 и Win2k нету возможности просмотра имени пользователя, от которого запущен процесс. Ага?
И инфа сия из дизасма ХРшного таск-манагера исходит.

AlexJ, поинтер, конечно, имеет размер 32 бита, но этот поинтер может указывать на что угодно, включая переменную типа Integer. ;)]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445714 Thu, 08 Feb 2007 09:42:21 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445714 ANDLL,

Может все таки проясните по поводу секты змия и скольки байтам равняется любой поинтер в 32 - разрядной системе ?]]> AlexJ Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445480 Thu, 08 Feb 2007 07:38:02 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445480 Цитата ALXR @ 08.02.07, 07:24

обычный виндововский таск-менеджер

Откуда такая инфа?

Добавлено 08.02.07, 08:27
Вот, кусок исходников.

HRESULT CProcPage::GetProcessInfo()

{

HRESULT hr = S_OK;

NTSTATUS status;

while(hr == S_OK)

{

if (m_pvBuffer)

{

status = NtQuerySystemInformation(SystemProcessInformation,

m_pvBuffer,

m_cbBuffer,

NULL);

// If we succeeded, great, get outta here. If not, any error other

// than "buffer too small" is fatal, in which case we bail

if (NT_SUCCESS(status))

{

break;

}

if (status != STATUS_INFO_LENGTH_MISMATCH)

{

hr = E_FAIL;

break;

}

// Buffer wasn't large enough to hold the process info table, so resize it

// to be larger, then retry.

if (m_pvBuffer)

{

VirtualFree(m_pvBuffer, 0, MEM_RELEASE);

m_pvBuffer = NULL;

}

m_cbBuffer += PROCBUF_GROWSIZE;

m_pvBuffer = VirtualAlloc (NULL,

m_cbBuffer,

MEM_COMMIT,

PAGE_READWRITE);

if (m_pvBuffer == NULL)

{

hr = E_OUTOFMEMORY;

break;

}

return hr;

}

Таки taskmanager пользуется функцией NtQuerySystemInformation]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445463 Thu, 08 Feb 2007 07:24:32 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445463 Цитата B.V. @ 08.02.07, 05:48

Меня смущает использование lstrlenA. Зачем?

Как это зачем? Я же не знаю длину строки, на которую имею поинтер.

Цитата ANDLL @ 08.02.07, 06:54

ALXR
WTS API? Хм, а как поводет себя твоя прога если её запустить на удаленном сеансе?

Понятия не имею. Эту же технологию использует обычный виндововский таск-менеджер.

Добавлено 08.02.07, 07:28

Цитата AlexJ @ 08.02.07, 06:50

P.S.
И еще, вы накручиваете поинтер pVoid для извлечения WTS-структур,

Прав! Fixed.]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445437 Thu, 08 Feb 2007 07:03:54 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445437 Цитата ANDLL @ 08.02.07, 06:54

Цитата AlexJ @ 08.02.07, 06:50

раз это поинтер то имхо надо переправлять на peUse As Long

Вы состоите в секте змия?

:blink:

А по русски? Не догнал смысла :)]]> AlexJ Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445414 Thu, 08 Feb 2007 06:54:37 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445414 Цитата AlexJ @ 08.02.07, 06:50

раз это поинтер то имхо надо переправлять на peUse As Long

Вы состоите в секте змия?
ALXR
WTS API? Хм, а как поводет себя твоя прога если её запустить на удаленном сеансе?]]> ANDLL Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445409 Thu, 08 Feb 2007 06:50:20 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445409

Private Declare Function LookupAccountSidA Lib "advapi32.dll" (ByVal lpSystemName As Any, ByVal Sid As Long, _

ByVal name As String, cbName As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, _

peUse As Integer) As Long

Цитата

'peUse
'[out] Pointer to a variable that receives a SID_NAME_USE value that indicates the type of the account.

раз это поинтер то имхо надо переправлять на peUse As Long ;)

И спасибо, - приятное решение.

P.S.
И еще, вы накручиваете поинтер pVoid для извлечения WTS-структур,
следовательно WTSFreeMemory будет чистить только последний кусок(структуру последнего процесса выделенного буфера.
Имхо надо сохранять первоначальное значения для WTSFreeMemory,
а цикле накручивать копию pVoid.]]> AlexJ Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445325 Thu, 08 Feb 2007 05:48:30 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445325 Цитата ALXR @ 07.02.07, 23:14

В FAQ предлагаю.

Меня смущает использование lstrlenA. Зачем?]]> B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445198 Wed, 07 Feb 2007 23:43:04 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445198 Unload me, чтобы не завершалось. :)

Вообще, рекомендуется к прочтению. Вот эта функция еще интересна. :whistle:]]> ALXR Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445197 Wed, 07 Feb 2007 23:36:34 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445197 вешал вызов процедуры на Command1_Click()]]> Seriy-Coder Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445190 Wed, 07 Feb 2007 23:14:52 +0000 Получение имени пользователя процесса https://forum.sources.ru/index.php?showtopic=170923&view=findpost&p=1445190

Option Explicit

Private Declare Function WTSEnumerateProcessesA Lib "wtsapi32.dll" (ByVal hServer As Long, ByVal Reserved As Long, _

ByVal Version As Long, ppProcessInfo As Long, pCount As Long) As Long

Private Declare Function WTSFreeMemory Lib "wtsapi32.dll" (ByVal pMemory As Long) As Long

Private Declare Function lstrlenA Lib "kernel32.dll" (ByVal lpszString As Any) As Long

Private Declare Function CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (CopyTO As Any, CopyFROM As Any, _

ByVal dwBytes As Long) As Long

Private Declare Function LookupAccountSidA Lib "advapi32.dll" (ByVal lpSystemName As Any, ByVal Sid As Long, _

ByVal name As String, cbName As Long, ByVal ReferencedDomainName As String, cbReferencedDomainName As Long, _

peUse As Integer) As Long

Private Type WTS_PROCESS_INFO

SessionId As Long

ProcessId As Long

pProcessName As Long

pUserSid As Long

End Type

Sub OutProcList()

Dim w As WTS_PROCESS_INFO, pCount As Long, pVoid As Long, pVoid0, s As String, k As Integer, i As Long

If WTSEnumerateProcessesA(0, 0, 1, pVoid0, pCount) <> 0 Then

Dim lpszDomain As String, lpszUsername As String, cbDomain As Long, cbUsername As Long

pVoid = pVoid0

For i = 0 To pCount - 1

CopyMemory w, ByVal pVoid, Len(w)

cbDomain = 260: cbUsername = 260: lpszDomain = String(cbDomain, 0): lpszUsername = String(cbUsername, 0)

If LookupAccountSidA(0&, w.pUserSid, lpszUsername, cbUsername, lpszDomain, cbDomain, k) <> 0 Then

lpszDomain = Left(lpszDomain, cbDomain)

lpszUsername = Left(lpszUsername, cbUsername)

Else

lpszDomain = "<Unknown>"

lpszUsername = "<Unknown>"

End If

s = String(lstrlenA(w.pProcessName), 0)

If Len(s) > 0 Then CopyMemory ByVal s, ByVal w.pProcessName, Len(s)

Debug.Print s; " - "; lpszDomain & "\" & lpszUsername

pVoid = pVoid + Len(w)

WTSFreeMemory pVoid0

Else

MsgBox "Failed with error: " & CStr(Err.LastDllError), vbCritical

End If

Unload Me

End Sub

В FAQ предлагаю. :)]]> ALXR Visual Basic: Общие вопросы