21 تابع از توابع كاربردي API در برنامه نويسي ويژوال بيسيك ( سري چهارم )
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط رضا عبدالملكي
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در 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 کردن ویندوزه.
تعریف تابع :
ادامه توابع ...
21 تابع از توابع كاربردي API در برنامه نويسي ويژوال بيسيك ( سري سوم )
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط رضا عبدالملكي
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در NotPad ويندوز كپي و سپس استفاده كنيد ...
API شماره 11 : کار این تابع عوض کردن زبان صفحه کلید از انگلیسی به فارسی و بر عکسه.
تابع توی یه ماژول :
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
pwszKLID : این متغییر رشته 9 رقمی است که کد زبان رو مشخص میکنه.
flags : مقدار این متغییر برابر (1) خواهد بود.
کد تبدیل به فارسی توی دکمه :
()Private Sub Command1_Click
(StrLocId = LoadKeyboardLayout("00000429", 1
End Sub
کد بازگشت به انگلیسی توی دکمه :
()Private Sub Command2_Click
(StrLocId = LoadKeyboardLayout(vbNull, 1
End Sub
API شماره 12 : این تابع کلید های زده شده موقع کار با ویندوز رو بر میگردونه حتی اگه فکوس رو فرم برنامه نباشه.
برای این کار از تابع زیر استفاده می کنیم :
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
برای این که برنامه بتونه در هر زمان کلید فشرده شده رو تشخیص بده باید یه تایمر (Timer1) رو فرممون قرار بدیم.
کد برنامه :
ادامه توابع ...
21 تابع از توابع كاربردي API در برنامه نويسي ويژوال بيسيك ( سري دوم )
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط رضا عبدالملكي
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در 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 :
ادامه توابع ...
21 تابع از توابع كاربردي API در برنامه نويسي ويژوال بيسيك ( سري اول )
ارسال در تاريخ دوشنبه 9 آذر 1388 توسط رضا عبدالملكي
نكته : در صورتي كه كد ها در صفحه به هم ريخته ميباشد آنها را در NotPad ويندوز كپي و سپس استفاده كنيد ...
API شماره 1 : API اول درمورد تغییر برچسب درایو هاست . یعنی شما می تونید با این تابع برچسب درایوهارو عوض کنید.
تعریف تابع توی یک ماژول.
Public Declare Function SetVolumeLabelA Lib "kernel32.dll" (ByVal lpRootName As String, ByVal lpVolumeName As String) As Long
lpRootName : مسیر درایو ریشه مثل "C:\" میشه.
lpVolumeName : برچسب جدید درایو مثل "VisualBasic"
نحوه استفاده تو برنامه :شما اول یک متغییر از نوع Long البته با توجه به نوع خروجی تابع تعریف می کنید بعد به صورت زیر استفاده می کنید :
Dim A As Long
()Private Sub Commad1_Click
("A = SetVolumeLabelA("C:\", "VisualBasic
End Sub
>> اگه تابع درست کار کند مقدار A عددی غیر صفر ، در غیر این صورت A=0 خواهد بود.
َAPI شماره 2 : API دوم در مورد محاسبه زمان سپری شده از روشن شدن سیستم شماست . البته بر حسب میلی ثانیه.
--> تعریف تابع توی یک ماژول :
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
این تابع فقط یک خروجی دارد که زمان سپری شده سیستم است:
نحوه استفاده در برنامه : مانند تابع قبل یه منغییر از نوع Long تعریف میکنید و به صورت زیر استفاده می کنید :
Dim A as Long
()Private Sub Command1_Click
A = timeGetTime
Text1.Text = A
End Sub
>>اگر تابع درست کار کند A برابر با زمان سپری شده و در غیر این صورت A=0 خواهد بود.
َAPI شماره 3 : سومی درمورد کپی گرفتن از یک فایله .
تعریف تابع توی یک ماژول :
ادامه توابع ...