۳۱-تير-۱۳۸۷, ۱۵:۲۲:۵۱
کد:
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2من میخوام کلید پیرینت اسکرین رو با این تابع فشار بدم و بعد ولش کنم
و بعد عکس رو داخل یک فایل ذخیره کنم.
کد پرینت اسکرین : 44
کد:
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Sub Form_Load()
Clipboard.Clear
P.Cls
keybd_event 44, 0, 0, 0
keybd_event 44, 0, KEYEVENTF_KEYUP, 0
Set Picture.Picture = Clipboard.GetData(2)
End Subاین کد بالا ناقص هست.از دوستانی که اینجا هستن خواهش میکنم کمکم کنن و عجله هم ندارم
