Mensajes

Muchas gracias sebas me sirvio haaa y perdon no era mi intencion molestarte :/ Gracias!! 

Hola a todos como este en el titulo del mensaje necesito saber como puedo validar un archivo txt por ftp en vb 2008

Los que estoy haceiendo es como un proyecto que pide un archivo txt si este es valido pues se abre en un richtextbox ??? como lo ago

Hola a todos amigos de elhacker como ya saben soy nuevo en esto y aqui me han ayudado mucho me estoy desembolviendo es lo que es aprender de vb.net gracias a SiritDead , a $Edu$ y los otros que me ha colaborado tan bien .

Bueno mi problema es que estoy haciendo un inicio de sección + registro de usuario ,

La cual estoy trabajando primeramente estoy empesando por el registro el registro tiene la funcion de cuando ingresamos un usuario y contraseña pues se envian los datos y se crean 2 archivos .txt la cual el primero obtendra el nombre que ingreso y dentro de el tabien tendra el nombre (esto es para diferenciar los datos de los usuarios) y el sugundo obtendra el nombre + "_Contraseña" para asi difenciar las contraseñas de los usuarios . Tabien estoy pensando en crear lo que es una capeta para cada usuario y que ay contanga los datos del usuario

Bien el code del registro es este!

If TextBox1.Text = "" Then
            If TextBox2.Text = "" Then
                MsgBox("Su usuario y contraseña deve tener almenos mas de 6 caracteres!", MsgBoxStyle.Information, "Error")
            End If

        Else

            Try
                Dim client As New Net.WebClient

                Dim user As New Integer


                client.Credentials = New Net.NetworkCredential("usuario", "pw")

                client.UploadString("ftp://yourhost/" + TextBox1.Text + "/" + TextBox1.Text + ".txt", vbNewLine)

                client.UploadString("ftp://yourhost/" + TextBox1.Text + "/" + TextBox2.Text + ".txt", vbNewLine)

                MsgBox("Cuenta Creada Corectamente!" & vbCrLf)

                Me.Hide()

                Login.Show()



            Catch ex As Exception
                MsgBox("Error de conexión")
            End Try

Aun no le he probado pero espero que me ayuden tabn necesito saber si me pueden completar el code que iria en el Login , siguiendo apartir de estos podrian pues ayudarme

Bueno otra cosa lo que quiero es una base de datos online la cual pueda modificarla desde un panel de admin que se cree en vb y que se puede iniciar sesion con algunos de los usuarios agregados como lo ago!!?

hahahahaaha ok gracias !!

Gracias a todos por su ayuda y ya aprendi muchas coasas gracias a todos ustedes!!! se los agradezco

Hola amigos del foro elhackercomo estan bueno mi duda es la siguiente y es que quiero hacer un login + registrer en vb conectandola con una base de datos creada en 000.webhost.com

si alguin seria tan amable de pasarme los code se los agradeceria

yo mas o menos tengo algo y es esto

  Try
            Dim usuario As New Net.WebClient

            Dim pass As New Net.WebClient

            usuario.Credentials = New Net.NetworkCredential("usuario del ftp", "pass del ftp")

            usuario.UploadString("ftp://servidor/usuarios/usuario.txt", TextBox1.Text & vbNewLine)

            pass.Credentials = New Net.NetworkCredential("usuario del ftp", "pass del ftp")

            pass.UploadString("ftp://servidor/contraseñas/contraseña.txt", TextBox2.Text & vbNewLine)

        Catch ex As Exception
            MsgBox("Error en la conexión")

        End Try

Gracias amigo tabn fuiste de mucha ayuda por cierto estoy en otro proyecto si serias tan amable de buscarlo y leerlo a ver si me podrias ayuda! ??

Graciasss!! amigo si me funciona igual gracias sos el mejor !! +10 + Like

Hola amigo como estas bueno no me funciono de todas formas ya me he puesto joder un poco a ver si me salia y lo logre me finciono a la perfeccione code que ise aqui te lo dejo para que lo verifiques!!

Dim texto As String
     
        If TextBox1.Text.Contains("") Then
           
texto = TextBox1.Text.StartsWith("")
           
If TextBox1.Text.StartsWith("") Then
               
TextBox1.Text = TextBox1.Text.Replace("", "")
           
End If
       
End If

    End Sub