{
	"minimum-stability": "dev",
	"require": {
		"imsaintx/utils": "dev-master",
		"rmccue/requests": "dev-master"
	}
}

<?php
	
	error_reporting(E_ALL);
	
	set_time_limit(0);
	
	date_default_timezone_set("Europe/Istanbul");
	
	# Forum kullanıcı adınız
	define("VB_USERNAME", "");
	
	# Forum şifreniz
	define("VB_PASSWORD", "");
	
	# Göndermek istediğiniz mesajı buraya yazın.
	define("VB_MESSAGE", "Mesajınız bu kısma gelecek!");
	
	require("vendor/autoload.php");
	
	use \Tools\Utils;
	
	//Utils::utf8_header("text/plain");
	
	Requests::register_autoloader();
	
	$forum = (object) array(
		"index_url" => "https://www.r10.net/", // forum urlsi
		"login_url" => "https://www.r10.net/login.php?do=login", // forum login urlsi
		"thread_url" => "https://www.r10.net/php/1218480-merhabalar-bakabilirmisiniz-arkadaslar.html", // konu urlsi
		"post_reply_url" => "https://www.r10.net/newreply.php?do=postreply" // konuya cevap urlsi
	);
	
	function generate_session_url($name, $url = null)
	{
		global $forum;
		
		$url = is_null($url) ? $forum->{$name} : $url;
		
		return "/" . ltrim(str_replace($forum->index_url, "", $url), "/");
	}
	
	$user = (object) array(
		"name" => VB_USERNAME,
		"password" => VB_PASSWORD
	);
	
	$params = (object) array(
		"login" => array(
			"cookieuser" => "1",
			"do" => "login",
			"s" => "",
			"securitytoken" => "guest",
			"vb_login_md5password" => md5($user->password),
			"vb_login_md5password_utf" => md5($user->password),
			"vb_login_password" => "",
			"vb_login_username" => $user->name,
		)
	);
	
	$session = new Requests_Session($forum->index_url);
	
	$session->useragent = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20100101 Firefox/29.0";
	$session->timeout = 30;
	
	$session->post(generate_session_url("login_url"), array(), $params->login);
	
	echo "# Logged In.<br />";
	
	$request = $session->get(generate_session_url("thread_url"));
	
	$form = preg_match(
		"#\<tbody\sid\=\"qr\_error\_tbody\"(.*?)qr\_init\(\)\;#si",
		$request->body,
		$matches
	) ? end($matches) : null;
	
	$inputs = preg_match_all(
		"#\<input(.*?)\/>#si",
		$form,
		$matches
	) ? end($matches) : null;
	
	$fields = array();
	
	foreach($inputs as $input)
	{
		$type = preg_match("#type\=\"(.*?)\"#si", $input, $matches) ? end($matches) : null;
		
		if($type != "submit" && $type != "reset" && $type != "button")
		{
			$name = preg_match("#name\=\"(.*?)\"#si", $input, $matches) ? end($matches) : null;
			$value = preg_match("#value\=\"(.*?)\"#si", $input, $matches) ? end($matches) : null;
			
			$fields[$name] = $value;
		}
	}
	
	$fields["message"] = VB_MESSAGE;
	
	ksort($fields);
	
	$reply_url = generate_session_url("post_reply_url", Utils::add_query_arg("t", $fields["t"], $forum->post_reply_url));
	
	$request = $session->post($reply_url, array(), $fields);
	
	echo "# Send Post.";