منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اولآ ضع هذه الدالة

[COLOR="#800000"]ثم ضع واحد تايمر واجعل الخاصية Interval=180000 وهي كل ثلاث دقائق
ولنفترض ان حدث ارساله الصوره للإيميل هو SendFile[/COLOR]
طبعآ مقصد كلامي على حسب نوع الايميل الي انته تعمله يعني MyEmail.SendFile(imag) هي كـ فرضية

3booody كتب :اولآ ضع هذه الدالة

كود :

Private Function imag() As Image
        Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
        Dim bitm As New Bitmap(bounds.Width, bounds.Height)
        Dim gr As Graphics = Graphics.FromImage(bitm)
        gr.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, _
CopyPixelOperation.SourceCopy)
        Return bitm
    End Function

[COLOR="#800000"]ثم ضع واحد تايمر واجعل الخاصية Interval=180000 وهي كل ثلاث دقائق
ولنفترض ان حدث ارساله الصوره للإيميل هو SendFile[/COLOR]

كود :

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        MyEmail.SendFile(imag)
    End Sub

طبعآ مقصد كلامي على حسب نوع الايميل الي انته تعمله يعني MyEmail.SendFile(imag) هي كـ فرضية

حياك الله يا اخ عبودى
بس معلش عشان انا معنديش خبرة كافية فى برمجة الاتصال
ممكن تدينى كود كامل عن الفكرة كلها او شرح وافى عن طريقة ارسال الصورة الملتقطة وارسالها اتوماتيك على البريد
شكرا

انا عندى 3 ايميلات
gmail
hotmail
yahoo
واتمنى انك تقترح عليا الانسب من وجهة نظرك
شكرا اخ عبودى على اهتمامك

طب ممكن الطريقة اللى اتعامل بيها او الكود لو سمحت بشكل كامل
شكرا

شاهد هذه المواضيع واستفد منها
موضوع1
موضوع2

3booody كتب :شاهد هذه المواضيع واستفد منها
موضوع1
موضوع2

جزاك الله خيرا
بس انا عارف الطريقة دى
انا عايز البرنامج ينفذ الطريقة بشكل تلقائى بدون تدخل يدوى نهائى
معلش انا طولت عليك اوى بس استحملنى عشان لسه انا مش خبرة فى البرمجة

اي خي مثل ما قلت لك عن التايمر

إقتباس :ثم ضع واحد تايمر واجعل الخاصية Interval=180000 وهي كل ثلاث دقائق
ولنفترض ان حدث ارساله الصوره للإيميل هو SendFile
كود:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MyEmail.SendFile(imag)
End Sub

طبعآ مقصد كلامي على حسب نوع الايميل الي انته تعمله يعني MyEmail.SendFile(imag) هي كـ فرضية

[COLOR="#800000"]واقصد في كلامي MyEmail.SendFile(imag) التالي
MyEmail فئة الايميل التي تم تعريفها
SendFile موشرط اسمه SendFile وهي دالة لإرسال الملف
imag وهي دالة الصوره التي تأخذها من سطح المكتب[/COLOR]

اخي

انصحك لاتتسرع وتتعلم الاساسيات وتبدأ تبحث عن مشاكلك وتبرمج

لان شغل اللخبطة والعشوائية يسبب لك bugs (اخطاء ماتلحظها) في البرامج