Imports SKYPE4COMLib
Imports System.Net
Public Class Form1
Dim valid As Boolean = False
Dim WithEvents oSkype As New Skype
Dim Trigger As String = "!"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
oSkype.Attach(7, False)
End Sub
Private Sub oSkype_MessageStatus(pMessage As ChatMessage, Status As TChatMessageStatus) Handles oSkype.MessageStatus
If Status = TChatMessageStatus.cmsReceived Or Status = TChatMessageStatus.cmsSent Then
Dim Msg As String = pMessage.Body
Dim c As Chat = pMessage.Chat
If Msg.StartsWith("~~~~~~~~~ XeniBot ~~~~~~~~~" + vbNewLine + "XeniBot: Sto cercando l'IP dell'utente... ") Then
Try
Dim request As HttpWebRequest = HttpWebRequest.Create("API" + Msg.Split(" ")(5))
Dim response As HttpWebResponse = request.GetResponse
Dim source As String = New IO.StreamReader(response.GetResponseStream).ReadToEnd
pMessage.Body = "~~~~~~~~~ XeniBot ~~~~~~~~~" + vbNewLine + "XeniBot: L'IP di " + Msg.Split(" ")(5) + " è: " + source.Split(",")(0) + vbNewLine + "XeniBot: Gli altri IP rilevati sono " + source.Remove(0, source.Split(",")(0).Length + 1).Split("|")(0).Replace(",", " and ") + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~"
Catch ex As Exception
pMessage.Body = "~~~~~~~~~ XeniBot ~~~~~~~~~" + vbNewLine + "XeniBot: Errore mentre cercavo l'IP dell'utente. " + Msg.Split(" ")(5) + vbNewLine + "~~~~~~~~~~~~~~~~~~~~~~"
End Try
End If