GeoLocalizar una IP:

#Region " GeoLocation "
 
' [ GeoLocation ]
'
' // By Elektro H@cker
'
' Examples :
'
' Dim GeoInfo As GeoLocation.GeoInfo = GeoLocation.Locate("84.126.113.11")
' Dim GeoInfo As GeoLocation.GeoInfo = GeoLocation.Locate("84.126.113.11.dyn.user.ono.com")
' MsgBox(GeoInfo.Country) ' result: Spain
' MsgBox(GeoInfo.City)    ' Result: Valencia
 
Public Class GeoLocation
 
    Public Class GeoInfo
        Public Property Latitude() As String
        Public Property Lognitude() As String
        Public Property City() As String
        Public Property State() As String
        Public Property Country() As String
        Public Property Host() As String
        Public Property Ip() As String
        Public Property Code() As String
    End Class
 
    Public Shared Function Locate(ByVal IP As String) As GeoInfo
 
        Try
 
            Dim request = TryCast(Net.WebRequest.Create(New Uri("http://www.geoiptool.com/data.php/en/?IP=" & IP)), Net.HttpWebRequest)
 
            If request IsNot Nothing Then
 
                request.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; SLCC1; .NET CLR 2.0.50727)"
 
                Dim _geoloc As New GeoInfo
 
                Using webResponse = TryCast(request.GetResponse(), Net.HttpWebResponse)
                    If webResponse IsNot Nothing Then
 
                        Using reader = New IO.StreamReader(webResponse.GetResponseStream())
 
                            Dim doc = New Xml.XmlDocument()
 
                            doc.Load(reader)
 
                            Dim nodes = doc.GetElementsByTagName("marker")
 
                            Dim marker = TryCast(nodes(0), Xml.XmlElement)
 
                            _geoloc.City = marker.GetAttribute("city")
                            _geoloc.Country = marker.GetAttribute("country")
                            _geoloc.Code = marker.GetAttribute("code")
                            _geoloc.Host = marker.GetAttribute("host")
                            _geoloc.Ip = marker.GetAttribute("ip")
                            _geoloc.Latitude = marker.GetAttribute("lat")
                            _geoloc.Lognitude = marker.GetAttribute("lng")
 
                            Return _geoloc
 
                        End Using
 
                    End If
                End Using
            End If
 
            Return New GeoInfo()
 
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
End Class
 
#End Region

Ala, ya si se puede decir que Nov a "ayudado"

---

Googleando un poquito he encontrado esto:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://google.com")
    End Sub
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        AddHandler WebBrowser1.Document.Click, AddressOf getClickedElement
    End Sub
    Private Sub getClickedElement(ByVal sender As Object, ByVal e As HtmlElementEventArgs)
        With WebBrowser1.Document.GetElementFromPoint(e.ClientMousePosition)
            Dim selectedHtmlElement_ID As String = .GetAttribute("id").ToLower
            Dim selectedHtmlElement_NAME As String = .GetAttribute("name").ToLower
            MsgBox("ID: " & selectedHtmlElement_ID & vbNewLine & " --- Name: " & selectedHtmlElement_NAME)
        End With
    End Sub
End Class

Básicamente podemos sacar el Name y la Id del elemento clicado a través de un MsgBox.

Un saludo.
Que os parece?

Un Bot para IRC.

No soy experto en IRC, lo hice basándome en wl webchat de freenode, pero imagino que funcionará en todos los canales de IRC.

...Extender y/o modificar el código como querais, esto solo e sun ejemplo, dejar volar vuestra imaginación:


Un ejemplo de uso:

Public Class Form1
 
    Dim IRC_Thread_Var As Threading.Thread = New Threading.Thread(AddressOf IRC_Thread)
 
    Private Sub Form1_shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        IRC_Thread_Var = New Threading.Thread(AddressOf IRC_Thread)
        IRC_Thread_Var.Start()
    End Sub
 
    Sub IRC_Thread()
        IRC_Bot.Connect("irc.freenode.org", "#ircehn", "ElektroBot")
    End Sub
 
End Class

...La class del Bot:

Public Class IRC_Bot
 
    ' Channel Moderators
    Public Shared Gods As String() = "Elektro Elektro-H Elektro-H_ Drvy kili4n Ikillnukes Caster_ OmarHack OmarHack_ Carloswaldo _0xDani".Split(ChrW(32)).ToArray
 
    ' Commands
    Private Shared Line As String = Nothing
    Private Shared Name As String = Nothing
    Private Shared IP As String = Nothing
    Private Shared Command As String = Nothing
    Private Shared Argument As String = Nothing
 
    ' Bot Status
    Public Shared Activated As Boolean = True
    Private Shared Elapsed_Time As New Stopwatch
    Private Shared Total_Messages As Int64 = 0
 
    ' Connection
    Private Shared Ident_Listener As Net.Sockets.TcpListener = Nothing
    Private Shared Ident_Client As Net.Sockets.TcpClient = Nothing
    Private Shared Ident_NetworkStream As Net.Sockets.NetworkStream = Nothing
    Private Shared Ident_Reader As IO.StreamReader = Nothing
    Private Shared Ident_Writer As IO.StreamWriter = Nothing
    Private Shared Ident_ResponseString As String = Nothing
    Private Shared TCP_client As Net.Sockets.TcpClient = Nothing ' Main connection to the IRC network.
    Private Shared Network_Stream As Net.Sockets.NetworkStream = Nothing ' Break TCP connection down to a network stream.
    Private Shared IRC_Reader As IO.StreamReader = Nothing ' Stream to read messages from the Server.
    Private Shared IRC_Writer As IO.StreamWriter = Nothing ' Stream to write messages to the server.
 
    ' To attach Console (If needed)
    ' Private Declare Function AllocConsole Lib "kernel32.dll" () As Boolean
 
    Public Shared Sub Connect(ByVal Server As String, _
                       ByVal Channel As String, _
                       ByVal NickName As String, _
                       Optional ByVal Port As Int32 = 6667, _
                       Optional ByVal RealName As String = "ElektroBot", _
                       Optional ByVal UserName As String = "ElektroHacker")
 
        ' AllocConsole() '  Attach Console (If needed)
 
        ' Change CMD Window Size
        Console.SetWindowSize(200, 60)
 
        Try
 
            ' Create Connection
            Write("Creating Connection...", ConsoleColor.Yellow)
            TCP_client = New Net.Sockets.TcpClient(Server, Port)
            Network_Stream = TCP_client.GetStream
            IRC_Reader = New IO.StreamReader(Network_Stream)
            IRC_Writer = New IO.StreamWriter(Network_Stream)
            If Not IRC_Writer.AutoFlush Then IRC_Writer.AutoFlush = True
 
            ' Set name
            Write("Setting up name...", ConsoleColor.Yellow)
            IRC_Writer.WriteLine(String.Format("USER {0} {1} * :{2}", UserName, 0, RealName))
 
            ' Set Nickname
            Write("Setting Nickname...", ConsoleColor.Yellow)
            IRC_Writer.WriteLine(String.Format("NICK {0}", NickName))
 
            ' Join Room
            Write("Joining Room...", ConsoleColor.Yellow)
            IRC_Writer.WriteLine(String.Format("JOIN {0}", Channel))
 
            ' Check Ident connection
            Write("Checking Ident connection...", ConsoleColor.Yellow)
            Ident_Listener = New Net.Sockets.TcpListener(Net.IPAddress.Any, 113)
            Ident_Listener.Start()
            Ident_Client = Ident_Listener.AcceptTcpClient
            Ident_Listener.Stop()
            Ident_NetworkStream = Ident_Client.GetStream
            Ident_Reader = New IO.StreamReader(Ident_NetworkStream)
            Ident_ResponseString = Ident_Reader.ReadLine
            Write("Ident got: " & Ident_ResponseString, ConsoleColor.Cyan)
            Ident_Writer = New IO.StreamWriter(Ident_NetworkStream)
            If Not Ident_Writer.AutoFlush Then Ident_Writer.AutoFlush = True
            Ident_Writer.WriteLine(String.Format("{0} : USERID : WINDOWS 7 : {1}", Ident_ResponseString, UserName))
 
            ' Read messages
            Write("Reading messages...", ConsoleColor.Yellow)
            Elapsed_Time.Start()
 
            While True
 
                ' Sum the total received messages
                Total_Messages += 1
 
                ' Get the IRC line to read
                Line = IRC_Reader.ReadLine
 
                ' Print the IRC line
                Write(Line, ConsoleColor.Gray)
 
                ' Get User Name
                Try : Name = Line.Split("!").First.Substring(1, Line.Split("!").First.Length - 1)
                Catch : Name = Nothing
                End Try
 
                ' Get User IP
                Try : IP = Line.Split(" ").First.Split("/").Last.Replace("ip.", "")
                Catch : IP = Nothing
                End Try
 
                ' Get User Command
                Try : Command = Line.Split(" ")(3).Substring(1, Line.Split(" ")(3).Length - 1).ToLower
                Catch : Command = Nothing
                End Try
 
                ' Get the command argument
                Try : Argument = Line.Split(" ")(4)
                Catch : Argument = Nothing
                End Try
 
                    ' IRC Ping-Pong
                    if line.tolower.startswith("ping") then
                        Write("Answering Ping with Pong...", ConsoleColor.Yellow)
                        Write("PONG " & Line, ConsoleColor.Cyan)
                        IRC_Writer.WriteLine("PONG " & Line)
                    end if
 
                ' Parse commands
                Select Case Command
 
                        ' Help
                    Case "!?", "!ayuda"
 
                        If Line.ToLower.Contains(Channel.ToLower) Then
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}      ", Name, "[+] Comandos públicos:"))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!? | !ayuda      ", "Muestra esta ayuda."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!reglas          ", "Muestra las reglas de la sala."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!reglasehn       ", "Muestra las reglas de ElHacker.Net."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!status          ", "Muestra el estado del Bot."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!Whois (IP)      ", "Muestra información geográfica de una IP."))
 
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}      ", Name, "[+] Comandos privados:"))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!op              ", "Te otorga el estado de OP."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!op(+|-) (NOMBRE)", "Otorga o elimina el estado de OP a un usuario."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!bot (ON|OFF)    ", "Activa o Desactiva el Bot."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} | {2}", Name, "!q | !quit       ", "Desconecta al Bot."))
                        End If
 
                        ' Room Rules
                    Case "!reglas"
 
                        If Line.ToLower.Contains(Channel.ToLower) Then
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "[+] Reglas de " & Channel))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "1. Respetar a los usuarios y no ofender de ninguna manera."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "2. No preguntar como puedes hackear a personas ajenas."))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "3. No compartir material pornográfico o difundir la pederástia o cosas parecidas."))
                        End If
 
                        ' EHN Rules
                    Case "!reglasehn"
 
                        If Line.ToLower.Contains(Channel.ToLower) Then
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}", Name, "[+] Reglas de ElHacker.Net: http://foro.elhacker.net/reglas"))
                        End If
 
                        ' Geo-Locate IP
                    Case "!whois"
 
                        'If Line.ToLower.Contains(Channel.ToLower) Then _
                        'AndAlso Activated Then
 
                        'Dim GeoInfo As GeoLocation.GeoInfo = GeoLocation.Locate(Argument)
                        'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "[+] Información geográfica de ", Argument))
                        'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "País..:", GeoInfo.Country))
                        'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Ciudad:", GeoInfo.City))
                        'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Código:", GeoInfo.Code))
                        'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Host..:", GeoInfo.Host))
                        'IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Ip....:", GeoInfo.Ip))
                        'GeoInfo = Nothing
 
                        ' End If
 
                        ' Give own OP+
                    Case "!op"
 
                        If Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) _
                        AndAlso Activated Then
 
                            IRC_Writer.WriteLine(String.Format("MODE {0} +o {1}", Channel, Name))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "se ha convertido en OP."))
 
                        ElseIf Not Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) _
                        AndAlso Activated Then
 
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "no tienes privilegios para ser OP."))
 
                        End If
 
                        ' Give Op+ to a user
                    Case "!op+"
 
                        If Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) _
                        AndAlso Activated Then
 
                            IRC_Writer.WriteLine("MODE {0} +o {1}", Channel, Argument)
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2} {3}", Channel, Name, "concedió OP a", Argument))
 
                        ElseIf Not Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) _
                        AndAlso Activated Then
 
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "no tienes privilegios para conceder OP."))
 
                        End If
 
                        ' Give Op- to a user
                    Case "!op-"
 
                        If Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) _
                        AndAlso Activated Then
 
                            IRC_Writer.WriteLine("MODE {0} -o {1}", Channel, Argument)
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2} {3}", Channel, Name, "denegó OP a", Argument))
 
                        ElseIf Not Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) _
                        AndAlso Activated Then
 
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "no tienes privilegios para denegar OP."))
 
                        End If
 
                        ' Bot ON/OFF
                    Case "!bot"
 
                        If Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) Then
 
                            Select Case Argument.ToLower
                                Case "on"
                                    Activated = True
                                    Write("Bot status changed to: Enabled", ConsoleColor.Cyan)
                                Case "off"
                                    Activated = False
                                    Write("Bot status changed to: Disabled", ConsoleColor.Cyan)
                            End Select
 
                        ElseIf Not Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) Then
 
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} :{1} {2}", Channel, Name, "no tienes privilegios de OP."))
 
                        End If
 
                        ' Bot Status
                    Case "!status"
 
                        If Line.ToLower.Contains(Channel.ToLower) Then
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1}    ", Name, "[+] Status del Bot"))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Soy propiedad de......:", "Elektro-H"))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Versión de mi sistema.:", "0.2"))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Tiempo total online...:", Elapsed_Time.Elapsed.Hours & " H, " & Elapsed_Time.Elapsed.Minutes & " M, " & Elapsed_Time.Elapsed.Seconds & " S"))
                            IRC_Writer.WriteLine(String.Format("PRIVMSG {0} : {1} {2}", Name, "Mensajes procesados...:", Total_Messages))
                        End If
 
                        ' Quit
                    Case "!q", "!quit"
 
                        If Gods.Contains(Name) _
                        AndAlso Line.ToLower.Contains(Channel.ToLower) _
                        AndAlso Activated Then
 
                            IRC_Writer.WriteLine("QUIT")
                            Write("Exiting...", ConsoleColor.Yellow)
                            Exit Sub
 
                        End If
 
                End Select
 
            End While
 
        Catch ex As Exception
            Write("Error: " & ex.Message, ConsoleColor.Red)
            IRC_Writer.WriteLine("QUIT")
 
        Finally
            IRC_Reader.Dispose()
            IRC_Writer.Dispose()
            Network_Stream.Dispose()
 
        End Try
 
    End Sub
 
    Private Shared Sub Write(ByVal Text As String, _
                                 Optional ByVal ForeColor As System.ConsoleColor = ConsoleColor.White, _
                                 Optional ByVal BackColor As System.ConsoleColor = ConsoleColor.Black)
 
        Dim Current_ForegroundColor As ConsoleColor = Console.ForegroundColor
        Dim Current_BackgroundColor As ConsoleColor = Console.BackgroundColor
 
        Console.ForegroundColor = ForeColor
        Console.BackgroundColor = BackColor
        Console.WriteLine(Text & vbNewLine)
 
        Console.ForegroundColor = Current_ForegroundColor
        Console.BackgroundColor = Current_BackgroundColor
 
    End Sub
 
End Class

El captcha te lo pide la web de freenode, no el protocolo IRC.
no es necesario, pruébalo xD...

Okey, gracias