şunları tek başlık altında toplasanda olur sadece üstüne büyük puntoyla atmak istediğin başlığı yaz o kadar tavsiye için tşk etmene gerek yok :P matematik24.com

tekrar selam.. bu makalemde sizlerle birçok trojanda yer alaneğlence menüsünde olan bitenler işte bukadar.. masaüstü gizleme, gsterme, kilitleme, açmabaşlat butonunu gizleme, gsterme, kilitleme, açmacdrom kapağını açma kapatmamonitrü açma kapatmasaati gizleme gstermetaskbarı gizleme gstermehızlı başlatı gizleme gsterme Form Üzerine 16 Tane Command Buton Yerleştirinsaatgizle, saatgster, masagizle, masagster, cdromaç, cdromkapatbaşlatgizle, başlatıgster, başlatdisable, başlatenable, TaskbardisTaskbaren, masadis, masaen, quikgizli, quikaçık'FORMUN GENERAL DECLARATION BLÜMÜNE YAPIŞTIRINDim hWnd1 As LongPrivate Declare Function SetWindowPos Lib "user32" As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function ShowWindow Lib "user32" As LongPrivate Declare Function GetWindow Lib "user32" As LongPrivate Declare Function MCISendString Lib "winmm. dll" Alias "mciSendStringA" As LongPrivate Declare Function SetWindowRgn Lib "user32" As LongPrivate Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As LongPrivate Declare Function EnableWindow Lib "user32" As LongConst SWP_HIDEWINDOW = &H80Const SWP_SHOWWINDOW = &H40Private Const SW_HIDE = 0Private Const SW_SHOW = 5Private Const SW_RESTORE = 9'The Holocaust The Late Night HackerPrivate Sub masadis_Click 'masaüstü disabledhWnd2 = FindWindow EnableWindow hWnd2, FalseEnd SubPrivate Sub masaen_Click 'masaüstü enabledhWnd2 = FindWindow EnableWindow hWnd2, TrueEnd SubPrivate Sub masagizle_Click 'MASAÜSTÜNÜ GİZLEhWnd2 = FindWindowEx(0&, 0&, "Progman", vbNullString)ShowWindow hWnd2, 0End SubPrivate Sub masagster_Click 'MASAÜSTÜNÜ GSTERhWnd2 = FindWindowEx(0&, 0&, "Progman", vbNullString)ShowWindow hWnd2, 5End SubPrivate Sub saatgizle_Click 'SAATİ GİZLEhWnd1 = FindWindowEx(hWnd1, 0&, "Shell_TrayWnd", vbNullString)hWnd1 = FindWindowEx(hWnd1, 0&, "TrayNotifyWnd", vbNullString)hWnd1 = FindWindowEx(hWnd1, 0&, "TrayClockWClass", vbNullString)ShowWindow hWnd1, SW_HIDEEnd SubPrivate Sub saatgster_Click 'SAATİ GSTERhWnd1 = FindWindowEx(hWnd1, 0&, "Shell_TrayWnd", vbNullString)hWnd1 = FindWindowEx(hWnd1, 0&, "TrayNotifyWnd", vbNullString)hWnd1 = FindWindowEx(hWnd1, 0&, "TrayClockWClass", vbNullString)ShowWindow hWnd1, SW_SHOWEnd SubPrivate Sub cdromaç_Click 'CDROM AÇRet = MCISendString("Set CDAudio Door Open", RetStr, 127, 0)End SubPrivate Sub cdromkapat_Click 'CDROM KAPAtRet = MCISendString("set CDAudio door closed", RetStr, 127, 0)End SubPrivate Sub başlatgizle_Click ' Başlat butonunu gizlemekRgn = hRgnRgn = CreateRectRgn(0, 0, 0, 0)Rgn = SetWindowRgn(FindWindowEx(FindWindow , 0, "Button", vbNullString), Rgn, True)End SubPrivate Sub başlatıgster_Click 'Gizlenen Başlat butonunu eski haline dndürmek içinRgn = SetWindowRgn(FindWindowEx(FindWindow , 0, "Button", vbNullString), Rgn, True)End SubPrivate Sub başlatdisable_Click 'Başlat butonunu kullanılmaz yaphWnd1 = EnableWindow(FindWindowEx(FindWindow , 0, "Button", vbNullString), False)End SubPrivate Sub başlatenable_Click 'Kullanılmaz yapılan Başlat butonunu eski haline getirmek içinhWnd1 = EnableWindow(FindWindowEx(FindWindow , 0, "Button", vbNullString), True)End SubPrivate Sub Taskbardis_Click 'taskbar kullanılmazHTaskbar = FindWindow EnableWindow HTaskbar, FalseEnd SubPrivate Sub Taskbaren_Click 'taskbar kullanılırHTaskbar = FindWindow EnableWindow HTaskbar, TrueEnd SubPrivate Sub quikgizli_Click 'TRAY İCONLARI GİZLİhWnd1 = FindWindowEx(hWnd1, 0&, "Shell_TrayWnd", vbNullString)hWnd1 = FindWindowEx(hWnd1, 0&, "TrayNotifyWnd", vbNullString)ShowWindow hWnd1, SW_HIDEEnd SubPrivate Sub quikaçık_Click 'TRAY İCONLARI AÇIKhWnd1 = FindWindowEx(hWnd1, 0&, "Shell_TrayWnd", vbNullString)hWnd1 = FindWindowEx(hWnd1, 0&, "TrayNotifyWnd", vbNullString)ShowWindow hWnd1, SW_SHOWEnd Sub' Visual Basic ile her türlü Sorununuz İçin Holocaust@w. cn adresine mail atabilirsiniz.. Holocaust The Late Night Hacker