کار با تابع keybd_event

[mahdivbNET]

کد:

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

خوب تو اینجا ما فرض میکنیم یه picturebox به نام picture داریم.
این کد بالا ناقص هست.از دوستانی که اینجا هستن خواهش میکنم کمکم کنن و عجله هم ندارم

[ajlajlajl]

http://forum.iranled.com/showthread.php?tid=9080
اینجا یه کلاس برای این کار هست.