Mensajes

Si diseñas un progama NO-IP y lo intentas probar en tu propio ordenador (es decir, correr el cliente y el servidor a la vez) no conecta.

Tiene que ser con 1 ordenador de fuera.

Otra cosa, corre el DUC y activa el dominio que has creado(sale 1 carita sonriente) sino, no anda.

Salu2

Lo que si se puede hacer, es ver el codigo en Hexa.

Eso te serviria para volver a 'crear' el archivo si lo guardas en 1 fichero de recursos o en 1 matriz.

En cuanto a Descompiladores de VB, hay varios pero VB-Reformer hay que comprarlo. No se si estara en la mula.

Hay otro  que se llama  VB Decompile que te permite ver el codigo fuente, pero si lo compras claro.

Salu2

Hola a todos.

Veran, los programas compilados en VB6 dependen de msvbvm6.dll y oleaut32.dll y los controles OCX que tengan asociados.

Mi duda es si hay forma de hacer que no dependan de estas librerias, porque aunque no pongas ningun OCX personalizado, tienen que estar presentes ambas DLL's en el sistema.

Lo que se me ocurrio, fue comprimir ambas librerias junto con el ejecutable pero ocupa bastante espacio.

Sabe alguien alguna otra forma de eliminar las dependencias ??


Gracias

Vamos a ver.

Creo que no se entiende el error que me da.

El error me lo da con este code:

Código [Seleccionar] Expandir



Private Sub Timer1_Timer()

For i = 0 To intmax

If tcpServer(i).State <> 7 And tcpServer(i).State <> 6 Then

Debug.Print tcpServer(i).State

GoTo n

Else
tcpServer(i).Close

tcpServer(i).Listen

End If

n:

Next i

End Sub



Este code es que tengo para saber si esta activa la conexion y si no lo esta que cierre el socket.

Cuando se cierran varias conexiones a la vez peta

Gracias

El problema no es aceptar las conexiones, sino el saber cuales estan activas y cuales no para cerrar sockets innecesarios.

Es ahi donde me da el error

Gracias

Hola a todos.

Tengo 1 problema al conectar varias aplicaciones con el control winsock.

Resulta que acepta las conexiones, pero al mantenerlas me da error.

La primera conexion la acepta y sabe que esta conectada, pero cuando hay mas de una no se porque no la detecta y es cuando me da el error.

Este es el code

Código [Seleccionar] Expandir


Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)

   If index = 0 Then

      intmax = intmax + 1

      Load tcpServer(intmax)

      tcpServer(intmax).LocalPort = 666

      tcpServer(intmax).Accept requestID

      List1.AddItem tcpServer(intmax).RemoteHostIP '' añade las ips a 1 listbox

      End If

End Sub



Código [Seleccionar] Expandir


Private Sub Timer1_Timer()

For i = 0 To intmax

If tcpServer(i).State <> 7 And tcpServer(i).State <> 6 Then

Debug.Print tcpServer(i).State

GoTo n

Else
tcpServer(i).Close

tcpServer(i).Listen

End If

n:

Next i

End Sub


Puede echarme alguien 1 mano ?

Gracias

Creo que no se puede

Si se puede. Lo que tienes que hacer es 1 matriz de ventanas y en ellas el codigo necesario para que mande la conversacion a ese contacto y no a los demas

Este code te dara 1 idea de como se hace:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
Dim x() As Form1    ' Declaro la variable x como formulario o lo que quiera
Dim z As Integer    ' declaro la variable z como numero entero

ReDim Preserve x(7)     ' limite de la matriz
For z = 1 To 7          ' nº de ventanas a crear
Set x(z) = New Form1
x(z).Show
Next z
End Sub


Salu2

No sabia manejar el portapapeles de windows.

Ahora me hago una idea de como manejarlo

Gracias Kontaminator !!

Gracias Eternal Idol !!

Me has dado 1 excelente idea.

No era lo que buscaba, pero muchas gracias

Salu2