صفحه اول
به وبلاگ آموزش برنامه نویسی خوش آمدید ، برای شما لحظات خوشی را در این وبلاگ آرزو می کنم . این وبلاگ با هدف آموزش برنامه نویسی با تمام زیان ها ایجاد شده است به همین خاطر مطالب این پایگاه گلچینی از بهترین آموزش ها در اینترنت می باشد . من "رضا عبدالملکی " دانشجوی دوره کاردانی رشته کامپیوتر از شهرستان دورود در استان لرستان هستم و منتظر نظرات ، پیشنهادات و انتقادات شما می باشم . موفق و پیروز باشید .
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در NotPad ويندوز كپي و سپس استفاده كنيد ...
API شماره 16 : این تابع دایرکتوری مورد نظر را حذف می کند.البته اگر خالی باشد.
کد تابع :
Private Declare Function RemoveDirectory Lib "kernel32" Alias "RemoveDirectoryA" (ByVal lpPathName As String) As Long
کد برنامه :
()Private Sub Form_Load
"RemoveDirectory "C:\VB6
End Sub
نکته : برای حذف شدن پوشه VB6 هیچگونه پوشه یا فایل نباید داخل آن باشد.
API شماره 17 : کار این تابع باز کردن یک مسیر مشخص است.
تعریف تابع :
Public Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
کد نمونه :
()Private Sub Form_Load
WinExec "Explorer.exe C:\Windows", 10
End Sub
API شماره 18 : کار این تابع نمایش دیالوگ ShutDown کردن ویندوزه.
تعریف تابع :
Pubilc Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long
کد نمونه :
()Private Sub Form_Load
SHShutDownDialog 0
End Sub
API شماره 19 : کار این تابع نمایش دیالوگ Run ویندوزه.
تعریف تابع:
Public Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hOwner As Long, ByVal Unknown1 As Long, ByVal Unknown2 As Long, ByVal szTitle As String, ByVal szPrompt As String, ByVal uFlags As Long) As Long
کد نمونه :
()Private Sub Form_Load
Dim STitle As String
Dim SPrompt As String
"...STitle = "Start a program
"...SPrompt = "Type the name of a program
SHRunDialog Me.hWnd, 0, 0, StrConv(STitle, vbUnicode), StrConv(SPrompt, vbUnicode), 0
End Sub
API شماره20: با این تابع می تونیم درایوها رو فرمت بکنیم.(البته نمایش دیالوگ فرمت).
تعریف تابع و ثابت ها :
Const SHFD_CAPACITY_DEFAULT = 0 ' Default drive capacity
Const SHFD_CAPACITY_360 = 3 ' 360KB, applies to 5.25" drives only
Const SHFD_CAPACITY_720 = 5 ' 720KB, applies to 3.5" drives only
Const SHFD_FORMAT_QUICK = 0 ' Quick format
Const SHFD_FORMAT_FULL = 1 ' Full format
Const SHFD_FORMAT_SYSONLY = 2 ' Copies system files only (Win95)
Private Declare Function SHFormatDrive Lib "shell32" (ByVal hwndOwner As Long, ByVal iDrive As Long, ByVal iCapacity As Long, ByVal iFormatType As Long) As Long
کد نمونه :
()Private Sub Form_Load
SHFormatDrive Me.hWnd, 0, SHFD_CAPACITY_DEFAULT, SHFD_FORMAT_QUICK
End Sub
نکته : عدد 0 و عدد 1 برای فلاپی دیسک و عددهای بالاتر ( به تعداد درایو های شما بستگی دارد ) برای بقیه درایوهاست و اگر هر کدام را وارد کنید دیالوگ مر بوط به فرمت کردن آن درایو نمایش داده خواهد شد.(مثال: عدد 3 دیالوگ درایو C را نمایش خواهد داد ) .
API شماره21: کار این تابع بررسی اتصال شما به شبکه یا اینترنت است.
تعریف تابع :
Const NETWORK_ALIVE_AOL = &H4
Const NETWORK_ALIVE_LAN = &H1
Const NETWORK_ALIVE_WAN = &H2
Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
کد نمونه :
()Private Sub Form_Load
Dim CRes As Long
If IsNetworkAlive(CResult) = 0 Then
"!MsgBox " Not Connected to a Network
Else
MsgBox "Connected to a" & IIf(CRes = NETWORK_ALIVE_AOL, "AOL", IIf(CRes = "NETWORK_ALIVE_LAN, "LAN", "WAN")) & "Network
End If
End Sub
نکته : اگر شما به شبکه اینترنت متصل باشید خروجی شما اتصال شبکه ای WAN خواهد بود .
نکته : این تابع ها فقط در ویندوز اکس پی آزمایش شده اند.
منبع : كد نويس
codenevis.com
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط
رضا عبدالملكي