Mensajes

Un archivo se oculta asi:

Código [Seleccionar] Expandir

Call SetAttr("ruta del archivo y nombre", vbHidden)
Y para añadir una entrada:

Código [Seleccionar] Expandir

Set sh = CreateObject("WScript.Shell")
sh.RegWrite "HKEY_CURRENT_USER\Software\dirección", "valor"
Creo que con esto ya puedes ir tirando

Te recomiendo que no uses nada que tenga que ver con el control winsock y de conexión a servidor.
1 Un simple firewall puede parar la conexión para comprobar lo que quieras en tu servidor.
2 Pueden pensar mal, pueden pensar que se trata de spyware y no de un programa legal.
3 Se necesita tener el control mswinsock.ocx para hacer esto.
4 Para tener un servidor por un puerto, necesitas tener un ordenador encencido las 24h del dias 365 días al año y tener no-ip.
Lo que te recomiendo es lo del registro o lo del tiempo. O también puedes crear un fichero oculto o una entrada en el registro y cada día que pasa va sumando un 1 hasta que llege a 30.

[Sumario:]

Se trata de un articulo de microsoft sobre este control traducido al español, las partes mas importantes, para este foro:
Sumario:
Este artículo muestra dos ejemplos de como se usa el control internet transfer control que esta incluido en Microsoft Office Developer Edition 97.
Mas información:
Con el internet transfer control tu puedes acceder a internet y a la world wid web usando los dos protocolos mas comunes: Hiper text transfer control (protocolo de transferencia de hipertexto HTTP). Y el protocolo filer transfer protocol (protocolo de transferencia de ficheros FTP). Cuando tu usas Inet con http tu puedes obtener documentos http de una internet o intranet y cuando lo usas con ftp tu puedes enviar y recibir ficheros de un sitio ftp. El control soporta los mas comunes comandos en el lenguaje ftp como GET, DIR, DELETE y CD. Aunque si tu creas un cliente ftp desde el control winsock son comandos diferentes.
Ejemplo 1: Usando el evento openurl para obtener una página html.
El siguiente ejemplo descarga la web principal de microsoft al disco duro.
Aqui vendrían las instrucciones de como añadirle en el formulario el control pero me las salto por ser un poco fáciles
Necesitamos los siguientes controles:

Nombre formulario: frmOpenURL
--------------------------
Caption: OpenURL Form

Boton:
Name: cmdWriteFile
Caption: Write to Disk

Otro boton:
Nombre: cmdGetHeader
Caption: Get Header

En un modulo de clase pondemos:

Código [Seleccionar] Expandir

Dim objInet as Inet
Y luego en form ponemos el código:

Código [Seleccionar] Expandir

Private Sub Form_Load()
         ' Ponemos la referencia del objeto inet
         Set objInet = Me!axInetTran.Object
      End Sub

      Private Sub cmdWriteFile_Click()
         Dim b() as Byte

         ' Ponemos el procolo y la url
         objInet.Protocol = icHTTP
         objInet.URL = "HTTP://www.microsoft.com"

         ' Recibimos los datos
         b() = objInet.OpenURL(objInet.URL,icByteArray)

         ' Creamos un archivo local para recibir los datos
         Open "C:\Homepage.htm" For Binary Access Write As #1
         Put #1, , b()
         Close #1

         MsgBox "Done"
      End Sub

      Private Sub cmdGetHeader_Click()
         ' Ponemos el protocolo y la web
         objInet.Protocol = icHTTP
         objInet.URL = "HTTP://www.microsoft.com"

         ' Abrimos el archivo html y ponemos la informacion
         objInet.openURL objInet.URL, icByteArray
         MsgBox objInet.GetHeader
      End Sub

Ejemplo 2 que muestra como recibir ficheros por ftp.
El siguiente ejemplo usa el control inet con ftp y descarga de microsoft un fichero que se llama: Dirmap.txt.
Nota: El control Inet no trabaja  con algunos servidores proxy. Si tu no tienes una conexión directa a internet  con un ISP, verifica que tu servidor proxy puede soportar conexiones ftp.
Primero en este ejemplo vamos a usar:

Nombre del formulario: frmRetrieveFile
      --------------------------
      Caption: Retrieve FTP File

      Botón:
         Nombre: cmdGetFile
         Caption: Get FTP File
      Caja de texto:
         Nombre: txtFTPSite
      Caja de texto:
         Nombre: txtFileName
               

En un módulo de clase ponemos:

Código [Seleccionar] Expandir

Dim objFTP as Inet
Y en un formulario ponemos el código que nos permite hacer esto:

Código [Seleccionar] Expandir

Private Sub Form_Load()
         ' Ponemos la referencia del control
         Set objFTP = Me!axFTP.Object
      End Sub

      Private Sub cmdGetFile_Click()
         'Definimos las variables
         Dim strSite As String
         Dim strFile As String
         strSite = Me!txtFTPSite
         strFile = Me!txtFileName
         objFTP.Protocol = icFTP
         objFTP.URL = strSite
         objFTP.Execute strSite, "Get " & strFile & " C:\" & strFile
      End Sub

      Private Sub axFTP_StateChanged(ByVal State As Integer)
         ' Ponemos un mensjae cuando el fichero se termina de transferir
         If State = 12 Then Msgbox "File Transferred"
      End Sub

Aplicable a:
Microsoft acces 97
Microfot visual basic 6.0
Fuente:
La fuente es: http://support.microsoft.com/default.aspx?scid=kb;EN-US;q163653
por si se desea verlo mas completo. Yo me he limietado a copiar las partes mas interesantes y a traducirlo.

¿Te leistes el tutorial entero? porque ahí viene
Si empiezas por el tema 1 y vas bajando al final llegas aun tema que pone:
INTERCAMBIO DE FICHEROS.
Y viene perfectamente explicado es el mejor tutorial que hay en el foro sobre troyanos no entiendo porque no te interesa.

Tendrías que tener acceso a las máquinas en LAN. Y sin usar troyano tienes que intentar meterle al ordenador remoto un archivo  de registro con las entradas que quieres añadir y luego que el usuario de ese equipo las abra para añadirlas al registro.
Podría ser el archivo un *.Bat ; *.vbs ; *.reg etc...
Pero claro tienes que contar con la ayuda del de el otro equipo.

Utiliza el buscador del foro. Hay un tutorial entero para hacer troyanos en el foro troyanos y virus y viene explicado la propagación por irc, email, transferir ficheros.. etc...
La dirección es esta: http://foro.elhacker.net/index.php/topic,57545.0.html
Espero que te sea util.

Me gustaría jugar a juegos piratas de play station 2 en la play pero tengo un problema dicen mis amigos que hay que tener un chip. Pero me gustaría si hay algún modo de no usar ese chip. Algún programa que te los copie para que los pueda leer la play station 2 aun siendo piratas.

Mi servidor ya está abierto podeis conectaros en: 83.33.146.164
La partida empezará a las 22:00 hora española o sea las 10 de la noche. Aun falta una hora espero que hos metais.

Todo el que quiera, posiblemente esta noche a las 22:00 hora española haremos otra partida. Si no lo hubiera pondre otro mensaje en el foro.

¿No se puede hacer un messenger usando los controles del propio messenger?, entonces ahi que usar el control winsock, no??