PDA

View Full Version : عکس گرفتن از صفحه مانیتور



ab1234
سه شنبه 27 فروردین 1387, 14:24 عصر
سلام دوستان :لبخندساده:
من میخواستم با VB یه برنامه بنویسم که بتونه از صفحه مانیتور عکس بگیره و اونو ذخیره کنه
اگه ممکنه راهنمایی کنید :خجالت:
خیلی ممنووووونم

perfeshnal
سه شنبه 27 فروردین 1387, 14:31 عصر
سلام
دوست عزیز قبل از زدن تاپیک در سایت جستجو کنید.

http://barnamenevis.org/forum/showthread.php?p=291528&highlight=desktop#post291528

ab1234
سه شنبه 27 فروردین 1387, 15:32 عصر
به خاطر توجهتون متشکرم
من اینو قبلا دیدم و این برنامه ای نیست که می خواستم
منظورم دقیقا تصویریه که رو مانیتور نشون داده میشه بود .مثل وقتی که کلید print رو روی کیبورد فشار میدیم این برنامه فقط backgrund رو نشون میده :متفکر:

مهران رسا
سه شنبه 27 فروردین 1387, 21:59 عصر
جناب ab1234 چه اون چیزی که شما منظورتون هست و چه اونی که نیست به دفعات زیادی توی سایت قرار داده شده . یه کمی با حوصله تر جستجو کنید .

H4i0 ACP
چهارشنبه 28 فروردین 1387, 02:52 صبح
دوست عزیز
اگر عجله نداری برنامه ای برات میذارم که علاوه بر عکس گرفتن ، فیلم برداری هم میکنه و فیلمو با فرمت های مختلف ذخیره میکنه.

ab1234
چهارشنبه 28 فروردین 1387, 22:23 عصر
دوست عزیز
اگر عجله نداری برنامه ای برات میذارم که علاوه بر عکس گرفتن ، فیلم برداری هم میکنه و فیلمو با فرمت های مختلف ذخیره میکنه.

اگه این کارو بکنین واقعا ممنون میشم:قلب:

DoctorJay
پنج شنبه 29 فروردین 1387, 03:42 صبح
دوست عزیز
اگر عجله نداری برنامه ای برات میذارم که علاوه بر عکس گرفتن ، فیلم برداری هم میکنه و فیلمو با فرمت های مختلف ذخیره میکنه.

آره بذار تا کاملش کنم و یه Golden eye بسازم :لبخند:

البته با امکانات خودمونیو بدرد بخور . . . . . .

نمی دونم رکورد کردن تصویر مونیتور همراه با صدا هست یا نه , ولی برنامه ضبط صدا رو هم خواستی هست ...

H4i0 ACP
چهارشنبه 04 اردیبهشت 1387, 07:51 صبح
این هم دو نمونه برنامه
شرمنده که دیر شد ......
:خجالت:
---------------------------------
تمامی حق کپی رایت فایل CaptureScr2107713282008.zip مربوط به برنامه نویس برنامه می باشد (که برنامه نویسش من نیستم)
ممنون

nesfenafar
جمعه 09 فروردین 1392, 21:19 عصر
بچه ها من ی برنامه میخواستم که از دسکتاب عکس بندازه واین عکسو بر اساس تاریخ وزمان سیستم ذخیره کنه یعنی اسم عکس همون تاریخ وساعت انداخته شدن عکس باشه
این پروژه درسیمه بین همه پروژه ها فک میکردم راحترین باشه حالا میبینم که خیلی هم سخته برام میشه کمکم کنید
من الان عضو شدم تو سایت یکم گشتم و یه دونه بیشتر برنامه در این مورد نتونستم پیدا کنم که اونم خطا میده اجرا نمیشه

mohammadsamadi1377
جمعه 09 فروردین 1392, 21:27 عصر
کد اصلاح شد

Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt 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 opCode As Long) As Long



Private Sub Form_Load()

Dim hwnd As Long
hwnd = GetDesktopWindow()
Dim hdc As Long
hdc = GetDC(hwnd)
Picture1.AutoRedraw = True
Picture1.Width = Screen.Width
Picture1.Height = Screen.Height
BitBlt Picture1.hdc, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, hdc, 0, 0, vbSrcCopy
SavePicture Picture1.Image, App.Path + "\" +"test"& ".bmp"

End Sub

nesfenafar
جمعه 09 فروردین 1392, 21:54 عصر
moahammad این کدهای رو که گذاشتی عکس میندازه و خودش ذخیره میکنه الان من این کدهای رو کپی کردم توی vb اجرا نشد وخطا داد میشه دقیقتر بگی من تازه کارم که تو دردسر گیر کرده ههه:لبخند:
اگه دکمه ی خاصی یا چیزی لازمه توی فرم ایجاد بشه خواهشا اونارو هم بگو ممنون میشم

حالا این عکسا رو که میندازه کجا میخواد ذخیره کنه وای بچه ها به دادم برسید الان سر درد گرفتم به خاطر این برنامه

mehran901
جمعه 09 فروردین 1392, 23:50 عصر
ی نمونه تصویر برداری از دسکتاپ و یا بخش تعیین شده دیگه
102089

nesfenafar
شنبه 10 فروردین 1392, 14:50 عصر
دمت جزغاله مهران :لبخندساده:اینم برنامه خوبیه ولی اونی که من میخوام نیست بذارید توضیح بدم:ناراحت:
ی برنامه که از کل دسکتاب عکس بندازه به طور مستمر بعد اون عکسایی رو که میندازه ی جایی ذخیره کنه با اسم تاریخ وزمان وقت اون عکس گرفتنه
تقریبا ی چیزی شبیه به این برنامه های جاسوسی میخواد این استادمون از من فک کنم :لبخند: اخه وقتی برام مثال زد ی برنامه جاسوسی رو مثال زد که ده ثانیه ده ثانیه از کل دسکتاب عکس مینداخت وی جایی ذخیرش میکرد اسم اون عکسا هم براساس زمان عکس انداختن تعیین میشد
والا این استادا هم انتظاراتی دارنا هههه ازاین modulesایناهم به ما وقتی یاد ندادن من چی براش بسازم اخه :قهقهه:

nesfenafar
شنبه 10 فروردین 1392, 14:57 عصر
اصلا اینارو بیخیال من چه کدی باید بنویسم که کار همون پرینت اسکرین و انجام بده یادمه توی دبیرستان برنامه های مینوشتیم که مثلا با استفاده از دکمه های جهت نمای کیبورد لیبل ها ی ی چیزای دیگه توی فرم این ورو اونور میرفتن کدی رو بلدین که حالا با زدن ی کُمند تو فرم کار پرینت اسکرین رو انجام بده؟
من خیلی وقته دنبال همچین سایتی بودم برای کمک گرفتن از برنامه نویسان انگار خوب جایی اومدما:لبخند:

mohammadsamadi1377
شنبه 10 فروردین 1392, 16:11 عصر
ضمنا ویندوز نمیتونه توی اسم فایل ها : ؟ / \ و غیره رو قرار بده

اگه میخوای اسم عکست رو توی برنامه تغیر بدی باید به جای test اسمی که میخوای رو بزاری

SavePicture Picture1.Image, App.Path + "\" + "Test"& ".bmp"

حله یا نه ؟ :متفکر::متفکر:

اینم یه مثال :

102119

اینم یه کد برا ذخیره با تاریخ و زمان

SavePicture Picture1.Image, App.Path + "\" + Format$(Now, "YYYY-MM-DD HH-MM-SS") & ".bmp"

nesfenafar
شنبه 10 فروردین 1392, 18:11 عصر
حله داداش خود نامردشه فک کنم دمت جزغاله :تشویق:
یکم دست کاریش باید کنم که همونی که میخوام بشه دست گلت درد نکنه
هیچ میدونی خیلی گلی :لبخند:

nesfenafar
چهارشنبه 28 فروردین 1392, 14:25 عصر
سلام ودرود
محمد همین برنامه ای که دادی کدوم قسمتش مربوط به حجم عکسه میشه قسمتی از کدها رو تغییر داد که با حجم کمتری این عکس ها رو ذخیره کنه؟ هر کدوم از عکسا فک کنم دونیم مگ هست نمیشه تغییرش داد تا حجمش هم پایین تر بیاد؟

setroyd
چهارشنبه 28 فروردین 1392, 16:02 عصر
چرا نمیشه ! شما تبدیل کنش به jpg چون پیشفرض vb فایل bmp ]ست برای این میره حجم بالا .

mohammadsamadi1377
چهارشنبه 28 فروردین 1392, 16:14 عصر
عزیز فرقی نمیکنه !!!!!! :متفکر:

setroyd
چهارشنبه 28 فروردین 1392, 16:17 عصر
میخوای تغییر کنه ! منظورم پسوند نبود عزیزم تبدیل بود یعنی convert که با کد میشه یا ocx من خودم اینجا یه برنامه در همین باره نوشتم به اسم best jpg saver اگه ببینید متوجه میشید حجم رو اورده بودم رو 100 یا 200 کیلو بایت . که از هر جای صفحه شما میخواستی میتونستی عکس بگیری با رسم خط .

mehran901
پنج شنبه 29 فروردین 1392, 23:09 عصر
سلام دوستان :لبخندساده:
من میخواستم با VB یه برنامه بنویسم که بتونه از صفحه مانیتور عکس بگیره و اونو ذخیره کنه
اگه ممکنه راهنمایی کنید :خجالت:
خیلی ممنووووونم

البته پاسخ های دیگه رو نخوندم ولی سورس زیر مطمئنا به دردت میخوره
103038

nesfenafar
جمعه 13 اردیبهشت 1392, 11:32 صبح
ها الان من که دقیق نفهمیدم چی شد ولی اره منهم پسوندهاشو تغییر دادم حجمش کم و زیاد نشد بعد ی تعداد عدد و رقم هم توی کدا بود که اونا رو تغییر دادم اونا هم کاری نکردن کلا ریخت به هم
setroyd همون برنامه ای که میگی گذاشتی کجاست؟:متفکر:میشه اینجا هم بذاری ؟

setroyd
جمعه 13 اردیبهشت 1392, 19:10 عصر
http://barnamenevis.org/showthread.php?298576-jpg-saver

nesfenafar
جمعه 01 آذر 1392, 18:24 عصر
بچه ها روش دیگه ای نیست تا حجم عکسهارو اورد پایین؟خیلی حجمشون بالاست
اگه کسی بلد بود بگه ممنون