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

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

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

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

тнαηк уσυ

вαℓυ кяιsнηα !
Latest topics
Online server botMon Jun 18, 2018 7:57 pmamritpal7860Floood 2019Mon Jun 18, 2018 5:10 pmgaber90000kpv serverTue Jun 12, 2018 2:51 pmabhePrime server Tue Jun 12, 2018 1:45 pmabheXio server botMon Jun 11, 2018 8:39 pmamritpal7860برنامج تخمين سريع جدا للنيمبوز والشات بلاس 2019Sun Jun 10, 2018 5:55 amkoko777hacked any id facebook with my new soft Sat May 19, 2018 4:43 pmadnan saminew codes for flood and frezz rooms amd id maker just for programer Mon Apr 16, 2018 11:16 pmkoko777flood for Android too speed برنامج فلود رومات نيمبوز 2018 للاندرويدFri Apr 13, 2018 12:58 amkoko777هديه للجميع 500 نك فلوود قديم شغالين 500 old ids flood freeWed Apr 11, 2018 6:19 pmafndena_7200new soft frezz any id and room wonderfulllllllllllllllllllllllllllll جديدنا تجميد اي نك نيمبوز او شات بلاس بالاضافة لتجميد رومات النيمبوزThu Apr 05, 2018 7:42 pmkoko777new soft flood brocking server 2018 فلود رومات جديد بعد التحديث Sat Mar 31, 2018 12:42 amkoko777 Kbz: id maker newFri Mar 09, 2018 4:49 pmshakir0 Server: 24/7 Server botsTue Mar 06, 2018 8:23 pmmoh000madDeathly add flooder all room chat+ professionalTue Feb 27, 2018 1:06 pm.3madvideo : Break the room protection chatp + nimbuzz / فيديو كسر حماية غرف الشات بلس ونمبوزSat Feb 24, 2018 12:57 pm.3madFlooder Sender Dc Chat+ 2018 (beta)Sun Feb 11, 2018 5:55 pm.3madWolF Flooder Chatp+ 2018 V.2 / فلود لشات بلس الاصدار الثانيFri Feb 09, 2018 3:04 pm.3madnew flooder so strong after last update فلود جديد بعد التحديث الاخير للنيمبوزSat Jan 27, 2018 7:19 pmafndena_7200Flooder 2018Fri Jan 19, 2018 6:28 pm.3mad
Top posters
330 Posts - 27%
284 Posts - 23%
127 Posts - 10%
107 Posts - 9%
69 Posts - 6%
54 Posts - 4%
53 Posts - 4%
53 Posts - 4%
51 Posts - 4%
Top posting users this week
Top posting users this month
2 Posts - 33%
2 Posts - 33%
1 Post - 17%
1 Post - 17%

Share
Go down
avatar
KßZ ►☻◄ ƒøяυλ⁄(-тєαм мємвєя
KßZ ►☻◄ ƒøяυλ⁄(-тєαм мємвєя
Male
emad♥ebn♥felesteen
AGE : 30
POSTS : 284
REPUTATION : 33
KBZ TEAM POINTS : 666
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


تحياتي لكم عماد ابن فلسطين
Back to top
Permissions in this forum:
You cannot reply to topics in this forum