API tools faq
paste
hoor1992

FullBoter.vb

hoor1992
Feb 14th, 2016
191
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 17.30 KB | None | 0 0
raw download clone embed print report
  1. Imports agsXMPP
  2. Imports agsXMPP.Xml.Dom
  3. Imports agsXMPP.protocol.client
  4. Imports agsXMPP.Collections
  5. Imports System.Timers
  6. Public Class FullBoter
  7.     Public id, pw, res, send, remoter, room As String
  8.     Public Shared metiox As New agsXMPP.XmppClientConnection()
  9.     Dim mem, ban, kick, vis, wlc, jok, wlcpv, msfilter As Boolean
  10.     Dim wlclist As String
  11.     Public joklist As String()
  12.     Dim filterlist As ListBox
  13.     Dim remoters As ListBox
  14.     Public timer1 As System.Timers.Timer = New System.Timers.Timer(180000.0)
  15.     Public Sub LoginFullBot(Username As String, Password As String, Resource As String, RoomName As String, Master As String, Receiver As String)
  16.         On Error Resume Next
  17.         id = Username
  18.         pw = Password
  19.         res = Resource
  20.         send = Receiver
  21.         room = RoomName
  22.         remoter = Master
  23.         Form1.meti.Send(New agsXMPP.protocol.client.Message(send + "@nimbuzz.com", MessageType.chat, "Please Wait ..."))
  24.         Dim rnd As New Random
  25.         With metiox
  26.             .Server = "nimbuzz.com"
  27.             .ConnectServer = "o.nimbuzz.com"
  28.             .Username = id
  29.             .Password = pw
  30.             .Resource = res + "_Goodzila_Pv_Bot" + Convert.ToString(rnd.Next(0, 10000))
  31.             .Open()
  32.             AddHandler .OnLogin, AddressOf login
  33.             AddHandler .OnAuthError, AddressOf wrong
  34.             AddHandler .OnMessage, AddressOf remot
  35.             AddHandler .OnPresence, AddressOf pres
  36.         End With
  37.         remoters.Items.Add(remoter)
  38.         filterlist.Items.Add("kir")
  39.         filterlist.Items.Add("kos")
  40.         filterlist.Items.Add("koon")
  41.         filterlist.Items.Add("sex")
  42.         filterlist.Items.Add("fuck")
  43.         filterlist.Items.Add("کیر")
  44.         filterlist.Items.Add("کون")
  45.         filterlist.Items.Add("سکس")
  46.         filterlist.Items.Add("جنده")
  47.     End Sub
  48.     Private Sub login(ByVal sender As Object)
  49.         Form1.meti.Send("<message to='" + send + "@nimbuzz.com' type='chat'><body>" + id + " logined.joined room !</body></message>")
  50.         metiox.Send("<presence to='" + room + "@conference.nimbuzz.com/" + id + "' xml:lang='en'><x xmlns='http://jabber.org/protocol/muc'><password></password></x></presence>")
  51.         timer1 = New System.Timers.Timer(90000.0)
  52.         AddHandler timer1.Elapsed, AddressOf tick
  53.         timer1.Start()
  54.         timer1.Interval = 200000.0
  55.     End Sub
  56.     Private Sub wrong(ByVal sender As Object, e As Element)
  57.         metiox = New agsXMPP.XmppClientConnection()
  58.         Form1.meti.Send("<message to='" + send + "@nimbuzz.com' type='chat'><body>" + id + " not logined.</body></message>")
  59.     End Sub
  60.     Private Sub remot(ByVal sender As Object, msg As Message)
  61.         On Error Resume Next
  62.         If msg.Type = MessageType.groupchat Then
  63.             If msg.From.Resource = remoter Then
  64.                 If msg.Body.StartsWith("k/") Then
  65.                     metiox.Send("<iq to='" + room + "@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='" + msg.Body.ToLower().Replace("k/", "") + "'><reason></reason></item></query></iq>")
  66.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + msg.Body.ToLower().Replace("k/", "") + " Has Been Kicked .</body></message>")
  67.                 End If
  68.                 If msg.Body.StartsWith("b/") Then
  69.                     metiox.Send("<iq to='" + room + "@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='" + msg.Body.ToLower().Replace("b/", "") + "@nimbuzz.com'/></query></iq>")
  70.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + msg.Body.ToLower().Replace("b/", "") + " Has Been Banned .</body></message>")
  71.                 End If
  72.                 If msg.Body.StartsWith("v/") Then
  73.                     metiox.Send("<iq type='set' to='" + room + "@conference.nimbuzz.com' id='mir_437'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='" + msg.Body.ToLower().Replace("v/", "") + "' role='visitor' /></query></iq>")
  74.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + msg.Body.ToLower().Replace("v/", "") + " Is Now Vistor .</body></message>")
  75.                 End If
  76.                 If msg.Body.StartsWith("m/") Then
  77.                     metiox.Send("<iq xmlns='jabber:client' to='" + room + "@conference.nimbuzz.com' type='set' id='353'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='" + msg.Body.ToLower().Replace("m/", "") + "@nimbuzz.com' /></query></iq>")
  78.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + msg.Body.ToLower().Replace("m/", "") + " Is Now Member .</body></message>")
  79.                 End If
  80.                 If msg.Body.StartsWith("a/") Then
  81.                     metiox.Send("<iq xmlns='jabber:client' to='" + room + "@conference.nimbuzz.com' type='set' id='353'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='admin' jid='" + msg.Body.ToLower().Replace("a/", "") + "@nimbuzz.com' /></query></iq>")
  82.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + msg.Body.ToLower().Replace("a/", "") + " Is Now Admin And Moderator .</body></message>")
  83.                 End If
  84.                 If msg.Body.StartsWith("o/") Then
  85.                     metiox.Send("<iq xmlns='jabber:client' to='" + room + "@conference.nimbuzz.com' type='set' id='364'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='owner' jid='" + msg.Body.ToLower().Replace("o/", "") + "@nimbuzz.com' /></query></iq>")
  86.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + msg.Body.ToLower().Replace("o/", "") + " Is Now Owner .</body></message>")
  87.                 End If
  88.                 If msg.Body.StartsWith("l/") Then
  89.                     metiox.Send("<iq type='set' to='" + room + "@conference.nimbuzz.com' id='mir_741'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabberata' type='submit'><field var='muc#roomconfig_roomname'><value>" + room + "</value></field><field var='muc#roomconfig_roomdesc'><value></value></field><field var='muc#roomconfig_passwordprotectedroom'><value>1</value></field><field var='muc#roomconfig_roomsecret'><value>" + msg.Body.ToLower().Replace("l/", "") + "</value></field></x></query></iq>")
  90.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + room + " Is Now Locked .</body></message>")
  91.                 End If
  92.                 If msg.Body.ToLower() = ("ul/" + room) Then
  93.                     metiox.Send("<iq type='set' to='" + room + "@conference.nimbuzz.com' id='mir_776'><query xmlns='http://jabber.org/protocol/muc#owner'><x xmlns='jabberata' type='submit'><field var='muc#roomconfig_roomname'><value>" + room + "</value></field><field var='muc#roomconfig_passwordprotectedroom'><value>0</value></field><field var='muc#roomconfig_roomsecret'><value></value></field></x></query></iq>")
  94.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + room + " Is Now Unlocked .</body></message>")
  95.                 End If
  96.                 If msg.Body.StartsWith("s/") Then
  97.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><subject>" + msg.Body.ToLower().Replace("s/", "") + "</subject></message>")
  98.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Subject Was Changed To : " + msg.Body.ToLower().Replace("s/", "") + " .</body></message>")
  99.                 End If
  100.                 If msg.Body.StartsWith("pm/") Then
  101.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + msg.Body.ToLower().Replace("pm/", "") + "</body></message>")
  102.                 End If
  103.                 If msg.Body.ToLower().StartsWith("amf/") Then
  104.                     filterlist.Items.Add(msg.Body.ToLower().Replace("amf/", ""))
  105.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + (msg.Body.ToLower().Replace("amf/", "")) + " Is Now Added To Filter Messages List .</body></message>")
  106.                 End If
  107.                 If msg.Body.ToLower().StartsWith("dmf/") Then
  108.                     filterlist.Items.Remove(msg.Body.ToLower().Replace("dmf/", ""))
  109.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>" + (msg.Body.ToLower().Replace("dmf/", "")) + " Removed From Filter Messages List .</body></message>")
  110.                 End If
  111.                 If msg.Body.ToLower() = "am/ac" Then
  112.                     mem = True
  113.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Auto Member Active .</body></message>")
  114.                 End If
  115.                 If msg.Body.ToLower() = "am/de" Then
  116.                     mem = False
  117.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Auto Member Deactive .</body></message>")
  118.                 End If
  119.                 If msg.Body.ToLower() = "ab/ac" Then
  120.                     ban = True
  121.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Auto Ban Active .</body></message>")
  122.                 End If
  123.                 If msg.Body.ToLower() = "ab/de" Then
  124.                     ban = False
  125.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Auto BanDeactive .</body></message>")
  126.                 End If
  127.                 If msg.Body.ToLower() = "av/ac" Then
  128.                     vis = True
  129.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Auto Visitor Active .</body></message>")
  130.                 End If
  131.                 If msg.Body.ToLower() = "av/de" Then
  132.                     vis = False
  133.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Auto Visitor Deactive .</body></message>")
  134.                 End If
  135.                 If msg.Body.ToLower() = "ak/ac" Then
  136.                     kick = True
  137.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Auto Kick Active .</body></message>")
  138.                 End If
  139.                 If msg.Body.ToLower() = "ak/de" Then
  140.                     kick = False
  141.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Auto Kick Deactive .</body></message>")
  142.                 End If
  143.                 If msg.Body.ToLower() = "wl/ac" Then
  144.                     wlc = True
  145.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Welcome Bot Active .</body></message>")
  146.                 End If
  147.                 If msg.Body.ToLower() = "wl/de" Then
  148.                     wlc = False
  149.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Welcome Bot Deactive .</body></message>")
  150.                 End If
  151.                 If msg.Body.ToLower() = "wlp/ac" Then
  152.                     wlcpv = True
  153.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Private Welcome Bot Active .</body></message>")
  154.                 End If
  155.                 If msg.Body.ToLower() = "wlp/de" Then
  156.                     wlcpv = False
  157.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Private Welcome Bot Deactive .</body></message>")
  158.                 End If
  159.                 '
  160.                 If msg.Body.ToLower().StartsWith("jo/set/") Then
  161.                     timer1.Interval = msg.Body.ToLower().Replace("jo/set/", "") * 1000
  162.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Joke Bot Send Time Set To : " + msg.Body.ToLower().Replace("jo/set/", "") + " Per Second</body></message>")
  163.                 End If
  164.                 If msg.Body.ToLower() = "jo/ac" Then
  165.                     jok = True
  166.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Joke Bot Active .</body></message>")
  167.                 End If
  168.                 If msg.Body.ToLower() = "jo/de" Then
  169.                     jok = False
  170.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Joke Bot Deactive .</body></message>")
  171.                 End If
  172.                 If msg.Body.ToLower() = "mf/ac" Then
  173.                     msfilter = True
  174.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Message Filter Active .</body></message>")
  175.                 End If
  176.                 If msg.Body.ToLower() = "mf/de" Then
  177.                     msfilter = False
  178.                     metiox.Send("<message to='" + room + "@conference.nimbuzz.com' type='groupchat'><body>Message Filter Deactive .</body></message>")
  179.                 End If
  180.                 If msg.Body.ToLower() = "help" Then
  181.                     metiox.Send("<message type='chat' to='" + room + "@conference.nimbuzz.com/" + msg.From.Resource + "' id='aadda'><body>" + Form1.helper.Text + "</body><active xmlns='http://jabber.org/protocol/chatstates'/><request xmlns='urn:xmpp:receipts'/><nick xmlns='http://jabber.org/protocol/nick'>" + id + "</nick></message>")
  182.                 End If
  183.             End If
  184.         End If
  185.     End Sub
  186.     Private Sub pres(ByVal sender As Object, prs As Presence)
  187.         On Error Resume Next
  188.         If prs.Type = PresenceType.available Then
  189.             If mem = True Then
  190.                 metiox.Send("<iq xmlns='jabber:client' to='" + room + "@conference.nimbuzz.com' type='set' id='353'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='member' jid='" + prs.From.Resource + "@nimbuzz.com' /></query></iq>")
  191.                 ban = False
  192.                 kick = False
  193.                 vis = False
  194.             End If
  195.             If kick = True Then
  196.                 metiox.Send("<iq to='" + room + "@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item role='none' nick='" + prs.From.Resource + "'><reason></reason></item></query></iq>")
  197.                 ban = False
  198.                 mem = False
  199.                 vis = False
  200.             End If
  201.             If vis = True Then
  202.                 metiox.Send("<iq type='set' to='" + room + "@conference.nimbuzz.com' id='mir_437'><query xmlns='http://jabber.org/protocol/muc#admin'><item nick='" + prs.From.Resource + "' role='visitor' /></query></iq>")
  203.                 ban = False
  204.                 mem = False
  205.                 kick = False
  206.             End If
  207.             If ban = True Then
  208.                 metiox.Send("<iq to='" + room + "@conference.nimbuzz.com' type='set' id='itemmuc'><query xmlns='http://jabber.org/protocol/muc#admin'><item affiliation='outcast' jid='" + prs.From.Resource + "@nimbuzz.com'/></query></iq>")
  209.                 vis = False
  210.                 mem = False
  211.                 kick = False
  212.             End If
  213.             If wlc = True Then
  214.                 wlclist = "ey vay daram chi mibinam :[]#oof jennifer lOpez :D#wlc jigar#bebin ki oomade? :p#be roome khodet khosh oomadi :$#Wlc#bebin ki oomade? (a)#wlc wlc wlc :D#w+e+l+c+o+m+e=welcome :D#be behtarin roome donya khosh oomadi#lOpeto bokhoram :$#bokhoramet?  :P Fkre bad?? :|#wlc eshghom :$ :P#berim pv ghadam bezanim?? :$#eshghe dowrane tofoliatam oomade.jon :P#shenidi morgh greoon shode?:o bikhi baba mikhare :d"
  215.                 Dim wlcm As String() = wlclist.Split("#")
  216.                 Dim rnd As New Random
  217.                 Dim result As String = wlcm(rnd.Next(wlcm.Length))
  218.                 metiox.Send(New agsXMPP.protocol.client.Message(New Jid(room + "@conference." + metiox.Server), MessageType.groupchat, prs.From.Resource + " " + result))
  219.             End If
  220.             If wlcpv = True Then
  221.                 wlclist = "ey vay daram chi mibinam :[]#oof jennifer lOpez :D#wlc jigar#bebin ki oomade? :p#be roome khodet khosh oomadi :$#Wlc#bebin ki oomade? (a)#wlc wlc wlc :D#w+e+l+c+o+m+e=welcome :D#be behtarin roome donya khosh oomadi#lOpeto bokhoram :$#bokhoramet?  :P Fkre bad?? :|#wlc eshghom :$ :P#berim pv ghadam bezanim?? :$#eshghe dowrane tofoliatam oomade.jon :P#shenidi morgh greoon shode?:o bikhi baba mikhare :d"
  222.                 Dim wlcm As String() = wlclist.Split("#")
  223.                 Dim rnd As New Random
  224.                 Dim result As String = wlcm(rnd.Next(wlcm.Length))
  225.                 metiox.Send("<message type='chat' to='" + room + "@conference.nimbuzz.com/" + prs.From.Resource + "' id='aadda'><body>" + result + "</body><active xmlns='http://jabber.org/protocol/chatstates'/><request xmlns='urn:xmpp:receipts'/><nick xmlns='http://jabber.org/protocol/nick'>" + id + "</nick></message>")
  226.             End If
  227.         End If
  228.     End Sub
  229.     Private Sub tick()
  230.         metiox.Send(New agsXMPP.protocol.client.Message(New Jid(room + "@conference." + metiox.Server), MessageType.groupchat, ":P"))
  231.         timer1.Interval = 250000
  232.     End Sub
  233. End Class
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!