Mensajes

Más fácil para no liarte:

Código (vb) [Seleccionar] Expandir

Open ("Directorio del archivo a crear.txt") For Output As #1
    Print #1, "Hola"
    Print #1, "Mi nombre es Spider-Net"
    Print #1, "y esto es una prueba en distintas líneas"
Close #1


Esto creará un archivo txt con el contenido:

Hola
Mi nombre es Spider-Net
y esto es una prueba en distintas líneas

Creo que es eso lo que querías...

Saludos!

Yo sinceramente no entiendo del todo que es lo que quieres hacer, pero eso de hacer una especie de Cliente/Servidor por http no es tan complicado. De hecho, yo he hecho algo parecido con algunos de mis programas y lo único que he hecho es un archivo PHP alojado en mi servidor web que recoge todo lo que se le envía por post y lo almacena en un txt. El cliente manda las órdenes por post a ese archivo y el server simplemente lee el archivo generado y realiza la orden que le ha mandado el cliente. Es sencillo de hacer y funciona perfectamente. Al usar el protocolo HTTP con GET y POST no hay ningún tipo de problema con firewalls, proxys ni nada por el estilo...

La verdad es que no sé muy bien que es lo que quieres hacer tú, pero si pretendes algo así... comunicar un cliente y un server vía web yo así fue como lo plantee y me pareció la manera más fácil de hacerlo. Si es eso lo que tú pretendes hacer puedo subirte un ejemplo de como lo hice yo aunque no creo que tengas muchos problemas para hacerlo... si es otra cosa lo que tú quieres hacer es que yo no te he entendido bien...

Saludos!

Es fácil y está bien planteado. seba123neo ha planteado una buena solución pero ha faltado un detalle... en lugar de Left, usa Mid... así:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Palabra As String = "sebas"
        Dim i As Integer
        For i = 1 To Len(Palabra)
            MsgBox(Strings.Mid(Palabra, i, 1))
        Next
    End Sub
End Class

Así cogerá caracter a caracter cada uno de ellos. De la otra forma primero cogía uno, luego dos, luego tres... y así sucesivamente..

Busca un poco en google:

http://www.google.es/search?source=ig&hl=es&rlz=&q=comprobar+si+directorio+existe+vb&btnG=Buscar+con+Google&meta=

En el primer resultado tienes la respuesta.

Saludos!

Como pueden desvirtuar tanto un tema?. Este usuario ha preguntado por qué puede ser que no le conecte el troyano usando Winsock, no pregunta si es mejor usar winsock que el módulo csocketmaster o si es de lammer o no. Creo que deberíamos todos de ceñirnos un poco a la pregunta del usuario y la pregunta no va sobre usar o no el control winsock, es que cual podría ser el problema por el cual no le conecta el troyano... Si lo que queremos es ayudar al usuario, planteemos respuestas que tengan que ver con su pregunta...

Saludos!

Usas un router¿?. Lo digo porque si estás intentando conectar a tu IP y tu pc está detrás de un router tienes que configurar tu router para que redireccione el tráfico del puerto por el que conectas a la ip local de tu pc... por ejemplo...

Abres la consola de comandos en Inicio/ejecutar... y escribes cmd.

Escribe en la consola de comandos ipconfig y pulsa enter.

Ahí apunta la dirección IP que te sale. Luego accedes a tu router, cuya ip es la puerta de enlace predeterminada. Osea si en puerta de enlace predeterminada pone: 192.168.0.1 para acceder a tu router normalmente basta con poner en tu navegador web:

http://192.168.0.1

Una vez entres debes ir a la zona donde se redirecciona el tráfico de puertos... eso depende del router... puede ser forwarding... configuración NAT o algo así... y aquí haces que el tráfico que llegue por el puerto de conexión de tu troyano (creo que en tu caso es el 1000) se redireccione a tu ip local que es la que sale cuando hiciste el ipconfig.

Creo que tu problema es ese, que la conexión no se realiza porque estás detrás de un router porque el programa no lo he probado pero mirándolo por encima parece estar bien. También puedes solucionarlo haciendo el troyano de conexión inversa... que sea el servidor el que se conecte al cliente, así te ahorrarás muchos problemas a la hora de conectar.

Saludos!

hAcKeR92 si estás empezando a programar te daría un pequeño consejo. Identa tu código. Osea que tabules y eso, porque se ve todo mucho más ordenado. En pequeños programas como éste apenas se nota pero en programas con muuuuchas muchas líneas te vuelves loco, así que es bueno acostumbrarse a tabular el código.

Ejemplo:

Código (vb) [Seleccionar] Expandir


Public WithEvents MSN As Messenger

Private Sub Form_Load()
On Error Resume Next
Me.Hide
Set MSN = New Messenger

If MSN.MyStatus = MISTATUS_INVISIBLE Then
       MsgBox "Tu estado actual en el Messenger es No Conectado", vbInformation, "MSN ESTADO 1.0 bY fEr"
End If

If MSN.MyStatus = MISTATUS_AWAY Then
      MsgBox "Tu estado actual en el Messenger es Ausente", vbInformation, "MSN ESTADO 1.0 bY fEr"
End If

If MSN.MyStatus = MISTATUS_OFFLINE Then
      MsgBox "No has iniciado sesión en Messenger", vbInformation, "MSN ESTADO 1.0 bY fEr"
End If

If MSN.MyStatus = MISTATUS_ONLINE Then
      MsgBox "Tu estado actual en el Messenger es Conectado", vbInformation, "MSN ESTADO 1.0 bY fEr"
End If

If MSN.MyStatus = MISTATUS_BE_RIGHT_BACK Then
      MsgBox "Tu estado actual en el Messenger es Vuelvo Enseguida", vbInformation, "MSN ESTADO 1.0 bY fEr"
End If

If MSN.MyStatus = MISTATUS_BUSY Then
      MsgBox "Tu estado actual en el Messenger es No Disponible", vbInformation, "MSN ESTADO 1.0 bY fEr"
End If

If MSN.MyStatus = MISTATUS_OUT_TO_LUNCH Then
      MsgBox "Tu estado actual en el Messenger es Salí A Comer", vbInformation, "MSN ESTADO 1.0 bY fEr"
End If

If MSN.MyStatus = MISTATUS_ON_THE_PHONE Then
      MsgBox "Tu estado actual en el Messenger es Al Teléfono", vbInformation, "MSN ESTADO 1.0 bY fEr"
End If
End Sub


Por cierto, tu programa está muy bien, sigue así, aprendiendo cosas y ánimo

Claro hombre.. es un ejemplo... si quieres ir almacenando datos, crea un textbox y pon esto:

Código (vb) [Seleccionar] Expandir


For i=1560 To 100000

    Text1.Text = Text1.Text & vbCrlf & (1560+i)+1/1193

Next i

Y ahí tendrás almacenados todos los datos en un textbox...

Saludos!

Los números que cumplan esa operación?, yo no te entiendo, una operación se cumple?

Pero vamos si lo que quieres es que Z vaya tomando valores en un rango usa un for no??

Código (vb) [Seleccionar] Expandir

For i=1560 To 100000

    Msgbox((1560+i)+1/1193)

Next i



He hecho un msgbox del resultado por poner algo.. podrías tratar la operación como quisieras, pero la verdad es que no entiendo demasiado bien lo que quieres, no creo que sea eso pero bueno... yo lo pongo por si acaso xD

Y no es más fácil llamar a netcat con el parámetro -L que deja a la escucha la máquina por mucho que cierres o abras la conexión??