حذف فایل بدون دادن اخطار

با تابع ای پی آی که در ویژوال بیسیک نوشته شده و در زیر لینک آن قرار داده شده است می توان یک فایل را خذف نمود بدون آنکه یوزر متوجه حذف فایل شود فقط کافیست کدهای زیر را در فرم visual basic وارد کنید.

دانلود

Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

( )Private Sub Form_Load

   DeleteFile "C:\hossein.ini"End Sub

به همین سادگی

n وزير (n queen)

n وزير يكي از مسائلي است كه به دليل فضاي حالت زياد در حوضه طراحي الگوريتم و هوش مصنوعي مطرح مي گردد.در اين مساله بايد n وزير را در يك صفحه شطرنج n*n به گونه اي چيد كه هيچ وزيري يكديگر را تحديد نكنند.برنامه اي كه لينك آن براي دانلود گذاشته شده با زبان c نوشته شده و حدودا تا ۲۵ وزير در صفحه ۲۵*۲۵ كار ميكند.دانلود

tic tac toe هوش مصنوعي

تيك تك تو  يك بازي فكري دو نفري ۹ خانه اي است.هر نفر يك مهره در اين بازي دارد.o ,x .هر بازیکن باید سعی کند سه مهره را در یک سطر یا یک ستون یا یک قطر بچیند. (همان بازی دوز خودمون)این بازی معمولا در قالب پروژه درس هوش مصنوعی ارائه می گردد.کامپیوتر برای پیدا کردن بهترین گزینه برای قرار دادن مهره از درخت max min استفاده مي كند.در انتهابايد خاطر نشان كرد كه اين بازي به زبان وي بي اسكريپت نوشته شده و فقط با مرورگر ie قابل اجراست.دانلود

به دست آوردن فضای آزاد و فضای مصرفی رم

ابتدا دو text box بر روي فرم در ويژوال بيسيك بسازيد سپس در پنجره كد نويسي كد زير را وارد كنيد.

Private Type MEMORYSTATUS
  dwLength As Long
  dwMemoryLoad As Long
  dwTotalPhys As Long
  dwAvailPhys As Long
  dwTotalPageFile As Long
  dwAvailPageFile As Long
  dwTotalVirtual As Long
  dwAvailVirtual As Long
End Type

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As MEMORYSTATUS)

Private Sub Form_Load()
  Dim Info As MEMORYSTATUS
 
  Info.dwLength = Len(MEMORYSTATUS)
  GlobalMemoryStatus Info
  Text1.Text = Info.dwTotalPhys & "== ALL RAM"
  Text2.Text = Info.dwAvailPhys & "== Used RAM"
End Sub

برنامه كامل اين تابع api در ويژوال بيسيك براي دانلود قرار داده شده است.دانلود

نمایش پنجره فرمت درایو

اين هم يك برنامه حرفه اي در ويژوال بيسيك!!!

برای تعیین درایو پارامتر دوم تابع یعنی iDrive را تغییر می دهیم ۰و۱ برای درایو A , B و اعداد بعدي براي تعيين درايو هاي بعدي براي فرمت مي باشند.اين هم لينك دانلود

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

برای این منظور کدهای زیر را در قسمت کدنویسی در ویژوال بیسیک وارد می کنیم.

Private Const SPFILEQ_FILE_IN_USE = &H1
Private Const SPFILEQ_REBOOT_IN_PROGRESS = &H4

Private Declare Function SetupPromptReboot Lib "setupapi.dll" (ByRef FileQueue As Long, ByVal Owner As Long, ByVal ScanOnly As Long) As Long

Private Sub Form_Load()
  SetupPromptReboot ByVal 0&, Me.hWnd, ByVal 0&
End Sub

پس از اجراي برنامه پنجره اي باز شده و از شما سوال مي كند آيا مي خواهيد كامپيوتر شما براي اعمال تغييرات ري استارت شود.در صورت تمايل دكمه yes را انتخاب کنید.کامپیوتر شما برای اعمال تغییرات   ری استارت میشود.

تغيير راست كليك و چپ كليك ماوس

براي اين كار تابع api زیر را در قسمت فرم کد در ویژوال بیسیک می نویسیم

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

  حال دو دکمه بر روی فرم ایجاد کرده و کدهای زیر را برای هر دکمه می نویسیم

Private Sub Command1_Click()
 SwapMouseButton 1
End Sub

 

Private Sub Command2_Click()
 SwapMouseButton 0
End Sub

روش دسترسی به نام و تعریف ومتغیر های توابع api

 

براي استفاده از توابع API در ويژوال بيسيك مي توان از ابزار API VIEWER استفاده كرد.

پس از نصب ويژوال بيسيك به مسير زير رجوع ميكنيم.

start menu -->allprograms-->microsoft visual studio 6-->microsoft visual studio 6 tools-->api text viewer

حال از منوي فايل load text file انتخاب ميكنيم.درپنجره اي كه باز مي شود فايلwin32api.txt را باز ميكنيم.

فايل win32api.txt در مسير microsoft visual studio-->common-->tools-->winapi قرار دارد.

در قسمت api type گزينه declares را انتخاب مي كنيم.

در قسمت available items نام تمام توابع api را مشاهده مي كنيد.روي نام هر تابع كه دابل كليك كنيد ميتوانيد نحوه فراخواني و پارامترهاي ورودي و خروجي تابع را در قسمت selected item مشاهده نماييد.

دكمه كپي به منظور كپي كردن تابع انتخابي در قسمت selected item در كليپ برد مي باشد

نمایش دیالوگ ShutDownDialog ويندوز

براي اين كار در ويژوال بيسيك يك فرم ايجاد كرده و تابع api زیر را در قسمت کد نویسی کپی می کنیم

Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal Reserved As Long) As Long

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

SHShutDownDialog ByVal 0&

مخفی کردن کرسر ماوس

برای این منظور از توابع ای پی آی وی بی استفاده می کنیم

ابتدا دو دکمه به نام های command 1 , command 2 روی فرم ایجاد می کنیم. سپس در قسمت فرم کد کد های زیر را وارد می کنیم.

private Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long

Private Sub Command1_Click()
 
  ShowCursor 0   'Hide
  Command2.SetFocus
  Me.Print "press enter key"
End Sub

Private Sub Command2_Click()
ShowCursor 1   'Show
End Sub