WolfTeam Clan - Winrate berechner!

[.reex™]

Der Offizieller Win-Rate berechner von

• Wozu dient der Win Rate berechner?

Der Win-Rate berechner kann echt nützlich für den Clan sein:
» Sagen wir mal ihr habt eine 73% Win rate:
57 Siege, 21 Niederlagen.
Euer Ziel aber war es 80% zu haben und zu halten.

Wie viele Siege braucht ihr noch bis zu den 80?

-> Dieses Tool berechnet euch wie viele Siege ihr noch bis zu der bestimmten % Zahl noch braucht, die ihr wollt!

Für uns ( Cooperativ ) war es und ist es sehr nützlich, deshalb wollen wir euch dieses auch ermöglichen.

(c) by
WolfTeam Clan

VT:

Download:

[PureDeLayzz]

Nice Danke !

[G00DCooperativ]

Nice,Bro.

[iMostLiked]

Na ja, dein Release hättest du dir auch sparen können.
Das einzige, was dieses Programm macht, ist, eine Verbindung zu folgender Seite aufzubauen -> dann dort die entsprechenden Werte eintragen und am Ende das Ergebnis auszulesen. Dass du dir dafür "Copyright" und "Credits" gibst ist unterste Schublade, mein Lieber.

Leecher. So etwas hätte man in VB.net einfach programmieren können.

 Spoiler

Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As EventArgs)
Me.Height = (Me.Height + 10)
If (Me.Height = 312) Then
Me.Timer2.Stop()
Me.RichTextBox1.Text = Me.WebBrowser1.Document.Body.InnerText
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("OptionalDas letzte, das du hörst, sind unsere Waffen!Home | Contact Home Join us! News Member Contact About Winrate TeamSpeak³ Server Pictures Wolfteam", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Sidebar Menu", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Home", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Join us!", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("News", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Member", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Contact", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("About", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("TeamSpeak³ Server", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Pictures", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Wolfteam", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Winrate Rechner", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Programmed by ELWarrior", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Links ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Wolfteam Homepage ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Wolfteam Liga ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Contact ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("pascal.haas96@gmail. com", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Thanks to", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Pascal [ELWarrior]", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Dominik [iJ3loodHeart]", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("2012 ELWarrior Home RSS Feed | XHTML | CSS ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("Links", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" Liga ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace("©", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Replace(" page ", Nothing)
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Me.RichTextBox1.Text = Me.RichTextBox1.Text.Remove(0, (Me.RichTextBox1.Lines(0).Length + 1))
Dim list`11 As List(Of String) = New List(Of String)(Me.RichTextBox1.Lines)
list`11.RemoveAt(2)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(3)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(4)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(5)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(6)
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(7)
Me.RichTextBox1.Lines = list`11.ToArray()
Me.RichTextBox1.Lines = list`11.ToArray()
list`11.RemoveAt(8)
Me.RichTextBox1.Lines = list`11.ToArray()
Me.Label4.Text = Me.RichTextBox1.Text
Me.Label4.Show()
Me.WebBrowser1.Navigate("http://optional.cwsurf.de/winrate.html")
End If
End Sub

[DerController]

eliteleechers