Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - ABDERRAMAH

#351
Eso si que es computación en la "nube" xD
#352
La verdad es que los aficionados a la tauromaquia son minoría hoy en día. Cambiando de tema, yo soy de Pamplona y aquí se celebra una de las corridas más famosas del mundo, el encierro de san Fermin (uno cada mañana durante los 7 días de fiesta). Está muy controlado todo, desde hace unos años se rocía la calle con antideslizante, hay vallados dobles de madera muy gruesa (por abajo cabe un humano, pero no un toro), no puedes correr borracho (si, muchos lo hacen aun así) y tras llegar a la plaza sueltan vaquillas (no las matan, solo las dejan correr un rato entre la gente). Es muy diferente a la matanza del toro.

Por otro lado, durante las fiestas de san Fermin a la plaza acude mucha gente, no solo los pro-taurinos, muchos aplauden al toro cuando coge al torero y abuchean al picador y al matador, esto pasa porque son unas fiestas ultra-masificadas en las que entre otras costumbres está la de ir a la plaza. Si de mi dependiera prohibiría la matanza o la sustituiría por algo que no terminase con la muerte del toro, el encierro es más civilizado, el toro no sufre más allá de la confusión de no saber lo que pasa a su alrededor con tanta gente corriendo.
#353
Está construido a partir de varios ejemplos que se pueden encontrar en msdn pero que por sí solos eran incompletos. No mantiene una conexión abierta, tan sólo conecta, envía los datos indicados y captura la respuesta recibida, se debería controlar la posibilidad de que no reciba datos, pero eso se lo dejo ya a cada uno.


' Minimal Tcp client for vb.net by abderramah (based in several msdn example codes)
'
' // este cliente no mantiene una conexión abierta, tan sólo conecta a una dirección, envía los datos indicados
' // y espera a recibir respuesta. En caso de no recibirla es posible que se quede en estado de espera, pero
' // con unas pocas líneas se puede solucionar.
'
' // petición http de ejemplo:
' // getsocket.socketsendreceive(192.168.2.5, 80, "GET / HTTP/1.1" + ControlChars.Cr + ControlChars.Lf )

Public Class GetSocket
Public Event errordebug(ByVal datae As String)

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

' recibir información del host
Try
Dim ipe As IPAddress = New IPAddress(IPAddress.Parse(server).GetAddressBytes)
hostEntry.AddressList = {ipe}
Catch ex As Exception
Try
hostEntry = Dns.GetHostEntry(server)
Catch exa As Exception
hostEntry.AddressList = {IPAddress.Parse(server)}
End Try
End Try

' recorrer todas las direcciones del host (ipv4 e ipv6)
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)

Try
tempSocket.Connect(endPoint)
Catch ex As Exception
Return s
Exit Function
End Try

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

Return s
End Function

' conectar, enviar petición y recibir la respuesta
Public Function SocketSendReceive(ByVal server As String, ByVal port As Integer, ByVal datae As String) As String
Dim ascii As Encoding = Encoding.ASCII
'httprequest= "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 request As String = datae
Dim bytesSent As [Byte]() = ascii.GetBytes(request)
Dim bytesReceived(128000) As [Byte]

' crear socket
Dim s As Socket = ConnectSocket(server, port)

If s Is Nothing Then
Return "Tcp connection failed"
Exit Function
End If
' enviar la petición tcp
s.Send(bytesSent, bytesSent.Length, 0)

Dim bytes As Int32
' leer los datos de entrada
Dim page As [String] = ""

' loop recibiendo
Do
bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)
page = page + Encoding.ASCII.GetString(bytesReceived, 0, bytes)
Loop While bytes > 0
Return page
End Function
End Class
#354
Foro Libre / Re: 2012?
3 Enero 2012, 20:13 PM
Terminaré mi nueva máquina virtual, crearé algún lenguaje de nivel medio o alto  para ella. Aprobarán la ley sinde y sopa, probaremos el nuevo appinventor con las modificaciones del mit. Y alguna cosa más de la que me olvido.
#355
Foro Libre / Re: Me presento.
16 Diciembre 2011, 20:21 PM
Happy code!
#356
Bien, llegará a españa dentro de 10 o 15 siglos!
#357
solucion: compra el pc a piezas y lo montas...
#358
Foro Libre / Re: Sueños lúcidos
3 Diciembre 2011, 13:34 PM
Citares mas.. hay veces que a la gente que esta conmigo en el sueño les digo "yo estoy soñando", y hay veces que reaccionan con violencia y me despierto (que sera eso ?)...

Ostia!, yo solo he tenido un sueño lúcido una vez, en un momento dado soñaba que estaba en una furgoneta con alguien y me estaba preguntando nosequé y le dije, "esto es un sueño" después es dificil de explicar, ni lo que veía ni lo que oía tenía mucho sentido y daba algo de miedo, al rato me desperté.
#359
Por fin este tío dice la verdad en su discurso:

[youtube=425,350]http://www.youtube.com/watch?feature=player_embedded&v=U7FxB3ELsS4[/youtube]
#360
Pero tu lo secarás y curarás debidamente, me imagino...