Mensajes

lo de enviar correos es jodido sobre todo si es para spam porque usar un código php en un servidor normal mente si es gratuito es bloqueado y si es de pago gastas mucho ancho.

lo mas eficaz es crear un servidor smtp en local y enviarlo por ese.

a mi también me gustaría tratar esos temas pero como personas civilizadas que se hable bien y que no allá falta de respeto.

P.D:Pero siempre cuando se tratan estos temas alguien se pasa de la ralla.

[Winsock:]

aqui te dejo un cogio para poder conseguir la ip real:

Winsock:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "ip1.dynupdate.no-ip.com", 80
End Sub

Private Sub ws_Connect()
ws.SendData "GET / HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: IPLen(By WarGhost)" & vbCrLf & _
"Host: ip1.dynupdate.no-ip.com" & vbCrLf & vbCrLf
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
msgbox Mid(data, InStr(data, vbCrLf & vbCrLf) + 4, Len(data) - InStr(data, vbCrLf & vbCrLf) + 1)
ws.Close
End Sub

INET:

Código [Seleccionar] Expandir

msgbox Inet1.OpenURL("ip1.dynupdate.no-ip.com")

Si el código del INET es mas fácil xDDDD.

Salu2, WarGhost

va a dar erro de todos modos por por ejemplo:

yo envió un paquete así:

Ws.senddata "log|" & "Hola"

y rápidamente envio otro paquete

Ws.senddata "log|" & "Hola"

el paquete que se envía es  "log|Holalog|Hola" si usas un slipt al leerlo quedaría así:

Holalog.

lo que hay que hacer es que por ejemplo los log se manden cada 5 segundo o así.

Abir abrir un fichero se a dicho 1000 veces y si algo patoso y no encuentras nada busca en el mr.google que seguro que encuentras mas códigos de leer un fichero.

yo agrego una dll al proyecto por ejemplo con referencias pero si la dll no existe o no esta en el sitio adecuado el programa se cierra hay alguna forma de avitarlo?

Sorry 

alguien sabe alguna forma de por ejemplo agregar una dll y no esta no se cierre el programa?

Código [Seleccionar] Expandir

Dim dat As String
Dim nombre As String: Dim Ocupacion As String
dat = "Nombre: Sergio Rodriguez  Ocupacion: Mecanico"
nombre = Mid(dat, InStr(1, dat, "Nombre: ") + 8, InStr(1, dat, "  ") - 8)
Ocupacion = Mid(dat, InStr(1, dat, "Ocupacion: ") + 11)

para que abres otro mensaje si ya te han respondido?

mira este ejemplo:

Código [Seleccionar] Expandir

Dim data As String
Open "C:\beta.txt" For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1

MsgBox Mid(data, InStr(1, UCase(data), "HOLA"), InStr(1, UCase(data), "HASTA LUEGO"))

el texto del fichero es:

Código [Seleccionar] Expandir


dfgdfgdfg
dfgdfgdfg
hola
Texto
Texto
Texto
Texto
Texto
Texto
Texto
Texto
Texto
hasta luego
sdfsfsdfsdf
sdfdfgdgdgf
dsf

simplemente empieza a leer desde el hola y termina en el hasta luego.