Nice leech there
You didn't code this AT ALL.
That source has been around since 2010.
@=Peace=
Anything you wanna say?
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:
'Enjoy Coded By =Peace= Thanks!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
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?
Last edited by flameswor10; 09-29-2011 at 04:15 PM.
No I do not make game hacks anymore, please stop asking.
ohh i know this code long ago i have been a coder since 2009 ?
I still say Peace is a boss coder
ok what ever then don't comment if u don't like it
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.
[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]
[MPGH]AVGN (10-03-2011),flameswor10 (09-29-2011),Light. (09-30-2011)
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...
Delphi OfcauseCode: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;
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>