Forum: Sample code for making an HTTP request

Support Center > Forum > General > Sample code for making an HTTP request

Product Pages: Website Forum Hosting, Website Forum Hosting Pricing, Website Forum Hosting Features, Website Forum Hosting Examples

Sample code for making an HTTP request

HTML
Java/JSP
Perl
PHP
JavaScript
ASP
VB.Net

HTML

<img src="REQUEST URL" border=0 width=1 height=1>

Java/JSP

<%@ page import="java.util.*" %> <%@ page import="java.net.*" %> <%@ page import="java.io.*" %> <% // setup the request // REQUEST URL should be replaced by the URL you need to request // For example: http://USERNAME.websitetoolbox.com/register/create_account // (Replace USERNAME with your Website Toolbox username. If you are using a managed domain or a subdomain, use that instead of USERNAME.websitetoolbox.com.) URL u = new URL("REQUEST URL"); URLConnection uc = u.openConnection(); uc.setDoOutput(true); uc.setRequestProperty("Content-Type","application/x-www-form-urlencoded"); // add the query string // For example: String query = "apikey=APIKEY&member=joe&pw=secret"; String query = ""; PrintWriter pw = new PrintWriter(uc.getOutputStream()); pw.println(query); pw.close(); // get the input from the request BufferedReader in = new BufferedReader( new InputStreamReader(uc.getInputStream())); String res = in.readLine(); in.close(); %>

Perl

This method requires the LWP::UserAgent module.

#!/usr/bin/perl # setup the request use LWP::UserAgent; $ua = new LWP::UserAgent; # REQUEST URL should be replaced by the URL you need to request # For example: http://USERNAME.websitetoolbox.com/register/create_account # (Replace USERNAME with your Website Toolbox username. If you are using a managed domain or a subdomain, use that instead of USERNAME.websitetoolbox.com.) $req = new HTTP::Request 'POST','REQUEST URL'; $req->content_type('application/x-www-form-urlencoded'); # add the query string # For example: $query = "apikey=APIKEY&member=joe&pw=secret"; $query = ""; $req->content($query); # send the request $res = $ua->request($req); if ($res->is_error) { # HTTP error } # the $res->content variable holds the XML result # use XML::Simple to parse the returned XML print "content-type: text/plain\n\n";

PHP

We recommend installing the curl PHP extension before using this code.

<?php /* Example parameters are given below. Replace these with the actual parameters for the URL. */ /* For Registration Integration*/ /* ------------------------------------------------------------------ */ $parameters = "member=curltest6"; $parameters .= "&apikey=APIKEY"; $parameters .= "&pw=curltest"; $parameters .= "&email=curltest@test6.com"; $parameters .= "&name=Curl Test"; $HOST = "USERNAME.websitetoolbox.com"; // (Replace USERNAME with your Website Toolbox username. If you are using a managed domain or a subdomain, use that instead of USERNAME.websitetoolbox.com.) $URL = "/register/create_account?". urlencode($parameters); $response_xml = doHTTPCall($URL,$HOST); $response_xml = preg_replace_callback('/<!\[CDATA\[(.*)\]\]>/', 'filter_xml', $response_xml); $response_xml = simplexml_load_string($response_xml); $response_msg = trim(htmlentities($response_xml->error)); if ($response_msg == "Registration Complete") { echo "Success!"; } else { echo "Registration Failed..."; echo "$response_msg"; } /* $response returns a status as "Registration Complete", "Error: The username "username" has already been taken.", or "Error: You entered an invalid email address". You can update your website's database according to the responce recieved.*/ /* For Login Integration */ /* ------------------------------------------------------------------ */ $parameters .= "apikey=APIKEY"; $parameters .= "&user=USERNAME"; $HOST = "USERNAME.websitetoolbox.com"; // (Replace USERNAME with your Website Toolbox username. If you are using a managed domain or a subdomain, use that instead of USERNAME.websitetoolbox.com.) $URL = "/register/setauthtoken?". urlencode($parameters); $response_xml = doHTTPCall($URL,$HOST); $response_xml = preg_replace_callback('/<!\[CDATA\[(.*)\]\]>/', 'filter_xml', $response_xml); $response_xml = simplexml_load_string($response_xml); $authtoken = htmlentities($response_xml->authtoken); if (!$authtoken) { echo "Login Failed..."; echo $response_xml->errormessage; } /********************** Helper Functions ***********************/ /* Description: This Function is used to POST values on the Website Toolbox server Parameters: $URL - Requested script url $HOST - server host */ function doHTTPCall($URL,$HOST){ if (_checkBasicFunctions("curl_init,curl_setopt,curl_exec,curl_close")) { $ch = curl_init("http://".$HOST.$URL); curl_setopt($ch, CURLOPT_HEADER, 0); curl_setopt($ch, CURLOPT_FOLLOWLOCATION, 1); curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); $response = curl_exec($ch); curl_close($ch); } else if (_checkBasicFunctions("fsockopen,fputs,feof,fread,fgets,fclose")) { $fsock = fsockopen($HOST, 80, $errno, $errstr, 30); if (!$fsock) { echo "Error! $errno - $errstr"; } else { $headers .= "POST $URL HTTP/1.1\r\n"; $headers .= "HOST: $HOST\r\n"; $headers .= "Connection: close\r\n\r\n"; fputs($fsock, $headers); // Needed to omit extra initial information $get_info = false; while (!feof($fsock)) { if ($get_info) { $response .= fread($fsock, 1024); } else { if (fgets($fsock, 1024) == "\r\n") { $get_info = true; } } } fclose($fsock); }// if } return $response; } function filter_xml($matches) { return trim(htmlspecialchars($matches[1])); } /* Description: Function used to check if the given functions are available with the given php version Parameters: $functionList - comma separated function names */ function _checkBasicFunctions($functionList) { $functions = split(",",$functionList); foreach ($functions as $key=>$val) { $function = trim($val); if (!function_exists($function)) { return false; } } return true; } // end _checkBasicFunctions ?>

JavaScript

Note: Due to restrictions imposed by web browsers on network connections across domains, you would have to create a web proxy using one of the server-side programming languages to send a JavaScript HTTP request to our servers.

Documentation:

W3Schools

<script>
<!--

var myxmlhttp;

doRequest();

function doRequest () {
	// REQUEST URL should be replaced by the URL you need to request
	// For example: http://USERNAME.websitetoolbox.com/register/create_account?apikey=APIKEY&member=test&pw=test1&email=john@doe.com
	// (Replace USERNAME with your Website Toolbox username. If you are using a managed domain or a subdomain, use that instead of USERNAME.websitetoolbox.com.)
	var url = "REQUEST URL";
	myxmlhttp = CreateXmlHttpReq(resultHandler);

if (myxmlhttp) {
		XmlHttpGET(myxmlhttp, url);
	} else {
		alert("An error occured while attempting to process your request.");
		// provide an alternative here that does not use XMLHttpRequest
	}
}

function resultHandler () {
	// request is 'ready'
	if (myxmlhttp.readyState == 4) {
		// success
		if (myxmlhttp.status == 200) {
			alert("Success!");
			// myxmlhttp.responseText is the content that was received from the request

// Registration : in the registration process xmlRootNode return current status that user registered or not.		
			var responsedata = myxmlhttp.responseXML;
			var xmlRootNode = responsedata.getElementsByTagName("error")[0].firstChild.nodeValue;
			//alert(xmlRootNode);

// Lgoin : after login on forum user get access token, this token used on login success page.
			var responsedata = myxmlhttp.responseXML;
			var xmlRootNode = responsedata.getElementsByTagName("authtoken")[0].firstChild.nodeValue;
			//alert(xmlRootNode);

} else {
			alert("There was a problem retrieving the data:\n" + req.statusText);
		}
	}
}

function CreateXmlHttpReq(handler) {
	var xmlhttp = null;

if (window.XMLHttpRequest) {
		xmlhttp = new XMLHttpRequest();
	} else if (window.ActiveXObject) {
		// users with activeX off
		try {
			xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
		} catch (e) {}
	}

if (xmlhttp) xmlhttp.onreadystatechange = handler;

return xmlhttp;
}

// XMLHttp send GEt request
function XmlHttpGET(xmlhttp, url) {
	try {
		xmlhttp.open("GET", url, true);

xmlhttp.send(null);
	} catch (e) {}
}

-->
</script>

ASP

<% ' Start out declaring our variables. ' You are using Option Explicit aren't you? Dim objWinHttp Dim strHTML ' New WinHTTP v5.1 - from MS: ' ' With version 5.1, WinHTTP is now an operating-system component ' of the following systems: ' - Microsoft Windows Server 2003 family ' - Microsoft Windows XP, Service Pack 1 ' - Microsoft Windows 2000, Service Pack 3 (except Datacenter Server) Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5") ' Full Docs: ' http://msdn.microsoft.com/library/en-us/winhttp/http/portal.asp ' ' If you have trouble or are getting connection errors, ' try using the proxycfg.exe tool. ' Here we get the request ready to be sent. ' First 2 parameters indicate method and URL. ' The third is optional and indicates whether or not to ' open the request in asyncronous mode (wait for a response ' or not). The default is False = syncronous = wait. ' Syntax: ' .Open(bstrMethod, bstrUrl [, varAsync]) ' REQUEST URL should be replaced by the URL you need to request ' For example: http://USERNAME.websitetoolbox.com/register/create_account ' (Replace USERNAME with your Website Toolbox username. If you are using a managed domain or a subdomain, use that instead of USERNAME.websitetoolbox.com.) objWinHttp.Open "GET", "REQUEST URL" ' Send it objWinHttp.Send ' Print out the request status: Response.Write "Status: " & objWinHttp.Status & " " _ & objWinHttp.StatusText & "<br />" ' Get the text of the response. strHTML = objWinHttp.ResponseText ' Trash our object now that I'm finished with it. Set objWinHttp = Nothing %>

VB.Net

// Import below packages. Imports System.Xml Imports System.IO Imports System.Text Imports System.Net //For login integration //Example parameters are given below. Replace these with the actual parameters for the URL. Dim wtb_username As String wtb_username = "USERNAME" Dim wtb_api As String wtb_api = "APIKEY" Dim wtb_host As String wtb_host = "http://" & wtb_username & ".websitetoolbox.com" Dim wtb_url As String wtb_url = "/register/setauthtoken?apikey=" & wtb_api & "&user=" & "member" Dim Wtb_token As String Wtb_token = doHTTPCall(wtb_url, wtb_host) Dim wtb_str_login As String wtb_str_login = wtb_host & "/register/dologin?authtoken=" & Wtb_token Dim wtb_str_logout As String wtb_str_logout = Wtb_token Session("login_url") = wtb_str_login Session("logout_url") = wtb_str_logout //Pass Session("login_url") on the login sussess page in an image. Just like below //<img src='Session("login_url")' border='0' width='1' height='1' alt=''> //Pass Session("logout_url") on the logout sussess page in an image. Just like below //<img src='wtb_host & "/register/logout?authtoken=" & Session("logout_url")' border='0' width='1' height='1' alt=''> // For registration integration //Example parameters are given below. Replace these with the actual parameters for the URL. Dim wtb_username As String wtb_username = "USERNAME" Dim wtb_api As String wtb_api = "APIKEY" Dim wtb_host As String // (Replace USERNAME with your Website Toolbox username. If you are using a managed domain or a subdomain, use that instead of USERNAME.websitetoolbox.com.) wtb_host = "http://" & wtb_username & ".websitetoolbox.com" Dim member As String member = "Joe" Dim pass As String pass = "secret" Dim email As String email = "joe@test.com" Dim parameter As String parameter = "member=" & member & "&apikey=" & wtb_api & "&pw=" & pass & "&email=" & email Dim wtb_url As String wtb_url = "/register/create_account?" & parameter Dim Wtb_register As String Wtb_register = doHTTPCall(wtb_url, wtb_host) // Description: This Function is used to post values on the Website Toolbox server and get responce Public Function doHTTPCall(ByVal URL As String, ByVal HOST As String) As String Try Dim wtb_str As String wtb_str = HOST & URL Dim m_xmld As XmlDocument Dim m_nodelist As XmlNodeList Dim m_node As XmlNode 'Create the XML Document m_xmld = New XmlDocument() 'Load the Xml file m_xmld.Load(wtb_str) 'Get the list of name nodes m_nodelist = m_xmld.SelectNodes("response") For Each m_node In m_nodelist 'Get the Gender Attribute Value Dim authtoken = m_node.ChildNodes.Item(0).InnerText doHTTPCall = authtoken Next Catch errorVariable As Exception 'Error trapping 'Console.Write(errorVariable.ToString()) End Try End Function

If you still need assistance, please contact customer support.