API tools faq
paste
Advertisement
Guest User

Skype Bot Code

a guest
Jun 26th, 2016
169
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 27.13 KB | None | 0 0
raw download clone embed print report
  1. Imports SKYPE4COMLib
  2. Imports System.Net
  3. Imports System.ComponentModel
  4.  
  5. Public Class Form1
  6.  
  7. Dim WithEvents skype As New Skype
  8. Dim botname As String = "Xlag's Bot: "
  9.  
  10. Function Crawl(Page As String)
  11. Dim w As New WebClient
  12. w.Proxy = Nothing
  13. Return w.DownloadString("http://api.hackertarget.com/pagelinks/?q=" & Page).Replace(" ", "%20").Replace(" ", "%20%20")
  14. End Function
  15.  
  16.  
  17. Public Sub IsAdmin()
  18.  
  19. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/gcdpznmsny7f66b/Admins.txt?dl=1")
  20. Dim response As System.Net.HttpWebResponse = request.GetResponse()
  21.  
  22. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream)
  23. Dim Authedusers As String = sr.ReadToEnd()
  24.  
  25. If Authedusers.Contains(skype.CurrentUserHandle) Then
  26.  
  27. Else
  28.  
  29. End If
  30.  
  31. End Sub
  32.  
  33. Public Sub IsBanned()
  34.  
  35. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/qcbhw3w9plmzzqu/Users%20That%20are%20Banned%20.txt?dl=1")
  36. Dim response As System.Net.HttpWebResponse = request.GetResponse()
  37.  
  38. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream)
  39. Dim Authedusers As String = sr.ReadToEnd()
  40.  
  41. If Authedusers.Contains(skype.CurrentUserHandle) Then
  42.  
  43. Else
  44.  
  45. End If
  46.  
  47. End Sub
  48.  
  49. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  50. skype.Attach()
  51. Label1.ForeColor = Color.Green
  52. Label1.Text = "Connected !!!!"
  53. Label11.ForeColor = Color.Green
  54. Label11.Text = "ON !!!!"
  55. Label2.Text = "User: " + skype.CurrentUserProfile.FullName
  56. End Sub
  57.  
  58. Private Sub skype_UserAuthorizationRequestReceived(pUser As User) Handles skype.UserAuthorizationRequestReceived
  59.  
  60. skype.Friends.Add(pUser)
  61. pUser.IsAuthorized = True
  62.  
  63. End Sub
  64.  
  65. Private Sub skype_MessageStatus(pMessage As ChatMessage, Status As TChatMessageStatus) Handles skype.MessageStatus
  66. If Status = TChatMessageStatus.cmsReceived Or Status = TChatMessageStatus.cmsSent Then
  67.  
  68. Dim c As Chat = pMessage.Chat
  69.  
  70. If pMessage.Body.StartsWith("@") And Not pMessage.Body.Contains(" ") Then
  71. Dim command = pMessage.Body.Split(" "c)(0).Substring(1)
  72.  
  73. ListBox1.Items.Add(DateTime.Now.ToLongTimeString() + ": " + pMessage.Sender.Handle + " Issued command: " + command)
  74.  
  75.  
  76.  
  77. If ListBox2.Items.Contains(pMessage.FromHandle) Then
  78.  
  79. c.SendMessage(pMessage.FromHandle + " You Are A Idiot You Have Been Banned Please Speak To The Owner")
  80. Else
  81.  
  82. Select Case command.ToLower()
  83.  
  84.  
  85. Case "fortune"
  86. Dim webClient As New System.Net.WebClient
  87. Dim hi As String = webClient.DownloadString("http://APIOnly.com/fortune.php")
  88. c.SendMessage(hi)
  89.  
  90. Case "help" 'Command is ".help me" But put first word as the command.
  91. Dim help As String = "~~~~~~~~~~Commands:~~~~~~~~~~" + vbNewLine + "@Help - Displays Available Commands" + vbNewLine + "@Adminc - Displays Adimn Commands" + vbNewLine + "@Fonts - Displays Fonts To Convert Text " + vbNewLine + "@Bot - Displays infomation about the bot" + vbNewLine + "@Advocate - Stealth Server " + vbNewLine + "@Crawl [Website] - Crawls All The Links" + vbNewLine + "@Time - Shows The Current Time" + vbNewLine + "@Date - Shows Today's Date" + vbNewLine + "@Fortune - Get A Fortune From A Gay Fairy" + vbNewLine + "@Define [Word] - Defines The Word" + vbNewLine + "@GEOIP [IP] - Grabs The Geo Location" + vbNewLine + "@UpOrDown [Website] - See If The Website Is Up" + vbNewLine + "@SiteShot [Webiste] - Screen Shot The Website " + vbNewLine + "~~~~~~~~ Xlag Is Bae ~~~~~~~~"
  92. c.SendMessage(help)
  93.  
  94. Case "bot" '"@Bot info"
  95. Dim info As String = "I Was Written By Xlag, Im Apart Of His Skype Tool And Public Release"
  96. c.SendMessage(info)
  97.  
  98. Case "adminc" '@adminc
  99. Dim ac As String = "~~~~ Admin Menu ~~~~" + vbNewLine + "|Ban [User] - Bans The User" + vbNewLine + "|UnBan [User] - UnBans The User" + vbNewLine + "|GlobalMessage [Message] - Send Out A Mass Message"
  100.  
  101. Case "advocate" '"@Advocate "
  102. c.SendMessage("(rainbow) Advocate Live (rainbow)" + vbNewLine + "Features" + vbNewLine + "(Star) ALL COD BYPASS (Star)" + vbNewLine + "(Star) ALL COD OFFHOST MODS (Star)" + vbNewLine + "(Star) ALL COD OFFHOST MENU (Star)" + vbNewLine + "(Star) Auto Xex Updating (Star)" + vbNewLine + "(Star) Colored Notifys (Star)" + vbNewLine + "(Star) Custom Notify Message (Star)" + vbNewLine + "(Star) XeCheats (Star)" + vbNewLine + "Free Mode =" + TextBox69.Text + vbNewLine + "Contact : ohenvax ")
  103.  
  104. Case "fonts"
  105. Dim fonts As String = "~~~~ Font Menu ~~~~" + vbNewLine + "@Coolify [Text] - Makes Text Go Like тεxт " + vbNewLine + "@Bubble [Text] - Makes Text Go Like ⓉⒺⓍⓉ" + vbNewLine + "@SmallCaps [Text] - Makes Text Go Like ᴛᴇxᴛ" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + "" + vbNewLine + ""
  106. c.SendMessage(fonts)
  107.  
  108. Case "date"
  109. c.SendMessage("Current Date is: " + DateTime.Now.ToLongDateString())
  110.  
  111. Case "time"
  112. c.SendMessage("Current Time is: " + DateTime.Now.ToLongTimeString())
  113.  
  114. Case TextBox2.Text
  115. c.SendMessage(TextBox3.Text)
  116.  
  117. Case TextBox5.Text
  118. c.SendMessage(TextBox4.Text)
  119.  
  120. Case TextBox7.Text
  121. c.SendMessage(TextBox6.Text)
  122.  
  123. Case TextBox9.Text
  124. c.SendMessage(TextBox8.Text)
  125.  
  126. Case TextBox11.Text
  127. c.SendMessage(TextBox10.Text)
  128.  
  129. Case TextBox13.Text
  130. c.SendMessage(TextBox12.Text)
  131.  
  132. Case TextBox14.Text
  133. c.SendMessage(TextBox15.Text)
  134.  
  135. Case TextBox17.Text
  136. c.SendMessage(TextBox16.Text)
  137.  
  138. Case TextBox19.Text
  139. c.SendMessage(TextBox18.Text)
  140.  
  141.  
  142. End Select
  143.  
  144. End If
  145. End If
  146. End If
  147.  
  148. If Status = TChatMessageStatus.cmsReceived Or Status = TChatMessageStatus.cmsSent Then
  149. Dim Msg As String = pMessage.Body
  150. Dim c As Chat = pMessage.Chat
  151.  
  152. If pMessage.Body.StartsWith("@") AndAlso pMessage.Body.Contains(" ") Then ' <--
  153. Dim command As String = pMessage.Body.Split(" "c)(0).Substring(1)
  154. Dim argument As String = pMessage.Body.Split(" "c)(1)
  155.  
  156. ListBox1.Items.Add(DateTime.Now.ToLongTimeString() + ": " + pMessage.Sender.Handle + " Issued command: " + command)
  157.  
  158. If ListBox2.Items.Contains(pMessage.FromHandle) Then
  159.  
  160. c.SendMessage(pMessage.FromHandle + " You Are A Idiot You Have Been Banned Please Speak To The Owner")
  161. Else
  162.  
  163. Select Case command.ToLower()
  164.  
  165. 'Api Key : LesSkypeBotje
  166. 'Found It On A Forums
  167.  
  168. Case "upordown"
  169. Dim Webclient As New System.Net.WebClient
  170. Dim Sex1 As String = Webclient.DownloadString("http://api.c99.nl/upordown.php?key=LesSkypeBotje&host=" + argument).Replace("<br>", " " + vbNewLine)
  171. c.SendMessage(Sex1)
  172.  
  173.  
  174.  
  175. Case "siteshot"
  176. Dim Webclient As New System.Net.WebClient
  177. Dim Sex2 As String = Webclient.DownloadString("http://api.c99.nl/createscreenshot.php?key=LesSkypeBotje&url=" + argument).Replace("<br>", " " + vbNewLine)
  178. c.SendMessage(Sex2)
  179.  
  180.  
  181. Case "geoip"
  182. Dim webClient As New System.Net.WebClient
  183. Dim Sex As String = webClient.DownloadString("http://api.c99.nl/geoip.php?key=LesSkypeBotje&host=" + argument).Replace("<br>", " " + vbNewLine)
  184. c.SendMessage(Sex)
  185.  
  186.  
  187. Case "define"
  188. Dim webClient As New System.Net.WebClient
  189. Dim def As String = webClient.DownloadString("http://api.c99.nl/dictionary.php?key=LesSkypeBotje&word=" + argument)
  190. c.SendMessage(def)
  191.  
  192. Case "crawl"
  193. Dim webClient As New System.Net.WebClient
  194. Dim crawl As IChatMessage = c.SendMessage("Crawling...")
  195. Dim w As New WebClient
  196. w.Proxy = Nothing
  197. Dim res As String = webClient.DownloadString("http://api.hackertarget.com/pagelinks/?q=" & argument).Replace(" ", "%20").Replace(" ", "%20%20")
  198. c.SendMessage(res)
  199.  
  200. Case "spam"
  201. Msg = Msg.Remove(0, 5)
  202. Text = Msg
  203. c.SendMessage(Text)
  204. c.SendMessage(Text)
  205. c.SendMessage(Text)
  206. c.SendMessage(Text)
  207. c.SendMessage(Text)
  208. c.SendMessage(Text)
  209. c.SendMessage(Text)
  210. c.SendMessage(Text)
  211. c.SendMessage(Text)
  212. c.SendMessage(Text)
  213. c.SendMessage(Text)
  214. c.SendMessage(Text)
  215. c.SendMessage(Text)
  216. c.SendMessage(Text)
  217. c.SendMessage(Text)
  218. c.SendMessage(Text)
  219. c.SendMessage(Text)
  220. c.SendMessage(Text)
  221. c.SendMessage(Text)
  222. c.SendMessage(Text)
  223. c.SendMessage(Text)
  224. c.SendMessage(Text)
  225. c.SendMessage(Text)
  226. c.SendMessage(Text)
  227. c.SendMessage(Text)
  228. c.SendMessage(Text)
  229. c.SendMessage(Text)
  230. c.SendMessage(Text)
  231. c.SendMessage(Text)
  232. c.SendMessage(Text)
  233. c.SendMessage(Text)
  234. c.SendMessage(Text)
  235. c.SendMessage(Text)
  236. c.SendMessage(Text)
  237. c.SendMessage(Text)
  238. c.SendMessage(Text)
  239. c.SendMessage(Text)
  240. c.SendMessage(Text)
  241. c.SendMessage(Text)
  242. c.SendMessage(Text)
  243. c.SendMessage(Text)
  244. c.SendMessage(Text)
  245. c.SendMessage(Text)
  246. c.SendMessage(Text)
  247. c.SendMessage(Text)
  248. c.SendMessage(Text)
  249. c.SendMessage(Text)
  250. c.SendMessage(Text)
  251. c.SendMessage(Text)
  252. c.SendMessage(Text)
  253. c.SendMessage(Text)
  254. c.SendMessage(Text)
  255. c.SendMessage(Text)
  256. c.SendMessage(Text)
  257. c.SendMessage(Text)
  258.  
  259.  
  260.  
  261. Case "coolify"
  262. Msg = Msg.Remove(0, 8)
  263. Text = Msg
  264. 'lowercase
  265. Text = Text.Replace("a", "α")
  266. Text = Text.Replace("b", "в")
  267. Text = Text.Replace("c", "c")
  268. Text = Text.Replace("d", "∂")
  269. Text = Text.Replace("e", "ε")
  270. Text = Text.Replace("f", "f")
  271. Text = Text.Replace("g", "g")
  272. Text = Text.Replace("h", "н")
  273. Text = Text.Replace("i", "ι")
  274. Text = Text.Replace("j", "נ")
  275. Text = Text.Replace("k", "к")
  276. Text = Text.Replace("l", "ℓ")
  277. Text = Text.Replace("m", "м")
  278. Text = Text.Replace("n", "η")
  279. Text = Text.Replace("o", "σ")
  280. Text = Text.Replace("p", "ρ")
  281. Text = Text.Replace("q", "q")
  282. Text = Text.Replace("r", "я")
  283. Text = Text.Replace("s", "s")
  284. Text = Text.Replace("t", "т")
  285. Text = Text.Replace("u", "υ")
  286. Text = Text.Replace("v", "v")
  287. Text = Text.Replace("w", "ω")
  288. Text = Text.Replace("x", "x")
  289. Text = Text.Replace("y", "y")
  290. Text = Text.Replace("z", "z")
  291. 'Caps
  292. Text = Text.Replace("A", "α")
  293. Text = Text.Replace("B", "в")
  294. Text = Text.Replace("C", "c")
  295. Text = Text.Replace("D", "∂")
  296. Text = Text.Replace("E", "ε")
  297. Text = Text.Replace("F", "f")
  298. Text = Text.Replace("G", "g")
  299. Text = Text.Replace("H", "н")
  300. Text = Text.Replace("I", "ι")
  301. Text = Text.Replace("J", "נ")
  302. Text = Text.Replace("K", "к")
  303. Text = Text.Replace("L", "ℓ")
  304. Text = Text.Replace("M", "м")
  305. Text = Text.Replace("N", "η")
  306. Text = Text.Replace("O", "σ")
  307. Text = Text.Replace("P", "ρ")
  308. Text = Text.Replace("Q", "q")
  309. Text = Text.Replace("R", "я")
  310. Text = Text.Replace("S", "s")
  311. Text = Text.Replace("T", "т")
  312. Text = Text.Replace("U", "υ")
  313. Text = Text.Replace("V", "v")
  314. Text = Text.Replace("W", "ω")
  315. Text = Text.Replace("X", "x")
  316. Text = Text.Replace("Y", "y")
  317. Text = Text.Replace("Z", "z")
  318. c.SendMessage("Cool text: " + Text)
  319.  
  320.  
  321. Case "bubble"
  322. Msg = Msg.Remove(0, 7)
  323. Text = Msg
  324. 'lowercase
  325. Text = Text.Replace("a", "Ⓐ")
  326. Text = Text.Replace("b", "Ⓑ")
  327. Text = Text.Replace("c", "Ⓒ")
  328. Text = Text.Replace("d", "Ⓓ")
  329. Text = Text.Replace("e", "Ⓔ")
  330. Text = Text.Replace("f", "Ⓕ")
  331. Text = Text.Replace("g", "Ⓖ")
  332. Text = Text.Replace("h", "Ⓗ")
  333. Text = Text.Replace("i", "Ⓘ")
  334. Text = Text.Replace("j", "Ⓙ")
  335. Text = Text.Replace("k", "Ⓚ")
  336. Text = Text.Replace("l", "Ⓛ")
  337. Text = Text.Replace("m", "Ⓜ")
  338. Text = Text.Replace("n", "Ⓝ")
  339. Text = Text.Replace("o", "Ⓞ")
  340. Text = Text.Replace("p", "Ⓟ")
  341. Text = Text.Replace("q", "Ⓠ")
  342. Text = Text.Replace("r", "Ⓡ")
  343. Text = Text.Replace("s", "Ⓢ")
  344. Text = Text.Replace("t", "Ⓣ")
  345. Text = Text.Replace("u", "Ⓤ")
  346. Text = Text.Replace("v", "Ⓥ")
  347. Text = Text.Replace("w", "Ⓦ")
  348. Text = Text.Replace("x", "Ⓧ")
  349. Text = Text.Replace("y", "Ⓨ")
  350. Text = Text.Replace("z", "Ⓩ")
  351. 'Caps
  352. Text = Text.Replace("A", "Ⓐ")
  353. Text = Text.Replace("B", "Ⓑ")
  354. Text = Text.Replace("C", "Ⓒ")
  355. Text = Text.Replace("D", "Ⓓ")
  356. Text = Text.Replace("E", "Ⓔ")
  357. Text = Text.Replace("F", "Ⓕ")
  358. Text = Text.Replace("G", "Ⓖ")
  359. Text = Text.Replace("H", "Ⓗ")
  360. Text = Text.Replace("I", "Ⓘ")
  361. Text = Text.Replace("J", "Ⓙ")
  362. Text = Text.Replace("K", "Ⓚ")
  363. Text = Text.Replace("L", "Ⓛ")
  364. Text = Text.Replace("M", "Ⓜ")
  365. Text = Text.Replace("N", "Ⓝ")
  366. Text = Text.Replace("O", "Ⓞ")
  367. Text = Text.Replace("P", "Ⓟ")
  368. Text = Text.Replace("Q", "Ⓠ")
  369. Text = Text.Replace("R", "Ⓡ")
  370. Text = Text.Replace("S", "Ⓢ")
  371. Text = Text.Replace("T", "Ⓣ")
  372. Text = Text.Replace("U", "Ⓤ")
  373. Text = Text.Replace("V", "Ⓥ")
  374. Text = Text.Replace("W", "Ⓦ")
  375. Text = Text.Replace("X", "Ⓧ")
  376. Text = Text.Replace("Y", "Ⓨ")
  377. Text = Text.Replace("Z", "Ⓩ")
  378. c.SendMessage("Bubble text: " + Text)
  379.  
  380. Case "smallcaps"
  381. Msg = Msg.Remove(0, 10)
  382. Text = Msg
  383. 'lowercase
  384. Text = Text.Replace("a", "ᴀ")
  385. Text = Text.Replace("b", "ʙ")
  386. Text = Text.Replace("c", "ᴄ")
  387. Text = Text.Replace("d", "ᴅ")
  388. Text = Text.Replace("e", "ᴇ")
  389. Text = Text.Replace("f", "ғ")
  390. Text = Text.Replace("g", "ɢ")
  391. Text = Text.Replace("h", "ʜ")
  392. Text = Text.Replace("i", "ɪ")
  393. Text = Text.Replace("j", "ᴊ")
  394. Text = Text.Replace("k", "ᴋ")
  395. Text = Text.Replace("l", "ʟ")
  396. Text = Text.Replace("m", "ᴍ")
  397. Text = Text.Replace("n", "ɴ")
  398. Text = Text.Replace("o", "ᴏ")
  399. Text = Text.Replace("p", "ᴘ")
  400. Text = Text.Replace("q", "ǫ")
  401. Text = Text.Replace("r", "ʀ")
  402. Text = Text.Replace("s", "s")
  403. Text = Text.Replace("t", "ᴛ")
  404. Text = Text.Replace("u", "ᴜ")
  405. Text = Text.Replace("v", "ᴠ")
  406. Text = Text.Replace("w", "ᴡ")
  407. Text = Text.Replace("x", "x")
  408. Text = Text.Replace("y", "ʏ")
  409. Text = Text.Replace("z", "ᴢ")
  410. 'Caps
  411. Text = Text.Replace("A", "ᴀ")
  412. Text = Text.Replace("B", "ʙ")
  413. Text = Text.Replace("C", "ᴄ")
  414. Text = Text.Replace("D", "ᴅ")
  415. Text = Text.Replace("E", "ᴇ")
  416. Text = Text.Replace("F", "ғ")
  417. Text = Text.Replace("G", "ɢ")
  418. Text = Text.Replace("H", "ʜ")
  419. Text = Text.Replace("I", "ɪ")
  420. Text = Text.Replace("J", "ᴊ")
  421. Text = Text.Replace("K", "ᴋ")
  422. Text = Text.Replace("L", "ʟ")
  423. Text = Text.Replace("M", "ᴍ")
  424. Text = Text.Replace("N", "ɴ")
  425. Text = Text.Replace("O", "ᴏ")
  426. Text = Text.Replace("P", "ᴘ")
  427. Text = Text.Replace("Q", "ǫ")
  428. Text = Text.Replace("R", "ʀ")
  429. Text = Text.Replace("S", "s")
  430. Text = Text.Replace("T", "ᴛ")
  431. Text = Text.Replace("U", "ᴜ")
  432. Text = Text.Replace("V", "ᴠ")
  433. Text = Text.Replace("W", "ᴡ")
  434. Text = Text.Replace("X", "x")
  435. Text = Text.Replace("Y", "ʏ")
  436. Text = Text.Replace("Z", "ᴢ")
  437. c.SendMessage("Small Cap Text: " + Text)
  438.  
  439.  
  440.  
  441.  
  442.  
  443.  
  444.  
  445. End Select
  446. End If
  447. End If
  448. End If
  449.  
  450. If Status = TChatMessageStatus.cmsReceived Or Status = TChatMessageStatus.cmsSent Then
  451. Dim Msg As String = pMessage.Body
  452. Dim c As Chat = pMessage.Chat
  453.  
  454. If pMessage.Body.StartsWith("|") AndAlso pMessage.Body.Contains(" ") Then ' <--
  455. Dim command As String = pMessage.Body.Split(" "c)(0).Substring(1)
  456. Dim argument As String = pMessage.Body.Split(" "c)(1)
  457.  
  458. ListBox1.Items.Add(DateTime.Now.ToLongTimeString() + ": " + pMessage.Sender.Handle + " Issued command: " + command)
  459.  
  460. If ListBox2.Items.Contains(pMessage.FromHandle) Then
  461.  
  462. c.SendMessage(pMessage.FromHandle + " You Are A Idiot You Have Been Banned Please Speak To The Owner")
  463. Else
  464.  
  465. Select Case command.ToLower()
  466.  
  467. 'Admin Commands With Argument
  468.  
  469. Case "ban" '@Ban User
  470. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/gcdpznmsny7f66b/Admins.txt?dl=1")
  471. Dim response As System.Net.HttpWebResponse = request.GetResponse()
  472.  
  473. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream)
  474. Dim Authedusers As String = sr.ReadToEnd()
  475. If Authedusers.Contains(pMessage.FromHandle) Then
  476. If ListBox2.Items.Contains(argument) Then
  477.  
  478. c.SendMessage(argument + " Is Already Banned")
  479.  
  480. Else
  481.  
  482. ListBox2.Items.Add(argument)
  483. c.SendMessage(argument + " Is Now Banned")
  484.  
  485. End If
  486. Else
  487. c.SendMessage("You Are Not A Admin")
  488. End If
  489.  
  490. Case "unban" '@Ban User
  491. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/gcdpznmsny7f66b/Admins.txt?dl=1")
  492. Dim response As System.Net.HttpWebResponse = request.GetResponse()
  493.  
  494. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream)
  495. Dim Authedusers As String = sr.ReadToEnd()
  496. If Authedusers.Contains(pMessage.FromHandle) Then
  497. If ListBox2.Items.Contains(argument) Then
  498.  
  499. c.SendMessage(argument + " Has Been Unbanned")
  500. ListBox2.Items.Remove(argument)
  501.  
  502. Else
  503.  
  504. c.SendMessage(argument + " Is Not Banned")
  505.  
  506. End If
  507. Else
  508. c.SendMessage("You Are A Admin")
  509. End If
  510.  
  511.  
  512. Case "globalmessage"
  513. Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://www.dropbox.com/s/gcdpznmsny7f66b/Admins.txt?dl=1")
  514. Dim response As System.Net.HttpWebResponse = request.GetResponse()
  515.  
  516. Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream)
  517. Dim Authedusers As String = sr.ReadToEnd()
  518. Msg = Msg.Remove(0, 14)
  519. If Authedusers.Contains(pMessage.FromHandle) Then
  520.  
  521. For Each u As SKYPE4COMLib.User In skype.Friends
  522. skype.SendMessage(u.Handle, Msg + vbNewLine + "(star) Sent By X-Slags Bot (star)")
  523. Next
  524. c.SendMessage("Mass Message Has Sent")
  525.  
  526. Else
  527. c.SendMessage("You Are Not Owner")
  528. End If
  529.  
  530.  
  531.  
  532.  
  533. End Select
  534. End If
  535. End If
  536. End If
  537. End Sub
  538.  
  539. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  540.  
  541. botname = TextBox1.Text
  542.  
  543. End Sub
  544.  
  545. Private Sub Button2_Click(sender As Object, e As EventArgs)
  546.  
  547.  
  548.  
  549. End Sub
  550.  
  551. Private Sub Form1_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
  552.  
  553. My.Settings.Save()
  554.  
  555. End Sub
  556. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!