Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TB1.Text = "@echo off"
End Sub
Private Sub EliminaUnFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminaUnFileToolStripMenuItem.Click
TB1.Text += "DEL" + InputBox("Immetti la locazione del file da cancellare")
End Sub
Private Sub EliminaUnaCartellaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminaUnaCartellaToolStripMenuItem.Click
TB1.Text += "Deltree" + InputBox("Immetti la locazione dela cartella da cancellare")
End Sub
Private Sub RinominaFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RinominaFileToolStripMenuItem.Click
TB1.Text += vbNewLine + "REN" + " " + InputBox("Immetti il nome del file") + " (" + InputBox("Immetti la locazione") + ") " + InputBox("Immetti nuovo nome") + " (" + InputBox("Immetti la locazione") + ")"
End Sub
Private Sub SpegniIlPCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SpegniIlPCToolStripMenuItem.Click
TB1.Text += vbNewLine + "Shutdown -s -t"
End Sub
Private Sub CreaUnFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreaUnFileToolStripMenuItem.Click
TB1.Text += vbNewLine + "echo " + InputBox("Immetti il nome del file") + " >>" + InputBox("Immetti la locazione")
End Sub
Private Sub TerminaProcessoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TerminaProcessoToolStripMenuItem.Click
TB1.Text += vbNewLine + "taskkill /F /IM " + InputBox("Immetti il nome del processo")
End Sub
Private Sub NuovoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NuovoToolStripMenuItem.Click
TB1.Clear()
TB1.Text = "@echo off"
End Sub
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
TB1.Clear()
TB1.Text = "@echo off"
End Sub
Private Sub SalvaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvaToolStripMenuItem.Click
Dim save As New SaveFileDialog
save.Filter = "File di Script|.bat"
If save.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim c As New IO.StreamWriter(save.FileName)
c.WriteLine(TB1.Text)
c.Close()
End If
End Sub
Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
Dim save As New SaveFileDialog
save.Filter = "File di Script|.bat"
If save.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim c As New IO.StreamWriter(save.FileName)
c.WriteLine(TB1.Text)
c.Close()
End If
End Sub
Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
Dim Open As New OpenFileDialog
Open.Filter = "File di Script|.bat"
'Metti che si apre l'OpenFileDialog e apra
If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim c As New IO.StreamReader(Open.FileName)
TB1.Text = c.ReadToEnd
c.Close()
End If
End Sub
Private Sub CaricaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CaricaToolStripMenuItem.Click
Dim Open As New OpenFileDialog
Open.Filter = "File di Script|.bat"
'Metti che si apre l'OpenFileDialog e apra
If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim c As New IO.StreamReader(Open.FileName)
TB1.Text = c.ReadToEnd
c.Close()
End If
End Sub
Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
Application.Exit()
End Sub
Private Sub RifaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RifaiToolStripMenuItem.Click
TB1.Undo()
End Sub
Private Sub TagliaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TagliaToolStripMenuItem.Click
TB1.Cut()
End Sub
Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
TB1.Cut()
End Sub
Private Sub CopiaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiaToolStripMenuItem.Click
TB1.Copy()
End Sub
Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
TB1.Copy()
End Sub
Private Sub IncollaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IncollaToolStripMenuItem.Click
TB1.Paste()
End Sub
Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
TB1.Paste()
End Sub
Private Sub SelezionaTuttoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SelezionaTuttoToolStripMenuItem.Click
TB1.SelectAll()
End Sub
End Class
