Instant Link Indexer

<?php
$apikey='YOUR_API_KEY_HERE';

// build the POST query string
$qstring='apikey='.$apikey.'&cmd=remaininglimit';

// Do the API Request using CURL functions
$ch = curl_init();
curl_setopt($ch,CURLOPT_POST,1);
curl_setopt($ch,CURLOPT_URL,'http://www.instantlinkindexer.com/api.php');
curl_setopt($ch,CURLOPT_HEADER,0);
curl_setopt($ch,CURLOPT_RETURNTRANSFER,1);
curl_setopt($ch,CURLOPT_TIMEOUT,40);
curl_setopt($ch,CURLOPT_POSTFIELDS,$qstring);
$response=curl_exec($ch);
curl_close($ch);

echo $response;
?>

<?php
$apikey='YOUR_API_KEY_HERE';
$campaign='CAMPAIGN_NAME_HERE';

// All Links to be sent are hold in an array for example
$urls=array('http://www.site1.com','http://www.site2.com/');

// build the POST query string and join the URLs array with | (single pipe)
$qstring='apikey='.$apikey.'&cmd=submit&campaign='.$campaign.'&urls='.urlencode(implode('|',$urls));

// Do the API Request using CURL functions
$ch = curl_init();
curl_setopt($ch,CURLOPT_POST,1);
curl_setopt($ch,CURLOPT_URL,'http://www.instantlinkindexer.com/api.php');
curl_setopt($ch,CURLOPT_HEADER,0);
curl_setopt($ch,CURLOPT_RETURNTRANSFER,1);
curl_setopt($ch,CURLOPT_TIMEOUT,40);
curl_setopt($ch,CURLOPT_POSTFIELDS,$qstring);
curl_exec($ch);
curl_close($ch);
?>

Dim Apikey As String = "YOUR_API_KEY_HERE"
Dim Campaign As String = "CAMPAIGN_NAME_HERE"
Dim Urls() As List(Of String) = {"http://www.site1.com","http://www.site2.com/"}

Dim Qstring As String = "apikey=" & Apikey & "&cmd=submit&campaign=" & Campaign & "&urls=" & Join(Urls.ToArray, "|")

Try
   Dim wb As WebClient = New WebClient
   wb.Proxy = Nothing
   wb.UploadString("http://www.instantlinkindexer.com/api.php", "POST", Qstring)
   Catch ex As WebException
End Try

Dim Apikey As String = "YOUR_API_KEY_HERE"
Dim Campaign As String = "CAMPAIGN_NAME_HERE"
Dim Urls() As List(Of String) = {"http://www.site1.com","http://www.site2.com/"}

Dim Qstring As String = "apikey=" & UrlEncode(Apikey) & "&cmd=submit&campaign=" & UrlEncode(Campaign) & "&urls=" & UrlEncode(Join(Urls.ToArray, "|"))

Try
   Dim myHttpWebRequest As HttpWebRequest = CType(WebRequest.Create("http://www.instantlinkindexer.com/api.php"), HttpWebRequest)
   myHttpWebRequest.AllowAutoRedirect = True
   myHttpWebRequest.Timeout = 40000
   myHttpWebRequest.ReadWriteTimeout = 40000
   myHttpWebRequest.Method = "POST"
   myHttpWebRequest.ContentType = "application/x-www-form-urlencoded"

   Dim postBuffer As Byte() = System.Text.Encoding.UTF8.GetBytes(Qstring)
   myHttpWebRequest.ContentLength = postBuffer.Length
   Dim requestStream As Stream = myHttpWebRequest.GetRequestStream()
   requestStream.Write(postBuffer, 0, postBuffer.Length)
   requestStream.Flush()
   requestStream.Close()
   requestStream.Dispose()

   Dim myHttpWebResponse As HttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)

   Dim streamIn As StreamReader = New StreamReader(myHttpWebResponse.GetResponseStream())
   streamIn.ReadToEnd()
   streamIn.Close()
   myHttpWebResponse.Close()
   Catch e As WebException
End Try

string Apikey = "YOUR_API_KEY_HERE";
string Campaign = "CAMPAIGN_NAME_HERE";
List[] Urls = {
"http://www.site1.com",
"http://www.site2.com/"
};

string Qstring = "apikey=" + UrlEncode(Apikey) + "&cmd=submit&campaign=" + UrlEncode(Campaign) + "&urls=" + UrlEncode(Strings.Join(Urls.ToArray, "|"));

try {
WebClient wb = new WebClient();
wb.Proxy = null;
wb.UploadString("http://www.instantlinkindexer.com/api.php", "POST", Qstring);
} catch (WebException ex) {
}