HELLO 2day I'm Going to Teach you How to Make a Fake Email Sender !!
1st Create a New Project !
Name it anything you want
Make a 2nd Form in order to have total forms of "2"
In Form One ! Name it "SendForm"
add to The Form These Items :
4 Labels
4 Textboxes
1 Button
1 Timer
Then Order Them Like This :
The 1st Textbox Got to Properties and Change name to "ToEmail"
Same For 2nd TextBox name it "SenderEmail"
3rd Textbox name it "Subject"
4th Textbox Name it "Content"
Make All The Textboxes "Enabled = False"(In Their Properties)
For the 4th TextBox Make it MultiLine = True
AND Enable "ScrollBars" and make it "Both"(Find the Scrollbars Thing in it's Properties)
Like This :
And The Timer Enabled = TRUE
Like This :
For The Form Properties :
StartPosition = CenterScreen
FormBorderStyle = Fixed3D
MinimizeBox = False
MaximizeBox = False
Like This :
Then For The 2nd Form :
Edit its name to "Suxes"
StartPosition = CenterScreen
FormBorderStyle = Fixed3D
MinimizeBox = False
MaximizeBox = False
ShowIcon = False
Like This :
Add to it 1 WebBrowser !
and 1 Timer
The Timer Enabled = True Like The Other Timer
Dock The WebBrowser to FILL !
.....
Now to The Codes !
Open The Tab of SendForm
and Press "F7"
Then When COde Opens
CTRL+A and Delete All Codes !
Then Paste This One :
Code:
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
Same To Suxes :
F7
Then Delete All CODES !
and PASTE THIS :
Code:
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
Now Actually There Will Be ONLY 6 Errors
Leave Them We Will Fix Them Later !
...
Now Open NotePad !
Paste in it This Code :
Code:
<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>
And Then Save it As "SenD.php"
Be Careful Of The Capital "D" Should Be The Same !
Then Open a New Notepad
Paste In it This CODE :
Code:
<?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>
And Save It As "sent.php"
ALL SMALL LETTERS !
......
Now Go to 000WebHost
Create a New Website
and Upload These 2 PHP Files
Learn How with this Video :
....
Then Let's Get Back To fix The errors !!
Open The Code of SendForm
Goto The Error
That Says :
Then Delete : The Done PHP
and Type In The Brackets Your Website Link with your SenD.php file
Example :
"https:// yourwebsite.comuv.com / SenD.php /"
Then The Error Should Be Fixed
Then Goto The Suxes Code
and Replace : The Done PHP With the SenD.php Link
ex : "https:// yourwebsite.comuv.com / SenD.php /"
and ALSO REPLACE : The Send PHP with The sent.php link
ex : "https:// yourwebsite.comuv.com / sent.php /"
SHOULD LOOK LIKE THIS :
QUOTES : " " Should Be Typed before & after The Link !
LIKE THE IMAGE ABOVE !
THERE YOU ARE !!
DEBUG AND TRY ITT !!!