Unconfigured Ad Widget

Collapse

Anúncio

Collapse
No announcement yet.

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

Collapse
X
 
  • Filter
  • Tempo
  • Show
Clear All
new posts

  • Font Size
    #1

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

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


    VB.NET
    Código:
    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#
    Código:
    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
    Código:
    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
    Código:
    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

  • Font Size
    #2
    First - vlw flw


    Comment


    • Font Size
      #3
      Gostaria de enviar mensagens para o skipe via php, tem como fazer?

      Comment

      X
      Working...
      X