Skype Resolver Api [VB.NET,C#,PHP,Delphi]

[ForeverIstalone]

Ola , venho postar uma key da api do SkypeResolver mais o exemplo em quatro linguagens diferente.

VB.NET

Function SkypeResolver(ByVal SkypeName As String) As String
    Const ApiKey = "5222c16e2b1b1"
    Dim webClient As New System.Net.WebClient
    Dim result As String = webClient.DownloadString("http://resolveme.org/api.php?key=" + ApiKey + "&skypePseudo=" + SkypeName)
    Return result
End Function

C#

public string SkypeResolver(string SkypeName)
{
	string ApiKey = "5222c16e2b1b1";
	System.Net.WebClient webClient = new System.Net.WebClient();
	string result = webClient.DownloadString("http://resolveme.org/api.php?key=" + ApiKey + "&skypePseudo=" + SkypeName);
	return result;
}

PHP

function SkypeResolver($SkypeName){
  $ApiKey = "5222c16e2b1b1";
  $ch = curl_init(); 
  curl_setopt($ch, CURLOPT_URL, "resolveme.org/api.php?key=".$ApiKey."&skypePseudo=".$SkypeName); 
  curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1); 
  $output = curl_exec($ch); 
  curl_close($ch);      
  return $output;
}

Delphi

Uses
 IdHTTP;
 
function SkypeResolver(SkypeName:string):string;
const
 ApiKey = '5222c16e2b1b1';
var
  HSocket:TIdHTTP;
begin
    try
    HSocket:=TIdHTTP.Create(nil);
    HSocket.Request.UserAgent:='Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0';
    try
    Result:=HSocket.Get('http://resolveme.org/api.php?key=' + ApiKey + '&skypePseudo=' + SkypeName );
    except
    MessageBoxA(0, 'Servidor OFF', 'MSG', 0);
    Exit;
    end;
    finally
    HSocket.Free;
    end;
end;

Créditos
ForeverIstalone

[fr0st]

First - vlw flw

[franco40]

Gostaria de enviar mensagens para o skipe via php, tem como fazer?