کار این تابع عوض کردن زبان صفحه کلید انگلیسی=فازسی

API شماره 3 : کار این تابع عوض کردن زبان صفحه کلید از انگلیسی به فارسی و بر عکس

این تابع را درون یک ماژول بنویسید :

Public Declare Function

LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

pwszKLID

: این متغییر رشته 9 رقمی است که کد زبان رو مشخص میکنه.

flags

کد دکمه تبدیل زبان به فارسی :

: مقدار این متغییر برابر (1) خواهد بود.

(StrLocId = LoadKeyboardLayout("00000429", 1

()Private Sub Command1_Click

End Sub

کد دکمه تبدیل زبان به انگلیسی :

(StrLocId = LoadKeyboardLayout(vbNull, 1

()Private Sub Command2_Click

End Sub

شماره 4 : این API برای مخفی کردن دکمه Start ویندوز

شماره 4 : این API برای مخفی کردن دکمه Start ویندوز

مثل همیشه تعریف تابع توی یه Module :

Public

Public

Public Declare Function

Public Declare Function

Public Declare Function

OP As LongOH As Long ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 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 استفاده می کنیم.Start کد زیر رو بنویسید :

()Private Sub HideStart_Click

("" ,"OP& = FindWindow("Shell_TrayWnd

(OH& = FindWindowEx(OP&, 0, "Button", vbNullString

ShowWindow OH&, SW_HIDE

End Sub

این کد هم برای نمایش دوباره دکمه 

Start است :

("" ,"OP& = FindWindow("Shell_TrayWnd

(OH& = FindWindowEx(OP&, 0, "Button", vbNullString

ShowWindow OH&, SW_SHOW

()Private Sub ShowStart_Click

End Sub

مدت روشن بودن سیستم

مدت روشن بودن سیستم 

تابع زیر مدت زمانی که سیستم روشن است را برمی گرداند:

Private Declare Function GetTickCount Lib "kernel32" () As Long

این تابع را در قسمت General فرم تعریف کنید حال در رویداد Load فرم می نویسیم:

&Retval = GetTickCount

"MsgBox Str$(Fix(Retval / 60000)) + " Minutes you turned On PC

در بالا مقدار برگشتی تابع تقسیم بر 60000 می شود؛چون تابع بر حسب میلی ثانیه خروجی می دهد.

منتظر نظرات و پیشنهادات شما دوستان عزیز هستم...