Mensajes

Podes usar Upnp (Universal Plug & Play), para abrir puertos en el router, no es cosa simple, y no se si se puede hacer en VB.

Bueno, estuve sniffeando paquetes y vi esto:

La compu se conecta a la netmask y pide la direccion del router.
Luego se conecta al router en el puerto 2869.
Ahi manda un POST /WANIPConnCtrlUrl HTTP/1.1
SOAPACTION: "urn:schemas-upnp-org:service:WANIPConnection:1#GetGenericPortMappingEntry"

Que aparentemente pide la lista de los puertos mapeados. Es un tema medio jodido. Pero se puede aprender, si supiera como se llama el protocolo, lo podría buscar...

Saludos!

Novedad: Aparentemente devuelve una tabla XML.

http://foro.elhacker.net/index.php/topic,183109.0.html

Esta 5 temas mas arriba...

Salu2

Código (vb) [Seleccionar] Expandir

Sub Text1_Keypress(KeyAscii As Integer)
    If KeyAscii >= 48 And KeyAscii <= 57 Or KeyAscii = 127 Or KeyAscii = 8 Then
        ' El 48 es 0 y el 57 es 9, 127 es SUPR y 8 es Backspace
     KeyAscii = 0 'Esto anula el caracter incorrecto.
        Exit Sub
    Else
        MsgBox "Solo números para registrar el valor a pagar sin puntos, " & _
               "ni comas, ni cualquier caracter especial!!"
    End If
End Sub

Teoricamente es posible, pero los sockets en vb no andan bien con paginas web, porque le jode el tema de desconectarse/reconectarse. Podes probar con vb.net.

Usa un common dialog control.
Salu2

Si, es verdad todo lo que decis pero el problema no esta ahi...
Alguna otra sugerencia?
Salu2

Podes usar los eventos _Click y _Keypress para saber cuando cambia, y luego usas un archivo abierto en modo input o binary para ir guardando los datos, o sino los guardas en una variable o una matriz y luego cuando se cierra el programa lo grabas todo a un archivo...
Saludos

Postea tu codigo a ver que esta mal

Código (vb) [Seleccionar] Expandir

Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Dim data
Ws.GetData data
data = StrConv(data, vbUnicode)
Do Until ws1.State = 7 Or ws1.State = 9
DoEvents
Loop
ws1.SendData data
End Sub

Private Sub ws1_DataArrival(ByVal bytesTotal As Long)
'On Error Resume Next
Dim data
ws1.PeekData data
data = StrConv(data, vbUnicode)
Ws.SendData data
End Sub

De esto se trata

Es buena esa, cuando tenga tiempo lo pruebo. Mil Gracias

PD: Probado  no anda, el tema es que eso no lo puedo hacer, ya que el paquete no lo manda un programa hecho por mi, sino un servidor http en este caso.