تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود لاخذ صورة من سطح المكتب
#21
كود :
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

انا عملت كده ومافيش نتيجة برضو ليه ايه الخطأ
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تعديل كود ارسال صورة الى الواتس new_programer 2 114 21-03-24, 10:07 PM
آخر رد: new_programer
  [VB.NET] تحويل المشروع سطح المكتب للعمل على الويب Doby 3 359 13-01-24, 04:22 AM
آخر رد: dr.programming
  وضع صورة كخلفية للبروقرس بار لكن!! سعود 1 572 27-08-22, 03:46 PM
آخر رد: DR.YASER
  البحث عن صورة kebboud 5 996 23-08-22, 02:20 AM
آخر رد: Taha Okla
  ماهي طريقة عمل download لصورة من قاعدة البيانات sql إلى سطح المكتب ؟ جيولوجي مبتدئ 2 833 19-08-22, 10:53 PM
آخر رد: جيولوجي مبتدئ
  كيفية اضافة صورة كخلفية في الكريستال ريبورت atefkhalf2004 1 692 22-07-22, 05:06 PM
آخر رد: أبو خالد الشكري
  استعراض صورة من listview الى picturbox Lathe1 1 585 12-07-22, 03:26 PM
آخر رد: Lathe1
  تعديل صورة مكان صورة محفوظة في قاعدة البيانات mustafa mohamed 2 1,524 26-03-22, 07:00 PM
آخر رد: mustafa mohamed
  [VB.NET] عرض صورة مخزنة فيdatabase محمد بوقزاحة 0 753 26-03-22, 06:48 PM
آخر رد: محمد بوقزاحة
  [VB.NET] ايه افضل طريقة لاستخراج ارقام من صورة ؟ الماجيك مسعد 2 1,150 17-03-22, 03:52 PM
آخر رد: الماجيك مسعد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم