Simple CBL Checker

CBL Checker / Yea My Way
We Need : 1 Button , 1 Picture Box , 2 Labels , 1 Text Box
Name Label 1 : Player
Name Label 2 : Player's CBL
Code For Button1:
'

Code:

by =peace=
        PictureBox1.Hide()
        Dim Strings As String
        Dim wc As New WebClient

        Strings = wc.DownloadString("http://thecaconline.net/cbl/player/" + TextBox1.Text + ".html")
        wc.Dispose()
        If Strings.Contains("http://thecaconline.net/cbl/images/dirty.png") Then
            'PLAYER IS CBL DIRTY
            PictureBox1.Show()
            Return
        Else
            'PLAYER IS CBL CLEAN
            PictureBox2.Show()
            PictureBox1.Hide()


            Return
        End If

    End Sub

Enjoy Coded By =Peace= Thanks!
Put Credits ... Leechers

Nice leech there

You didn't code this AT ALL.

That source has been around since 2010.
@=Peace=
Anything you wanna say?

ohh i know this code long ago i have been a coder since 2009 ?

Originally Posted by =Peace=

ohh i know this code long ago i have been a coder since 2009 ?

Well then you'd realize that theres an easier way of doing this.

Originally Posted by flameswor10

Well then you'd realize that theres an easier way of doing this.

And a more advance way

I still say Peace is a boss coder

ok what ever then don't comment if u don't like it

Originally Posted by =Peace=

ok what ever then don't comment if u don't like it

Dude..EVERY single source you've released has been leeched.

Gtfo.

Originally Posted by =Peace=

CBL Checker / Yea My Way
We Need : 1 Button , 1 Picture Box , 2 Labels , 1 Text Box
Name Label 1 : Player
Name Label 2 : Player's CBL
Code For Button1:
'

Code:

by =peace= PictureBox1.Hide() Dim Strings As String Dim wc As New WebClient Strings = wc.DownloadString("http://thecaconline.net/cbl/player/" + TextBox1.Text + ".html") wc.Dispose() If Strings.Contains("http://thecaconline.net/cbl/images/dirty.png") Then 'PLAYER IS CBL DIRTY PictureBox1.Show() Return Else 'PLAYER IS CBL CLEAN PictureBox2.Show() PictureBox1.Hide() Return End If End Sub

Enjoy Coded By =Peace= Thanks!
Put Credits ... Leechers

On another forum posted in January, with THE EXACT SAME CODE, FORMATTING, AND VARIABLE NAMES, AND EVEN THE SAME COMMENT AT THE TOP WITH ONLY THE NAME CHANGED:

OMG LOL THE FIRST LINE OF THE OTHER POST IS:

Fail, leech is fail.
Found this already posted from 2010 on MPGH TOO!
http://www.mpgh.net/forum/292-combat...-croshair.html

See, its funny because you leeched it and then said don't leech it leechers.

[highlight=vb.net]Private Function PlayerIsDirty(ByVal player As String) As Boolean
Return New WebClient().DowloadString("http://thecaconline.net/cbl/player/" & player & ".html").Contains("http://thecaconline.net/cbl/images/dirty.png")
End Function[/highlight]

1 liner ftw? Lrn2code seriously.

nice thanks and rep you

And here is the more "Advanced Way" which will show the actual image of the username and give the stats, btw I coded this in 2010 so the url needs to be updated...

Code:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    Button1.Click;
end;

Function Extract(Const sString, Stat: String): String;
Var
  sTemp: String;
begin
  Result := '';
  sTemp := TRegEx.Match(sString, '(?si)<td class="item">' + Stat + '</td>.*?</td>').Value;
  sTemp := TRegEx.Match(sTemp, '(?si)value">.*?</td>').Value;
  Result:= Copy(sTemp, 8, Length(sTemp) - 12);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  IdHTTP1.Free;
end;

Procedure TForm1.ParseStats(Const sString: String);
var
  sTemp: String;
begin
  sTemp := sString;
  Delete(sTemp, 1, pos('<table class="plrStats"', sTemp));
  lblKills.Caption := Extract(sTemp, 'Kills');
  lblDeaths.Caption := Extract(sTemp, 'Deaths');
  lblKDR.Caption := Extract(sTemp, 'KDR');
  lblEXP.Caption := Extract(sTemp, 'Experience');
  lblRank.Caption := Extract(sTemp, 'Ranking');
  lblStreak.Caption := Extract(sTemp, 'Streak');
  lblGP.Caption := Extract(sTemp, 'GP');
  lblHS.Caption := Extract(sTemp, 'HS');
  lblEnlisted.Caption := Extract(sTemp, 'Enlisted');

end;

Procedure TForm1.GetStatus(const UserName: String);
var
  sString: String;
  msPicture: TStream;
  pngPicture: TPngImage;
begin
  msPicture := TMemoryStream.Create;
  pngPicture := TPngImage.Create;
  try
    sString := IdHTTP1.Get('http://player.thecaconline.net/' +
      Pchar(UserName) + '.html');
    if ((AnsiContainsStr(sString, 'dirty.png')) or
      (AnsiContainsStr(sString, 'clean.png'))) then
    begin
      if AnsiContainsStr(sString, 'clean.png') then
        imgStatus.Picture := Image2.Picture
      else
        imgStatus.Picture := Image1.Picture;;

      IdHTTP1.Get
        ('http://combat.nexon.net/Avatar/MyAvatar.srf?GameName=CombatArms&CharacterID='
        + Pchar(UserName), msPicture);
      msPicture.Seek(0, soFromBeginning);
      pngPicture.LoadFromStream(msPicture);
      imgUser.Picture.Assign(pngPicture);
      ParseStats(sString);
    end
    else
      Showmessage('User Not Found!!!');

  finally
    msPicture.Free;
    pngPicture.Free;
    lblSearching.Visible := False;
    IdHTTP1.Disconnect;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  lblSearching.Visible := True;
  Application.ProcessMessages;
  GetStatus(Edit1.Text);
end;

Delphi Ofcause

Get out kid. we dont want u here.

Simple CBL Checker

Similar Threads

Tags for this Thread