Imports System.IO
Imports Microsoft.Win32
Public Class frmMacro
'Carica tutte le macro salvate
Public Sub RefreshList()
If Directory.Exists(Application.StartupPath + "\Macro") Then
Dim Files() As String = Directory.
GetFiles(Application.
StartupPath + "\Macro") lstMacros.Items.Clear()
For I
As Int16
= 0
To UBound(Files) lstMacros.
Items.
Add(Path.
GetFileNameWithoutExtension(Files(I
))) Next
Else
Directory.CreateDirectory(Application.StartupPath + "\Macro")
End If
End Sub
'Carica tutte le macro salvate
Private Sub frmMacro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RefreshList()
End Sub
'Quando si seleziona un elemento, lo carica
Private Sub lstMacros_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstMacros.SelectedIndexChanged
If lstMacros.SelectedIndex >= 0 Then
Try
Dim R As New StreamReader(Application.StartupPath + "\Macro\" + lstMacros.SelectedItem.ToString + ".bat")
txtMacro.Text = R.ReadToEnd
R.Close()
txtName.Text = Path.GetFileNameWithoutExtension(Application.StartupPath + "\Macro\" + lstMacros.SelectedItem.ToString + ".bat")
Catch Ex As Exception
MessageBox.Show("Si è verificato un errore nell'apertura del file!", "Error #1", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
End If
End Sub
'Aggiunge al testo il codice per eseguire un programma
Private Sub strExecProg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles strExecProg.Click
Dim O As New OpenFileDialog
O.Filter = "Applicazioni, eseguibili|*.exe;*.com;*.msi;*.scr"
If O.ShowDialog = Windows.Forms.DialogResult.OK Then
txtMacro.Text += "REM Esegue " + Path.GetFileName(O.FileName) + vbCrLf
txtMacro.Text += Chr(34) + O.FileName + Chr(34) + vbCrLf + vbCrLf
End If
End Sub
'Aggiunge al testo il codice per aprire una cartella
Private Sub strOpenFolder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles strOpenFolder.Click
Dim F As New FolderBrowserDialog
F.Description = "Scegliere quale cartella aprire:"
If F.ShowDialog = Windows.Forms.DialogResult.OK Then
txtMacro.Text += "REM Apre la cartella " + Path.GetFileName(F.SelectedPath) + vbCrLf
txtMacro.Text = "C:\WINDOWS\explorer.exe " + Chr(34) + F.SelectedPath + Chr(34) + vbCrLf + vbCrLf
End If
End Sub
'Aggiunge al testo il codice per aprire un file
Private Sub strOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles strOpenFile.Click
Dim O As New OpenFileDialog
O.Filter = "Qualsiasi file|*.*"
If O.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim RegKey As RegistryKey
Dim Ext As String = Path.GetExtension(O.FileName)
Dim Key As String
'Cerca la chiave associata all'estensione nel registro
RegKey = Registry.ClassesRoot.OpenSubKey(Ext)
If RegKey Is Nothing Then
MessageBox.Show("L'estensione non è contemplata all'interno del registro di sistema!", "Error #2", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
Key = RegKey.GetValue("")
RegKey = Registry.ClassesRoot.OpenSubKey(Key)
RegKey = RegKey.OpenSubKey("shell\open\command")
If RegKey Is Nothing Then
MessageBox.Show("Nessuna applicazione associata a tale estensione!", "Error #3", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
Key = RegKey.GetValue("")
Key = Key.Replace("%L", O.FileName)
Key = Key.Replace("%1", O.FileName)
txtMacro.Text += "REM Apre il file " + Path.GetFileName(O.FileName) + vbCrLf
txtMacro.Text += Key + vbCrLf + vbCrLf
End If
End Sub
'Cancella la macro
Private Sub cmdDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDel.Click
If lstMacros.SelectedIndex >= 0 Then
Try
File.
Delete(Application.
StartupPath + "\Macro\" + lstMacros.
SelectedItem.
ToString + ".bat") lstMacros.Items.RemoveAt(lstMacros.SelectedIndex)
Catch Ex As Exception
MessageBox.Show("Errore nella cancellazione del file!", "Error #4", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
End If
End Sub
'Salva il file
Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
If txtMacro.Text = Nothing Or txtName.Text = Nothing Then
MessageBox.Show("Compilare i campi necessari!", "Error #5", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Exit Sub
End If
Dim W As New StreamWriter(Application.StartupPath + "\Macro\" + txtName.Text + ".bat")
W.Write(txtMacro.Text)
W.Close()
RefreshList()
End Sub
'Esegue la macro su cui si è fatto doppio click
Private Sub lstMacros_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstMacros.DoubleClick
If lstMacros.SelectedIndex >= 0 Then
Dim File As String = Application.
StartupPath + "\Macro\" + lstMacros.
SelectedItem.
ToString + ".bat" End If
End Sub
End Class
