Mei 2015

Home > Archives for Mei 2015

Google Talk XMPP VB.Net

<p><div style="text-align: justify;"><b><a href="http://farrayroom.blogspot.com/2015/05/google-talk-xmpp-vbnet.html" target="_blank">Google Talk XMPP VB.Net</a>. </b>Buat sobat yang pengin mendapatkan project yang telah admin buat silahkan kunjungi link berikut ini <a href="http://www.mediafire.com/download/7sqss4e43riig6c/gtalk+in+vb.net.zip" target="_blank">google talk vb.net</a>. Sekian dari admin, tolong bantu untuk share ke teman-teman yang lain, siapa tau akan bermanfaat juga buat mereka, dan pastinya sobat akan mendapatkan pahala juga, aamiin... :)</div><div style="text-align: justify;"><br /></div><h3 style="text-align: justify;">Google talk in VB.Net</h3><div><br /></div><div style="text-align: justify;"><span style="color: blue;"><i>Imports agsXMPP</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>Imports agsXMPP.protocol.client</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>Public Class Form1</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Dim objXmpp As New XmppClientConnection</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Dim Jid As Jid</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Dim Receiver As String</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Dim _wait As Boolean</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private WithEvents TmrContact As New Timer</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        BtnLogin.Enabled = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Application.DoEvents()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        If Not LCase(txtJid.Text).Contains("@gmail.com") Then txtJid.Text &= "@gmail.com"</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Jid = New Jid(txtJid.Text)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        With objXmpp</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .Server = "gmail.com" 'Jid.Server</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .ConnectServer = "talk.google.com"</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .Username = Jid.User</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .Password = txtPassword.Text</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            '.Resource = String.Empty</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            '.Priority = CInt(numPriority.Value)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            '.Port = Integer.Parse(txtPort.Text)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .AutoResolveConnectServer = True</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .UseStartTLS = True</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            'If (chkRegister.Checked) Then</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            '    .RegisterAccount = True</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            'Else</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            '    .RegisterAccount = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            'End If</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .Open()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            AddHandler .OnAuthError, AddressOf OnAuthError</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            AddHandler .OnLogin, AddressOf OnLogin</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            AddHandler .OnPresence, AddressOf OnPresence</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            AddHandler .OnMessage, AddressOf MsgReceived</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            AddHandler .OnClose, AddressOf OnClose</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            AddHandler .OnError, AddressOf OnError</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        End With</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub OnAuthError(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Control.CheckForIllegalCrossThreadCalls = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LblStatus.Text = "OnAuthError"</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LblStatus.ForeColor = Color.Red</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    ' Is raised when login and authentication is finished </i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub OnLogin(ByVal sender As Object)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Control.CheckForIllegalCrossThreadCalls = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        _wait = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LblStatus.Text = "Logged In"</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LblStatus.ForeColor = Color.Green</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        With TmrContact</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .Interval = 1000</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            .Start()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        End With</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    'get contacts</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub OnPresence(ByVal sender As Object, ByVal pres As Presence)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Control.CheckForIllegalCrossThreadCalls = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        'If LBContacts.Items.Count = 0 Then</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LBContacts.Items.Add(pres.From.User & "@" & pres.From.Server)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        '    Return</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        'End If</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub ShowMsg(ByVal Text As String)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Control.CheckForIllegalCrossThreadCalls = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        TxtMsgIn.Text = TxtMsgIn.Text.Insert(0, Text & vbCrLf & vbCrLf)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub MsgReceived(ByVal sender As Object, ByVal msg As Message)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Dim arrUser() As String</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        arrUser = msg.From.ToString.Split("/")</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Receiver = arrUser(0)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        If msg.Body = "" Then Return</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        ShowMsg(Receiver & " <" & Now & "> :" & vbCrLf & msg.Body)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Me.Focus()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        ''======================</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        ''BUAT AUTO REPLY</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        'Dim chatMessage() As String</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        'chatMessage = msg.From.ToString.Split("/")</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        'jid = New Jid(chatMessage(0))</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        'Dim autoReply As Message</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        'autoReply = New Message(jid, MessageType.chat, txtMsgOut.Text & " : http://gtalkautoreply.codeplex.com/")</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        'objXmpp.Send(autoReply)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        ''======================</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub OnClose(ByVal sender As Object)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Control.CheckForIllegalCrossThreadCalls = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LblStatus.Text = "Logout"</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LblStatus.ForeColor = Color.Red</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub OnError(ByVal sender As Object, ByVal ex As Exception)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Control.CheckForIllegalCrossThreadCalls = False</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LblStatus.Text = "OnError"</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LblStatus.ForeColor = Color.Red</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub TmrContact_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrContact.Tick</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        TmrContact.Stop()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        AddHandler objXmpp.OnPresence, AddressOf OnPresence</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        TmrContact.Start()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub BtnLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogout.Click</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        objXmpp.Close()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        LBContacts.Items.Clear()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        TxtMsgIn.Clear()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        TxtTo.Clear()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        TxtMsgOut.Clear()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        BtnLogin.Enabled = True</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub BtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Try</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            objXmpp.Send(New Message(New Jid(TxtTo.Text), MessageType.chat, TxtMsgOut.Text))</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            ShowMsg(txtJid.Text & " <" & Now & "> :" & vbCrLf & TxtMsgOut.Text)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        Catch ex As Exception</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        End Try</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i><br /></i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    Private Sub LBContacts_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBContacts.DoubleClick</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        TxtTo.Text = LBContacts.SelectedItem</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>        TxtMsgOut.Focus()</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>    End Sub</i></span></div><div style="text-align: justify;"><span style="color: blue;"><i>End Class</i></span></div></p>

Google Talk XMPP VB.Net. Buat sobat yang pengin mendapatkan project yang telah admin buat silahkan kunjungi link berikut ini google talk vb.net. Sekian dari admin, tolong bantu untuk share ke teman-teman yang lain, siapa tau akan bermanfaat juga buat…

GTalk Source Code VB Net

<p><div style="text-align: justify;"><b><a href="http://farrayroom.blogspot.com/2015/05/gtalk-source-code-vb-net.html" target="_blank">GTalk Source Code VB Net</a></b> - Ini adalah cara termudah dan tercepat membuat gtalk client sendiri. Sobat dapat memanfaatkan metode ini untuk develop aplikasi sendiri, baik itu sebagai gateway atau untuk personal chating.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;">Berbicara mengenai aplikasi gateway yang menggunakan gtalk, hal ini biasanya banyak digunakan oleh para developer program server pulsa, teknik ini biasa dinamakan H2H (host to host) melalui jaringan internet dengan perantara gtalk. Selain menggunakan gtalk, yahoo messenger (ym) pun dapat dimanfaatkan untuk H2H antar server, untuk tutorialnya silahkan kunjungi <a href="http://www.youtube.com/watch?v=zACSaYzRC84" target="_blank">Login to Yahoo Messenger With VB.Net</a>.</div><div style="text-align: justify;"><br /></div><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKzpXTDpCtq6qDLPo_kbaBevRgoOo_zXzdB65gsHwnQsFoEb8Ny20gt8SbTgYV-E1BShhjyEffpUEr6wD2hJ5cbt_l7SjwbTkqOX6VPfoTf_GCRkmweg9zoVSS67xlwdPrqjuOWAhy2dlT/s1600/GTalk+Source+Code+VB+Net.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img alt="gtalk source code vb net" border="0" height="320" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKzpXTDpCtq6qDLPo_kbaBevRgoOo_zXzdB65gsHwnQsFoEb8Ny20gt8SbTgYV-E1BShhjyEffpUEr6wD2hJ5cbt_l7SjwbTkqOX6VPfoTf_GCRkmweg9zoVSS67xlwdPrqjuOWAhy2dlT/s320/GTalk+Source+Code+VB+Net.png" title="gtalk source code vb net" width="320" /></a></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><b><u>Source code gtalk vb.net</u></b> ini admin kembangkan dengan menggunakan <a href="http://farrayroom.blogspot.com/" target="_blank">protokol xmpp</a>, dan untuk mengetahui lebih lanjut apa itu xmpp silahkan sobat googling sendiri :D. Oke langsung aja kita lihat source codenya dibawah ini.</div><div style="text-align: justify;"><br /></div><div style="text-align: justify;"><span style="color: blue;">Imports agsXMPP</span></div><div style="text-align: justify;"><span style="color: blue;">Imports agsXMPP.protocol.client</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">Public Class Form1</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Dim objXmpp As New XmppClientConnection</span></div><div style="text-align: justify;"><span style="color: blue;">    Dim Jid As Jid</span></div><div style="text-align: justify;"><span style="color: blue;">    Dim Receiver As String</span></div><div style="text-align: justify;"><span style="color: blue;">    Dim _wait As Boolean</span></div><div style="text-align: justify;"><span style="color: blue;">    Private WithEvents TmrContact As New Timer</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub BtnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogin.Click</span></div><div style="text-align: justify;"><span style="color: blue;">        BtnLogin.Enabled = False</span></div><div style="text-align: justify;"><span style="color: blue;">        Application.DoEvents()</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">        If Not LCase(txtJid.Text).Contains("@gmail.com") Then txtJid.Text &= "@gmail.com"</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">        Jid = New Jid(txtJid.Text)</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">        With objXmpp</span></div><div style="text-align: justify;"><span style="color: blue;">            .Server = "gmail.com" 'Jid.Server</span></div><div style="text-align: justify;"><span style="color: blue;">            .ConnectServer = "talk.google.com"</span></div><div style="text-align: justify;"><span style="color: blue;">            .Username = Jid.User</span></div><div style="text-align: justify;"><span style="color: blue;">            .Password = txtPassword.Text</span></div><div style="text-align: justify;"><span style="color: blue;">            '.Resource = String.Empty</span></div><div style="text-align: justify;"><span style="color: blue;">            '.Priority = CInt(numPriority.Value)</span></div><div style="text-align: justify;"><span style="color: blue;">            '.Port = Integer.Parse(txtPort.Text)</span></div><div style="text-align: justify;"><span style="color: blue;">            .AutoResolveConnectServer = True</span></div><div style="text-align: justify;"><span style="color: blue;">            .UseStartTLS = True</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">            'If (chkRegister.Checked) Then</span></div><div style="text-align: justify;"><span style="color: blue;">            '    .RegisterAccount = True</span></div><div style="text-align: justify;"><span style="color: blue;">            'Else</span></div><div style="text-align: justify;"><span style="color: blue;">            '    .RegisterAccount = False</span></div><div style="text-align: justify;"><span style="color: blue;">            'End If</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">            .Open()</span></div><div style="text-align: justify;"><span style="color: blue;">            AddHandler .OnAuthError, AddressOf OnAuthError</span></div><div style="text-align: justify;"><span style="color: blue;">            AddHandler .OnLogin, AddressOf OnLogin</span></div><div style="text-align: justify;"><span style="color: blue;">            AddHandler .OnPresence, AddressOf OnPresence</span></div><div style="text-align: justify;"><span style="color: blue;">            AddHandler .OnMessage, AddressOf MsgReceived</span></div><div style="text-align: justify;"><span style="color: blue;">            AddHandler .OnClose, AddressOf OnClose</span></div><div style="text-align: justify;"><span style="color: blue;">            AddHandler .OnError, AddressOf OnError</span></div><div style="text-align: justify;"><span style="color: blue;">        End With</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub OnAuthError(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element)</span></div><div style="text-align: justify;"><span style="color: blue;">        Control.CheckForIllegalCrossThreadCalls = False</span></div><div style="text-align: justify;"><span style="color: blue;">        LblStatus.Text = "OnAuthError"</span></div><div style="text-align: justify;"><span style="color: blue;">        LblStatus.ForeColor = Color.Red</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    ' Is raised when login and authentication is finished </span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub OnLogin(ByVal sender As Object)</span></div><div style="text-align: justify;"><span style="color: blue;">        Control.CheckForIllegalCrossThreadCalls = False</span></div><div style="text-align: justify;"><span style="color: blue;">        _wait = False</span></div><div style="text-align: justify;"><span style="color: blue;">        LblStatus.Text = "Logged In"</span></div><div style="text-align: justify;"><span style="color: blue;">        LblStatus.ForeColor = Color.Green</span></div><div style="text-align: justify;"><span style="color: blue;">        With TmrContact</span></div><div style="text-align: justify;"><span style="color: blue;">            .Interval = 1000</span></div><div style="text-align: justify;"><span style="color: blue;">            .Start()</span></div><div style="text-align: justify;"><span style="color: blue;">        End With</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    'get contacts</span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub OnPresence(ByVal sender As Object, ByVal pres As Presence)</span></div><div style="text-align: justify;"><span style="color: blue;">        Control.CheckForIllegalCrossThreadCalls = False</span></div><div style="text-align: justify;"><span style="color: blue;">        'If LBContacts.Items.Count = 0 Then</span></div><div style="text-align: justify;"><span style="color: blue;">        LBContacts.Items.Add(pres.From.User & "@" & pres.From.Server)</span></div><div style="text-align: justify;"><span style="color: blue;">        '    Return</span></div><div style="text-align: justify;"><span style="color: blue;">        'End If</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub ShowMsg(ByVal Text As String)</span></div><div style="text-align: justify;"><span style="color: blue;">        Control.CheckForIllegalCrossThreadCalls = False</span></div><div style="text-align: justify;"><span style="color: blue;">        TxtMsgIn.Text = TxtMsgIn.Text.Insert(0, Text & vbCrLf & vbCrLf)</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub MsgReceived(ByVal sender As Object, ByVal msg As Message)</span></div><div style="text-align: justify;"><span style="color: blue;">        Dim arrUser() As String</span></div><div style="text-align: justify;"><span style="color: blue;">        arrUser = msg.From.ToString.Split("/")</span></div><div style="text-align: justify;"><span style="color: blue;">        Receiver = arrUser(0)</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">        If msg.Body = "" Then Return</span></div><div style="text-align: justify;"><span style="color: blue;">        ShowMsg(Receiver & " <" & Now & "> :" & vbCrLf & msg.Body)</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">        Me.Focus()</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">        ''======================</span></div><div style="text-align: justify;"><span style="color: blue;">        ''BUAT AUTO REPLY</span></div><div style="text-align: justify;"><span style="color: blue;">        'Dim chatMessage() As String</span></div><div style="text-align: justify;"><span style="color: blue;">        'chatMessage = msg.From.ToString.Split("/")</span></div><div style="text-align: justify;"><span style="color: blue;">        'jid = New Jid(chatMessage(0))</span></div><div style="text-align: justify;"><span style="color: blue;">        'Dim autoReply As Message</span></div><div style="text-align: justify;"><span style="color: blue;">        'autoReply = New Message(jid, MessageType.chat, txtMsgOut.Text & " : http://gtalkautoreply.codeplex.com/")</span></div><div style="text-align: justify;"><span style="color: blue;">        'objXmpp.Send(autoReply)</span></div><div style="text-align: justify;"><span style="color: blue;">        ''======================</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub OnClose(ByVal sender As Object)</span></div><div style="text-align: justify;"><span style="color: blue;">        Control.CheckForIllegalCrossThreadCalls = False</span></div><div style="text-align: justify;"><span style="color: blue;">        LblStatus.Text = "Logout"</span></div><div style="text-align: justify;"><span style="color: blue;">        LblStatus.ForeColor = Color.Red</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub OnError(ByVal sender As Object, ByVal ex As Exception)</span></div><div style="text-align: justify;"><span style="color: blue;">        Control.CheckForIllegalCrossThreadCalls = False</span></div><div style="text-align: justify;"><span style="color: blue;">        LblStatus.Text = "OnError"</span></div><div style="text-align: justify;"><span style="color: blue;">        LblStatus.ForeColor = Color.Red</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub TmrContact_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TmrContact.Tick</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">        TmrContact.Stop()</span></div><div style="text-align: justify;"><span style="color: blue;">        AddHandler objXmpp.OnPresence, AddressOf OnPresence</span></div><div style="text-align: justify;"><span style="color: blue;">        TmrContact.Start()</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub BtnLogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLogout.Click</span></div><div style="text-align: justify;"><span style="color: blue;">        objXmpp.Close()</span></div><div style="text-align: justify;"><span style="color: blue;">        LBContacts.Items.Clear()</span></div><div style="text-align: justify;"><span style="color: blue;">        TxtMsgIn.Clear()</span></div><div style="text-align: justify;"><span style="color: blue;">        TxtTo.Clear()</span></div><div style="text-align: justify;"><span style="color: blue;">        TxtMsgOut.Clear()</span></div><div style="text-align: justify;"><span style="color: blue;">        BtnLogin.Enabled = True</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub BtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click</span></div><div style="text-align: justify;"><span style="color: blue;">        Try</span></div><div style="text-align: justify;"><span style="color: blue;">            objXmpp.Send(New Message(New Jid(TxtTo.Text), MessageType.chat, TxtMsgOut.Text))</span></div><div style="text-align: justify;"><span style="color: blue;">            ShowMsg(txtJid.Text & " <" & Now & "> :" & vbCrLf & TxtMsgOut.Text)</span></div><div style="text-align: justify;"><span style="color: blue;">        Catch ex As Exception</span></div><div style="text-align: justify;"><span style="color: blue;">            MsgBox(ex.Message, MsgBoxStyle.Critical, Text)</span></div><div style="text-align: justify;"><span style="color: blue;">        End Try</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;"><br /></span></div><div style="text-align: justify;"><span style="color: blue;">    Private Sub LBContacts_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LBContacts.DoubleClick</span></div><div style="text-align: justify;"><span style="color: blue;">        TxtTo.Text = LBContacts.SelectedItem</span></div><div style="text-align: justify;"><span style="color: blue;">        TxtMsgOut.Focus()</span></div><div style="text-align: justify;"><span style="color: blue;">    End Sub</span></div><div style="text-align: justify;"><span style="color: blue;">End Class</span></div><div style="text-align: justify;"><br /></div><div style="text-align: justify;">Nah itulah sedikit ulasan mengenai <b><u>google talk xmpp vb.net</u></b> semoga dapat bermanfaat buat kita semua. Untuk project beserta sourcenya yang telah admin buat, silahkan kunjungi halaman <a href="http://farrayroom.blogspot.com/2015/05/google-talk-xmpp-vbnet.html" target="_blank">create gtalk in vb.net</a>.<br /><br /><h3>Video create gtalk using vb.net</h3><br /><div class="separator" style="clear: both; text-align: center;"><iframe allowfullscreen="" class="YOUTUBE-iframe-video" data-thumbnail-src="https://i.ytimg.com/vi/PGvZLOrEAcw/0.jpg" frameborder="0" height="266" src="https://www.youtube.com/embed/PGvZLOrEAcw?feature=player_embedded" width="320"></iframe></div><br /></div></p>

GTalk Source Code VB Net - Ini adalah cara termudah dan tercepat membuat gtalk client sendiri. Sobat dapat memanfaatkan metode ini untuk develop aplikasi sendiri, baik itu sebagai gateway atau untuk personal chating.Berbicara mengenai aplikasi gatewa…