@Echo Off
 
(
 
 ftp -i -s:"%~f0"
 open NOMBREHOST 
 USUARIO  
 CONTRASEÑA
 
)1>NUL 2>&1
 
Pause&Exit

Public Class SetUp_v101
 
    Dim psi As New ProcessStartInfo With
        {
            .FileName = IO.Path.Combine(Application.StartupPath, "SetUp_v100001.exe"),
            .WindowStyle = ProcessWindowStyle.Maximized
        }
 
    Dim WithEvents p As New Process With
        {
            .StartInfo = psi,
            .EnableRaisingEvents = True
        }
 
    Private Shadows Sub Load(ByVal sender As Object, ByVal e As EventArgs) _
    Handles MyBase.Load
 
        Using proc As Process = p
            proc.Start()
            proc.WaitForExit()
        End Using
 
    End Sub
 
    Private Shadows Sub FormClosing(ByVal sender As Object, ByVal e As FormClosingEventArgs) _
    Handles MyBase.FormClosing
 
        Select Case e.CloseReason
 
            Case CloseReason.ApplicationExitCall
                ' Esto sucede cuando el usuario cierra el proceso que hemos ejecutado, en la llamada 'Application.Exit()'.
 
            Case CloseReason.UserClosing
 
                If AskQuestion() = Windows.Forms.DialogResult.No Then
                    e.Cancel = True
 
                Else
                    If Not p.HasExited Then
                        p.Kill()
                    End If
 
                End If
 
        End Select
 
    End Sub
 
    Private Sub p_Exited(sender As Object, e As EventArgs) _
    Handles p.Exited
 
        Application.Exit()
 
    End Sub
 
    Private Function AskQuestion() As DialogResult
 
        Return MessageBox.Show("Realmente desea salir?", "Finalizar SetUp",
                               MessageBoxButtons.YesNo, MessageBoxIcon.Question)
 
    End Function
 
End Class

echo %text23%>>Accesos.txt

@Echo OFF & Title Append Text - By Elektro
 
 
:::::::::::::::
REM Testing
(
 Echo Line 1
 Echo Line 2
 Echo Line 3
)>"C:\File.txt"
:::::::::::::::
 
 
Call :AppendTextToBottom  "C:\File.txt" "Bottom Text Here"
Call :AppendTextToTop     "C:\File.txt" "Top Text Here" 
 
Pause&Exit
 
:: Syntax:
:: AppendTextToTop "File" "Text"
:AppendTextToTop
Type "%~1" > "%TEMP%\%~n1.tmp"
(Echo %~2) > "%~1"
(For /F "Useback Delims=" %%# In ("%TEMP%\%~n1.tmp") Do (Echo %%#)) >> "%~1"
(Del /Q "%TEMP%\%~n1.tmp" 2>NUL) & Goto :EOF
 
:: Syntax: 
:: AppendTextToBottom "File" "Text"
:AppendTextToBottom
((Echo %~2) >> "%~1") & Goto :EOF