Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports agsXMPP
- Imports agsXMPP.Xml.Dom
- Imports agsXMPP.protocol.client
- Imports agsXMPP.Collections
- Imports System.Timers
- Public Class Deader
- Public id, pw, res, send, room As String
- Public Shared metiox As New agsXMPP.XmppClientConnection()
- Public timer1 As System.Timers.Timer = New System.Timers.Timer(220000.0)
- Public ehem As String()
- Public Sub LoginDead(Username As String, Password As String, Resource As String, RoomName As String, Sender As String)
- id = Username
- pw = Password
- res = Resource
- send = Sender
- room = RoomName
- Form1.meti.Send(New agsXMPP.protocol.client.Message(send + "@nimbuzz.com", MessageType.chat, "Please Wait ..."))
- Dim rnd As New Random
- With metiox
- .Server = "nimbuzz.com"
- .ConnectServer = "o.nimbuzz.com"
- .Username = id
- .Password = pw
- .Resource = res + "_Goodzila_Pv_Bot" + Convert.ToString(rnd.Next(0, 10000))
- .Open()
- AddHandler .OnLogin, AddressOf login
- AddHandler .OnAuthError, AddressOf wrong
- End With
- End Sub
- Private Sub login(ByVal sender As Object)
- Form1.meti.Send("<message to='" + send + "@nimbuzz.com' type='chat'><body>" + id + " Loginned Successfully</body></message>")
- metiox.Send("<presence to='" + room + "@conference.nimbuzz.com/" + id + "' xml:lang='en'><x xmlns='http://jabber.org/protocol/muc'><password></password></x></presence>")
- timer1 = New System.Timers.Timer(90000.0)
- AddHandler timer1.Elapsed, AddressOf tick
- timer1.Start()
- End Sub
- Private Sub wrong(ByVal sender As Object, e As Element)
- Form1.meti.Send("<message to='" + send + "@nimbuzz.com' type='chat'><body>Username Or Password Is Incorrect !</body></message>")
- End Sub
- Private Sub tick()
- Dim m As String = "joon bokhoramet :* fkre bad? #hava chetore unja :o?#ridi ba r rahbari :d#khkhkhkh :d#alo salam nemitunam az fkret dar aam :( #man soal taein mikonam :D man tu dahane in admin mizanam#yki nis biad pv ma ? :|#che sokoote gooshkharashi :|#:|#:D#:P#:(#:)#I-)#(f)#(u)#<3#shenidi chi shode? :O#ehem :|#fuck u :| :d#8 pv :p :$#:$#*YAHOO*#dahanet service :|#net ride :(#irancell fuck u :(#hoy :@ to uni nisti tu ye room fosham dad? :@#az tarafe meti saltanat ye boos mikonam azat :D#8-)#ki goozid? :o#no add :D :$#mano didi tazegia? :(#Firebuzz.iR REG NOW#Code nevisi tavasote saltanat@nimbuzz.com"
- Dim rnd As New Random
- ehem = m.Split("#")
- Dim ms As String = ehem(rnd.Next(ehem.Length))
- metiox.Send(New agsXMPP.protocol.client.Message(New Jid(room + "@conference." + metiox.Server), MessageType.groupchat, ms))
- End Sub
- End Class
Add Comment
Please, Sign In to add comment