System and User Info

[preport]

Каким образом можно получить инфу о:

1. железе юзера(название процессора, материнки, объем ОЗУ и т.д.)
2. IP адрес.
3. список активных процессов.
4. список установленых программ.

З.Ы. желательно конкретные примеры.

[Хакер]

1. Приведи конкретный список вещей, которые тебя интересуют.
2. IP-адрес чего?
3. "Конкретный пример" из API-Guide:

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

Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
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 CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hSnapShot As Long, uProcess As PROCESSENTRY32
    'Takes a snapshot of the processes and the heaps, modules, and threads used by the processes
    hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
    'set the length of our ProcessEntry-type
    uProcess.dwSize = Len(uProcess)
    'Retrieve information about the first process encountered in our system snapshot
    r = Process32First(hSnapShot, uProcess)
    'set graphics mode to persistent
    Me.AutoRedraw = True
    Do While r
        Me.Print Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
        'Retrieve information about the next process recorded in our system snapshot
        r = Process32Next(hSnapShot, uProcess)
    Loop
    'close our snapshot handle
    CloseHandle hSnapShot
End Sub

4. Это те, которые отображаются в "установке и удалении программ"?

[preport]

1. Название процессора, его частота, размер кеша.
Название материнки, частота шины памяти
Размер ОЗУ, сколько реально используется в данный момент
Название видеокарты, размер памяти, эффективная частота

2. свой IP адрес

3. че это у тебя за "API-Guide" такое? где взял? А пример реально работает спс.

4. именно они

5. и ещё нужен список автозагрузки

[Хакер]

1.
а) Что есть "Название процессора" ? Модель? Модель есть в переменных окружения.
б) Какая частота? Тактовая?
в) Не думаю, что это удастся узнать.
г) Что есть название материнки?
д) см. пункт в
е) WMI ?
ё) Зачем тебе это? (спрошу - что такое виртуальная память?)
ж) Что такое название видеокарты?
з) Видеопамяти?
и) Что есть "эффективная частота" видеокарты?

2. Их может быть несколько. Может вообще не быть.

3. В цитаты! Автор - API-Guide это справочник по большниству WinAPI. С примерами.

4. А не вирус ли ты делаешь?

[preport]

1.
а)Точно! нашел название модели
б)Частота(тактовая) тоже оказывается есть в переменных окружения
в)жаль
г)модель материнки уже тоже нашел
е)WMI????? это ты откуда такое взял?
ё)Виртуальная память - это совокупность физической памяти и файла подкачки:)
ж)фирма, модель
з)объем видеоОЗУ
и)ну эффективная частота шины памяти видеокарты

2. ну дык вот как его узнать есть они или нет???

4. Да причем тут вирус. И тем более зачем вирусу такая инфа.
Пока что это просто интерес. Узнать какой народ софт юзает, на какой машине ездит... Потенциально это дружественный шпион:) будет составлять отчеты и отправлять ко мне на хост:). !(:без всяких там паролей !

[Хакер]

Узнать какой народ софт юзает, на какой машине ездит... Потенциально это дружественный шпион будет составлять отчеты и отправлять ко мне на хост. !(:без всяких там паролей !

Угу, и жрать траффик пользователя...

Это не вирус, это паразит. Обсуждение программ подобной функциональности на этом форуме запрещено.

Тему закрываю.

С претензиями обращаться по ЛС.