منوي اصلي

نوشته هاي پيشين

جستجو

پيوندها

تماس با من

آمار وبلاگ

افراد آنلاين:
تعداد بازديد از اين وبلاگ

  RSS  

طراح قالب

اطلاعیه 

با سلام خدمت همه ی دوستان

واقعاْ من رو با ایمیل ها و نظراتتون شرمنده کردید

دوباره تصمیم گرفتم که بعد امتحانات ترم با آموزشهای جدید بیام

ولی این بار بیشتر در مورد VB.Net و ASP.Net صحبت می کنم .

وعده ما نیمه دوم تیر ماه 

کتاب برای آموزش ویژوال بیسیک(جدید) 

 

Beginning Visual Basic 2005 by Thearon Willis, Bryan Newsome ISBN: 0-7645-7401-9 November 2005 799 pages Download

 

---

Professional VB 2005 by Bill Evjen, Billy Hollis, Rockford Lhotka, Tim McCarthy, Rama Ramachandran, Kent Sharkey, Bill Sheldon  ISBN: 0-7645-7536-8 November 2005 1166 pages Download

:: برنامه برای ساختن یک Setup خوب و زیبا 

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

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

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

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

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

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

:: حرف حساب !! 

سلام به همه ی شما دوستان عزیز

واقعاً شرمنده از اینکه دیر آپدیت می کنم یه مشکلی برام پیش اومده بود حدود 50 گیگایابت از اطلاعات هارد دیسکم پرید و یه مدت در حال Recover هستم .

به خاطر تقاضا ی زیاد برخی از دوستان تصمیم گرفتم که از این به بعد درباره برنامه نویسی برای نوشتن ویروس و Exploit هم کد هایی را برایتان بنویسیم (البته صرفاً جنبه آموزشی دارد !! )

هم چنین از این به بعد  VB.Net هم در این وبلاگ آموزش داده می شود . فعلاً اللحساب این کتاب رو دانلو د کنید و بخونید در این کتاب تمام توابع VB.Net گفته شده . این کتاب به زبان انگلیسی بوده و بسیار هم ساده هست . اگر در ترجمه و فهم قسمتی از کتاب به مشکل برخوردید برام ایمیل بزنید تا براتون توضیح بدم .

:: لینک دانلود ویژوال بیسیک 6 

:: سورس برنامه ی Buddy Spy 

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

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

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

:: مدیریت رجیستری  

اطلاعیه 

سلام دوستان

مشکل دانلود برنامه ها حل شد , برنامه های را به یه هاست دیگه منتقل کردم . تا چند دقیقه دیگه یه سورس برای برنامه نویسی رجیستری تو ویژوال بیسیک براتون میذارم تا دانلود کنید

فعلاْ خدا حافظ .

:: بازگشت دوباره 

 

سلام به همه ی دوستان عزیز , دلم خیلی براتون تنگ شده بود واقعاً از اینکه حدود 2 ماه وبلاگ رو آپدیت نکردم معذرت می خوام . ترم تابستونی و طراحی چند سایت و .... همه سبب شد که من نتونم وبلاگ رو آپدیت کنم , ولی خلاصه مهم اینه کم من آلان در خدمتونم . در ضمن واقعاً از ایمیل هایی که تو این مدت بهم زدید تشکر مکنم .

1 . خوب ببینیم اولین برنامه ای که براتون گذاشتم چیه ؟

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

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

---

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

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

---

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

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

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

 Agents دریافت .

سلام !! 

با عرض سلام خدمت همه ی دوستان واقعاً از اینکه وبلاگ رو آپدیت نکردم معذرت می خوام , چون گرفتار ترم تابستونی هستم . از طرفی در حال راه اندازی سایت جدیدی هستم که صرفاً برای آموزش زبانهای برنامه نویسی مختلف هست . اگه سوالی دارید برام Mail بزنید . ما در خدمتیم . . .

چگونگی ایجاد منو برای کلیک راست  

:: طراحی Splash Screen  

:: امروز می خواهم چگونگی ساخت یک Splash Screen برای برنامه هایی که مینویسیم را براتون شرح بدم . خوب باز هم باید توابع مورد نیاز را فراخوانی کرده و همچنین ثوایت مورد نیاز را تعریف کنیم

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 داده ام

Private Sub Form_Load()
    
    Dim Ret As Long
    'Set the window style to 'Layered'
    Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
    Ret = Ret Or WS_EX_LAYERED
    SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret

   'SetLayeredWindowAttributes Me.hWnd,0,(0-255),LWA_ALPHA
    SetLayeredWindowAttributes Me.hWnd,0,0,LWA_ALPHA

    Timer1.interval = 1
    End     
End Sub

در مرحله بعد برای اینکه فرم از حالت نامرئی به مرئی برسد (یعنی مقدار آن از 0 به 255 برسد) یک حلقه For نوشتم . حال برای اینکه فرم دوباره از حالت مرئی به نامرئی برشد یک حلقه For دیگر با گام افزایش -1 نوشتم تا مقدار آنرا کاهش دهد .

Private Sub Timer1_Timer()
 
     For i = 1 To 255
       SetLayeredWindowAttributes Me.hWnd,0,CByte(i),LWA_ALPHA
     Next i

     For i = 255 To 1 Step -1
       SetLayeredWindowAttributes Me.hWnd,0,CByte(i),LWA_ALPHA
     Next i
     
     Timer1.Enabled = False
  
End Sub

(*) یک نکته : این برنامه در سیستم عاملهای windows 2000 به بعد قابل اجراست , زیرا توابع مورد استفاده در این برنامه در ویندوزهای 98 و 95 وجود ندارد .

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

|+| نوشته شده توسط پژمان رودخانه ای در دوشنبه بیستم تیر 1384 و ساعت 20:7  

:: اطلاعیه 

 وبلاگ جدید من(شما)

آموزش برنامه نویسی کاربردی به زبان ++C

cpp.blogfa.com

 

:: پاسخ به سوالات دوستان (2) 

:: یک برنامه کاربردی دیگه (CodeColor) 

پاسخ به سوالات دوستان 

( جدید )

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

خوب با استفاده از تيکه کد زير در فرم اصلي برنامه تان مي توانيد از اجراي مجدد (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

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

 

:: یک خواهش 

سلام دوستان

راستش مطالب واسه نوشتن زیاد . واسه همین از شما می خوام که در هر زمینه که دوست دارید برام Mail بزنید تا من در همون مورد براتون مطلب بنویسم , ما مخلص همه ی شما هستیم .

بدرود

:: حل مشکل تاریخ شمسی در ویژوال بیسیک 

:: سلام دوستان عزیز من

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

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

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

توضيح	نام تابع
تاريخ جاري سيستم را به تاريخ شمسي تبديل ميكند و به صورت yyyy/mm/dd برمي گرداند.	Shamsi () as string
يك تاريخ را دريافت كرده و در صورتي كه تاريخ شمسي معتبر باشد مقدار True و در غير اين صورت مقار False برمي گرداند.	IsShamsi (date) as boolean
يك تاريخ شمسي را دريافت مي كند و در صورتي كه سال آن كبيسه باشد مقدار True و در غير اين صورت مقدار False برمي گرداند.	IsKabiseh (date) as boolean
يك تاريخ شمسي دريافت مي‌كند و عدد مربوط به سال آن را برمي‌گرداند.	ShamsiYear (date) as integer
يك تاريخ شمسي دريافت مي‌كند و عدد مربوط به ماه آن را برمي‌گرداند.	ShamsiMonth (date) as integer
يك تاريخ شمسي دريافت مي‌كند و عدد مربوط به روز آن را برمي‌گرداند.	ShamsiDay (date) as integer
عدد مربوط به سال تاريخ جاري را بر مي گرداند.	ShamsiCurrentYear () as integer
عدد مربوط به ماه تاريخ جاري را بر مي گرداند.	ShamsiCurrentMonth () as integer
عدد مربوط به روز تاريخ جاري را بر مي گرداند.	ShamsiCurrentDay () as integer
يك تاريخ شمسي دريافت مي كند و نام ماه آن را برمي‌گرداند.	ShamsiMonthName (date) as string
نام ماه تاريخ جاري را برمي گرداند.	ShamsiCurrentMonthName () as string
شماره‌ي روز هفته‌ي تاريخ جاري را برمي‌گرداند.	ShamsiWeekDay () as integer
نام روز هفته‌ي تاريخ جاري را برمي‌گرداند.	ShamsiWeekDayName () as string
يك تاريخ شمسي دريافت مي كند و تعداد روزهاي آنرا از 29/12/1330 به بعد محاسبه مي كند.	Shamsi2Day (date) as long
دو تاريخ شمسي دريافت مي‌كند و تفاضل تاريخ اول از تاريخ دوم را بر حسب روز برمي گرداند.	ShamsiDiff (date1, date2) as long

 

:: استفاده از شی ء File System Object در ویژوال بیسیک 

 سلام دوستان امروز می خوام درباره شیء   (File Sysytem Object ) که به FSO هم معروف است مطالبی را خدمت شما دوستان ارائه بدم , این شیء قابلیت کار با Drive , Folder , File , TestStream را دارد یعنی شما می توانید پوشه و یا فایلی را از مسیری به مسیر دیگر کپی , حذف و یا منتقل کنید و هم چنین می توانید پو شه ای را در مسیر مورد نظر ایجاد کنید .

برای افزودن این شیء به برنامه تان از منوی Project آیتم Refrencese را انتخاب کنید و از آن آیتم Microsoft Script Runtime را تیک می زنید . اکنون نوبت به تعریف یک متغیر از نوع ّFso می باشد

Dim Fso As New FileSystemObject

در ضمن لازم به ذکر است که App.path مسیر جاری را که برنامه اجرایی در آن قرار دارد را بر می گر داند .

Fso.CopyFile App.Path & "\text.txt", "C:\", True ' True For Ovwerwrite

fso.MoveFile App.Path & "\text.txt", "C:\"  ' For Move File Of Current Path to "C:\" Path

fso.DeleteFile "c:\text.txt"

همین عملیات بالا را می توان برای Folder  هم اجرا کرد . همان طور که متوجه شده اید این شیء بسیار مهم است و می تواند کاربرد های زیادی برایتان داشته باشد مثلاً من در زیر برنامه ای می نویسم که بتواند فایلی را در پو شه System32  ویندوز کپی کند خوب بر ای اینکه بتوان پوشه ویندوز را پیدا کنیم از یک API استفاده می کنم چون امکان داره ویندوز داخل پوشه هایی غیر از نام Windows  باشد این کار بر ای بر نامه هایی که می خواهید فایلی را در پوشه ویندوز کپی کنی دکاربرد دارد مثلاً شما می خواهید فونتی را در پوشه font ویندوز کپی کنید.

 

Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long _
) As Long

Dim fso As New FileSystemObject
Public S As String
Public SysDirectory As Long

Private Sub Command1_Click()
         fso.CopyFile App.Path & "\vb.txt", S + "\System32\", True
End Sub
 

Private Sub Form_Load()
        S = Space(255)
       'Get the Windows directory
       WinDirectory = GetWindowsDirectory(S, 255)
        S = Left$(S, WinDirectory)

        '#######################################

        LblSource.Caption = "Source : " & App.Path & "\vb.txt"
        LblDestination.Caption = "Destination : " & S & "\System32\"
End Sub

برای دریافت برنامه اینجا  کلیک کنید

:: نمایش مقدار حافظه فیزیکی و مجازی با ویژوال بیسیک 

سلام دوستان , از اینکه اینقدر دیر وبلاگ رو Update کردم معذرت

:: این بر نامه با استفاده از API مقدار حافظه فیزیکی و مجازی و ... را برایتان نمایش می ده . این برنامه خیلی ساده است و توضیحی هم ندارم که براش بدم چون اگه یه نگاه به سورسش بندازید می فهمید که چیز خاصی نداره .

 

Private Type Memory
Length As Long
MemoryLoad As Long
TotalPhysMemory As Long
AvailablePhysMemory As Long
TotalPageFile As Long
AvailPageFile As Long
TotalVirtualMemory As Long
AvailableVirtualMemory As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (M As Memory)

Private Sub Timer1_Timer()
   Dim M As Memory
   GlobalMemoryStatus M
'*************************************************
   LblAvlMem.Caption = Format(CDbl(M.AvailablePhysMemory / 1048576), "#.## MB")
   LblTotalPhMem.Caption = Format(CDbl(M.TotalPhysMemory / 1048576), "#.## MB")
   LblUsedMemory.Caption = Format(CDbl((M.TotalPhysMemory - M.AvailablePhysMemory) / 1048576), "#.## MB")
   LblPercentPhMem.Caption = Format(CDbl((M.AvailablePhysMemory / M.TotalPhysMemory)), "##.#%")

'*************************************************
   LblVirtualMem.Caption = Format(CDbl(M.AvailableVirtualMemory / 1048576), "#.## MB")
   LblTotalVirtualMem.Caption = Format(CDbl(M.TotalVirtualMemory / 1048576), "#.## MB")
   LblUsedVirtualMem.Caption = Format(CDbl((M.TotalVirtualMemory - M.AvailableVirtualMemory) / 1048576), "#.## MB")
   LblPercentVirtualMem.Caption = Format(CDbl((M.AvailableVirtualMemory / M.TotalVirtualMemory)), "##.#%")
'*************************************************

End Sub

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