منتدى عشاق البرامج

منتدى عام للبرامج والبرمجة
 
الرئيسيةالبوابةاليوميةس .و .جبحـثالأعضاءالمجموعاتالتسجيلدخول

شاطر | 
 

 برنامج بالفيجول بارزك لإرسال الرسائل المجهولة

اذهب الى الأسفل 
كاتب الموضوعرسالة
somame
Admin
Admin
avatar

المساهمات : 381
تاريخ التسجيل : 19/04/2008
العمر : 33

مُساهمةموضوع: برنامج بالفيجول بارزك لإرسال الرسائل المجهولة   الثلاثاء مايو 13, 2008 2:34 pm

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


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

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

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



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


نبدأ:

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








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







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

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







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






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

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








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

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







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

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







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

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







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

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

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

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

بعد الأنتهاء .








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



وباقي شي وهو اضافة الأكواد لمشروعنا على شان يصير المروع كامل مكمل.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://somame.mam9.com
somame
Admin
Admin
avatar

المساهمات : 381
تاريخ التسجيل : 19/04/2008
العمر : 33

مُساهمةموضوع: رد: برنامج بالفيجول بارزك لإرسال الرسائل المجهولة   الثلاثاء مايو 13, 2008 2:37 pm

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



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


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




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


كود:
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. Code should have been: " + ResponseCode + " Code recieved: " + Response, 64, MsgTitle

Exit Sub

End If

Wend

Response = ""

End Sub

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


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

على شان كل واحد يتأكد من مشروعه او يصحح أخظاءه.
الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://somame.mam9.com
 
برنامج بالفيجول بارزك لإرسال الرسائل المجهولة
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى عشاق البرامج :: منتدى البرمجة-
انتقل الى: