Mensajes

pues ya esta, solo hay que modificar los bucles:

Código [Seleccionar] Expandir


For chr_uno = Asc("a") To Asc("z")
    For chr_dos = Asc("a") To Asc("z")
         txtSenddata.text = Chr(chr_uno) & Chr(chr_dos)
         DoEvents
    Next chr_dos
   DoEvents
Next chr_uno


probe el código y como que no funciona bien, si pide confirmación, borra el archivo, pero no lo pone en la papelera, creo que podriamos simplificar la funcion asi:

Código [Seleccionar] Expandir


Public Function TransferFileToRecycleBin(Filename As String) As Boolean
    Dim FileOp As SHFILEOPSTRUCT
   
    With FileOp
        .wFunc = FO_DELETE
        .pFrom = Filename
        .fFlags = FOF_ALLOWUNDO
    End With
    TransferFileToRecycleBin =not( SHFileOperation(FileOp))
    'El not es para que cuando lo borre regrese el valor de TRUE
End Function


Hombre si los dos exe's estan en el mismo pc me parece un poco tonto conectarte con winsock... con crear un archivo de texto q el otro exe lea ya nos bastaria no?

eso tambien vale, pero habria que ver si uziel200 necesita que cuando el programa envie datos el otro programa ejecute alguna acción, de ser asi habria que poner un timer que este checando si existe el archivo

[Para crear un cliente de TCP]

tú te has dado la respuesta, pero no tienes que buscar el exe, aqui lo importante es el puerto que uses, este es el ejemplo  del que te hablaba:

Para crear un servidor TCP
Cree un nuevo proyecto EXE estándar.
Cambie el nombre del formulario predeterminado a frmServer.
Cambie el título del formulario a "Servidor TCP".
Cree un control Winsock en el formulario y cambie su nombre a tcpServer.
Agregue dos controles TextBox al formulario. Llame al primero txtSendData y al segundo txtOutput.

Agregue el código siguiente al formulario.

Código [Seleccionar] Expandir


Private Sub Form_Load()
' Establece la propiedad LocalPort en un entero.
' Después invoca el método Listen.
tcpServer.LocalPort = 1001
tcpServer.Listen
frmClient.Show     ' Muestra el formulario del cliente.
End Sub

Private Sub tcpServer_ConnectionRequest _
(ByVal requestID As Long)
' Comprueba si el estado del control es cerrado.
' De lo contrario, cierra la conexión antes de
' aceptar la nueva conexión.
If tcpServer.State <> sckClosed Then _
tcpServer.Close
' Acepta la petición con el parámetro
' requestID.
tcpServer.Accept requestID
End Sub

Private Sub txtSendData_Change()
' El control TextBox llamado txtSendData
' contiene los datos que se van a enviar. Siempre
' que el usuario escribe en el cuadro de texto,
' se envía la cadena mediante el método SendData.
tcpServer.SendData txtSendData.Text
End Sub

Private Sub tcpServer_DataArrival _
(ByVal bytesTotal As Long)
' Declara una variable para los datos entrantes.
' Invoca el método GetData y establece la propiedad
' Text de un control TextBox llamado txtOutput
' con los datos.
Dim strData As String
tcpServer.GetData strData
txtOutput.Text = strData
End Sub


Los procedimientos anteriores permiten crear una aplicación de servidor sencilla. No obstante, para completar el ejemplo, deberá crear también una aplicación cliente.

Para crear un cliente de TCP
Agregue un nuevo formulario al proyecto y llámelo frmClient.
Cambie el título del formulario a "Cliente TCP".
Agregue un control Winsock al formulario y llámelo tcpClient.
Agregue dos controles TextBox a frmClient. Llame al primero txtSend y al segundo txtOutput.
Cree un control CommandButton en el formulario y llámelo cmdConnect.
Cambie el título del control CommandButton a Connect.

Agregue el código siguiente al formulario.
Importante   Asegúrese de que cambia el valor de la propiedad RemoteHost al nombre descriptivo del equipo.

Código [Seleccionar] Expandir


Private Sub Form_Load()
' El nombre del control Winsock es tcpClient.
' Nota: para especificar un host remoto, puede usar
' la dirección IP (como "121.111.1.1") o
' el nombre "descriptivo" del equipo, como se muestra aquí.
tcpClient.RemoteHost = "NombreEquipoRemoto"
tcpClient.RemotePort = 1001
End Sub

Private Sub cmdConnect_Click()
' Invoca el método Connect para iniciar
' una conexión.
tcpClient.Connect
End Sub

Private Sub txtSendData_Change()
tcpClient.SendData txtSend.Text
End Sub

Private Sub tcpClient_DataArrival _
(ByVal bytesTotal As Long)
Dim strData As String
tcpClient.GetData strData
txtOutput.Text = strData
End Sub



El código anterior crea una aplicación cliente-servidor sencilla. Para probar las dos aplicaciones al mismo tiempo, ejecute el proyecto y haga clic en Conectar. A continuación, escriba texto en el control TextBox txtSendData de cualquiera de los formularios y el mismo texto aparecerá en el control TextBox txtOutput del otro formulario.

hasta donde se la carpeta RECYCLED es creada por el windows cuando hay varios perfiles creados, es decir esta carpeta contiene los documentos eliminados de todos los usuarios que estan registrados, si checas dentro de esta carpeta tendras otras con nombres como "S-1-5-21-2631635193-2657483262-854572989-500", S-1-5-21-4286428392-2419660090-1300944423-1109", .... y si entras a esas carpetas veras  los documentos que casa usuario elimino en su perfil

se refieren al control winsock, solo dale ctrl+t y te sale una ventana de componentes, selecciona la casilla que dice Microsoft Winsock Control..., si tienes la ayuda instalada consula "winsock" y te dara un ejemplo de este control, que por casualidad es exactamente lo que estas búscando.... Saludos!!!

pues yo lo hago así para la base de datos:

Código [Seleccionar] Expandir



Public BD As Connection
Public Tb As Recordset


Código [Seleccionar] Expandir


conexion = "Provider=SQLOLEDB.1;" & _
               "Persist Security Info=False;" & _
               "User ID=" & Usuario & ";" & _
               "pwd=" & Pass & ";" & _
               "Initial Catalog=" & basededatos & ";" & _
               "Data Source=" & Servidor

    On Local Error Resume Next
    BD.Open conexion
    If Err Then MsgBox Err.Number & vbCrLf & Err.Description
    exit sub
    On Local Error GoTo 0


y para abrir tablas asÍ:

Código [Seleccionar] Expandir


Set Tb = New Recordset
Tb.Open "Consulta SQL", BD, adOpenDynamic, adLockOptimistic


y lo hace rápido, aunque creo que también habria que tener encuenta la cantidad de datos de la consulta y velocidad de tus tarjetas de red

[supongo asi es en la mayoria de los paises]

yo soy de venezuela y en bachillerato lo q enseñan es a usar msoffice, como tipear.. , paint.., la computadora en general.., terminos de internet.., y de html no enseñan nada, supongo asi es en la mayoria de los paises......

Hexas te dire que soy de México y he estudiado en escuelas publicas, y desde la secundaria empezamos con conocimientos generales. y en el bachillerato y la ing no saliamos del tipico programa de altas, bajas y consultas...., muchas veces en las escuelas te solo te dan las bases y depepende de cada quien hasta donde llegues, asi que si en tu pais los programadores son escasos, aprovechalo, no vas  a tener mucha competencia....

depende la cantidad de datos que vayas a manejar, tienes que ver y/o calcular que datos vas a manejar, cuanto va a crecer tu BD, si vas a manejar muchos registros te recomiendo y pienses en usar SQL Server

si buscas en este for te encontraras un monton de post referentes a bases de datos