folder Tahribat.com Forumları
linefolder Visual Basic - Basic - PicBasic ve Türevleri
linefolder Visual Basic Te Masaüstü, Saat, Başlat, Taskbar Gizleyip Gösterme



Visual Basic Te Masaüstü, Saat, Başlat, Taskbar Gizleyip Gösterme

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    holocaust
    holocaust's avatar
    Kayıt Tarihi: 11/Eylül/2005
    Erkek
    tekrar selam.. bu makalemde sizlerle birçok trojanda yer alan
    eğlence menüsünde olan bitenler işte bukadar..
    masaüstü gizleme, gösterme, kilitleme, açma
    başlat butonunu gizleme, gösterme, kilitleme, açma
    cdrom kapağını açma kapatma
    monitörü açma kapatma
    saati gizleme gösterme
    taskbarı gizleme gösterme
    hızlı başlatı gizleme gösterme

    Form Üzerine 16 Tane Command Buton Yerleştirin

    saatgizle,saatgöster,masagizle,masagöster,cdromaç,cdromkapat
    başlatgizle,başlatıgöster,başlatdisable,başlatenable,Taskbardis
    Taskbaren,masadis,masaen,quikgizli,quikaçık

    'FORMUN GENERAL DECLARATION BÖLÜMÜNE YAPIŞTIRIN
    Dim hWnd1 As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    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 ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
    Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
    Private Declare Function MCISendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
    Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
    Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
    Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long
    Const SWP_HIDEWINDOW = &H80
    Const SWP_SHOWWINDOW = &H40
    Private Const SW_HIDE = 0
    Private Const SW_SHOW = 5
    Private Const SW_RESTORE = 9
    'The Holocaust The Late Night Hacker
    Private Sub masadis_Click()
    'masaüstü disabled
    hWnd2 = FindWindow("Progman", vbNullString)
    EnableWindow hWnd2, False
    End Sub
    Private Sub masaen_Click()
    'masaüstü enabled
    hWnd2 = FindWindow("Progman", vbNullString)
    EnableWindow hWnd2, True
    End Sub
    Private Sub masagizle_Click()
    'MASAÜSTÜNÜ GİZLE
    hWnd2 = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hWnd2, 0
    End Sub
    Private Sub masagöster_Click()
    'MASAÜSTÜNÜ GÖSTER
    hWnd2 = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hWnd2, 5
    End Sub
    Private Sub saatgizle_Click()
    'SAATİ GİZLE
    hWnd1 = FindWindowEx(hWnd1, 0&, "Shell_TrayWnd", vbNullString)
    hWnd1 = FindWindowEx(hWnd1, 0&, "TrayNotifyWnd", vbNullString)
    hWnd1 = FindWindowEx(hWnd1, 0&, "TrayClockWClass", vbNullString)
    ShowWindow hWnd1, SW_HIDE
    End Sub
    Private Sub saatgöster_Click()
    'SAATİ GÖSTER
    hWnd1 = FindWindowEx(hWnd1, 0&, "Shell_TrayWnd", vbNullString)
    hWnd1 = FindWindowEx(hWnd1, 0&, "TrayNotifyWnd", vbNullString)
    hWnd1 = FindWindowEx(hWnd1, 0&, "TrayClockWClass", vbNullString)
    ShowWindow hWnd1, SW_SHOW
    End Sub
    Private Sub cdromaç_Click()
    'CDROM AÇ
    Ret = MCISendString("Set CDAudio Door Open", RetStr, 127, 0)
    End Sub
    Private Sub cdromkapat_Click()
    'CDROM KAPAt
    Ret = MCISendString("set CDAudio door closed", RetStr, 127, 0)
    End Sub
    Private Sub başlatgizle_Click()
    ' Başlat butonunu gizlemek
    Rgn = hRgn
    Rgn = CreateRectRgn(0, 0, 0, 0)
    Rgn = SetWindowRgn(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), Rgn, True)
    End Sub
    Private Sub başlatıgöster_Click()
    'Gizlenen Başlat butonunu eski haline döndürmek için
    Rgn = SetWindowRgn(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), Rgn, True)
    End Sub
    Private Sub başlatdisable_Click()
    'Başlat butonunu kullanılmaz yap
    hWnd1 = EnableWindow(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), False)
    End Sub
    Private Sub başlatenable_Click()
    'Kullanılmaz yapılan Başlat butonunu eski haline getirmek için
    hWnd1 = EnableWindow(FindWindowEx(FindWindow("Shell_TrayWnd", vbNullString), 0, "Button", vbNullString), True)
    End Sub
    Private Sub Taskbardis_Click()
    'taskbar kullanılmaz
    HTaskbar = FindWindow("Shell_TrayWnd", vbNullString)
    EnableWindow HTaskbar, False
    End Sub
    Private Sub Taskbaren_Click()
    'taskbar kullanılır
    HTaskbar = FindWindow("Shell_TrayWnd", vbNullString)
    EnableWindow HTaskbar, True
    End Sub
    Private Sub quikgizli_Click()
    'TRAY İCONLARI GİZLİ
    hWnd1 = FindWindowEx(hWnd1, 0&, "Shell_TrayWnd", vbNullString)
    hWnd1 = FindWindowEx(hWnd1, 0&, "TrayNotifyWnd", vbNullString)
    ShowWindow hWnd1, SW_HIDE
    End Sub
    Private Sub quikaçık_Click()
    'TRAY İCONLARI AÇIK
    hWnd1 = FindWindowEx(hWnd1, 0&, "Shell_TrayWnd", vbNullString)
    hWnd1 = FindWindowEx(hWnd1, 0&, "TrayNotifyWnd", vbNullString)
    ShowWindow hWnd1, SW_SHOW
    End Sub
    ' Visual Basic ile her türlü Sorununuz İçin Holocaust@w.cn adresine mail atabilirsiniz..
    Holocaust The Late Night Hacker
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    HeYeT
    HeYeT's avatar
    Kayıt Tarihi: 03/Ocak/2006
    Erkek
    ş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
    Reply With Quote Alıntı yap
Toplam Hit: 3206 Toplam Mesaj: 2