كود لاخذ صورة من سطح المكتب - نسخة قابلة للطباعة

كود :
Imports System.Web

Imports System.IO

Imports System.Net.Mail

Public Class Form1



    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        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)

        PictureBox1.Size = bitm.Size

        PictureBox1.Image = bitm



        Dim mail As MailMessage = New MailMessage()

        mail.To.Add("any email")

        mail.From = New MailAddress("your gmail account")

        mail.Subject = "Email using Gmail"



        Dim Body As String = "<b>Hi</b>, this mail is to test sending mail using Gmail in ASP.NET"

        mail.Body = Body



        mail.IsBodyHtml = True

        Dim smtp As SmtpClient = New SmtpClient()

        smtp.Host = "smtp.gmail.com"

        smtp.Credentials = New System.Net.NetworkCredential("your gmail account", "your gmail password")

        smtp.EnableSsl = True

        smtp.Send(mail)

        MsgBox("نجح الارسال")



    End Sub



    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click



    End Sub



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

        MyEmail.SendFile(Image)

    End Sub



    Private Function MyEmail() As Object

        Throw New NotImplementedException

    End Function



    Private Function Image() As Object

        Throw New NotImplementedException

    End Function



End Class