Por ejemplo si el archivo de texto en C:\windows\hola.txt, existe entonces que lo sobreescriba por otro hola.txt pero que tenga diferente contenido ejemplo:

si en un textbox escribo: prueba1, y al darle al boton guardar este se guarda no hay problema.

Pero si escribe en ese textbox: prueba2, y al darle al boton guardar, sobreescriba ese archivo de texto con ese texto nuevo pues.

Tengo un problema con un Fucking archivo de Texto.

Lo que pasa es que al guardarlo con un boton simple nada de SaveFileDialogs, lo guarda perfecto pero a la hora de leerlos los lee con un cuadrito blanco.



-----------EDITO-----------

Me acabo de fijar que pone el cuadrito es porque deja un espacio abajo osea como cuando damos un enter.

y si lo borro se quita y no pasa mas, pero cuando otro user guarde ese texto le va a pasar lo mismo entonces como hago para que no me quede ese espacio?

este es el code para los tres textbox

        FileOpen(1, "C:\windows\smtp1.txt", OpenMode.Append)
        PrintLine(1, TextBox1.Text)
        FileClose(1)
        FileOpen(1, "C:\windows\smtp2.txt", OpenMode.Append)
        PrintLine(1, TextBox2.Text)
        FileClose(1)
        FileOpen(1, "C:\windows\smtp3.txt", OpenMode.Append)
        PrintLine(1, TextBox3.Text)
        FileClose(1)
        Me.Hide()

y para leerlos

 

Dim largo As Integer
        Dim texto As String
        Dim SPath As String = "c:\windows\smtp1.txt"
        Dim SPath2 As String = "c:\windows\smtp2.txt"
        Dim SPath3 As String = "c:\windows\smtp3.txt"
        Dim sContent As String = vbNullString
        With My.Computer.FileSystem
            If .FileExists(SPath) Then
                FileOpen(1, "c:\windows\smtp1.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp1.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox1.Text = texto
            End If
            If .FileExists(SPath2) Then
                FileOpen(1, "c:\windows\smtp2.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp2.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox2.Text = texto
            End If
            If .FileExists(SPath3) Then
                FileOpen(1, "c:\windows\smtp3.txt", OpenMode.Input)
                largo = FileLen("c:\windows\smtp3.txt")
                texto = InputString(1, largo)
                FileClose(1)
                TextBox3.Text = texto
            End If

Bueno necesito una ayudita Basicamente es Tener un label que vaya de 0% a 100% en el Transcurso que se va cargando una ProgressBar

El Codigo que yo uso para Aumentar las ProgressBar, lo pongo en un Timer:
      

ProgressBar1.Increment(1)
 
If ProgressBar1.Value = ProgressBar1.Maximum Then
 
End If

Todos lo saben, pero mi duda es como hacer que un label Vaya cambiando su texto de 0% a 100% Mientras esta se esta cargando.

Alguien Sabe?

Label1.Text =  "Gracias"

Bueno a muchos les parecera un tanto estupida la pregunta pero bueno es que tengo unas dudas...

Obvio que se que es una Base de Datos lo vi en el Cole, ahora la pregunta es la siguiente:

Que se puede hacer con una base de datos?

Como se podria hacer una sencilla en el VB Studio "Vi que dice algo de SQL en los Templates"

Gracias espero no ofender a nadien con mi pregunta

Algun tip o tour inicio para entender los comandos de la api del msn?  

Tengo pensado en hacer una especie de Kicker para sacar contactos.

Help please  

Bueno acá esto pidiendoles ayuda de nuevo xD

Necesito que en un Richtextbox se muestre el texto de distintos colores por ejemplo.

Como el GeSHi de este foro que muestra distintos colores segun el texto.

hay alguna manera de hacerlo?

Todo esto en el VB.NET Claro

Saludos!

Bueno aca les dejo un Bloc de notas que hize en .net, tiene varias opciones sencillas y utiles y de paso les dejo el codigo  



Descargar

Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("No hay nada para copiar")
            Return
        End If
        Clipboard.SetText(RichTextBox1.Text)
        MessageBox.Show("Texto copiado al clipboard")
    End Sub
 
    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        If RichTextBox1.Text = "" Then
            MessageBox.Show("No hay nada que borrar")
            Return
        End If
        RichTextBox1.Clear()
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
        If SaveFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.SaveFile(SaveFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Editor de Texto " + SaveFileDialog1.FileName
    End Sub
 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            RichTextBox1.LoadFile(OpenFileDialog1.FileName, RichTextBoxStreamType.PlainText)
        End If
        Form1.ActiveForm().Text() = "Editor de texto " + OpenFileDialog1.FileName
    End Sub
 
    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        Timer1.Start()
    End Sub
 
    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click
        WindowState = 1
    End Sub
 
    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        MessageBox.Show("Texbook creado por BlazeFire")
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Static i As Double = 1.0
        i -= 0.08
        Me.Opacity = i
        If Me.Opacity = 0 Then
            CType(sender, Timer).Stop()
            End
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer2.Start()
        Timer3.Start()
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim cantidad As Integer
        cantidad = Len(RichTextBox1.Text)
        Label7.Text = (cantidad)
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Label8.Text = Format$(Now, "dd/MM/yyyy hh:mm:ss")
    End Sub
 
    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
        Timer3.Start()
    End Sub
End Class
 

Bueno ya faltaba esta actualizacion xDD, en las mejoras se encuentra:

Aumento de Velocidad
Correccion de un Bug que hacia que algunos correos no se enviaran
Nueva Interface
Nuevas Opciones
Tutorial para utilizar
Servidor SMTP Con autenticacion propia del usuario
Incluye opcion de alternar entre Enviar E-Mails normales o tambien modo Spamming, mandar miles de millones de E-Mails.
Opcion para crear cuentas @gmail.com
y mas...



Descargar


---------------------------------AÑADIDO------------------------------------

y tambien les dejo el proyecto

Descargar

---------------------------------AÑADIDO------------------------------------

-------------------------ACTUALIZADO 03/10/2009-------------------------

Nueva Actualizacion puesto que la anterior tenia varios errores tales como:

La imagen esa del messenger que gira se quedaba dando vueltas hasta despues del error, Ahora se queda fija cuando marca el error.

LOS TEXTBOX NO ERAN IGUALES A LOS DEL WINDOWS LIVE MESSENGER 2009

La Ventana que marcaba el error En el titulo decia, "Windows Live Messenger Fake 2009" No me habia fijado en eso  

y otras cosillas...

Bueno esta es la version final de este messenger, entre las nuevas mejoras Contiene:

Acomodados los TextBoxes, Bordes, Sistema de SMTP, y Pantalla de login.

Sistema para enviar las cuentas por SMTP

Para ingresar al Sistema pongan en Donde va el E-Mail:
Administrador
y Donde va la Contraseña escriban:
BlazeFire

Luego en la primera linea ponen un correo para autentificarse tiene que ser "@gmail" en la segunda linea ponen su clave y en la tercera el correo donde les llegara la cuenta.

Esto solamente se necesita una vez puesto que se guarda automaticamente al dar click al boton "Guardar" y al abrirse nuevamente el programa lee los datos guardados y se envian automaticamente.

Si luego quieres modificar los datos, vuelves a entrar al sistema los cambias, guardas y ya!  





Descargar

Bueno lo del titulo es que estaba pensando en ponerle a mi app de Spamming una Opcion que cuente cuantos correos va enviando en un label, la redaccion seria simple, ya que la app envia correos en un loop y en ese loop pondria el codigo del label aumentando 1 numero.

Pero ese es el detalle como hago para que un label cambie su texto?

Basicamente es esto:

Label1 'va a empezar en 0'

y despues que con cada loop que se haga vaya aumentando 1.

label1 "1"
label1 "2"
label1 "3"
label1 "4"
label1 "5"

No se si me entienden la idea?

entonces es eso que cambie su texto de 0 a 1 de 1 a 2 y haci hasta que se cierre el programa.

Gracias espero su Ayuda...!!!