Kicking player by the client

Introduction

If you try to kick a player by client, nothing will happen.

Client~Side

frmMain

At the end of frmMain add:

Private Sub cmdAKick_Click()

    ' If debug mode, handle error then exit out

    If Options.Debug = 1 Then On Error GoTo errorhandler

    If GetPlayerAccess(MyIndex) < ADMIN_MAPPER Then

        Exit Sub

    End If

    If Len(Trim$(txtAName.text)) < 1 Then

        Exit Sub

    End If

    SendKick Trim$(txtAName.text)

    ' Error handler

    Exit Sub

errorhandler:

    HandleError "cmdAKick_Click", "frmMain", Err.Number, Err.Description, Err.Source, Err.HelpContext

    Err.Clear

    Exit Sub

End Sub

Credits

iRicardo

disregard.

I firstly read this as “kissing” player by client :D

Log in to reply