This will be great codes for Multi-Tool, or just a simple tool.....
Code for KDR Calculator-
Code:
Function FKDR(ByVal Kills As String, ByVal Deaths As String, ByVal KDR As String)
Dim Result As Double
If KDR = 0 Then
Result = Kills / Deaths
Else
Result = KDR * Kills - Deaths
End If
If KDR < 1 Then
Return Format(Result, "0.00")
Else
Return Format(Result, "0")
End If
End Function
Code for CBL Checker
Code:
Public Sub CBLDirty(ByVal player As String)
Try
Dim Strings As String
Dim wc As New WebClient
Strings = wc.DownloadString("https://thecaconline.net/cbl/player/" + person + ".html")
wc.Dispose()
If Strings.Contains("https://thecaconline.net/cbl/images/dirty.png") Then
'PLAYER IS CBL DIRTY
return true
Else
'PLAYER IS CBL CLEAN
return false
End If
Catch ex As Exception
MsgBox("Error!")
'error
End Try
End Sub
Credit
Jusmaid "Main Coder
Ultahackers "Edits
Click Thanks Button if like them codes:*&