TALKINCHAT SAMPLE VB.NET(1)

 HI GUYS,I STOP TO MAKE TALKINCHAT AND HOIVIA SOFTWARE,BUT NOW I WILL SHARE THE CODES OF TALKINCHAT USING MY RCLIENT.DLL FILE,ON THIS VIDEO,YOU CAN MAKE YOUR OWN TALKINCHAT APPLICATION LIKE BOTS,JUST FOLLOW STEP BY STEP.

YOU WILL NEED TO INSTALL MICROSOFT VISUAL STUDIO 2017 0R LATEST VERSION.

AND DOWNLOAD ABOT V3 TO GET RCLIENT.DLL FILE.

PARTIAL CODES:

 Imports System.Threading

Imports RClient

Imports RClient.MultiUserChat

Imports RClient.User

Imports System.Threading.Tasks

Imports System.Net

Public Class Form1

Private ryu As RChat

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

If Button1.Text = "LogIn" Then

ryu = New RChat

ryu.Username = (TxtUser.Text)

ryu.Password = TxtPass.Text

ryu.Login(TxtUser.Text, TxtPass.Text)

AddHandler ryu.OnConnected, AddressOf connected

AddHandler ryu.OnLogin, AddressOf login

AddHandler ryu.OnLogout, AddressOf logout

AddHandler ryu.OnClose, AddressOf onClose

lblstatus.Text = "Connecting..."

ElseIf Button1.Text = "LogOut" Then

ryu.Logout()

End If

End Sub

 

Private Sub onClose(ryu As RChat)

Button1.Text = "LogIn"

lblstatus.Text = "Disconnected"

End Sub

Private Sub logout(ryu As RChat)

Button1.Text = "LogIn"

lblstatus.Text = "Offline"

End Sub

Private Sub login(ryu As RChat, authCode As AuthCode)

lblstatus.Text = authCode.ToString

ryu.GetMucList(MucType.public)

End Sub

Private Sub connected(ryu As RChat)

lblstatus.Text = ("Connected")

Button1.Text = "LogOut"

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

If Button2.Text = "Join" Then

rtfchat.Clear()

listusers.Items.Clear()

lblcount.Text = "0"

ryu.JoinMuc(TxtRoom.Text, 0)

ElseIf Button2.Text = "Leave" Then

ryu.LeaveMuc(TxtRoom.Text)

End If

End Sub

End Class