حالة الموضوع:
مغلق
  1. SaMi--DZ

    SaMi--DZ Developer

    الأنتساب:
    ‏5 أكتوبر 2011
    المشاركات:
    41
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    6
    الوظيفة:
    NoThinG
    الإقامة:
    AlGeRiA
    بسم الله الرحمن الرحيم

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


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

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

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

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

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

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

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

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

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



    [​IMG]

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

    [​IMG]

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

    كود PHP:
    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


    [​IMG]

    و نضيف ...

    [​IMG]

    كود PHP:
    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
    و نحفظ عملنا

    [​IMG]

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

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


    [​IMG]

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

    [​IMG]

    [​IMG]

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

    http://filaty.com/s/xnO

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

     
  2. احمد العراقي

    احمد العراقي ExpErt DeveloPer

    الأنتساب:
    ‏17 سبتمبر 2011
    المشاركات:
    164
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    16
    الإقامة:
    ~ IQ-T34M ~
    موفـق اخـوي
     
  3. ExPLo!T-Dz

    ExPLo!T-Dz <div class="alqab2">.:: فريــق الـفحـص ::.</span> مساعد مشرف

    الأنتساب:
    ‏18 سبتمبر 2011
    المشاركات:
    69
    الإعجابات المتلقاة:
    4
    نقاط الجائزة:
    8
    الإقامة:
    D Z
    الله عليك ياملك
    شرح رائع ^:"

     
  4. MR.BLAMS

    MR.BLAMS Developer

    الأنتساب:
    ‏17 سبتمبر 2011
    المشاركات:
    21
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    1
    الإقامة:
    Qatar
    رد: شرح صناعة برنامج لارسال الرسائل Email من دون الاعتماد على Winsock بكل سهولة

    مشكوررر يابطل ​
     
حالة الموضوع:
مغلق

مشاركة هذه الصفحة