La pregunta del millón a quien le quieres enviar los datos?... si no mal recuerdo en este tipo de sockets debes crearles el header respectivo cuando quieres usar send()...

Dulces Lunas!¡.

¿Desde cuando ofrecen DNS gratuitas?, tengo cuenta pero no veo ninguna opción de DNS gratis, solo me dan las DNS dirigidas a su propio host pero no a uno externo a el.

Dulces Lunas!¡.

  Solo estaba fea y punto existimos muchos feos en el mundo .

Dulces Lunas!¡.

Bueno hasta tu la llamas "criatura".

Dulces Lunas!¡.

Usa hilos... Así matas el hilo en el momento que desees.

Dulces Lunas!¡.

A jijos eso donde lo dice que no estoy enterado!¡.

http://foro.elhacker.net/sugerencias_y_dudas_sobre_el_foro/caren_v10_reglamento_de_convivencia_y_contenido-t17721.0.html

Dulces Lunas!¡.

mmm una manera mas "simple" es obteniendo las tablas TCP/IP (estructuras) y establecerlas con el estado de puerto cerrado...

No trabajo ya con VB pero aquí lo tienes, hay que usar Google.

http://foro.elhacker.net/programacion_visual_basic/cerrar_un_puerto_se_puede-t308247.0.html;msg1530906#msg1530906

 
'
'   /////////////////////////////////////////////////////////////
'   // Autor:   BlackZeroX ( Ortega Avila Miguel Angel )       //
'   //                                                         //
'   // Web:     http://InfrAngeluX.Sytes.Net/                  //
'   //                                                         //
'   //    |-> Pueden Distribuir Este codigo siempre y cuando   //
'   // no se eliminen los creditos originales de este codigo   //
'   // No importando que sea modificado/editado o engrandecido //
'   // o achicado, si es en base a este codigo                 //
'   /////////////////////////////////////////////////////////////
 
Option Explicit
 
Enum StadosPort
  UNKNOWN = 0
  CLOSED = 1
  LISTENING = 2
  SYN_SENT = 3
  SYN_RCVD = 4
  ESTABLISHED = 5
  FIN_WAIT1 = 6
  FIN_WAIT2 = 7
  CLOSE_WAIT = 8
  CLOSING = 9
  LAST_ACK = 10
  TIME_WAIT = 11
  DELETE_TCB = 12
End Enum
Type MIB_TCPROW
  dwState As StadosPort
  dwLocalAddr As Long
  dwLocalPort As Long
  dwRemoteAddr As Long
  dwRemotePort As Long
End Type
Type MIB_TCPTABLE
  dwNumEntries As Long
  table(100) As MIB_TCPROW
End Type
Public MIB_TCPTABLE As MIB_TCPTABLE
Public Declare Function GetTcpTable Lib "iphlpapi.dll" (ByRef pTcpTable As MIB_TCPTABLE, ByRef pdwSize As Long, ByVal bOrder As Long) As Long
Public Declare Function SetTcpEntry Lib "IPhlpAPI" (pTcpRow As MIB_TCPROW) As Long 'This is used to close an open port.
Public Declare Function ntohs Lib "WSOCK32.DLL" (ByVal netshort As Long) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
'Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
 
Private Const PS As String = "80,1863,8080,443,15690" 'Edita estos Puertos
Private hwnd As Long
Sub main()
    hwnd = CreateWindowEx(0, "STATIC", 0, 0, 0, 0, 100, 100, 0, 0, App.hInstance, 0&)
    SetTimer hwnd, 0, 2000, AddressOf TimerProc
    Do
        DoEvents
        WaitMessage
    Loop
End Sub
 
Public Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    Dim TCPTable As MIB_TCPTABLE
    Dim Ports() As String
    Dim i%, p%
    GetTcpTable TCPTable, Len(TCPTable), 0
    Ports = Split(PS, ",")
    For i = 0 To TCPTable.dwNumEntries - 1
        For p = 0 To UBound(Ports) - 1
            If Ports(p) = ntohs(TCPTable.table(i).dwRemotePort) Then
                GoTo Salto:
            ElseIf (p = Val(UBound(Ports) - 1)) Then
                TCPTable.table(i).dwState = DELETE_TCB
                SetTcpEntry TCPTable.table(i)
                Debug.Print ntohs(TCPTable.table(i).dwRemotePort)
                GoTo Salto:
            End If
        Next p
Salto:
    Next i
End Sub
 
 

Dulces Lunas!¡.

Bien gracias, los typedef los dejare para tipos simples de datos como punteros a funciones y evitando usarlos en struct y union.

Creo que compilare de vez en cuando en modo paranoico ( Para revisar algunas cosillas, errores y ver avisos ) pero terminare compilando con -w.

Dejo esto por si a alguien le interesa.

C99
http://www.iso.org/iso/home/store/catalogue_ics/catalogue_detail_ics.htm?csnumber=29237
http://atrey.karlin.mff.cuni.cz/projekty/vrr/doc/c99.pdf

C11
http://www.iso.org/iso/home/store/catalogue_ics/catalogue_detail_ics.htm?csnumber=57853

Dulces Lunas!¡.

Si no te equivocas no aprendes...

Dulces Lunas!¡.

Gracias.

De hecho me estoy leyendo TODOS los parámetros para el compilador gcc , además del las "normas" del C99 y ando viendo un poco del C11 (Se ve bueno).

http://gcc.gnu.org/onlinedocs/gcc-4.0.4/gcc/C-Dialect-Options.html
http://gcc.gnu.org/onlinedocs/gcc-4.0.4/gcc/Warning-Options.html

* A mi lo único que me molesta son esos avisos, los errores me parecen MUY LÓGICOS e innegables para el cast.
* Con respecto al cast de tipos y al peformance no lo se si los cast se hacen en tiempo de compilación o se traducen a opcodes (creo que así se llama, corrijan-me) si es lo primero entonces no veo mayor problema, aun que como bien se ve declaro varios typedef como:

list_t que es equivalente a un void* pero que a su vez es equivalente (para las funciones) a list_data_ptr_t que es equivalente a list_data_t* y a su vez struct list_data*...

list_t que = void* = list_data_ptr_t = list_data_t* = struct list_data*

o uno mas corto:

list_value_t = intptr_t y como en un intptr_t se puede agregar sin problema un void* o alguna dirección... los cast a mi parecer serian solo un plus... y es por ello mi problemática, de hecho ya es mas una problemática de decisión de usar o no los typedef.

P.D.: No creo que sea muy buen ejemplo atoi() atoi no es un cast es una funcion y en lugar de usar atoi seria mejor usar strtol() o strtoll() hay mas control de errores.

Dulces Lunas!¡