IranTeaM [IB] Attrib Changer 2

اختصاصی از فی لوو IranTeaM [IB] Attrib Changer 2 دانلود با لینک مستقیم و پر سرعت .

شاید خیلی از شما دچار ویروسی به نامه :
NewFolder.exe شده باشید (آیکون اون معمولا شبیه آیکون پوشه و پسوند اون هم .exe)
کاره این ویروس چیه؟

میاد اول از همه Folder Option رو غیر فعال میکنه یا چه جوری بگم میاد آیتم Folder Option رو از قسمت
Tools در نوار منو حذف میکنه تا دیگه نتونیم به راحتی فایل های مخفی رو نمایش بدیم ,Task Manager رو قفل میکنه و اجازه دسترسی به اون رو ازمون میگیره تا نتونیم برنامه رو End Task کنیم ! کرم های زیادی میریزه
از جمله آسیب های جدی اون اینه که آنتی رو غیر فعال میکنه,خودش رو همه جا کپی میکنه,از همه مهم تر همه اطلاعات سیستم تون رو مخفی میکنه
حالا هدف من از طراحی این برنامه این بود که وقتی سیستم دچار همچین ویروسی شد بتونیم اطلاعاتمون رو :
Normal,ReadOnly,... بکنیم !

زبان برنامه نویسی شده : ویژوال بیسیک 6
موفق و سربلند باشید !

کدهای بازی سه بعدی ویژوال بیسیک 6

اختصاصی از فی لوو کدهای بازی سه بعدی ویژوال بیسیک 6 دانلود با لینک مستقیم و پر سرعت .

یه بازی تفنگی باحال برا برنامه نویسای ویژوال بیسیک 6 حتما خوشتون میاد اگه مشکلی داشتید این ایمیل منه [e-mail]  این هم قسمتی از سورس کدهای برنامه

Private Sub Shoot()
    On Error Resume Next
    Bullits = Bullits - 1
    Tmp = PlaySound("Fire.wav", 1, 1)
    Select Case Dir
    Case 1
    For Cnt = 0 To 9
        Tmp = Right$(Left$(Rows(R - Cnt), C), 1)
        If Val(Tmp) >= 5 And Val(Tmp) <= 7 Then
            Rows(R - Cnt) = Left$(Rows(R - Cnt), C - 1) & "0" & Right$(Rows(R - Cnt), 12 - C)
            Tmp = PlaySound("Kill.wav", 1, 1)
        End If
    Next Cnt
    Case 2