Защита от ArtMoney

[1gh0st1]

Не подскажите, как сделать так, чтобы при работе моей программы если пользователь запускает ArtMoney, то моя программа сразу же вырубалась? Это очень важно

[--=GAMER=--]

Ну в принцине... Если в списке процессов появляется ArtMoney.exe,
то прога закрывается.

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

IF ArtMoney.exe in список программ Then end


Правда я не знаю как определить список программ и озоглавить
Private Sub , и вообще правильно это или нет.. Так что пробуй!!!

[A.A.Z.]

Реальный способ!

На форме Таймер с Интервалом в 1.

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

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Sub Timer1_Timer()
If FindWindow(vbNullString, "ARTMONEY") > 0 Then End
DoEvents
End Sub


[net]

Создай один батон и листбокс,это - на модуль :
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetWindow Lib "user32" _
(ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, _
ByVal cch As Long) As Long
Public Declare Function GetWindowTextLength Lib "user32" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2
Public Const GW_HWNDPREV = 3
Public Const GW_OWNER = 4
Public Const GW_CHILD = 5

Это - в код:
Private Sub Command1_Click()
Dim hwnd&
Dim dummy&
Dim strCaption$


List1.Clear

' Ðàáî÷èé ñòîë - ñàìîå ïåðâîå îêíî
hwnd& = GetDesktopWindow()

' Ïåðâîå äî÷åðíåå îêíî - îêíî ïåðâîãî óðîâíÿ
hwnd& = GetWindow(hwnd&, GW_CHILD)

' Òåïåðü ïîëó÷èì çàãîëîâêè îêîí âñåõ óðîâíåé
Do
dummy& = GetWindowTextLength(hwnd&)
If dummy <> 0 Then
strCaption = String(dummy + 1, " ")
dummy = GetWindowText(hwnd&, strCaption, dummy + 1)
List1.AddItem strCaption
End If
hwnd& = GetWindow(hwnd&, GW_HWNDNEXT)

Loop While hwnd& <> 0
End Sub
А даль ше можешь ставить любое условме ИФ,только относительно листбокса