RSS  

من خیلی وقته به دلیل مشغله کاری + درس های دانشگاه نمیتونم به این وبلاگ برسم  .

اگه نظری چیزی تو این وبلاگ گذاشتید و من نتونستم جواب سوالات شمارو بدم دیگه به بزرگی خودتون ببخشید

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

www.itjoo.com

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

دانلود web spy v2.0

اميد وارم اين وبلاگ من براتون مفيد واقع شود

نظر يادتون نره

اول دوتا command v رو وارد برنامه کنید. command1,command2 

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

Private Sub Command1_Click

Shell "shutdown -s -t 60 "

End Sub

Private Sub Command2_Click

Shell "shutdown -a"

End Sub 

با کلیک روی command1 ویروس اجرا میشه و با کلیک روی command2 ویروس غیر فعال میشه.  

کار این ویروس (در هر ثانیه یک پوشه ایجاد میکند.)

اینجا ما فقط به یک تایمر و یک فرم نیاز داریم

timer interval=200

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

۹۸۵ پروژه برنامه نویسی ویژوال بیسیک با حجم ۹۷ مگابایت

در این پست،مجموعه ای شامل ۹۸۵ سورس کد ویژوال بیسیک ۶ ( Visual Basic 6.0) که توسط شرکت مایکروسافت (Microsoft) از بین چندین سورس ریز و درشت ارسالی انتخاب و گلچین شده است را برای دانلود شما آماده کردم.

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

برای دانلود ۹۸۵ پروژه برنامه نویسی ویژوال بیسیک با حجم ۹۷ مگابایت روی عکس زیر کلیک کنید:

 ۲۵۰تا سورس کد برنامه نویسی به زبان ویژوال بیسیک دات نت

تعداد ۲۵۰ تا سورس کد برنامه نویسی به زبان ویژوال بیسیک دات نت (Viaul Basic.Net) برای دانلود آماده کردم که می تونید فایل پروژه ها را دانلود کنید

برای دانلود فایل پروژه های ویژوال بیسیک دات نت با حجم ۱۴٫۵ مگابایت روی عکس زیر کلیک کنید:

شرکت های بزرگ نرم افزار سازی سراسر جهان برای اینکه بتوانند محصولات خود را به بازار عرضه کنند و نیز همه ی افراد بتوانند از آن ها در کامپیوتر شخصی شان استفاده کنند، نرم افزار ها را در قالب فایل exe یا همان فایل Setup منتشر می کنند تا به راحتی در کامپیوتر ها خوانده و نصب شود. معمولآ نرم افزار هایی که این شرکت ها برای ساختن برنامه های خودشان از آن ها استفاده می کنند دارای محیط های بسیار پیچیده ای هستند به طوری که تنها یک برنامه نویس حرفه ای قادر به کار با آن ها خواهد بود. در نتیجه یک فرد معمولی برای اینکه بتواند مجموعه ای از فایل های خود را در قالب فایل Setup درست کند به نرم افزاری کم حجم و ساده نیاز دارد تا بتواند اینکار را به آسانی و در کمترین زمان ممکن انجام دهد. از همین رو امروز در میهن دانلود یکی از ساده ترین نرم افزار های ساخت فایل Setup را برایتان آمادده کرده ایم.
نرم افزار Easy Install Maker از جمله نرم افزارهای معروف ساخت فایل Setup است که شما می توانید به راحتی و با کمک آن فایل exe درست کنید. به طور کلی کاربرد این نرم افزار بیشتر مختص برنامه نویسان آماتور و مبتدی می باشد که به تازگی با برنامه نویسی و نرم افزار سازی آشنا شده اند. البته افراد عادی نیز می توانند برای رفع برخی از نیاز های خود از این نرم افزار استفاده کنند. به طور مثال: فرض کنید که شما مجموعه ای از فایل های نرم افزار خاصی را در اختیار دارید که با تعویض ویندوز کامپیوتر پاک می شوند و شما هر بار که ویندوز عوض می کنید مجبور اید مجددآ آن فایل ها را در محل نصب نرم افزار کپی کنید علاوه بر این فایل هایی که در اختیار شماست دارای حجم بسیار بالایی می باشند و ممکن است به دلایل مختلف پاک شوند و یا آسیب ببینند. تنها راه حل این مشکلات استفاده از این نرم افزار است زیرا پس از تبدیل آن فایل ها به فایل Setup دیگر نیازی نیست که شما هر بار که ویندوز عوض می کنید عملیات کپی کردن فایل های مورد نظرتان را انجام دهید زیرا در هنگام ساختن فایل Setup مسیر نصب فایل ها را مشخص نموده اید که با اینکار فایل ها خود در مسیر مورد نظر کپی می شوند علاوه بر این در حال حاضر تمامی فایل های شما درون یک فایل exe قرار دارد که دارای حجمی به مراتب کمتر از حجم فایل های اصلی شما است و همچنین با اینکار از پاک شدن و آسیب دیدن فایل های خود جلوگیری می کنید.

برخی از ویژگی های این نرم افزار:
- ساختن آسان فایل Setup.
- قابلیت ساختن فایل Setup از پوشه ها و فایل ها.
- پشتیبانی از زبان برنامه نویسی پاسکال اسکریپت جهت ساخت Setup.
- ایجاد میانبر حذف فایل Setup در منوی Start و Add Remove.
- قابليت بروز رساني نرم افزار از اينترنت.
- داشتن محيط زيبا و کاربرپسند.
- سازگار با ويندوز هاي مختلف.
- داشتن حجم مناسب.
- کاربرد آسان.
- و ...

دانلود مقاله

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

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

پسورد فایل    mt85.persianblog.ir

دانلود فایل

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

این مقاله با استفاده از تست جوئل نحوه نوشتن بهتر کد را به شما آموزش می دهد

دانلود مقاله

خودمم قبلا 1 مقاله در این مورد روی وبلاگ مدیر تیم wpf خونده بودم . که اهداف wpf رو کاملا شرح داده بود (1کی 2تا خاطره از دوران مدرسش هم تعریف کرده بود .. که مثل اکثر ما میخواسته برنامه هاش خوش تیپ باشن و اینا )

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

مگر میشود درباره “جستجو” نوشت و از گوگل حرفی نزد. سرویس جستجوی کد گوگل یکی از بهترین راهکارها برای یافتن سورس کد در وب است. متاسفانه این سرویس مانند بسیاری دیگر از سرویس های این شرکت برای کاربران داخل کشور ایران مسدود است. علاوه بر این سرویس جستجو، گوگل کد به توسعه دهندگان امکان میزبانی پروژه های اوپن سورس را در اینجا می دهد.

این وب سایت برای مدیریت پروژه و کار کردن به صورت تیمی روی پروژه های نرم افزاری اوپن سورس و تجاری بوجود آمده است. Launchpad امکانات بسیار مناسب و پیشرفته ای را در اختیار توسعه دهندگان نرم افزارهای مختلف قرار می دهد و دارای مخزن کد بسیار ایمنی است. کدهایی که Launchpad میزبانی می کند را می توانید در اینجا جستجو کنید. جالبه که بدانید Launchpad یکی از محصولات شرکت Canonical تولید کننده و پشتیبان اوبونتو یکی از محبوب ترین توزیع های لینوکس است.

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

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

این وب سایت خودش را Component Finder معرفی کرده است. فکر می کنم با همین دو کلمه کاربرد این سرویس را متوجه شده باشید. کامپوننت ها اجزای نرم افزاری آماده ای هستند که برنامه نویسان می توانند از آن ها برای سرعت بخشیدن به روند توسعه پروژه خود استفاده کنند. به طور مثال قبل از اینکه بخواهید یک کامپوننت “ساعت” برای خودتان بسیازید، ابتدا در این سرویس دنبالش بگردید، شاید یک نفر قبلاً این کار را انجام داده باشید!

کاربران DZone هر روز سورس کدهای جدیدی را در این وب سایت قرار می دهند. این سرویس پیشرفت فوق العاده ای از زمان تاسیس خود داشته و نسبت به سرویس های مشابه خود از کیفیت بهتری برخوردار است. در این سایت کدهای زبان های اوپن سورس مثل PHP, Python, Java, Ruby یافت می شود و از کدهای دات نتی خبری نیست!

 cache:www.mysite.com 

با استفاده از این دستور، سایت مورد نظر ما اگر توسط گوگل ذخیره شده باشه، آخرین نسخه ذخیره شده در سرورهای گوگل رو برای ما نشون میده.البته معمولا ورژن ذخیره شده مربوط به روزهای  گذشته میباشد٬ با این روش میتوانید ببینید سایت مورد نظر آخرین بار چه زمانی توسط گوگل ذخیره شده.

 link:www.mysite.com 

با این دستور گوگل کلیه سایت هایی که به سایت مورد نظر ما (در اینجا mysite.com) لینک داده اند را لیست میکند. 

 related:www.mysite.com

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

info:www.mysite.com

اطلاعاتی در مورد سایت مورد نظر، که گوگل میتواند ارایه کند. 
 

site:www.mysite.com myword

با استفاده از این روش کلمه مورد نظر خودمون رو میتونیم در یک سایت جستجو کنیم. به جای myword کلمه یا کلمات مورد نظر و به جای mysite سایتی که میخواهیم در آن جستجو کنیم قرار میدهیم. 

 allintitle:word1 word2 word3

در این روش نتایج جستجو محدود میشود به کلماتی که در عنوان (title) سایت ها بکار رفته.در این مثال کلیه سایت هایی که کلمات word1 word2 word3 در قسمت عنوان آنها بکار رفته لیست میشوند. 

 intitle:word1 word2 word3

جستجوی word1 در قسمت عنوان و word2 و word3 در عنوان و متن سایت ها. 

allinurl:word1 word2 word3

گوگل در این روش کلیه سایت هایی که در آدرس آنها (URL) کلمات مورد نظر ما به کار رفته را لیست میکند. 

inurl:word1 word2 word3

جستجوی word1 در آدرس سایت ها و بقیه کلمات در قسمت آدرس و متن سایت ها. 

 filetype:myfiletype

اگر به دنبال فایل هستید با این روش میتونید فایل هایی که پسوند خاصی دارند را جستجو کنید.مثلا  filetype:doc به دنبال فایل های doc میگردد

intext:word1 word2

 به نقل از : eset32

۱ - استفاده از یک تابع کتابخانه ای به اسم  GetAsyncKeyState موجود در کتابخانه user32.dll . این تابع ، فشرده شدن یا رها شدن یک کلید را تشخیص می دهد . نحوه declare کردن این تابع بصورت زیر است :

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

حال در برنامه تان یک timer قرار داده و در event آن کد زیر را قرار دهید :

    For i = 1 To 255
        results = 0
        results = GetAsyncKeyState(i)
        If results <> 0 Then
           Msgbox(Chr(i))
        End If
    Next

برای مشاهده یک برنامه نمونه به این آدرس مراجعه کنید .

۲ - استفاده از قلاب یا Hook : قلاب ، یک ابزار در مکانیزم مدیریت پیغام سیستم ویندوز است که توسط آن برنامه ها می توانند یک روتین را برای مدیریت و پردازش پیغامهای خاصی قبل از اینکه آن پیغامها به برنامه مقصد برسند نصب نمایند . قلابها باعث کندی سیستم می شوند زیرا حجم پردازشی سیستم روی هر پیغام را افزایش می دهند بنابراین بایستی زمانیکه واقعاً به قلاب نیاز دارید آنرا نصب نموده و هر چه زودتر آنرا حذف نمایید . سیستم ویندوز از انواع زیادی از قلابها پشتیبانی می کند که هر کدام امکان دستیابی به پیغامهای خاصی را مهیا می نمایند برای مثال یک برنامه کاربردی می تواند با استفاده از قلاب کیبرد برای مدیریت و پردازش پیغامهای مربوط به آن ( مثل فشرده شدن یک کلید خاص یا رها شدن آن ) استفاده کند .
برای نصب یک قلاب در برنامه از یک تابع کتابخانه ای به اسم SetWindowsHookEx استفاده می شود . این تابع یک قلاب را به زنجیره قلابهای سیستم اضافه می کند . نحوه declare کردن این تابع بصورت زیر است :

Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

همچنین برای آزاد کردن یک قلاب و حذف آن از زنجیره قلابها از تابع کتابخانه ای UnhookWindowsHookEx استفاده می گردد . نحوه declare کردن این تابع بصورت زیر است :

Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

برای ایجاد قلاب کیبرد همچنین نیاز به تعریف یک ثابت است که شماره قلاب کیبرد در آن قرار دارد :

Public Const WH_KEYBOARD = 2

حال بایستی یک تابع پس زمینه یا Callback Function نوشت که به ازای فشرده شدن کیبرد اجرا شود و آدرس آنرا ( با استفاده از کلمه کلیدی Address Of ) بهمراه ثابت فوق به تابع SetWindowsHookEx فرستاد .

Private Function makesInjection(ByVal query As String) As Boolean
   Dim specialCharacters() As String
   Dim inQoute As Boolean
   specialCharacters = "-- ;,"
   inQoute = False
   For i = 1 To Len(query)
      Char = Mid(query, i, 1)
      If Mid(query, i, 1) = "'" And inQoute = False Then
         inQoute = True
         GoTo EndFor
      End If
      If Mid(query, i, 1) = "'" And inQoute = True Then
         inQoute = False
         GoTo EndFor
      End If
      If inQoute = False Then
         For Index = 1 To UBound(specialCharacters)
            schar = specialCharacters(Index)
            cchar = Mid(query, i, Len(schar))
            If schar = cchar Then
              Exit For
            End If
         Next
         If Index < UBound(specialCharacters) Then
            makesInjection = True
            Exit Function
         End If
      End If
     
EndFor:
        Next
    If inQoute = True Then
      makesInjection = True
    Else
      makesInjection = False
    End If
End Function

ورودی اين تابع query شما و خروجی آن false ياtrue است .
عملکرد تابع بصورت زير است :
اين تابع در طول رشته query شروع به حرکت می کند و هر کاراکتر از آنرا بررسی می نمايد . در صورتيکه کاراکتر جاری ‘ باشد و داخل ‘ ’ نباشيم  متغير مربوط به آن true شده و حلقه يکی بجلو می رود . اما در صورتيکه کاراکتر جاری ‘ باشد و داخل ‘ ’ باشيم متغير مربوط به  آن false شده و حلقه يکی بجلو می رود . سرانجام در صورتيکه داخل ‘ ’ نباشيم  بررسی می شود که اين کاراکتر يکی از کاراکترهای غير مجاز ( کاراکترهای موجود در رشته specialCharacters ) نباشد که اگر باشد تابع true بر می گرداند .
پس از اتمام حلقه متغير مربوط به ‘ بررسی می شود که اگر true باشد در صورت injection وجود داسته و تابع نيز true بر می گرداند .

از بابت اینکه دیر به دیر وبلاگ رو Update می کنم شرمنده خیلی گرفتارم . خوب یه Dll پیدا کردم که دیگه مشکل تاریخ شمسی رو کامل حل میکنه . این dll رو گروه نرم افزاری OxinSoft نوشتن که دمشون هم گرم . بعدش هم یه Help توپ براش گذاشتن که دیگه جای هیچ توضیح اضافی رو نداده  تمام متد های این Class رو توضیح داده که از توضیحات من هم بهتره !!!

:: برای دریافت فایل اینجا کلیک کنید

امیدوارم که به دردتون بخوره . در زیر برخی از امکانات این Dll رو ببینید :

چگونه از اجراي مجدد يک برنامه در ويژوال بيسيک جلوگيري شود ؟

خوب با استفاده از تيکه کد زير در فرم اصلي برنامه تان مي توانيد از اجراي مجدد (Duplicate) برنامه جلوگيري کنيد

Private Sub Form_Load()
    If App.PrevInstance = True Then
       Dim Result As Integer
       Result = MsgBox("برنامه در حال اجراست", vbInformation, "Warnnig")
       Unload Me
    End If 
End Sub

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

1. برنامه ای برای جستجوی یک رشته در بین تعدادی رشته دیگر Download

2. برنامه ای که فایل ها را به رمز در آورده (Encrypt) و می تواند اطلاعات را کد کرده و دوباره دیکد کند .این کار برای ذخیره اطلاعات در فایلها خیلی مناسب است . این برنامه رو آقای Alex Rohr نوشته است . Download

سلام دوستان , امروز می خوام به سوالاتی که برخی از دوستان پرسیده اند پاسخ دهم

1. چگونه می توان در ویژوال بیسیک فرمی ساخت که Always on Tpo (یعنی همیشه روی همه ی فرم ها قرار بگیره) باشد ؟

Option Explicit
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Private Declare Function 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) As Long
'
'
Private Function SetTopMostWindow(hwnd As Long, Topmost As Boolean) _
As Long
          If Topmost = True Then 'Make the window topmost
             SetTopMostWindow = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
         Else
              SetTopMostWindow = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
             SetTopMostWindow = False
         End If
End Function


Private Sub Form_Load()
    Dim lR As Long
    lR = SetTopMostWindow(Form1.hwnd, True)
    'For inactive always on top Properties : lR = SetTopMostWindow(Form1.hwnd, False)
End Sub

2. چگونه می توان متن دلخواهی را در Statusbar قرار داد ؟

 StatusBar1.Panels(شماره پنل مورد نظر).Text = "ساعت جاری " & Format(Time, "hh:mm:ss")

3. چگونه می توان از تابع LoadKeyboardLayout در ویندوز پارسا 99 استفاده کرد ؟

کد 429 برای فارسی کردن کیبرد در ویندوز 2000 و XP می باشد برای ویندوز فارسی پارسا کد 401 می باشد .

Private Sub Form_Load()
           LoadKeyboardLayout "00000401", 1 ' 00000401 :::::> For Farsi Keyboard in PARSA 99
End Sub

4. چگونه می توان یک Explorer را اجرا کرد ؟

برای این کار می توان از راههای مختلفی استفاده کرد مثلاً از شیء Shell و . . .  . برای اینکار از منوی Project آیتم Preference را انتخاب کنید , اکنون آیتم Microsoft Shell Controls and Automaton  را انتخاب کنید . حالا مراحل زیر را انجام میدهیم .

Dim SH As New Shell

حالا می توانید از متدهای زیادی که این شیء در اختیارتان می گزارد استفاده کنید . از جمله این متد های اجرا Internet Explorer , Outlook , اجرای آیتم های موجود در کنترل پنل , نمایش پنجره جستجوی ویندوز و کلی کارهای مفید دیگه . به مثالهای زیر توجه کنید :

SH.Open "http://vb.blogfa.com"

SH.TrayProperties

SH.SetTime

SH.FindComputer 'System Search

SH.ControlPanelItem "sysdm.cpl" 'System Properties

SH.ControlPanelItem "inetcpl.cpl" 'Internet Options

SH.ControlPanelItem "'appwiz.cpl" 'Add/Remove Programs

این شیء دارای متدهای دیگری هم میباشد که به راحتی می توانید از آنها استفاده کنید .

حالا فرض میکنیم که می خواهیم منو را برای هنگامیکه بر روی فرم راست کلیک کردیم ظاهر کنیم , کد زیر را در Event (ٍرویداد) MouseDown می نویسیم :

 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
   'Button = 1 :::>>> For LeftClick
   'Button = 2 :::>> For RightClick
    If Button = 2 Then
        PopupMenu MnuFile
    End If
    
End Sub

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

Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
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

نوع نمایش این Splash Screen به گونه ای است که میزان شفافیت فرم آن از 0 به 255 رسیده و دوباره کاهش یافته به صفر می رسد (یا بعبارت دیگر از حالت نامرئی به شفافیت کامل رسیده و دوباره از شفافیت آن کاسته شده و نامرئی می شود ) . خوب تنها Control که برای این برنامه نیاز داریمTimer می باشد . کدی که در Form_Load می بینید باعث می شود که فرم در ابتدای امر نامرئی باشد چون مقدار bAlfa آنرا 0 داده ام

این برنامه به درخوست یکی از دوستان بود . توسط این برنامه می تونیم ایمیل ارسال کنیم و در ضمن باید متذکر بشم که کسی که می خواد ایمیل ارسال کنه باید ایمیلش از نوع POP3 باشه . این برنامه رو من ننوشتم , من فقط به قول بچه ها Develope دادم و برخی از قسمت ها رو بهش اضافه کردم .

 دریافت برنامه

 2 . این برنامه به درد بچه هایی می خوره که رشته ی کامپیوتر هستن (منظورم از نظر کاربرد این برنامه هست) , این برنامه برای یافتم مسیر در گراف با استفاده از الگوریتم دایجسترا هست . در این برنامه از نظر گرافیکی خیلی خوب کارشده , این برنامه برای کسایی که می خوان کار با Pixel و مسائل مربوط به گرافیک در VB رو یاد بگیرن خوبه .

 دریافت برنامه

3 . و اما این برنامه . شاید همه ی شما اشکال زیر را در برخی از برنامه دیده باشد بخصوص در برنامه های ماکروسافت . اینها به Microsoft Agents معروف هستند که شما می توانید از آنها در برنامه هایی که در ویژوال بیسک می نویسد استفاده کنید . بعنوان مثال برای خوانده پیام یا اخطار خواصی با کاربر . این برنامه خیلی کامل هست و می تونید از اون استفاده کنید .

در ضمن Agent های زیادی وجود دارد که معروفترین آن همان جادوگر (Merlin) میباشد که در حالت معمول به همراه ویندوز نصب می شود . برای نصب کاراکتر های جدید مثل بیل کیتس , قول چراغ جادو , روبات و . . . باید این فایلها رو که با پسوند *.acs هست در این مسیر کپی کنید windows\msagent\chars\ . من چندتا از این کاراکتر ها رو برای دانلود قرار دادم تا از آن استفاده کنید , همچنین شما می تونید با جستجو از سایت ماکروسافت جدیدترن این کاراکترها رو دانلود کنید .

دریافت برنامه

 Agents دریافت .

ابتدا Command Prompt را فراخوانی می کنیم , خوب برای فراخوانی از تابع Shell استفاده میکنیم که قبلا در مورد این تابع توضیح داده ام :

Shell "cmd.exe"

:: اکنون یک شیء ایجاد می کنیم تا بتوانیم از طیق آن به هسته Dos دسترسی داشته باشیم :

Dim WinShell
Set WinShell = CreateObject("Wscript.shell")

خوب حالا می توانید به راحتی هر دستوری که دارید میتوانید اجرا کنید در آخر هم دستور تابع Sendkeys کلید Enter را اجرا کرده و دستور اجرا میشود:

WinShell.SendKeys " Dos دستور مورد نظر برای اجرا در "
WinShell.SendKeys "{ENTER}"

به مثاهای زیر توجه کنید که به ترتیب اولی برای ایجاد پوشه ای به نام Visual Basic در درایو C و دستور دوم برای نمایش پوشه های موجود در درایو C و دستور سوم برای Format فلاپی دیسک می باشد .

'For Create Folder With Dos Prompt :
WinShell.SendKeys "MD C:\Visual" & " Basic"
WinShell.SendKeys "{ENTER}"

'For Showing C Directory :
WinShell.SendKeys "Dir C:\"
WinShell.SendKeys "{ENTER}"

'For Format Floppy Disk Of Dos :
WinShell.SendKeys "format A:"
WinShell.SendKeys "{ENTER}"

۱. سلام دوستان , این برنامه به درخواست یکی از دوستان بوده که نشان می دهد چگونه فرم هایی بصورت دایره و یا بیضی در ویژوال بیسیک طراحی کنیم . خوب ایتدا به فراخوانی توابع مورد نیاز ویندوز می پردازیم :

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 ReleaseCapture Lib "USER32" () As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" _
(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, _
ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "USER32" _
(ByVal hWnd As Long, ByVal hRgn As Long, _
ByVal bRedraw As Boolean) As Long

خوب اکنون کد زیر را در رویداد (Event) مربوط به لحظه ای که کلید موس را بروی فرم فشردیم قرار می دهیم تا بتوانیم با فشردن موس در هر جای فرم به راحتی آن را جابجا کنیم .

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   MousePointer = 15
   Call ReleaseCapture
   Call SendMessage(hWnd, &HA1, 2, 0&)
   MousePointer = 1
End Sub

حال تابع SetWindowRgn را مقدار دهی میکنیم . ( این قطعه کد را در رویداد Form_Load بنویسید ) :

   SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 200, 200), True

مثلا مقادیر 200 و 200 شکل فرم بصورت دایره در می آید برای شکل بیضی شما میتوانید این مقادیر را 200 و 300 اختیار کنید .( بهتر است که خاصیت boarderStyle را 0-None در نظر بگیرید)

دریافت برنامه

همچنین یه Help هم برای دانلود گذاشتم که شما را برای رسیدن به آدرس مورد نظر برای تغییر در رجیستری ویندوز کمک می کنه . این Help طبقه بندی شده است و بسیار کامل و خوب هست حتماً دانلود کنید .

دریافت برنامه

خوب شاید برخی از شما نام نرم افزار Buddy Spy رو شنیده باشید , اگر هم نشنیده اید خوب من براتون می گم . کاربرد این برنامه برای Yahoo Messanger هست , مثلا شما می خواهید دیگران فکر کنند که شما WebCam دارید یا اینکه بفهمید یک شخص خاصی واقعاً invisible هست یا نه و اینکه شخص مورد نظر شما در Room های یاهو هست یانه و ..... . خوب این برنامه با ویژوال بیسیک نوشته شده و آقای Brandon Henricks لطف کردن و سورس این برنامه را بصورت Free و تحت GNU Licence عرضه کرده اند .

دریافت Source برنامه

خوب امروز من یه برنامه براتون Upload کردم تا دانلود کنید . این برنامه برای ساختن Setup می باشد که با توجه به حجم کم این برنامه ولی بسیار قوی هست . من خودم امروز با این برنامه یک Setup ساختم که روی چند کامپیوتر تست کردم و هیچ مشکلی نداشت . این برنامه دارای امکانات زیادی می باشد به شما توصیه می کنم که حتماً دانلود کنید .

خوب یک توضیح اینکه برای ساختن Setup شما باید بدانید که چه فایلهایی را باید به همراه فایل اجرایی بر روی سیستم هدف نصب کنید , شما برای اینکار می توانید یک بار توسط نرم افزار Package & Deployment Wizard که به همراه ویژوال بیسیک نصب می شود یک setup طراحی کنید , بعد از ساخت Setup یک فابل متنی به نام SETUP.LST در کنار فایل Setup.exe ایجاد می شود که در آن تمام فابل های مورد نیاز ذکر شده  .

اگر در ساخت Setup با استفاده از این برنامه به مشکل برخوردید لطفاً میل بزنید تا راهنمایتان کنم .

مخلص همه برنامه نویسای عزیز , پژمان

دانلود برنامه  (حجم برنامه ۱.۳ مگابایت)