طريقة عمل برنامج لارسال رسائل مجهوله بالفيجول بيسك

[أكس مـان]

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


اليوم يا شباب راح نسوي برنامج يرسل رسايل مجهوله على البريد

يعني بالعربي ما تبي احد يعرف ايميلك ارسل له من البرنامج

لما نخلصه ان شاء الله والحين دوركم في الانتباه والتركيز..


=======================================


نبدأ:

اولا نقوم بفتح فورم عاد يجدا في الفيجوال بيسك كما في الصور.

ثانيا هاذي صورة الفورم امامك وهو جاهز للبدء.

ثالث شي نخلي الأزرار الي فوق هي زر واحد فقط يعني نخليه

للاغلاق مافي تكبير ولا تصغير والطريقه واضحه كما في الصوره.

رابعا نقوم بوضع الأدوات التي سوف نستخدمها في الفورم كما في الشكل التالي.

وبهلطريقة تقدر تشكل الشكل وتزينة

خامسا الحين نضيف أداة الوين سوك التي نستخدمها دائما

واليكم كيفية اضافتها في الفورم.

كنا اول نختارها من النظام لاكن الأداة موجوده في القائمة اصلا

فنأخذها من القائمة أسرع كما في الصوره.

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

نبغاه في الفورم.

بعد الكلام هذا الحين نسمي الأدوات الي اضفناها

في الفورم ونسميها زي الصوره هاذي.

وكيذا خلاص نكون خلصنا قصة الأدوات الي في البرنامج

وطبعا كل واحد له ذوق عن الثاني ممكن تسوي اشياء

في مشروعك تتميز عن البقيه مثلا تغير اللون تغير شكل

الأزرار انت وكيفك وهاذي صورة واجهة البرنامج


ويتبع

 

[أكس مـان]

مشاركة: طريقة عمل برنامج لارسال رسائل مجهوله بالفيجول بيسك

الحين جا وقت وضع الأكواد في المشروع الي سويناه.


واليكم الأكواد.



نضع الكود هذا في زر الارسال.



كود:

Private Sub Label5_Click()
SendEmail txtEmailServer.Text, txtFromName.Text, "hotmail@hotmail.com", "hotmail", txtToEmailAddress.Text, Text3.Text, "green"
StatusTxt.Caption = "Mail Sent"
StatusTxt.Refresh
Beep
Close
End Sub



================================================== ========


نضع هذا الكود في أداة الوين سوك.



كود:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData Response
End Sub

================================================ =======



نضع هذا الكود في زر صاحب البرنامج.



كود:

Private Sub Label6_Click()
MsgBox "ضع اسمك هنا", vbInformation, "e-mail:هنا ضع بريدك"
End Sub

============================================= ======


نضع هذا الأمر في زر الخروج


كود:

Private Sub Label4_Click()
End
End Sub

============================================= ===



نضع هذا الكود داخل الفورم في منطقة الأكواد



كود:

Sub SendEmail(MailServerName As String, FromName As String, FromEmailAddress As String, ToName As String, ToEmailAddress As String, EmailSubject As String, EmailBodyOfMessage As String)

Winsock1.LocalPort = 0

If Winsock1.State = sckClosed Then

DateNow = Format(Date, "Ddd") & ", " & Format(Date, "dd Mmm YYYY") & " " & Format(Time, "hh:mm:ss") & "" & " -0600"
first = "mail from:" + Chr(32) + FromEmailAddress + vbCrLf
Second = "rcpt to:" + Chr(32) + ToEmailAddress + vbCrLf
Third = "Date:" + Chr(32) + DateNow + vbCrLf
Fourth = "From:" + Chr(32) + FromName + vbCrLf
Fifth = "To:" + Chr(32) + ToNametxt + vbCrLf
Sixth = "Subject:" + Chr(32) + EmailSubject + vbCrLf
Seventh = EmailBodyOfMessage + vbCrLf
ninth = "......hacker---msn........" + vbCrLf
Eighth = Fourth + Third + ninth + Fifth + Sixth

Winsock1.RemoteHost = MailServerName
Winsock1.RemotePort = 25
Winsock1.Connect

WaitFor ("220")

StatusTxt.Caption = ""
StatusTxt.Refresh

Winsock1.SendData ("HELO worldcomputers.com" + vbCrLf)

WaitFor ("250")

StatusTxt.Caption = "Ê"
StatusTxt.Refresh

Winsock1.SendData (first)

StatusTxt.Caption = ""
StatusTxt.Refresh

WaitFor ("250")

Winsock1.SendData (Second)

WaitFor ("250")

Winsock1.SendData ("data" + vbCrLf)

WaitFor ("354")


Winsock1.SendData (Eighth + vbCrLf)
Winsock1.SendData (Seventh + vbCrLf)
Winsock1.SendData ("." + vbCrLf)

WaitFor ("250")

Winsock1.SendData ("quit" + vbCrLf)

StatusTxt.Caption = ""
StatusTxt.Refresh

WaitFor ("221")

Winsock1.Close
Else
MsgBox (Str(Winsock1.State))
End If

End Sub

=============================================



وهذا الكود ايضا نضعه في الفورم في منطقة الأكواد



كود:

Sub WaitFor(ResponseCode As String)
Start = Timer
While Len(Response) = 0
Tmr = Start - Timer
DoEvents
If Tmr > 50 Then ' Time in seconds to wait
MsgBox "SMTP service error, timed out while waiting for response", 64, MsgTitle
Exit Sub
End If
Wend
While Left(Response, 3) <> ResponseCode
DoEvents
If Tmr > 50 Then
MsgBox "SMTP service error, impromper response code.


================================================== =


هذا درس اليوم ارجو انه يكون سهل ودمتم سالمين والمشروع مرفق

على شان كل واحد يتأكد من مشروعه او يصحح أخظاءه.



أخـــــــــــــوكـــــــــــــــم

x-man

 

[الشاعر]

مشاركة: طريقة عمل برنامج لارسال رسائل مجهوله بالفيجول بيسك

مشكووور يا اكس مان ويعطيك العافيه
بس لو كان الشرح باالصور افضل