elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Estamos en la red social de Mastodon


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  AYUDA CON ESTE CODIGO
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: AYUDA CON ESTE CODIGO  (Leído 1,208 veces)
70N1


Desconectado Desconectado

Mensajes: 355


Ver Perfil
AYUDA CON ESTE CODIGO
« en: 2 Febrero 2008, 10:06 am »

El fallo esta a la punta de abajo.
Código:
         Imports System
Imports System.Text
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports Microsoft.VisualBasic

Public Class GetSocket

    Private Shared Function ConnectSocket(ByVal server As String, ByVal port As Integer) As Socket
        Dim s As Socket = Nothing
        Dim hostEntry As IPHostEntry = Nothing

        ' Get host related information.
        hostEntry = Dns.GetHostEntry("libres.irc - hispano.org")

        ' Loop through the AddressList to obtain the supported AddressFamily. This is to avoid
        ' an exception that occurs when the host host IP Address is not compatible with the address family
        ' (typical in the IPv6 case).
        Dim address As IPAddress

        For Each address In hostEntry.AddressList
            Dim endPoint As New IPEndPoint(address, port)
            Dim tempSocket As New Socket(endPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp)

            tempSocket.Connect(endPoint)

            If tempSocket.Connected Then
                s = tempSocket
                Exit For
            End If

        Next address

        Return s
    End Function


    ' This method requests the home page content for the specified server.

    Private Shared Function SocketSendReceive(ByVal server As String, ByVal port As Integer) As String
        'Set up variables and String to write to the server.
        Dim ascii As Encoding = Encoding.ASCII
        Dim request As String = "GET / HTTP/1.1" + ControlChars.Cr + ControlChars.Lf + "Host: " + server + ControlChars.Cr + ControlChars.Lf + "Connection: Close" + ControlChars.Cr + ControlChars.Lf + ControlChars.Cr + ControlChars.Lf
        Dim bytesSent As [Byte]() = ascii.GetBytes(request)
        Dim bytesReceived(255) As [Byte]

        ' Create a socket connection with the specified server and port.
        Dim s As Socket = ConnectSocket(server, port)

        If s Is Nothing Then
            Return "Connection failed"
        End If
        ' Send request to the server.
        s.Send(bytesSent, bytesSent.Length, 0)

        ' Receive the server  home page content.
        Dim bytes As Int32

        ' Read the first 256 bytes.
        Dim page As [String] = "Default HTML page on " + server + ":" + ControlChars.Cr + ControlChars.Lf

        ' The following will block until the page is transmitted.
        Do
            bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)
            page = page + Encoding.ASCII.GetString(bytesReceived, 0, bytes)
        Loop While bytes > 0

        Return page
    End Function

    'Entry point which delegates to C-style main Private Function
    Public Overloads Shared Sub Main()
        Main(System.Environment.GetCommandLineArgs())
    End Sub


    Private Overloads Shared Sub Main(ByVal args() As String)
        Dim host As String
        Dim port As Integer = 80

        If args.Length = 1 Then
            ' If no server name is passed as argument to this program,
            ' use the current host name as default.
            host = Dns.GetHostName()
        Else
            host = args(1)
        End If

        Dim result As String = SocketSendReceive(host, port)


      'CAMBIE CONSOLE POR TEXTBOX1 Y ME DA UN ERROR.
        TextBox1 = result
    End Sub 'Main
End Class           


En línea

70N1
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Ayuda con este codigo!!
Programación C/C++
an_war 7 3,307 Último mensaje 25 Noviembre 2010, 06:16 am
por Beakman
AYUDA CON ESTE CODIGO
Java
Jean Pool 3 2,218 Último mensaje 15 Julio 2011, 00:23 am
por [Case]
Ayuda con este codigo
.NET (C#, VB.NET, ASP)
jacj0102 3 3,847 Último mensaje 7 Agosto 2011, 08:10 am
por neoncyber
AYUDA CON ESTE CODIGO
Programación C/C++
dead1327 2 1,914 Último mensaje 13 Septiembre 2011, 10:45 am
por Eternal Idol
Ayuda con este codigo .net
Desafíos - Wargames
tox0777 0 2,793 Último mensaje 23 Septiembre 2011, 06:46 am
por tox0777
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines