+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Visual Basic Programming (http://parsicoders.com/forumdisplay.php?fid=39)
+---- انجمن: Visual Basic 6 (http://parsicoders.com/forumdisplay.php?fid=44)
+---- موضوع: فیلمبرداری از دسکتاپ با وی بی 6 (/showthread.php?tid=2474)
فیلمبرداری از دسکتاپ با وی بی 6 - Thewolf - 06-20-2012
س !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! دوستان خسته نباشید !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
آیا کسی سورسی یا کدی برای فیلمبرداری از صفحه دسکتاپ داره؟ خودم تو گوگل جست و جو کردم فقط تونستم این کد پیدا کنم که اونم به درد کار من نمی خوره. من کدی رو می خوام که از دسکتاپ فیلمبرداری کنه و اونو تو یه جایی ذخیره کنه. این کد رو واسه برنامه جاسوسی می خوام. اگه کسی پاسخ بده ممنون می شم !!!!!
کد:
Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
Timer1.Interval = "20"
AutoRedraw = True
End Sub
Private Sub Timer1_Timer()
Dim handel, DC As Long
handel = GetDesktopWindow
DC = GetDC(handel)
StretchBlt Me.hdc, 0, 0, Width, Height, DC, 0, 0, Screen.Width, Screen.Height, vbSrcCopy
Refresh
End SubRE: فیلمبرداری از دسکتاپ با وی بی 6 - Amin_Mansouri - 06-20-2012
درود
بفرمایید :
Screen_Record(www.parsicoders.com).zip (اندازه 19.82 KB / تعداد دانلود: 59)