VISUAL_BASICSHOW TO MAKE THE BEST FAKE EMAIL SENDER !

Imports System.Net.NetworkInformation
Public Class SendForm


    Private Sub SendForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Suxes.Show()
        Suxes.Close()


    End Sub


    Private Sub ToEmail_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles ToEmail.KeyUp
        Suxes.WebBrowser1.Document.GetElementById("email").InnerText = ToEmail.Text
    End Sub
    Private Sub ToEmail1_KeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles SenderEmail.KeyUp
        Suxes.WebBrowser1.Document.GetElementById("sender").InnerText = SenderEmail.Text
    End Sub


    Private Sub ToEmssail1_sKeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles Subject.KeyUp
        Suxes.WebBrowser1.Document.GetElementById("subject").InnerText = Subject.Text
    End Sub
    Private Sub ToEmssaissl1_sKeyUp(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles Content.KeyUp
        Suxes.WebBrowser1.Document.GetElementById("msg").InnerText = Content.Text
    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If System.Net.NetworkInformation.NetworkInterface.Get  IsNetworkAvailable Then




            If ToEmail.Text = "" Or SenderEmail.Text = "" Or Content.Text = "" Then
                MsgBox("Please Fill In The Required Fields(*)", MsgBoxStyle.Information)
            Else
                    Suxes.WebBrowser1.Document.All("submit").InvokeMember("click")
                
            End If
        Else
            MsgBox("No Internet Connection" _
                   & vbNewLine & "Check Your Internet Connectivity", MsgBoxStyle.Critical)
        End If
    End Sub


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Suxes.WebBrowser1.Url = New Uri(The Done PHP) Then
            If Suxes.WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                Suxes.Show()
                Me.Enabled = False
            End If
        Else


        End If
        
    End Sub
End Class

Public Class Suxes


    Private Sub Suxes_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        e.Cancel = True
        Me.Hide()
        SendForm.Enabled = True
        WebBrowser1.Navigate(The Send PHP)


    End Sub


    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick


        If WebBrowser1.Url = New Uri(The Send PHP) Then
            If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
                SendForm.ToEmail.Enabled = True
                SendForm.SenderEmail.Enabled = True
                SendForm.Subject.Enabled = True
                SendForm.Content.Enabled = True
                WebBrowser1.Document.GetElementById("email").InnerText = SendForm.ToEmail.Text
                WebBrowser1.Document.GetElementById("sender").InnerText = SendForm.SenderEmail.Text
                WebBrowser1.Document.GetElementById("subject").InnerText = SendForm.Subject.Text
                WebBrowser1.Document.GetElementById("msg").InnerText = SendForm.Content.Text
            Else

                SendForm.ToEmail.Enabled = False
                SendForm.SenderEmail.Enabled = False
                SendForm.Subject.Enabled = False
                SendForm.Content.Enabled = False


            End If
        Else
        End If
    End Sub




End Class

<html>
<table border=4>
<form action="sent.php" method="post">
<tr><td>Recipent: </td><td><input type=text id="email" name=email size=30></td></tr>
<tr><td>Sender Email: </td><td><input type=text id="sender" name=name size=30></td></tr>
<tr><td>Subject: </td><td><input type=text id="subject" name=subject size=30></td></tr>
<tr><td>Content: </td><td><textarea rows=10 cols=30 id="msg" name=content></textarea></td></tr>
<tr><td><input type=submit id="submit" value="Send Mail"></td></tr>
</form>
</table>
</html>

<?php
$email = $_POST['email'];
$content = nl2br($_POST['content']);
$name = $_POST['name'];
$sender = $_POST['sender'];
$subject = $_POST['subject'];
$headers = "From: $name ". "".$sender."\r\n";
//add boundary string and mime type specification
$headers .= 'MIME-Version: 1.0' . "\r\n";
$headers .= 'Content-type: text/html; charset=iso-8859-1' . "\r\n";
//send the email
mail($email, $subject, $content, $headers );
echo"<h1>Success</h1>\n";
echo"<p>The e-mail was successfully sent to <i>" . $email . "</i></p>\n";
echo"<p>From: <i>" . $name . "</i></p>\n";

echo"<p>Subject: <i>" . $subject . "</i></p>\n";
echo"<p>Message:</p>\n";
echo"<p><b>" . $content . "</b></p>";
?>
<script type="text/javascript">
<!--
var disabled_message = "You can't Right-Click";
document.oncontextmenu = function() 
{ 
   return false; 
}
document.onmousedown = function md(e) 
{ 
  try 
  { 
     if (event.button==2||event.button==3) 
     {
        if (disabled_message != '')
           alert(disabled_message);
        return false; 
     }
  }  
  catch (e) 
  { 
     if (e.which == 3) return false; 
  } 
}
// -->
</script>