VBNet - Форум - Удаление программы из таска в ВИН 2к\ХР

Вопрос: Удаление программы из таска в ВИН 2к\ХР Добавлено: 08.11.03 01:13

Автор вопроса: xaker^4

Вот влипите на форму таймер и инт поменьше:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const LVM_FIRST As Long = &H1000
Private Const LVM_FINDITEMA As Long = (LVM_FIRST + 83)
Private Const LVM_DELETEITEM As Long = (LVM_FIRST + 8)
Private Sub del(name As String)
hWnd2 = FindWindow("#32770", vbNullString)
hWnd2 = FindWindowEx(hWnd2, 0, "#32770", vbNullString)
hWnd2 = FindWindowEx(hWnd2, 0, vbNullString,"Процессы")'Process"
b = SendMessage(hWnd2, LVM_FINDITEMA, 0, name & Chr(0))
SendMessage hWnd2, LVM_DELETEITEM, b, 0
End Sub
Private Sub Timer1_Timer()
del "project1.exe"'имя проги
End Sub

У меня проблема: всё по идеи должно работать а уменя таск вылетает с извинением об ошибки!Попробуйте у себя и напишите!!!

Ответить

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

Номер ответа: 1 Автор ответа: Dima22 Вопросов: 5 Ответов: 57	Профиль \| \| #1	Добавлено: 08.11.03 17:37
	Тебе только свою нужно удалять или как? Ответить

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

Svetlana

ICQ: 262385618

Вопросов: 43
Ответов: 205

Профиль | | #2

Добавлено: 08.11.03 18:05

http://www.vbnet.ru/faq/showtopic.asp?id=120

//посмотри это. Точно идет. Только hW надо как Long объявить (она вообще не объявлена)

Ответить

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

xakep^8

Вопросов: 1
Ответов: 14

Профиль | | #3

Добавлено: 08.11.03 18:15

Гм вы не так всё поняли! надо чтобы прога работала и была не видна в таске.Впрочем весь код неработает, я его перерабатываю

Ответить

Номер ответа: 4 Автор ответа: Svetlana ICQ: 262385618 Вопросов: 43 Ответов: 205	Профиль \| \| #4	Добавлено: 08.11.03 21:23
	Гм говоришь... а ты вопрос как поставил?????? прочитай сначала... Ответить

Номер ответа: 5 Автор ответа: Svetlana ICQ: 262385618 Вопросов: 43 Ответов: 205	Профиль \| \| #5	Добавлено: 08.11.03 21:30
	Ну да ладно... А ты не пробовал app.TaskVisible =False ??? В ХР помогает точно... Ответить

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

xakep^8

Вопросов: 1
Ответов: 14

Профиль | | #6

Добавлено: 08.11.03 23:04

1)Вопрос задан правильно

2)app.taskvisible=false - это само сабой разумеющеесе для каждого трояна - скрывает прогу из списка задач, а надо из процессов!!!

Ответить

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

AASoft

Вопросов: 86
Ответов: 920

Профиль | | #7

Добавлено: 09.11.03 01:11

nu skroesh is task manager'a, i chto???

ved` est` i drugie rogi katorye pokazyvayut spisok processov...

Ответить

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

EvgenyBoom3000

Вопросов: 3
Ответов: 5

Web-сайт: evgenyboom.narod.ru
Профиль | | #8

Добавлено: 09.11.03 14:09

Код неработает из-за того, что когда прога из списка удалена и посылается повторное сообщение "удалить её из списка", возникает ошибка.

После кода:

b = SendMessage(hWnd2, LVM_FINDITEMA, 0, name & Chr(0))

надо сделать проверку на неравенство b нулю. К томуже hWnd2 и b надо определить как long.

Ответить

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

NeForm@t

ICQ: 252999255

Вопросов: 36
Ответов: 247

Web-сайт: g--k.newmail.ru
Профиль | | #9

Добавлено: 09.11.03 19:43

А у тебя она вообще работает? Если да то кинь полный код в форум, плззззз!

Ответить

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

EvgenyBoom3000

Вопросов: 3
Ответов: 5

Web-сайт: evgenyboom.narod.ru
Профиль | | #10

Добавлено: 13.11.03 19:21

Да, Народ! Бился над этим целую неделю и вынужден сообщить, что код НЕРАБОТАЕТ!!!! :-) ) Проблема в том, что ListBox`ы и ListView`ы не своего окна нехотят отвечать на сообщения связанные с текстом item`ов. Можно сделать че угодно (добавить новый, удалить, сменить цвет ...), но только не узнать текст item`а, найти item. :-( ( Скока не мучился неполучается, хотя со своими ListBox`ами и ListViw`ами все нормально :-( (

С каждым днем я узнаю больше и понимаю, что знаю так мало!

Ответить

Страница: 1 |