NIMBUZZ TOOLS FORUM-2016
Kєяλℓλ-ßυzZ ►☻◄ ƒøяυλ⁄(-2016

✽✽✽✽✽✽✽✽✽✽✽✽ нι gυєѕт ✽✽✽✽✽✽✽✽✽✽✽✽✽✽

♚♚♚♚ωєℓ¢σмє тσ ♚kєяαℓα♕ßυzz♚ zσηє♚♚♚♚

ρℓєαѕє яєgιѕтєя тσ gєт ƒυℓℓ α¢¢єѕѕ αη∂ ∂σωηℓσα∂ ѕтυƒƒ . σηℓү яεgιsтεяε∂ мεмвεя αℓℓσωε∂ vιεω sρεcιαℓ zσηε αη∂ ∂σωηℓσα∂ sтυғғ.

тнαηк уσυ

вαℓυ кяιsнηα !
Welcome to Keralabuzz Forum 2015
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. This message will be removed once you have signed in.
Login to Account Create an Account

Foto

Nimbuzz: (Source Code) LOGIN ID NIMBUZZ (Visual Basic .Net)



  • Por favor, inicie sesión para responder

View previous topic View next topic Go down  Message [Page 1 of 1]

#1
Fuera de línea
on Wed Dec 16, 2015 3:10 am


avatar

KßZ ►☻◄ ƒøяυλ⁄(-тєαм мємвєя

KßZ ►☻◄ ƒøяυλ⁄(-тєαм мємвєя
Imports System.Net.Sockets 'Import For TCP socket Connection
Imports System.Threading
Imports System.Text


Public Class Form1
    Private tcp As TcpClient = New TcpClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        tcp.Client.Connect("Host.Name.Here", 5222) ' port is 5222 default i am using
        If tcp.Client.Connected Then
            Dim s As String = ("" & Convert.ToBase64String(Encoding.UTF8.GetBytes(String.Concat(New Object() {ChrW(0), TextBox1.Text, ChrW(0), TextBox2.Text}))) & "

Code:
")
            tcp.Client.Send(Encoding.UTF8.GetBytes(s))
        End If
        Dim th As New Threading.Thread(AddressOf recieve)
        th.Start()
    End Sub
    Private Sub recieve()  
        Try
            Do While tcp.Connected
                Dim buffer As Byte() = New Byte(tcp.ReceiveBufferSize - 1) {}
                Dim num As Integer = tcp.Client.Receive(buffer)
                If (num <> 0) Then
                    If (num < buffer.Length) Then
                        Dim buffer2 As Byte() = New Byte(num - 1) {}
                        Dim i As Integer
                        For i = 0 To num - 1
                            buffer2(i) = buffer(i)
                        Next i
                        buffer = buffer2
                    End If
                    Dim xml As String = Encoding.UTF8.GetString(buffer)
                    ReadXml(xml)
                End If
            Loop
        Catch
        End Try
    End Sub
    Private Sub ReadXml(ByVal xml As String) ' usind ReadXml 
        xml = xml.Replace("'", """")
        If xml.Contains("success xmlns=""urn:ietf:params:xml:ns:xmpp-sasl""") Then
            MessageBox.Show("Connected") 'If password Is correct Show, This Message means ID is Successfully Login Than It Show Message
        ElseIf xml.Contains("not-authorized") Then
            MessageBox.Show("Wrong Username or Password") 'If password is Wrong show this message for, This Message Means ID is Unsuccessfully In Login
        End If
    End Sub
End Class


تحياتي لكم عماد ابن فلسطين

View user profile

Message [Page 1 of 1]