API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jun 13th, 2014
232
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.40 KB | None | 0 0
raw download clone embed print report
  1. Imports SKYPE4COMLib
  2. Imports System.Net
  3.  
  4. Public Class Form1
  5. Dim valid As Boolean = False
  6. Dim WithEvents oSkype As New Skype
  7. Dim Trigger As String = "!"
  8.  
  9. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  10. oSkype.Attach(7, False)
  11. End Sub
  12.  
  13. Private Sub oSkype_MessageStatus(pMessage As ChatMessage, Status As TChatMessageStatus) Handles oSkype.MessageStatus
  14. If Status = TChatMessageStatus.cmsReceived Or Status = TChatMessageStatus.cmsSent Then
  15. Dim Msg As String = pMessage.Body
  16. Dim c As Chat = pMessage.Chat
  17. If Msg.StartsWith("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: Resolving user ") Then
  18. Try
  19. Dim request As HttpWebRequest = HttpWebRequest.Create("http://resolve.com/api.php?cmd=12&username=" + Msg.Split(" ")(5))
  20. Dim response As HttpWebResponse = request.GetResponse
  21. Dim source As String = New IO.StreamReader(response.GetResponseStream).ReadToEnd
  22. pMessage.Body = "~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: IP von " + Msg.Split(" ")(5) + " is: " + source.Split(",")(0) + vbNewLine + "Skype bot: andere IPs sind : " + source.Remove(0, source.Split(",")(0).Length + 1).Split("|")(0).Replace(",", " und ") + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~"
  23. Catch ex As Exception
  24. pMessage.Body = "~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: Error resolving user " + Msg.Split(" ")(5) + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~"
  25. End Try
  26. End If
  27. If Msg.StartsWith("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: IP lookup ") Then
  28. Try
  29. pMessage.Body = "http://www.geoiptool.com/en/?IP=" + Msg.Split(" ")(5)
  30. Catch ex As Exception
  31. pMessage.Body = ""
  32. End Try
  33. End If
  34.  
  35.  
  36. If Msg.StartsWith(Trigger) Then
  37. ListBox4.Items.Add(DateTime.Now.ToLongTimeString() + ": " + "Command " + "'" + Msg + "'" + " From " + pMessage.Sender.Handle)
  38. Msg = Msg.Remove(0, 1).ToLower
  39.  
  40.  
  41. If Msg = "befehle" Then
  42. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "!hallo (test befehl) - der Bot wird dir 'Hallo!' antworten." + vbNewLine + "!datum - zeigt dir das Datum" + vbNewLine + "!zeit - zeigt dir die Zeit" + vbNewLine + "!info - zeigt informationen über den Bot" + vbNewLine + "!resolve 'username' - findet ip von Skype user heraus" + vbNewLine + "!kaufen - Skype bot kaufen" + vbNewLine + "!spam - Spam = Spam" + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  43. ElseIf Msg = "hallo" Then
  44. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: Hallo!" + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  45. ElseIf Msg = "spam" Then
  46. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: SPAM" + vbNewLine)
  47. System.Threading.Thread.Sleep(50)
  48. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  49. System.Threading.Thread.Sleep(50)
  50. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  51. System.Threading.Thread.Sleep(50)
  52. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  53. System.Threading.Thread.Sleep(50)
  54. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  55. System.Threading.Thread.Sleep(50)
  56. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  57. System.Threading.Thread.Sleep(50)
  58. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  59. System.Threading.Thread.Sleep(50)
  60. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  61. System.Threading.Thread.Sleep(50)
  62. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  63. System.Threading.Thread.Sleep(50)
  64. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  65. System.Threading.Thread.Sleep(50)
  66. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  67. System.Threading.Thread.Sleep(50)
  68. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  69. System.Threading.Thread.Sleep(50)
  70. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  71. System.Threading.Thread.Sleep(50)
  72. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  73. System.Threading.Thread.Sleep(50)
  74. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  75. System.Threading.Thread.Sleep(50)
  76. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  77. System.Threading.Thread.Sleep(50)
  78. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  79. System.Threading.Thread.Sleep(50)
  80. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  81. System.Threading.Thread.Sleep(50)
  82. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  83. System.Threading.Thread.Sleep(50)
  84. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  85. System.Threading.Thread.Sleep(50)
  86. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  87. System.Threading.Thread.Sleep(50)
  88. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  89. System.Threading.Thread.Sleep(50)
  90. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  91. System.Threading.Thread.Sleep(50)
  92. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  93. System.Threading.Thread.Sleep(50)
  94. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  95. System.Threading.Thread.Sleep(50)
  96. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  97. System.Threading.Thread.Sleep(50)
  98. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  99. System.Threading.Thread.Sleep(50)
  100. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  101. System.Threading.Thread.Sleep(50)
  102. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  103. System.Threading.Thread.Sleep(50)
  104. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  105. System.Threading.Thread.Sleep(50)
  106. c.SendMessage("Skype bot: SPAM" + vbNewLine)
  107. System.Threading.Thread.Sleep(50)
  108. c.SendMessage("~~~~~~~~~~~~~~~~~~~~~~")
  109. ElseIf Msg = "info" Then
  110. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: Developed by Byte" + vbNewLine + "" + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  111. ElseIf Msg = "datum" Then
  112. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: Das Aktuelle Datum ist :: " & DateTime.Now.ToLongDateString() + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  113. ElseIf Msg = "zeit" Then
  114. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: Aktuelle Zeit ist : " & DateTime.Now.ToLongTimeString() + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  115. ElseIf Msg = "kaufen" Then
  116. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: Der bot ist komplett gratis!" + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  117. ElseIf Msg.StartsWith("resolve") Then
  118. Dim user As String() = Msg.Split(" ")
  119. If user.Length = 2 Then
  120. Try
  121. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: Resolving user " + user(1) + " " + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  122. Catch ex As Exception
  123. End Try
  124. Else
  125. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Skype bot: !resolve 'username'" + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  126. End If
  127. Else
  128. c.SendMessage("~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "Unbekannter befehl. gebe !befehle ein für eine liste aller befehle" + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  129. End If
  130. End If
  131. End If
  132. End Sub
  133.  
  134. Private Sub oSkype_UserAuthorizationRequestReceived(pUser As User) Handles oSkype.UserAuthorizationRequestReceived
  135. If CheckBox1.Checked = True And pUser.IsAuthorized = False Then
  136. pUser.IsAuthorized = True
  137. oSkype.SendMessage(pUser.Handle, "~~~~~~~~~ Skype bot ~~~~~~~~~" + vbNewLine + "!hallo (test befehl) - der Bot wird dir 'Hallo!' antworten." + vbNewLine + "!datum - zeigt dir das Datum" + vbNewLine + "!zeit - zeigt dir die Zeit" + vbNewLine + "!info - zeigt informationen über den Bot" + vbNewLine + "!resolve 'username' - findet ip von Skype user heraus" + vbNewLine + "!kaufen - Skype bot kaufen" + vbNewLine + "!spam - Spam = Spam" + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~")
  138. End If
  139. End Sub
  140.  
  141. Private Sub ListBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox4.SelectedIndexChanged
  142.  
  143. End Sub
  144. 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!