سلام به تمام دوستان گرامی با عرض پوزش به خاطر غیبت چند ماهه.
سورس ویروس آماده شد به خاطر طولانی شدنش عذر میخوام.

آموزش ساخت فایلهای .RES (لود کردن هر فایلی تو برنامه)

پخش مستقیم آهنگ از رادیو

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

خب حالا برای اینکار کافیه این آدرس رو (mms://69.72.217.50/pmc) تو قسمت آدرس بار اینترنت اکسپلورر کپی کنید و اینتر کنید. بعد از چند ثانیه باید ویندوز مدیا پلیر اجرا بشه و شروع به پخش آهنگها به صورت آنلاین کنه.

توجه : چون آهنگها به صورت فشرده هستند به راحتی قابل پخش بوده و با خطوط پر سرعت هیچ گونه مشکلی برای پخش نخواهید داشت.

ایتم چند لینک دیگه برای پخش آنلاین موسیقی و رادیو. این سایت ها ایرانی هستند یعنی موسیقی ایرانی پحش میکنن.

PB Radio [24 kbps]

PB Radio [96 kbps]

PMC رادیو

رادیو زمانه

PB Rap Radio [PersianRap Only]

Radio France Persian

نظــــر بدیــــد...

کتاب های الکترونیکی

سلام دوستان امروز براتون چند تا کتاب آموزشی دارم.

آموزش ویژوال بیسیک (خودم) دانلود (۳۳۹ کیلو بایت)

آموزش PHP فارسی دانلود (۱۳۷۲ کیلو بایت)

آموزش جاوا اسکریپت دانلود (۴۸۸ کیلو بایت)

و آموزش C شارپ به صورت کامل (مرجع کامل سی شارپ C# Full)

به علت حجم زیاد فایل رو به ۹ قسمت یک و نیم مگابایتی در آوردم تا با اینترنت دیال آپ هم به راحتی دانلود بشه. حجم فایل کامل ۱۲ مگابایت بود.

دانلود قسمت ۱

دانلود قسمت ۲

دانلود قسمت ۳

دانلود قسمت ۴

دانلود قسمت ۵

دانلود قسمت ۶

دانلود قمست ۷

دانلود قسمت ۸

دانلود قسمت ۹

بعد از دانلود همه فایلها، تمام فایلها رو انتخاب کنید (Select All) و راست کلیک کرده و گزینه Extract Here رو بزنید تا فایلها به طور کامل استخراج بشن. موفق باشید.

نظــــر بدیــــد...

دعوتنامه پرشین گیگ

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

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

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

سورس برنامه های خودم

سورس تبدیل عدد به حروف تا ۴۸ رقم ( ۲ کیلو بایت)
دانلود

سورس طیف رنگها (۳۱ کیلو بایت)
دانلود

سورس برنامه Paint بسیار پیشرفته (۴۷ کیلو بایت)
دانلود

سورس ویروس با آنتی ویروسش (۵۹ کیلو بایت)
دانلود

سورس برنامه Timer جهت خاموش کردن کامپوتر در موعد مقرر (۳۵۶ کیلو بایت)
دانلود

سورس برنامه دفتر تلفن پیشرفته با امکانات فوق العاده مثل داشتن قسمت تنظیمات (3860 کیلو بایت) سورس برنامه تصحیح شد. یک فایل ocx کم داشت.
دانلود

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

نظــــر بدیــــد...

پر كردن فضاهای خالی با رنگ مورد نظر (API)

حالا این كه گفتم چی هست؟ مثلاً یه دایره رو در نظر بگیرید كه توش خالیه و میخوایم توشو با رنگ آبی پر كنیم، اینجاست كه این تابع به دردمون میخوره. این تابع بیشتر بدرد بچه های سوم كامپیوتر كه میخوان برنامه Paint بسازن میخوره.

بقیه آموزش در ادامه مطلب...

Stretch کردن تصاویر در PictureBox و Form (برای گذاشتن اسكین بسیار مفیده)

درسته كه PictureBox خاصیت Strerch نداره ولی كد نویسی رو برای چی گذاشتن. شما میتونید با استفاده از كد زیر تصویر را در PictureBox به صورت Strerch در بیارید. اینكار با متد PaintPicture انجام میشه.

یك پروژه جدید باز كنید و یك PictureBox به فرمتون اضافه كنید و كد زیر رو تو قسمت جنرال فرمتون كپی كنید :

Private Sub Form_Load()
    Picture1.AutoRedraw = True
    Picture1.PaintPicture Picture1.Picture, 0, 0, Picture1.Width, Picture1.Height
End Sub

حالا تو Picture1 یك عكس قرار بدید (انداره عكس مهم نیست) و برنامه رو اجزا كنید و ببینید كه Picture1 به چه زیبایی Stretch شده. همین كارو برای فرمتون هم میتونید انجام بدید.

كد زیر رو به جای كد بالا تو قسمت جنرال فرمتون كپی كنید :

Private Sub Form_Load()
    Me.AutoRedraw = True
    Picture1.Visible = False
End Sub

Private Sub Form_Resize()
    Me.PaintPicture Picture1.Picture, 0, 0, Me.Width, Me.Height
End Sub

حالا اگه برنامتون رو اجرا كنید میبینید با تغییر اندازه فرمتون اندازه پس زمینه فرم هم تغییر مینكنه و این خیلی به نفع شماست. موفق باشید.

نظــــر بدیــــد...

طیف رنگها (بسیار زیبا)

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

من برای نوشتن این كد و بدست آوردن راهی برای تاریك یا روشن شدن رنگها چیزی حدود 10 تا 15 ساعت وقت گذاشتم و شكر خدا بالاخره تونستم راه حلش رو بدست بیارم. اونچه كه برای من سخت و دشوار بود طیف تمام رنگهای پر رنگ به تاریك (چپ كلیك درون فرم) و همچنین طیف تمام رنگهای پر رنگ به روشن (راست كلیك) بود. یعنی هر چی كه به سمت پایین فرم میاییم رنگها تیره تر یا روشن تر بشن. اینم چیزه ساده ای به نظر میرسه امّا اینطور نیست. حالا ممكنه با یك نگاه به كد زیر بگید: بابا اینكه دیگه كاری نداره كه...! بلــــــه معمّا چون حل شود آسان شود.

بقیه آموزش در ادمه مطلب...

تغییر روشنایی تصویر

شما میتونید تصاویرتون رو روشن و یا تاریک تر از اون چیزی که هستن بکنید.

اینكار با استفاده از آموزش"بدست آوردن كد RGB رنگ مورد نظر" انجام میشه به اینصورت كه رنگ هر پیكسل رو بدست آورده و به هر یك از رنگهای قرمز، سبز و آبی عددی رو اضافه میكنیم تا رنگش روشن‌تر بشه. بعد از این كار، رنگ بدست اومده رو دقیقاً روی همون پیكسل ترسیم میكنیم.

بقیه آموزش در ادامه مطلب...

بدست آوردن كد RGB  رنگ مورد نظر

یك پروژه جدید باز كنید و یك شی CommonDialog از قسمت Components ها به فرمتون اضافه كنید و كد زیر رو تو قسمت جنرال فرمتون كپی كنید :

Private Sub Form_Click()
    CommonDialog1.ShowColor
    Red = ConvertToRGB(CommonDialog1.Color, 0)
    Green = ConvertToRGB(CommonDialog1.Color, 1)
    Blue = ConvertToRGB(CommonDialog1.Color, 2)
    Me.Cls
    Print "R = " & Red
    Print "G = " & Green
    Print "B = " & Blue
End Sub

Private Sub Form_Load()
    Me.AutoRedraw = True
    CommonDialog1.Flags = 2
End Sub

'----------------------------------

Public Function ConvertToRGB(ByVal Colors As Long, ByVal Index As Integer) As Long
    Dim Red As Integer, Green As Integer, Blue As Integer
    Dim lngColor As Long
   
    lngColor = Colors
    Red = lngColor Mod &H100 ' &H100 = 256
    Green = (lngColor \ &H100) Mod &H100
    Blue = lngColor \ &H10000 ' &H10000 = 65536 = (256*256)
   
    If Index = 0 Then ConvertToRGB = Red
    If Index = 1 Then ConvertToRGB = Green
    If Index = 2 Then ConvertToRGB = Blue
End Function

حالا برنامتون رو اجرا كنید و روی فرمتون كلیك كنید و از جعبه رنگی كه ظاهر میشه یك رنگ انتخاب كنید و OK كنید تا كد RGB رنگ رو تو فرمتون ببینید. موفق باشید.

درگ کردن فرم به وسیله یك كنترل (بهترین روش)

اینکار که با توابع API به روش ویندوز انجام میشه، بهترین، مطمئن ترین، ساده ترین و سریع ترین روش برای درگ (Drag) کردنه فرمه. در ضمن در این روش بوسیله یک کنترل هم میشه فرم رو درگ کرد.

یک پروژه جدید باز کنید و توش یک Command Button و یک Label بذارید و کد زیر رو قسمت جنرال فرمتون کپی کنید :

Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lngReturnValue As Long

    If Button = 1 Then
        Call ReleaseCapture
        lngReturnValue = SendMessage(Me.hWnd, &HA1, 2, 0&)
    End If
End Sub

حالا یک بار بوسیله Label و یک بار هم بوسیله Command Button سعی کنید فرمتون رو درگ کنید. اگه بخواید بوسیله Label هم درگ بشه میتونید از کد داخل رویداد Command1_MouseMove برای رویداد Label1_MouseMove استفاده کنید به همین سادگی. موفق باشید.

نظــــر بدیــــد...

اعمال مشخصه RightToLeft به کنترلهایی که فاقد این مشخصه اند

در این روش شما میتونید به هر کنترلی این مشخصه رو اعمال کنید، حتی کنترلهایی که فاقد این مشخصه هستند مثل DirListBox به صورت از راست به چپ در میان. درضمن اگه با فرمتون اینکارو بکنید میبینید که واقعاً به صورت از راست به چپ درمیاد یعنی دکمه Close، Minimize و Maximize از سمت راست فرم به سمت چپ فرم انتقال پیدا میکنن.

یک پروژه جدید باز کنید و یک DirListBox به فرمتون اضافه کنید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Sub Form_Load()
    SetWindowLong Me.hWnd, -20, GetWindowLong(Me.hWnd, -20) Or &H400000
    SetWindowLong Dir1.hWnd, -20, GetWindowLong(Dir1.hWnd, -20) Or &H400000
End Sub

حالا برنامه رو اجرا کنید و شاهد تغییراتی که در حالت معمولی غیر ممکن بودن باشید. موفق باشید.

نظــــر بدیــــد...

قرار دادن فرم بر روی تمام پنجره ها (حالت Always On Top برای فرم)

با این کد فرم شما بر روی همه پنجره های قرار میگیره، مانند Windows Task Manager که همیشه رو قرار میگیره.

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

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Sub SetTopMost(frm As Form, ByVal blnMod As Boolean)
    If blnMod Then
        SetWindowPos frm.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    Else
        SetWindowPos frm.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End If
End Sub

Private Sub Check1_Click()
    Call SetTopMost(Me, Check1.Value)
End Sub

با علامت دار کردن CheckBox فرم همیشه رو قرار میگیره و با برداشتن علامت فرم به حالت عادی برمیگرده. موفق باشید.

قفل کردن تمام ورودی ها مثل Keyboard و Mouse

این کار با تابع BlockInput انجام میشه و تمام ورودیهای کامپیوتر رو قفل میکنه. توجه داشته باشید که سیستم عامل هنگ نمیکنه و به کار خودش ادامه میده امّا شما نمیتونید هیچ کاری انجام بدید به جز Restart کردن.

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

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()
    BlockInput True
    Sleep 5000
    BlockInput False
End Sub

به محض شروع برنامه، تمام وروردیها به مدّت 5 ثانیه قفل میشن و بعد از اون دوباره به حالت اول برمیگردن. در اینجا تابع Sleep فقط برای اتلاف وقت به کار رفته و استفاده دیگه ای نداره. موفق باشید.

شفاف کردن فرم به صورت شیشه ای و مات

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

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()
    Dim Retval As Long
    Retval = GetWindowLong(hWnd, -20)
    Retval = Retval Or 524288
    SetWindowLong hWnd, -20, Retval
    SetLayeredWindowAttributes hWnd, 0, Val(Text1.Text), 2
End Sub

Private Sub Form_Load()
    Text1.Text = 100
    Command1_Click
End Sub

تو TextBox یک عدد از 0 تا 255 وارد کنید و کلید Command1 رو بزنید و شاهد شفاف شدن فرم باشید. فقط توجه داشته باشید که اگه از اعداد پایین مثل 1 استفاده کنید فرمتون تقریباً نامرئی میشه پس بهتون پیشنهاد میکنم تا حد امکان از اعداد بالای 50 استقاده کنید. موفق باشید.

نامرئی کردن قسمتهای اضافی فرم (برای گذاشتن اسکین خوبه)

این کد خیلی کاربردیه، حتماً به دردتون مبخوره. این کد باعث میشه که گوشه ها و قسمتهای اضافی فرم حذف بشه و فقط جاهایی که شما میخواید، قابل رویت باشه. مانند اسکین های Windows Media Player که بسیار زیباست.

یک پروژه جدید باز کنید و داخل فرمتون یک شئ Shape بذارید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :

Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Const LWA_COLORKEY = &H1
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
Const BM_SETSTATE = &HF3

Private Sub Form_Load()
    Dim Ret As Long
    Dim CLR As Long
    Me.BackColor = RGB(1, 1, 1)  ' تعیین رنگ پس زمینه فرم
    CLR = Me.BackColor
    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
    SetLayeredWindowAttributes Me.hWnd, CLR, 0, LWA_COLORKEY
End Sub

طرز کار : قسمتهای مشکی رنگ فرم رو حذف میکنه به همین سادگی حالا اگه بر حسب اتفاق شما مجبورید که از رنگ مشکی به عنوان پس زمینه فرمتون استفاده کنید باید در اون قسمتی که رنگ پس زمینه فرم تعیین میشه (به کد نگاه کنید) رنگ سفبد رو تعیین کنید یعنی Me.BackColor = RGB (255, 255, 255) به همین سادگی. در واقع این کد رنگی رو که شما تعیین میکنید رو از هر جای فرم حذف میکنه حتی اگه اون رنگ در وسط فرم باشه که در این صورت وسط فرم خالی میشه و هر چیزی که در پشت فرم قرار داره رو میشه از اون سوراخ دید. موفق باشید.

بستن برنامه ها یا همون End Task کردن برنامه ها

براین بستن برنامه ها باید بدونید که عنوان (Title) برنامه چیه. مثلاً عنوان برنامه ماشین حساب Calculator هستش و عنوان برنامه Task Manager هست .Windows Task Manager در واقع این قطعه کد هر برنامه ای رو از روی عنوان اون میبنده.

یک پروژه جدید باز کنید و تو فرمتون یک Command Button و یک TextBox بذارید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub CloseProgram(ByVal Caption As String)
    On Error Resume Next
    Handle = FindWindow(vbNullString, Caption)
    If Handle = 0 Then Exit Sub
    SendMessage Handle, &H10, 0&, 0&
End Sub

Private Sub Command1_Click()
    Call CloseProgram(Text1.Text)
End Sub

حالا برنامه رو اجرا کنید، بعد برنامه Task Manager رو اجرا کنید (Alt + Ctrl + Del) و تو TextBox تایپ کنید Windows Task Manager و کلید Command1 رو بزنید، میبینید که برنامه Task Manager بسته شد، به همین سادگی. موفق باشید.

تعویض کلیک چپ و راست موس

یک پروژه جدید باز کنید و تو فرمتون یک Command Button و دو تا Option Button بزارید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :

Private Declare Function SwapMouseButton Lib "User32" (ByVal bSwap As Long) As Long

Private Sub Command1_Click()
    Call SwapMouseButton(Option1.Value)
End Sub

Private Sub Form_Load()
    Option1.Caption = "Right"
    Option2.Caption = "Left"
End Sub

حالا برنامه رو اجرا کنید و با کلیک روی Option Button ها و بعد کلیک روی Command1 جای کلیک چپ و راست موس رو عوض کنید. به همین سادگی. موفق باشید.

قرار دادن برنامه در Startup

برای اینکار دو روش وجود داره؛ روش اول اینه که برنامه رو در پوشه Startup کپی کنیم که روش جالبی نیست چون کاربر میتونه بره به اون پوشه و فایل رو پاک کنه و امّا روش دوّم (قابل توجّه ویروس نویسا) اینه که برنامه رو تو لیست برنامه های Startup در رجیستری ذخیره کنیم که روش مطمئن و بهتریه چون کاربر نمیدونه برنامه کجا قرار داره و از کجا اجرا میشه مگر اینکه از طریق رجیستری و یا برنامه System Configuration Utility (تایپ msconfig در Run ویندوز) متوجه مسیر برنامه بشه که خب خوشبختانه همه اینکارو بلد نیستن.

بقیه آموزش در ادامه مطلب...

پخش فایلهای MP3 با برنامه شما (کد اصلی)

اصل کدش رو از تو یه سورسه آماده جدا کردم و برای شما عزیزان گذاشتم تا نظرای خوب خوب بدید.

بقیه آموزش در ادامه مطلب...

امکان شماره گیری تلفن با برنامه شما

اینکار خیلی آسونه. یک پروژه جدید باز کنید و تو فرمتون یک Command Button و یک TextBox بذارید و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Private Sub Command1_Click()
    tapiRequestMakeCall Text1.Text, "", "", ""
End Sub

حالا برنامه رو اجرا کنید و تو TextBox شماره تلفن رو وارد کنید و کلید Command1 رو بزنید، میبینید که شماره گیری توسط خود ویندوز انجام میشه و احتیاجی نیست که شما کاری انجام بدید. موفق باشید.

بدست آوردن آدرس بار در My Computer (منبع : برنامه نویس)

كدی كه شاید خیلی از شما دوستان دنبالش هستید و من خودمم خیلی وقت بود كه دنبالش میگشتم، بدست آوردن آدرس بار در My Computer هست یعنی كاریر داخل هر درایو و یا پوشه ای كه میشه، برنامه ما متوجه اون مسیر بشه. من این برنامه رو از سایت برنامه نویس گرفتم كه یكی از دوستان ارجمند سایت زحمتش رو كشیده بودن و چون دیدم خیلی به درد بخور و كاربردیه برای استفاده گذاشتمش تو وبلاگ. امیدوارم كه استفاده مفیدی ازش بكنید (برای نوشتن ویروس ازش استفاده نكنید).

بقیه آموزش در ادامه مطلب...

آموزش ساخت یک ویروس قوی و آزار دهنده

اخطار : این وبلاگ هیچگونه مسئولیتی در قبال استفاده های ناهنجار و مخرب از آموزشهای این بخش را نخواهد پذیرفت و مسئولیت استفاده از مطالب این بخش از وبلاگ فقط با شماست. مطالب این بخش از وبلاگ مختص کسانی است که قصد یادگیری و درک طرز کار ویروس ها را دارند خواهد بود. توصیه میشود مطالب این بخش را فقط برای یادگیری هر چه بهتر ویژوال بیسیک مطالعه نمایید و از سو استفاده های غیر اخلاقی و آزار و اذیت، جدّاً خودداری نمایید.

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

خب الوعده وفا. اینم آموزش ساخت ویروسی که قولشو داده بودم، یک ویروس خطرناک.

درباره ویروس : خرابکاری های این ویروس عبارت اند از :

1-       اعمال محدودیت های زیر از طریق رجیستری :

غیر فعال کردن رجیستری (DisableRegEdit)
غیر فعال کردن Task Manager (DisableTaskManager)
غیر فعال کردن تنظیمات صفحه نمایش (DisableDisplayProperties)
غیر فعال کردن Shutdown (DisableShutdown)
غیر فعال کردن جستجو (DisableSearch)
غیر فعال کردن System Properties (DisableMyComputerProperties)
غیر فعال کردن Run (DisableRun)
ناپدید کردن All Programs از منوی Start (DisableAllPrograms)
مخفی کردن درایو C: (HideDrive_C)
غیر فعال کردن کنترل پنل (DisableControlPanel)
غیر فعال کردن Folder Options (DisableFolderOption)
محدود کردن نمایش فایلهای مخفی (DontShowHiddenFiles)
محدود کردن نمایش فایلهای ابر مخفی (DontShowSuperHiddenFiles)
غیر فعال کردن Add/Remove (DisableAddRemove)
تغییر نام و کمپانی کامپیوتر (ChangeNameAndCompanyName)

2-       تغییر دادن کلیک چپ و راست ماوس هر چند لحظه یک بار از طریق توابع API

3-       اجرا شدن خودکار ویروس موقع باز کردن درایوها با استفاده از فایل Autorun.inf

ویروس جالبی به نظر میرسه چون کاربر رو خیلی محدود میکنه و باعث میشه که کاربر راهی جز تعویض ویندوز نداشته باشه.

بقیه آموزش در ادامه مطلب...

ساخت آنتی ویروس (برنامه ای كه بتونه اون ویروس لعنتی رو از بین ببره)

طی درخواستهای مكرر دوستان تصمیم گفتم بالاخره آموزش ساخت آنتی ویروس رو هم بنویسم در چه ضرورتی برای اینكار نمیبینم. وقتی كسی بدونه چطور ویروس رو درست كرده خوب مسلماً میدونه كه چطور خنثی كنش.

قبل از آموزش ساخت آنتی ویروس باید این توضیحات رو بخونید:
این آنتی ویروس نیست بلكه یك نرم افزاره كه طبق دستورات داده شده برنامه رو پاك میكنه. مثلاً اول از همه برنامه رو از حافظه خارج میكنه (End task) و بعد از اون برنامه رو از Run رجیستری حذف میكنه و به همین صورت همه خرابكاری ها رو به حالت اولش بر میگردونه. مثلاً اگه تو رجیستری كلید NoClose رو با عدد 1 مقدار دهی كرده بود (1=Disable, 0=Enable) حالا برای درست كردنش، با عدد 0 مقدار دهی میكنه، همین.

بقیه آموزش در ادامه مطلب...

دادن تم ویندوز به برنامه (XP، Vista، و …)

اینكار نه با توبع API و نه با كد نویسی امكان پذبر نیست چون محیط ویژوال بیسیك، محیط ویندوز 98 هست یعنی ذاتش ماله 98 و ویندوزهای قدیمیه ولی با استفاده از كدهای XML كه ربطی به وبلاگ من و مبحس ما نداره میشه یه كارایی كرد. از اسم XML حول نكنید هــا… فقط كافیه اونا رو همون طور كه در زیر نوشتم كپی كنید.

یعنی چی…؟

ببینید شما اولین كاری كه باید بكنید اینه كه برنامه Notepad رو باز كنید بعد كد زیر رو توش كپی كنید و برنامه رو با نام x.exe.MANIFEST ذخیره كنید. (x همون نام برنامتونه)

مثلاً فرض مكنیم فایل برنامه شما اسمش هست Project1.exe ، پس شما باید كدهای زیر رو توی Notepad كپی كنید و با نام Project1.exe.MANIFEST ذخیره كنید و فایل ذخیره شده (MANIFEST) رو در كنار فایل اجرایی تون قرار بدید و برنامتون رو اجرا كنید.

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
    version="1.0.0.0"
    processorArchitecture="X86"
    name="Name"
    type="win32"
/>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="X86"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>
</assembly>

به جای قسمتی كه پر رنگ شده (Name) نام برنامتون رو قرار بدید.

اما كارمون تموم نشده. مطمئناً اونقدر عجله داشتید كه تا اینجای آموزش رو نخوندید و رفتید سره وقته… حالا كه دیدید برنامه اجرا نمیشه (پیغام خطا میده) اومدید ادامه آموزش رو بخونید. بلــــــــه پیغام خطا میده، بچه بازی كه نیست…!

حالا چه كار كنیم كه پیغام خطا نده؟

آهـــــــا… ، اول پروژه برنامتون رو باز كنید (.vbp). حالا از منوی Project گزینه Components… رو انتخاب كنید و Microsoft Windows Common Control 5.0 رو علامت بزنید تا به پروژتون اضافه بشه. حالا یكی از كنترلهای اونو مثلاً StatusBar و یا كنترل ProgressBar رو به فرمی كه در اول اجرای برنامه نمایش داده میشه اضافه كنید. مثلاً اگر برنامه شما با Splash Screen شروع میشه باید یكی از این كنترلها رو درون فرمتون قرار بدید (Progress Bar بهتره) ولی اگه برناتون تنها یك فرم داره (فرم اصلی) باید یكی از این كنترلها رو به همون فرم اضافه كنید. توجه داشته باشید كه اینكار ضروریه. بعد از اینكار از برنامتون یك فایل اجرایی بگیرید و دوباره فایلش رو اجرا كنید. موفق باشید.

ثبت تنظیمات و اطّلاعات برنامه در رجیستری

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

یک پروژه جدید باز کنید و یک Command Button و یک TextBox بذارید تو فرمتون و کد زیر رو تو قسمت جنرال فرمتون کپی کنید :

Private Sub Command1_Click()
    SaveSetting App.Title, "Setting", "Value", Text1.Text
End Sub

Private Sub Form_Load()
    Text1.Text = GetSetting(App.Title, "Setting", "Value", "Hello")
End Sub

برنامه رو اجرا کنید و هر چی دلتون میخواد تو TextBox وارد کنید و بعد کلید Command1 رو بزنید و از برنامه خارج بشید. حالا اگه دوباره برنامه رو اجرا کنید میبینید متنی که دفعه قبل وارد کرده بودید سره جاشه و پاک نشده !

اختصاص پسوند فایلها به برنامه (مبحث مهم)

خوب اول بذارید با یه مقدمه درس رو شروع کنم تا مطلب رو بهتر بگیرید، شما ها همتون خوب میدونید که وقتی روی یک تصویر (Jpeg یا bmp یا GIF و یا غیره) دوبار کلیک می کنید نرم افزار Preview که مخصوص ویندوزه اجرا میشه و تصویر رو نشون میده.

حالا ما میخوایم بدونیم که چطوری این اتفاق میفته؟ یعنی اگه ما بخوایم یک نرم افزار مثل Preview یا Notepad بسازیم که با دوبار کلیک روی فایل، برنامه ما به اجرا در بیاد، باید چه کار کنیم؟

بقیه آموزش در ادامه مطلب...

تبدیل تاریخ میلادی به تاریخ شمسی

خیلی از شما دوستان دنبال این کد هستید ولی پیدا نمیکنید، حق دارید پیدا نکنید چون این کد اون قدر طولانیه که هیچ کسی اونو تو وبلاگش نمیذاره. در ضمن من این کد رو خودم ننوشتم بلکه از اینترنت گرفتم ولی متأسفانه یادم نمیاد اسم سایتش چی بود امیدوارم که منو حلال کنه.

بقیه آموزش در ادامه مطلب...