Hey there, I just coded this Skype resolver and I think this might be interesting for some of you beginners! :) So I don't want to give away the API, I got it from a member that is giving it away to L33t/Ub3rs only in this thread If you are not upgraded, just google for one. :)
Screenshot of my Resolver:
Spoiler (Click to View)
So there you go boys! :)
Explanation : in the Connection.Get function you have to enter the url of your API as string, usually they end with : 'username=' this is why I had a + username at the end.
Screenshot of my Resolver:
Spoiler (Click to View)
So there you go boys! :)
Code
var
Form1: TForm1;
sSourcecode, sIP, sUsername: String;
Connection: TIdHTTP;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
sUsername := Edit1.Text; // Reads the username in the Edit
Connection := TIdHTTP.Create(nil); //Opens the connection
sSource := Connection.Get('Your API here' + sUsername);
sIP := Copy(sQuelltext, Pos('<h1 class = "IP">', sQuelltext));
Label1.Caption := 'IP: ' + sIP;
end;Explanation : in the Connection.Get function you have to enter the url of your API as string, usually they end with : 'username=' this is why I had a + username at the end.

![[Image: 12536b3c24d26693f1ade0835a173020.png]](https://i.gyazo.com/12536b3c24d26693f1ade0835a173020.png)