Visual Basic – Uklanjanje programa iz Task list-e

API (Application Programming Interface) vam moลพe omoguฤ‡iti da sakrijete vaลกu aplikaciju sa liste trenutno izvrลกavanih programa (Task list). Jednostavno iskoristite donji programski kod, za registrovanje vaลกe aplikacije kao servisa, i na taj naฤin ฤ‡ete izvesti da vaลก program ostane nevidljiv za korisnika.

Pokrenite Visual Basic i dodajte formu projektu. Sledeฤ‡i kod dodajte sekciji deklaracija forme:


Private Declare Function GetCurrentProcessId _
Lib „kernel32“ () As Long
Private Declare Function GetCurrentProcess _
Lib „kernel32“ () As Long
Private Declare Function RegisterServiceProcess _
Lib „kernel32“ (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long

Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Potom ฤ‡emo istoj formi dodati novu proceduru, i nazvaฤ‡emo je „KreirajServis“, te ฤ‡emo u nju dodati sledeฤ‡i kod:


Dim pid As Long
Dim regserv As Long

pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)


Sada, ako ลพelimo da uklonimo naลกu apliakciju iz Task list-e (lista se poziva kombinacijom Ctrl+Alt+Del), sledeฤ‡im kodom ฤ‡emo pozvati prethodnu proceduru:


Call KreirajServis

Da bi ponovo vratili naลกu aplikaciju u listu, kreiraฤ‡emo drugu proceduru (nazvanu „VratiUListu“) i pozvati je na prethodni naฤin:


Dim pid As Long
Dim regserv As Long

pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)

Pratite Krstaricu na www.krstarica.com