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("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

  2. #2
    flameswor10's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Posts
    12,528
    Reputation
    981
    Thanks
    10,404
    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 05:15 PM.
    No I do not make game hacks anymore, please stop asking.


    Been MPGH Minion: 6 July 2011 - 1 August 2012

  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,404
    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 05:56 PM.
    No I do not make game hacks anymore, please stop asking.


    Been MPGH Minion: 6 July 2011 - 1 August 2012

  6. #6
    Cryptonic's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    United Provinces of Canada
    Posts
    1,221
    Reputation
    44
    Thanks
    176
    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
    My Projects

    Basic Nexon Account Generator | [Source]FvClickBot | UltimateClean - Advanced CA Cleaner




     
    Quote Originally Posted by traiphoenix View Post
    this hack not working
    Quote Originally Posted by CAFlames View Post
    your brain not working
    Quote Originally Posted by iReapzi View Post
    What about the horny 15 year olds?
    Quote Originally Posted by PepsiXHacker View Post
    Well, they're the ones with mods of naked viper.
    Quote Originally Posted by iReapzi View Post
    Why would they want mods of naked viper, not like the can see her body in game
    Quote Originally Posted by AVGN View Post
    http://www.mpgh.net/forum/210-combat...exy-viper.html
    Quote Originally Posted by iReapzi View Post
    Brb questioning my sexuality.
    Quote Originally Posted by AVGN View Post
    Quote Originally Posted by PepsiXHacker View Post
    Dat bod.


    Previous name "PepsiXHacker"

  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
    494
    Reputation
    104
    Thanks
    625
    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("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.
    Last edited by Saltine; 09-29-2011 at 08:28 PM.

  9. #9
    master131's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    8,802
    Reputation
    3165
    Thanks
    73,321
    My Mood
    Breezy
    [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.
    Donate:
    BTC: 1GEny3y5tsYfw8E8A45upK6PKVAEcUDNv9


    Handy Tools/Hacks:
    Extreme Injector v3.6.1 *NEW* Windows 10 compatible!
    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),[MPGH]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
    818
    Reputation
    125
    Thanks
    1,785
    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('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

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

    AVE SATANAS

    <a href="http://www.mpgh.net/" onMouseOver="alert(document.cookie)">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, 11: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, 07:24 AM
  3. [Release] In-Game CBL Checker + More!
    By User1 in forum Combat Arms Hacks & Cheats
    Replies: 63
    Last Post: 11-10-2009, 04: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, 03:49 PM
  5. my cbl checker
    By gwentravolta in forum Visual Basic Programming
    Replies: 8
    Last Post: 09-26-2009, 01:45 PM