شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

تم تحميل الصفحة في 1,1441911 ثانية
شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

SaMi--DZ

ExpErt DeveloPer
rankrankrankrank
إنضم
25 أكتوبر 2009
المشاركات
1,535
الإعجابات
820
النقاط
113
بسم الله الرحمن الرحيم

السلام عليكم و رحمة الله تعالى و بركاته


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

هذه الفئة الجديدة و هذا عادي ان لا نرى مواضيع كثيرة

و لا يهمنا عدد المواضيع بقدر ما يهمنا نوعيتها

اليوم نشرح صناعة برنامج لارسال الرسائل من دون الاعتماد

على اداة Winsock المزعجة كما تستطيع ملف مع الرسالة

الطريقة بسيطة جدا و سنشرحها

و حتى نحفظ الحقوق الطريقة ليست من استكشافي

نحتاج الى برنامج Microsoft Visual Basic 6.0

نفتح البرنامج و نتابع الشرح بالصور





نضغط دوبل كليك على الفورم



و نضنيف هذا الكود

كود:
Option Explicit
 
Private Sub Form_Load()
    Dim c As New Class1
     
    With c
        .Server = "smtp.live.com"
        .Port = 587
        .Server = "smtp.gmail.com"
        .Port = 465
        .UseAuntentificacion = True
        .SSL = True
         
        .User = "امليكـــ"
        .Password = "باسوورد الاميل"
         
        .Subject = "Example" ' عنوان الرسالة
        .AttachedFile = "c:\File.zip" 'في حال اردت ارسال ملف مع الرسالة
         
        .From = "اعد كتابة اميلك"
        .Destinatary = "الاميل الذي تريد الارسال اله"
        .Message = "اكتب الرسالة هنا"
         
        If .SendMail Then MsgBox "Mail Sent", vbInformation, "cSendMail" ' ستضهر هذه الرسالة في حال تم الارسال بنجاح
     
    End With
     
    Set c = Nothing
End Sub
بعد ملئ المشروح لا تنسى حذف الكتابة

التي بالعربية حتى لا تقع في خطا

الان نضيف Class




و نضيف ...



كود:
Option Explicit
'======================================================================
' ? Class      : cSendMail
' ? Author     : Mr.Frog ©
' ? Country    : Spain
' ? Mail       : [email protected]
' ? Dedicated  : f0rce & limited
' ? Twitter    : http://twitter.com/#!/PsYkE1
' ? Reference  :
'       http://goo.gl/Mdqlv [recursosvisualbasic.com.ar]
' ? Recommended ************sites :
'       http://foro.h-sec.org
'       http://www.hackhound.biz
'       http://InfrAngeluX.Sytes.Net
'======================================================================
Private Declare Function GetFileAttributesW Lib "KERNEL32" (ByVal lpFileName As Long) As Long
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
 
Private Const MICROSOFT_CDO_CONFIGURATION$ = "http://schemas.microsoft.com/cdo/configuration/"
 
Private lngPort&
Private strUser$
Private strPass$
Private strFrom$
Private strServer$
Private strSubject$
Private strMessage$
Private strDestinatary$
Private strAttachedFile$
Private objCDO                  As Object
Private bolUseAuntentificacion  As Boolean
Private bolSSL                  As Boolean
 
'~~~~~~~~~~~~~~~~~~~> Properties
Friend Property Let Server(ByRef Value$): strServer = Value: End Property
Friend Property Let Destinatary(ByRef Value$): strDestinatary = Value: End Property
Friend Property Let From(ByRef Value$): strFrom = Value: End Property
Friend Property Let Subject(ByRef Value$): strSubject = Value: End Property
Friend Property Let Message(ByRef Value$): strMessage = Value: End Property
Friend Property Let AttachedFile(ByRef Value$): strAttachedFile = Value: End Property
Friend Property Let Port(ByVal Value&): lngPort = Value: End Property
Friend Property Let User(ByRef Value$): strUser = Value: End Property
Friend Property Let Password(ByRef Value$): strPass = Value: End Property
Friend Property Let UseAuntentificacion(ByVal Value As Boolean): bolUseAuntentificacion = Value: End Property
Friend Property Let SSL(ByVal Value As Boolean): bolSSL = Value: End Property
 
'~~~~~~~~~~~~~~~~~~~> Function
Friend Function SendMail() As Boolean
    If InternetGetConnectedState(&H0&, &H0&) Then
        If LenB(strPass) = 0 Then Exit Function
        If LenB(strUser) = 0 Then Exit Function
        If LenB(strFrom) = 0 Then Exit Function
        If LenB(strServer) = 0 Then Exit Function
        If LenB(strDestinatary) = 0 Then Exit Function
        If lngPort < 0 Or lngPort > &HFDE8& Then Exit Function
 
        On Error GoTo FatalError
        With objCDO
            With .Configuration
                .Fields(MICROSOFT_CDO_CONFIGURATION & "smtpserver") = strServer
                .Fields(MICROSOFT_CDO_CONFIGURATION & "sendusing") = &H2&
                 
                With .Fields
                    .Item(MICROSOFT_CDO_CONFIGURATION & "smtpserverport") = lngPort
                    .Item(MICROSOFT_CDO_CONFIGURATION & "smtpauthenticate") = Abs(bolUseAuntentificacion)
                    .Item(MICROSOFT_CDO_CONFIGURATION & "smtpconnectiontimeout") = &HA&
         
                    If bolUseAuntentificacion Then
                        .Item(MICROSOFT_CDO_CONFIGURATION & "sendusername") = strUser
                        .Item(MICROSOFT_CDO_CONFIGURATION & "sendpassword") = strPass
                        .Item(MICROSOFT_CDO_CONFIGURATION & "smtpusessl") = bolSSL
                    End If
                     
                    .Update
                End With
            End With
     
            .To = strDestinatary
            .From = strFrom
            .Subject = strSubject
            .TextBody = strMessage
     
            If LenB(strAttachedFile) Then
                '// GetFileAttributesW is the fastest way to check if a file exists.
                If GetFileAttributesW(StrPtr(strAttachedFile)) > -1 Then
                    .AddAttachment (strAttachedFile)
                End If
            End If
 
            .Send
        End With
         
        SendMail = True
    End If
     
FatalError:
End Function
 
Private Sub Class_Initialize()
    Set objCDO = CreateObject("CDO.Message")
End Sub
 
Private Sub Class_Terminate()
    Set objCDO = Nothing
End Sub
و نحفظ عملنا



الان نضغط دوبل كليك على و اذا تم الارسال بنجاح

ستضهر هذه النافدة




الان نذهب للاميل الذي ارسلنا اليه الرسالة





تحميل الصور و الاكواد

http://filaty.com/s/xnO

نلتقي في موضوع اخر

اهداء الى جميع المتتبعين
 
إنضم
2 سبتمبر 2010
المشاركات
201
الإعجابات
58
النقاط
0
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

يشرفني اول من يرد عليك اخوي و حبيبي سامي الله يعطيك الف عافية

:32:
 

hamza02

ExpErt DeveloPer
rankrankrankrankrankrank
إنضم
15 أغسطس 2010
المشاركات
4,528
الإعجابات
843
النقاط
113
الإقامة
ALGERIE
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة



شكرا لك على هذا الموضوع الرائع
وصراحة موضوع جميل ومميز أيضا يستحق
عليه الشكر والتقدير !!!



وأتمنى أن أرى مواضيعك الرائعة دائما ليفوح
منتدانا بعطر وعبق أزهارك الجميلة والحلوة
وأتمنى أن لا ننحرم من فن إبداعك أبدا !!!


 

Mr.CoBrA

ExpErt DeveloPer
rankrankrankrankrank
إنضم
25 أكتوبر 2009
المشاركات
2,298
الإعجابات
265
النقاط
83
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

الله يعطيك الف عافيه
ابداع لا حدود له
كان بدي اقيمك لكن للاسف
يجب أن تضع للبعض سمعات قبل إعطائها إلى SaMi--DZ مرة أخرى.
وشكر لك على الاهداء مشرف
في انتضار جديدك
:9:
 

malek blogas

Beginner Developer
rankrank
إنضم
10 مارس 2011
المشاركات
378
الإعجابات
11
النقاط
0
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

:30:
رائع اخي
ابداع والله
وااصل وبنتضار جديدك
:32::32:
 

SaMi--DZ

ExpErt DeveloPer
rankrankrankrank
إنضم
25 أكتوبر 2009
المشاركات
1,535
الإعجابات
820
النقاط
113
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

يشرفني اول من يرد عليك اخوي و حبيبي سامي الله يعطيك الف عافية

:32:
اهلا هاني

منور حبيبي :26:
 

SaMi--DZ

ExpErt DeveloPer
rankrankrankrank
إنضم
25 أكتوبر 2009
المشاركات
1,535
الإعجابات
820
النقاط
113
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة



شكرا لك على هذا الموضوع الرائع
وصراحة موضوع جميل ومميز أيضا يستحق
عليه الشكر والتقدير !!!



وأتمنى أن أرى مواضيعك الرائعة دائما ليفوح
منتدانا بعطر وعبق أزهارك الجميلة والحلوة
وأتمنى أن لا ننحرم من فن إبداعك أبدا !!!


صحيت حمزة

زيد شعر هكا السمانة الجاية

ترومبلاصي نزار قباني :29:
 
إنضم
9 مارس 2011
المشاركات
519
الإعجابات
415
النقاط
0
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة


السّلام عليكم

ما خلّيتنّا والو خويا سامي راك كلّ يوم حاجة جديدة رايح ديرلي عقدة :31:

أنا دخلت غير على إختراق الأجهزة و التّشفير اليوم راني في عالم آخر

و تخلطت الحالة :29: ربّي يبارك فيك و يبعّد عليك العين :8:
 

3ztilek

ExpErt DeveloPer
rankrankrankrankrank
إنضم
20 أغسطس 2010
المشاركات
2,117
الإعجابات
144
النقاط
0
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

مبدع تسلم يدك على الشرح المفصل:9:
 

SaMi--DZ

ExpErt DeveloPer
rankrankrankrank
إنضم
25 أكتوبر 2009
المشاركات
1,535
الإعجابات
820
النقاط
113
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

الله يعطيك الف عافيه
ابداع لا حدود له
كان بدي اقيمك لكن للاسف
يجب أن تضع للبعض سمعات قبل إعطائها إلى sami--dz مرة أخرى.
وشكر لك على الاهداء مشرف
في انتضار جديدك
:9:
صحيت خويا كبرا

و الله عجبني التوقيع تاعك عندك الحق فيه :13:
 

Toolz

Active DeveloPer
rankrankrank
إنضم
9 مارس 2011
المشاركات
594
الإعجابات
61
النقاط
28
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

يجب أن تضع للبعض سمعات قبل إعطائها إلى SaMi--DZ مرة أخرى.
:9::9:
 

R.P.G

ExpErt DeveloPer
rankrankrankrankrankrank
إنضم
11 مارس 2011
المشاركات
3,749
الإعجابات
574
النقاط
0
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

يعطيك العافية
 
إنضم
16 يناير 2012
المشاركات
754
الإعجابات
110
النقاط
0
رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

:40::40::40:
:41:​

قمه الرقى بالطرح
وقمه الابداع
بطرح الجديد
صراحه اتمنى لك المزيد والمزيد من التقدم
يا طيب
:41:
الى الامام يابطل​

:37:
والله ندامه اول مره ادخل هذا القسم
:)

:38:
 

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل