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

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

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

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

тнαηк уσυ

вαℓυ кяιsнηα !
Latest topics
Nimbuzz: Anti-freezer 100% works and VPS for saleYesterday at 1:23 pmprince-chillingفلود المدمر السوري ضد حظر الايبيYesterday at 8:27 amsyria-floodVidoe freezer room by wolf flooder professional V.4.4.0 {Updated} and Broken all server roomYesterday at 5:38 am.3madanti-dc and multi hanger coded by hardsoul@n.cMon Aug 14, 2017 12:09 pmUser_dieds Nimbuzz: Attention / تنتبةSat Aug 12, 2017 4:51 pmjkcorp-krishna Program: Video hotspot Shield is active for 4 years {back flooder speeder in 3 second} 2017Sun Aug 06, 2017 3:14 pm.3mad Program: Video :Change ip and back flooder {In just 4 seconds} 2017Sun Aug 06, 2017 2:30 pm.3mad Nimbuzz: ‫Wolf Flooder Professional V.4.6.0 {Dc all user room 100%}Fri Aug 04, 2017 2:25 pm.3mad Nimbuzz: Nimbuzz Connect in C# with Chatroom, Captchas Loading, Profile Changer, etc.Thu Aug 03, 2017 12:27 pmdb~ Android: Xamarin Android (C#) Sample Xmpp Nimbuzz using Socket Connection (TcpClient)Thu Aug 03, 2017 11:46 amdb~ Android: Nimbuzz Chatroom Banbot for AndroidTue Aug 01, 2017 4:44 pmdb~ Android: Android APK Theme Changer Library (.aar)Tue Aug 01, 2017 4:23 pmdb~ Android: Nimbuzz Nick Status changer appTue Aug 01, 2017 2:57 pmjameelsparioFlood s100 Anti IpSat Jul 29, 2017 2:05 pmhossam13 Nimbuzz: Cracker _2017Thu Jul 27, 2017 6:03 am.3mad Nimbuzz: Control the room from the outsideThu Jul 27, 2017 5:57 am.3mad Nimbuzz: Video pv flooder and add (Wolf Flooder Enormous V4.3.1)Thu Jul 27, 2017 5:55 am.3madblackcops serverTue Jul 18, 2017 3:02 pmblackcopsWolf Flooder Enormous V4.3.1 {captcha HD}Thu Jul 13, 2017 8:50 pm.3mad Nimbuzz: ultimate FlOod id maker v2.0Thu Jul 13, 2017 6:38 pmzawa
Top posters
330 Posts - 28%
255 Posts - 22%
127 Posts - 11%
107 Posts - 9%
69 Posts - 6%
54 Posts - 5%
53 Posts - 4%
53 Posts - 4%
51 Posts - 4%
Top posting users this week
2 Posts - 33%
1 Post - 17%
1 Post - 17%
1 Post - 17%
1 Post - 17%
Top posting users this month
5 Posts - 33%
4 Posts - 27%
1 Post - 7%
1 Post - 7%
1 Post - 7%
1 Post - 7%
1 Post - 7%
1 Post - 7%

Share
View previous topicGo downView next topic
avatar
KßZ ►☻◄ ƒøяυλ⁄(-тєαм мємвєя
KßZ ►☻◄ ƒøяυλ⁄(-тєαм мємвєя
Male
emad♥ebn♥felesteen
AGE : 29
POSTS : 255
REPUTATION : 33
KBZ TEAM POINTS : 597
JOIN DATE : 2015-10-13
BIRTHDAY : 1987-09-21
View user profile

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

on Wed Dec 16, 2015 3:10 am
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 previous topicBack to topView next topic
Permissions in this forum:
You cannot reply to topics in this forum