Introducing MPGH's AIGA. The latest advancement in artificial intelligence. Click here now to learn more!
Results 1 to 13 of 13
  1. #1
    =Peace='s Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    CA,PB,CF,SmartAlley's Mansion
    Posts
    498
    Reputation
    -5
    Thanks
    585
    My Mood
    Sneaky

    Wink 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("https://thecaconline.net/cbl/player/" + TextBox1.Text + ".html")
            wc.Dispose()
            If Strings.Contains("https://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

  2. #2
    flameswor10's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    12,528
    Reputation
    981
    Thanks
    10,409
    My Mood
    In Love
    Nice leech there
    You didn't code this AT ALL.

    That source has been around since 2010.
    @=Peace=
    Anything you wanna say?
    Last edited by flameswor10; 09-29-2011 at 04:15 PM.
    No I do not make game hacks anymore, please stop asking.

  3. #3
    =Peace='s Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    CA,PB,CF,SmartAlley's Mansion
    Posts
    498
    Reputation
    -5
    Thanks
    585
    My Mood
    Sneaky
    ohh i know this code long ago i have been a coder since 2009 ?

  4. #4
    nxgunguy!'s Avatar
    Join Date
    Jul 2011
    Gender
    male
    Posts
    567
    Reputation
    27
    Thanks
    32
    My Mood
    Cheerful
    I still say Peace is a boss coder

  5. #5
    flameswor10's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    12,528
    Reputation
    981
    Thanks
    10,409
    My Mood
    In Love
    Quote Originally Posted by =Peace= View Post
    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.
    Last edited by flameswor10; 09-29-2011 at 04:56 PM.
    No I do not make game hacks anymore, please stop asking.

  6. #6
    Cryptonic's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    United Provinces of Canada
    Posts
    1,313
    Reputation
    44
    Thanks
    190
    My Mood
    Bored
    Quote Originally Posted by flameswor10 View Post
    Well then you'd realize that theres an easier way of doing this.
    And a more advance way

  7. #7
    =Peace='s Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    CA,PB,CF,SmartAlley's Mansion
    Posts
    498
    Reputation
    -5
    Thanks
    585
    My Mood
    Sneaky
    ok what ever then don't comment if u don't like it

  8. #8
    Saltine's Avatar
    Join Date
    Jun 2011
    Gender
    male
    Posts
    493
    Reputation
    104
    Thanks
    629
    Quote Originally Posted by =Peace= View Post
    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("https://thecaconline.net/cbl/player/" + TextBox1.Text + ".html")
            wc.Dispose()
            If Strings.Contains("https://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!
    https://www.mpgh.net/forum/292-combat...-croshair.html

    See, its funny because you leeched it and then said don't leech it leechers.
    Last edited by Saltine; 09-29-2011 at 07:28 PM.

  9. #9
    master131's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    8,858
    Reputation
    3438
    Thanks
    101,663
    My Mood
    Breezy
    [highlight=vb.net]Private Function PlayerIsDirty(ByVal player As String) As Boolean
    Return New WebClient().DowloadString("https://thecaconline.net/cbl/player/" & player & ".html").Contains("https://thecaconline.net/cbl/images/dirty.png")
    End Function[/highlight]

    1 liner ftw? Lrn2code seriously.
    Donate:
    BTC: 1GEny3y5tsYfw8E8A45upK6PKVAEcUDNv9


    Handy Tools/Hacks:
    Extreme Injector v3.7.3
    A powerful and advanced injector in a simple GUI.
    Can scramble DLLs on injection making them harder to detect and even make detected hacks work again!

    Minion Since: 13th January 2011
    Moderator Since: 6th May 2011
    Global Moderator Since: 29th April 2012
    Super User/Unknown Since: 23rd July 2013
    'Game Hacking' Team Since: 30th July 2013

    --My Art--
    [Roxas - Pixel Art, WIP]
    [Natsu - Drawn]
    [Natsu - Coloured]


    All drawings are coloured using Photoshop.

    --Gifts--
    [Kyle]

  10. The Following 3 Users Say Thank You to master131 For This Useful Post:

    [MPGH]AVGN (10-03-2011),flameswor10 (09-29-2011),Light. (09-30-2011)

  11. #10
    elcamu987's Avatar
    Join Date
    Aug 2010
    Gender
    male
    Posts
    705
    Reputation
    1
    Thanks
    42
    My Mood
    Angelic
    nice thanks and rep you

  12. #11
    HiddenoO's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Anchorage, AK
    Posts
    840
    Reputation
    33
    Thanks
    212
    My Mood
    Devilish
    Quote Originally Posted by =Peace= View Post
    ok what ever then don't comment if u don't like it
    Dude..EVERY single source you've released has been leeched.

    Gtfo.

  13. #12
    Departure's Avatar
    Join Date
    Nov 2010
    Gender
    male
    Posts
    805
    Reputation
    125
    Thanks
    1,794
    My Mood
    Doh
    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('https://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
            ('https://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

  14. #13
    Ghost8631's Avatar
    Join Date
    Jan 2011
    Gender
    male
    Location
    Nebraska
    Posts
    868
    Reputation
    2
    Thanks
    207
    My Mood
    Twisted
    Get out kid. we dont want u here.
    IF I HELP YOU PRESS THANKS.

    AVE SATANAS

    <a href="https://www.mpgh.net/" onMouseOver="alert(documen*****okie)">Mouse Over test</a>

Similar Threads

  1. [Source Code] Simple CBL Checker
    By =Peace= in forum Visual Basic Programming
    Replies: 6
    Last Post: 09-29-2011, 10:48 PM
  2. [Release] Simple Cbl Checker :D
    By pushdis15 in forum Combat Arms Spammers, Injectors and Multi Tools
    Replies: 15
    Last Post: 05-08-2011, 06:24 AM
  3. [Release] In-Game CBL Checker + More!
    By User1 in forum Combat Arms Hacks & Cheats
    Replies: 63
    Last Post: 11-10-2009, 03:13 PM
  4. [Release] D.C Best! Utility-Spammer-CA Cleaner-CBL Checker- CA Texture Remover-More!!!
    By ĎÁŗҚ ĉҰρҢềŔ in forum Combat Arms Hacks & Cheats
    Replies: 33
    Last Post: 10-16-2009, 02:49 PM
  5. my cbl checker
    By gwentravolta in forum Visual Basic Programming
    Replies: 8
    Last Post: 09-26-2009, 12:45 PM