صفحه اول
به وبلاگ آموزش برنامه نویسی خوش آمدید ، برای شما لحظات خوشی را در این وبلاگ آرزو می کنم . این وبلاگ با هدف آموزش برنامه نویسی با تمام زیان ها ایجاد شده است به همین خاطر مطالب این پایگاه گلچینی از بهترین آموزش ها در اینترنت می باشد . من "رضا عبدالملکی " دانشجوی دوره کاردانی رشته کامپیوتر از شهرستان دورود در استان لرستان هستم و منتظر نظرات ، پیشنهادات و انتقادات شما می باشم . موفق و پیروز باشید .
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در NotPad ويندوز كپي و سپس استفاده كنيد ...
َAPI شماره 7 : این API برای مخفی کردن دکمه Start ویندوز.این یکی از تابع قبلی باحالتره.
مثل همیشه تعریف تابع توی یه ماژول.تو این برنامه سه تا تابع لازمه:
Public OP As Long
Public OH As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Const SW_HIDE = 0
Public Const SW_SHOW = 5
از تابع FindWindow برای پیدا کردن هندل TaskBar و از تابع FindWindowEx برای پیدا کردن هندل دکمه Start که در واقع فرم فرزند (ChildForm) TaskBar ویندوزه استفاده می کنیم.از تابع ShowWindow هم برای کار اصلی استفاده می کنیم.
حالا برای مخفی کردن دکمه Start کد زیر رو مینویسیم:
Private Sub HideStart_Click()
("" ,"OP& = FindWindow("Shell_TrayWnd
(OH& = FindWindowEx(OP&, 0, "Button", vbNullString
ShowWindow OH&, SW_HIDE
End Sub
این کد هم برای نمایش دوباره دکمه Start :
()Private Sub ShowStart_Click
("" ,"OP& = FindWindow("Shell_TrayWnd
(OH& = FindWindowEx(OP&, 0, "Button", vbNullString
ShowWindow OH&, SW_SHOW
End Sub
َAPI شماره 8 : از این تابع برای پیدا کردن مسیر پوشه ویندوز استفاده میشه که خیلی هم به درد می خوره.
کد تابع توی یه ماژول :
Public Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
lpBuffer : مقدار اين بافر توسط تابع مقدار دهي مي شود و مقدار بر گشتي آن مسير نصب ويندوز خواهد بود.
nSize : طول بافر lpBuffer است.
کد اجرایی هم توی Form_Load برنامه :
Private Sub Form_Load()
Dim WINPath As String
Dim StrBuffer As String
((StrBuffer = String(255, Chr$(0
(((WINPath = Left$(StrBuffer, GetWindowsDirectory(StrBuffer, Len(StrBuffer
MsgBox "Windows Folder : " & WINPath
End Sub
API شماره 9 : این تابع لیست همه درایو های سیستم رو برای شما تهیه میکنه.
کد تابع توی یه ماژول :
Public Declare Function GetLogicalDriveStrings Lib "kernel32" Alias "GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
توی این برنامه هم نقش اصلی رو بافر و طول بافر هر درایو که مشخص کننده اون درایوه بازی میکنه.
کد اصلی برنامه هم توی Form_Load :
Private Sub Form_Load()
Dim StrBuffer As String
Me.AutoRedraw = True
((StrBuffer = String(255, Chr$(0
(ret& = GetLogicalDriveStrings(255, StrBuffer
For I = 1 To 100
If Left$(StrBuffer, InStr(1, StrBuffer, Chr$(0))) = Chr$(0) Then Exit For
(Me.Print Left$(StrBuffer, InStr(1, StrBuffer, Chr$(0)) - 1
(((StrBuffer = Right$(StrBuffer, Len(StrBuffer) - InStr(1, StrBuffer, Chr$(0
Next I
End Sub
API شماره 10 : از این تابع برای جستجوی یک فایل استفاده می شه . این تابع برای پیدا کردن فایل مورد نظر همه قسمت های درایو رو جستجو میکنه و اگه فایل پیدا شد مسیر دقیق اون رو برای شما نمایش میده.
تعریف تابع توی ماژول :
Public Declare Function SearchTreeForFile Lib "imagehlp" (ByVal RootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Long
Public Const MAX_PATH = 260
RootPath : مسیر محلی که باید جستجو بشه. مثل " C:\ "
InputPathName : اسم فایل با پسوند. مثل " Ali.TXT "
OutputPathBuffer : بافر مسیر خروجی.
ثابت MAX_PATH هم که حداکثر بافر مسیر مورد جستجو رو مشخص میکنه.
کد اصلی باز هم توی Form_Load برنامه :
()Private Sub Form_Load
Dim TempStr As String
Dim Result As Long
(TempStr = String(MAX_PATH, 0
(Result = SearchTreeForFile("C:\", "Ali.txt", TempStr
If Result <> 0 Then
(MsgBox "Located file at " + Left$(TempStr, InStr(1, TempStr, Chr$(0)) - 1
Else
"!MsgBox "File not found
End If
End Sub
از متغییر TempStr برای مقدار دهی به بافر خروجی استفاده شده.
خروجی تابع عددی خواهد شد که در متغییر Result قرارخواهد گرفت.اگر Result=0 باشد بیانگر این است که فایل مورد نظر یافت نشده و اگر Result عددی غیر صفر باشد فایل مورد نظر پیدا شده است.
منبع : كد نويس
codenevis.com
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط
رضا عبدالملكي