VB.NET TUTORIALS LOGIN ANY JABBER ACCOUNT

VB.NET TUTORIALS: LOGIN NIMBUZZ OR ANY JABBER APPLICATION USING AGSXMPP 

(PART1) Hi Friends,On this topic i Decide to give You an Idea on how to make Your Own Nimbuzz

 Software or any Jabber Application Step by Step (Using Agsxmpp in VB.NET) Requirements: Visual Basic 2010 or hiegher Agsxmpp.dll Net Framework ( Must Better youve Installed all Version ) Now you will have all requirements needed? Now Lets Start. Now Open the VB.NET and selcet New Project

after clicking the new project , You can re-name the software you want,follow the instruction on the photo below

 

then click OK ,now you will see a plain box for your first software. you can resize the form as you want.

Now,about the tools,you can get the tools like,button,textbox,label,richtextbox and more tools you need here.

 

On this tutorials for login jabber account,we will need only :

 3 label

 3 textbox

 2 button

 1 listbox 

 

 for the label1 text,type = Username

 for label2 text type = Password 

 for label3 text type = Resource

 for the 3 textbox, 

 textbox1 rename it to txtuser

 textbox2 rename it to txtpassword 

 textbox3 rename it to txtresource

 now for listbox, rename it to listEvents and

 for the 2 button,1 for login and 1 for logout

 

and now the form look like complete, focus on mouse in the form and rigth click,select view code to add the codes.. first is to put imports. on the top of public class form, looks like this! and you will see i circle the codes they have yelow line and red dot? that showing means you need to add agsxmpp.dll file in reference project.

 

How to add agsxmpp in your project? click project button on the top of your vb.net and select add reference. after click add reference,select browse. and find the agsxmpp.dll file where you save it.

 

after adding agsxmpp.dll, now you will see your codes like this, its mean nothing error.

 

the codes is:

 Imports System 

Imports System.Drawing 

Imports System.Collections

 Imports System.ComponentModel 

Imports System.Windows.Forms 

Imports System.Data 

 Imports agsXMPP 

Imports agsXMPP.protocol

Imports agsXMPP.protocol.iq 

Imports agsXMPP.protocol.iq.disco 

Imports agsXMPP.protocol.iq.roster 

Imports agsXMPP.protocol.client 

Imports agsXMPP.Xml.Dom 




 Now adding other codes, 




 Inherits Form 

 Private reu As New XmppClientConnection() 

 Public Sub New()

 InitializeComponent() Init()




 End Sub 




 Private Sub Init() 

 listEvents.Items.Clear()




 AddHandler reu.OnLogin, New ObjectHandler(AddressOf reu_OnLogin) AddHandler reu.OnAuthError, New XmppElementHandler(AddressOf reu_OnAuthError) 

 AddHandler reu.OnClose, New ObjectHandler(AddressOf reu_OnClose)




 End 




Sub Private Sub reu_OnClose(sender As Object) 

 If InvokeRequired Then BeginInvoke(New ObjectHandler(AddressOf reu_OnClose), New Object() {sender}) 

 Return 

 End If




 listEvents.Items.Add("OnClose Connection closed") 

 listEvents.SelectedIndex = listEvents.Items.Count - 1 




 End Sub




 Private Sub reu_OnAuthError(sender As Object, e As agsXMPP.Xml.Dom.Element) If InvokeRequired Then BeginInvoke(New XmppElementHandler(AddressOf reu_OnAuthError), New Object() {sender, e})

 Return 

 End If 

 listEvents.Items.Add("OnAuthError")

 listEvents.SelectedIndex = listEvents.Items.Count - 1 

 End Sub

 Private Sub reu_OnLogin(sender As Object) If InvokeRequired Then BeginInvoke(New ObjectHandler(AddressOf reu_OnLogin), New Object() {sender}) Return

 End If

 listEvents.Items.Add("OnLogin") listEvents.SelectedIndex = listEvents.Items.Count - 1 

 MsgBox(" Online ", MsgBoxStyle.Information) 

 End Sub 

 add this codes on the Public Class Form below. looks like this.

after add the codes,go to form design and double click the login button and add this codes:

 Dim jidUser As New Jid(txtuser.Text)




 reu.Username = jidUser.User

 reu.Server = jidUser.Server

 reu.Password = txtpassword.Text 

 reu.Resource = txtresource.Text 

 reu.AutoResolveConnectServer = True 

 reu.Open() 

 after adding codes for login button,back to form design and double click the logout button and add this codes: reu.Close() and now your first software is finish.. you can put name of your software here,look on image. click only the application form and go to properties and select text and change what name you want.

 

and now,we will test the software,i will use nimbuzz server and gmail account,but the first thing i forget, in your password textbox,you will need to add some sign to hide the real password leter. see the image on how. in passwordschar i add #

after add hide sign in passwordchar, now test the software, How? they have two way on how to test run the software you made, first,you will see play sign in your vb.net.click that play sign to run your project.

or click debug button in your vb.net and click start debuging.

 

Now we will try your project: first i try to sign in nimbuzz: now you will see my nimbuzz account talentadong-pinoy is offline. then i try to login using the new application. we need type the whole jid (talentadong-pinoy@nimbuzz.com)

 

and now i login succesfuly using nimbuzz

 

now we will try in gmail,also we need add @gmail.com so i put d1mustdie@gmail.com. again i login succesfuly in my gmail account.

 

for building your project, click debug,and select build and click, after succesfully build your project,then close the vb.net,sometimes we will to save or not when you close the vb.net.so you need to choice save.

 

Now you have your first project,Enjoy Coding, If any Guidelines you Want,Then Dont Be Shy to leave a Comments. I hope this a simple tutorials can help you to start coding. See you on the next tutorials Part2. Godbless you all.