فکر کنم تقريبا همتون اون ويروس لعنتی را که يه دفعه ظاهر میشه و شما رو دعوت با راه نيک ميکنه و اگه گوش ندين موس رو توی قفس می اندازه  را ديده باشيد .راستش را بخاين منم خيلی دنبالش بودم تا بالاخره تونستم با تحقيق فراوون از اين ور و اون ور اونو برای شما اماده کنم.

البته اين کدا فقط مربوط به mouse cage و يا قفس موسه ولی می تونم بگم اگه مطالب اين وبلاگ رو مرور کنين می تونين خودتون اين ويروسو کامل بنويسين

بريم سراغ کدا

Private Type RECT

    left As Long

    top As Long

    right As Long

    bottom As Long

End Type

Private Type POINT

    x As Long

    y As Long

End Type

Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)

Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)

Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)

Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

Private Sub Form_Load()

 'Limits the Cursor movement to within the form.

    Dim client As RECT

    Dim upperleft As POINT

    'Get information about our wndow

    GetClientRect Me.hWnd, client

    upperleft.x = client.left

    upperleft.y = client.top

    'Convert window co?rdinates to screen co?rdinates

    ClientToScreen Me.hWnd, upperleft

    'move our rectangle

    OffsetRect client, upperleft.x, upperleft.y

    'limit the cursor movement

    ClipCursor client

    Command1.Caption = " disable"

End Sub

Private Sub Command1_Click()

    'Releases the cursor limits

    ClipCursor ByVal 0&

End Sub

Private Sub Form_Unload(Cancel As Integer)

    'Releases the cursor limits

    ClipCursor ByVal 0&

End Sub

و اما توضيح برنامه:

است. کاراین تابع اینه که نشانگر موس را در ClipCursor دوستان اساس اين برنامه بر پايه تابعی بنام

یک مستطیل محبوس میکنه

ما در پاراگرافهای اول این مستطيل رو فرم خودمون در نظر گرفتيم و این و سرانجام در رویداد کلید 1کدهایی که سبب وغیر فعال شدن برنامه میشن رو قرار میدیم تا خودتون گیر نیفتین .(البته اگه خواستين از این برنامه بعنوان ویروس استفاده کنین کلید 1 نا مرئی کنين)

البته گفتنیه که اگه تابع به مشکل بر بوخوره عدد 0 رو بر میگردونه که ما با همین روش کلید 1 را برای غیر فعال سازی برنامه طراحی میکنیم در واقع با فشردن کلید 1 به تابع عدد 0 رو نسبت داده و برنامه رو غیر فعال می کنیم.

یادتون نره ویروستون نیاز به کلید داره

حالتان خوبه اميوارم كه تو اين شبهاي قدر ما را هم دعا كرده باشيد.

به مد پرستان بگوييد        آخرين مدتان كغن است

                          يا حق

سلام سلام سلام

حال شما احوال شما خوبيد شما قربون شما

بابا خييييييييييييللللللللللييييييييييييييي با حاااااللللللللييييييييدددددددد

مگر نميدونيد كه نظر دادن به وبلاگ  براي وبلاگ نويس (چه مبتدي ـ يعني خودم ـ و چه حرفهاي) از نون شب هم واجب تره. پس هر چه زودتر نظر بدهيد.