VB.Net

Trovare le informazioni del sistema operativo in VB.Net, C# e ASP.Net

Ivan Gentile — Tue, 26 Sep 2006 10:20:00 GMT

Come trovare le informazioni del sistema

Nei sistemi Win32, esiste l’API GetVersionEx che restituisce le informazioni nella struttura OSVERSIONINFO. Quindi possiamo guardare i valori di tutti i vari campi della struttura ed analizzare tutto (o quasi!!) del sistema operativo in esecuzione.

Il Framework 2005 ci fornisce la classe Environment. Questa classe contiene un metodo chiamato OSVersion che restituisce l’oggetto OperatingSystem. Quest’oggetto può essere utilizzato per fornire informazioni sulla versione del sistema.

Come ottenere l’oggetto OperatingSystem

La classe OperatingSystem contiene tre proprietà:

Platform: restituisce il valore del PlatformID.Ha tre differenti valori.

Win32NT àWindows NT
Win32Windows à Windows 95 o superiore
Win32S à Win32s è in esecuzione su una versione a 16-di Windows.

2. CSD: questa proprietà indica il numero Corrected Service Diskette del sistema operative o in alter parole la stringa che rappresenta la service pack installata.

Version: Restiruisce la versione. Questa classe è vuota, ma la classe Version standard usata per indicare la versione di qualsiasi assembly in .NET definisce un insieme di valori indicati come Major.Minor.Revision.Build. La classe Version contiene, infatti, 4 proprietà che restituiscono completamente le informazioni del sistema operativo.

Major – Numero della Major Version
Minor - Numero della Minor Version
Revision - Numero della Revision
Build - Numero della Build

Cosa significano questi valori???

Combinando tre dei valori restituiti otterremo l’esatta versione del sistema operative utilizzato. Nella tabella seguente elenco i possibili risultati che possiamo ottenere dalla combinazione dei valori ottenuti.

PlatformID

Major Version

Minor Version

Sistema Operativo

Win32Windows

>= 4

Win95

Win32Windows

>= 4

> 0 AND < 90

Win98

Win32Windows

>= 4

> 0 AND >= 90

WinMe

Win32NT

<= 4

WinNT

Win32NT

Win2K

Win32NT

> 0

WinXP

Nel codice seguente invece una breve descrizione Following a small sample from the class that shows the use of Environment class in System namespace.

Dim os As OperatingSystem = Environment.OSVersion
' Prendiamo le informazioni della versione
Dim vs As Version = os.Version
Private Me.m_nMajorVer = vs.Major
Private Me.m_nMinorVersion = vs.Minor
Private Me.m_nRevision = vs.Revision
Private Me.m_nBuildNumber = vs.Build
' Prendiamo le informazioni della service pack
Private Me.m_strServicePack = os.ServicePack

Ciao

Ivan

Scaricare un file remoto in VB.Net 2005

Ivan Gentile — Mon, 24 Jul 2006 19:17:00 GMT

L’utilità di scaricare aggiornamenti di un software da un proprio server e memorizzarli da quale altra parte in locale, specificando il percorso, è una possibilità che ci viene offerta dal Metodo My.Computer.Network.DownloadFile.

Le proprietà Username e Password permettono di impostare le credenziali d’accesso al server. E’ possibile anche impostare il parametro ShowUI a True per fare in modo che venga visualizzata una finestra nella quale sono contenute lo stato di avanzamento del download e la possibilità di annullare l’operazione.

Per verificare l’esistenza di una connessione possiamo assegnare un valore al parametro ConnectionTimeOut.

Può anche succedere di voler sovrascrivere il file, qualora esistesse già in locale, impostando Overwrite su True.

Quindi il metodo può assumere differenti aspetti:

1 - My.Computer.Network.DownloadFile ("http://www.sbsoft.it/downloads/Download.txt", "C:\Documents and Settings\All Users\Documents\DownloadTest.txt"), con URL e Path dove salvare il file;

2 - My.Computer.Network.DownloadFile ("http://www.sbsoft.it/downloads/Download.txt", "C:\Documents and Settings\All Users\Documents\DownloadTest.txt","ivan","sbsoft"), con l’aggiunta di Username e Password;

3 - My.Computer.Network.DownloadFile ("http://www.sbsoft.it/downloads/Download.txt", "C:\Documents and Settings\All Users\Documents\DownloadTest.txt","ivan","sbsoft",True,500,True), con Interfaccia di download, Tempo di connessione e Flag di sovrascrittura.

OKKIO!!! Alcune eccezioni che possono essere generate sono:

- Unità non valida;

- Username e Password errate;

- ConnectionTimeOut scaduto;

- Richiesta rifiutato dal sito web.

Ciao

Ivan

Richiamare o cambiare le informazioni memorizzate all’interno di un programma durante l’esecuzione in VB.Net, C# E ASP.Net

Ivan Gentile — Wed, 12 Jul 2006 11:38:00 GMT

Molto spesso abbiamo bisogno di inserire oggetti (immagini, file di testo, filmati Flash, ecc …) e di richiamarli in fase di esecuzione. Il problema può essere risolto in due modi:

1 – Portandoci dietro il file originale;

2 – Includendo il file nel nostro progetto e compilarlo con esso.

La prima soluzione non staremo qui a spiegarla e presteremo molta attenzione alla seconda soluzione.

Il framework .NET (già dalla versione 1.1) ci permette di memorizzare, all'interno di un progetto, qualsiasi tipo di file.
Per fare ciò è necessario:

1) importare il file all'interno del progetto utilizzando il menù Project\Add Existing Items;

2) selezionare il file all'interno del Solution Explorer e impostare tra le proprietà la Build Action come Embedded Resource;

In questo modo il nostro file EXE verra compilato direttamente don il progetto.

A questo punto non ci rimane altro che richiamare il file in fase di esecuzione. Per fare questo possiamo utili il codice seguente:

Private bmStop As Bitmap

Dim a As Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
bmStop = New Bitmap(a.GetManifestResourceStream( "NamSpaceRadice.NomeFile.Est"))

NameSpaceRadice è il nome del namespace root dell'assembly mentre NomeFile.Est è il nome del file inserito nel progetto.

N.B.

Il metodo GetManifestResourceStream genera un'eccezione se il file e di dimensioni superiori ai 2GB

Ciao

Ivan

Inviare e-mail in VB.Net, C# e ASP.Net 2.0

Ivan Gentile — Sun, 19 Mar 2006 14:04:00 GMT

Inviare e-mail nel Framwork 2.0 è quasi la stessa cosa della versione 1.0. Ci sono solo un paio di varianti.

La prima differenza è ne fatto che tutte le funzionalità sono incluse nel nuovo namespace System.Net.Mail e non più nel System.Web.Mail.

L'altra è da cercare nel codice seguente:

MailMessage oMsg = new MailMessage();
//Imposta il mittente
oMsg.From = new MailAddress("ivan.gentile@sbsoft.it", "Ivan Ufficio");
//La proprietà .To è una collezione di destinatari,
//quindi possiamo addizionare quanti destinatari vogliamo.
oMsg.To.Add(new MailAddress("ivan.gentile@libero.it","Ivan Casa"));
//Imposto oggetto
oMsg.Subject = "Prova E-Mail via .Net";
//Imposto contenuto
oMsg.Body = "Ci sono riuscito!!!";
oMsg.IsBodyHtml = true;
//Imposto il Server Smtp
SmtpClient oSmtp = new SmtpClient("smtp.server.com");
//Possiamo impostare differenti metodi di spedizione.
//Imposta consegna diretta.
oSmtp.DeliveryMethod = SmtpDeliveryMethod.Network;
//Alcuni Server SMTP richiedono l'accesso autenticato
NetworkCredential oCredential = new NetworkCredential("username","password");
oSmtp.UseDefaultCredentials = false;
oSmtp.Credentials = oCredential;
//Spediamo la mail
oSmtp.Send(oMsg);

Consiglio di impostare tutto in un blocco Try Catch dal momento che i motivi che generano eccezzioni sono diversi come: indirizzo e-mail errato, errori di autentificazione, problemi di rete, ecc...

Per chi volesse utilizzare questo codice in ASP.Net:

Dim oMsg As MailMessage = New MailMessage()

oMsg.To.Add(ivan.gentile@sbsoft.it)

oMsg.From = New MailAddress(ivan.gentile@sbsoft.it)

oMsg.Subject = "Prova"

oMsg.Body = "FATTO!!!"

Dim oSmtp As SmtpClient = New SmtpClient("smtp.server.com")

oSmtp.Send(oMsg)

Okkio le parole in rosso devono essere adattate in base al server smtp utilizzato.

Ciao

Ivan

Abbinare più eventi ad uno stesso metodo in VB.Net

Ivan Gentile — Wed, 15 Mar 2006 12:29:00 GMT

Per collegare più eventi ad un singolo Handler evento in VB.Net basta modificale la clausola degli Handles del metodo aggiungendo i nomi degli eventi che si vogliono associare al metodo stesso.

Separiamo i nomi degli eventi con le virgole come nell'esempio seguente.

Questo codice mostra come collegare al metodo Button_Click gli eventi generati di tre Button differenti.

Sub Button_Click (ByVal sender as System.Object, _
ByVal e as System.EventArgs) _
Handles Button1.Click, Button2.Click, Button3.Click

In questo modo l'evento Button_Click verrà eseguito alla pressione di tutti e tre i pulsanti.

Bisogna fare attenzione a non riabinare poi l'evento On_click di un Button ad un ltro metodo perchè ovviamente l'evento sarebbe associato a due metodi differenti, generando un errore.

Ciao

Ivan

Caricare e recuperare immagini in un db SQL Server 2005 in VB.Net

Ivan Gentile — Thu, 09 Mar 2006 15:49:00 GMT

Ogni volta che ci troviamo a lavorare con un database e con immagini collegate ad ogni elemento della tabella, nasce il solito dilemma!!!

Come mi comporto con le immagini??

Memorizzo solo la path o l’immagine intera??

La risposta solitamente è:

“MEGLIO SOLO LA PATH!!!”

Un po’ per comodità e soprattutto perché memorizzare le immagini in un db sembra complicato!!

Vi garantisco che non lo è per niente … e spero che non lo sia più nemmeno per voi dopo aver letto questo mio post!!

Innanzitutto dobbiamo creare il DB e la Tabella, allora eccovi gli script per farlo:

‘CREAZIONE DB

CREATE DATABASE [Test] ON PRIMARY

( NAME = N'Test', FILENAME = N'c:\Programmi\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\Test.mdf' , SIZE = 8192KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB )

LOG ON

( NAME = N'Test_log', FILENAME = N'c:\Programmi\Microsoft SQL Server\MSSQL.1\MSSQL\DATA\Test_log.ldf' , SIZE = 7616KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)

COLLATE Latin1_General_CI_AS

‘CREAZIONE TABELLA

USE [Test]

CREATE TABLE [dbo].[Album](

[IdFoto] [int] IDENTITY(1,1) NOT NULL,

[Foto] [image] NULL,

CONSTRAINT [PK_Album] PRIMARY KEY CLUSTERED

(

[IdFoto] ASC

)WITH (IGNORE_DUP_KEY = OFF) ON [PRIMARY]

) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]

Per chi fosse meno esperto di SQL Server 2005:

- aprire SQL Server Management;

- cliccare su “New Query …” basta copiare ed incollare lo script per la creazione del DB ed eseguire la query;

- cliccare su “New Query … ” copiare ed incollare lo script per la creazione della tabella ed eseguire la query.

Ora il DB Test e la sua cartella Album dovrebbero essere stati creati.

Passiamo all’implementazione del codice. Sviluppiamo un piccolo programmino per la memorizzazione e la visualizzazione delle immagini nel DB appena creato.

Apriamo VSTO 2005 e iniziamo un nuovo progetto.

Nel primo form inseriamo una Toolstrip e su di essa inseriamo due pulsanti. Inseriamo poi una Label nella parte del form che rimane libera e dovremmo ottenere una cosa del genere:

Passando al codice inseriamo questo che segue:

Imports System

Imports Microsoft.VisualBasic

Public Class Form3

Dim testo As String = "Demo di DB Image con SQL " _

& "Server 2005 in VB.Net"

Private Sub Timer1_Tick(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Timer1.Tick

If Label1.Text.Length <> 0 Then

Label1.Text = Microsoft.VisualBasic.Right(Label1.Text, _

Label1.Text.Length - 1)

Else

Label1.Text = testo

End If

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Dim frmCarica As New Caricamento

frmCarica.ShowDialog()

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles ToolStripButton2.Click

Dim frmVedi As New Visualizza

frmVedi.ShowDialog()

End Sub

End Class

Inseriamo ora un nuovo Form che chiameremo Caricamento. In questo inseriamo una PictureBox, una TextBox, una OpenFileDialog e due Button. Lavorando un po’ con il designer potreste ottenere questo:

Il codice da aggiungere a questo form è:

Imports System

Imports System.IO

Imports System.Data

Imports System.Data.SqlClient

Public Class Caricamento

Dim Archivio As SqlConnection

Private Sub Form1_Load(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles MyBase.Load

Archivio = New SqlConnection

Archivio.ConnectionString = "Data Source=(local)\SQLEXPRESS;" _

& "Database=Test;Integrated Security=SSPI;"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click

OpenFileDialog1.Filter = "BMP - Bitmap Windows | *.bmp | " _

& "GIF - CompuServe Graphics Interchange | *.gif | JPG - " _

& "Compatibile JFIF | *.jpg"

OpenFileDialog1.Title = "Seleziona l'immagine da caricare ..."

OpenFileDialog1.ShowDialog()

If OpenFileDialog1.FileName <> "" Then

TextBox1.Text = OpenFileDialog1.FileName.ToString

PictureBox1.Image = Image.FromFile _

(OpenFileDialog1.FileName.ToString)

End If

End Sub

Private Function ImageToStream() As Byte()

Dim Image As New Bitmap(TextBox1.Text)

Dim stream As MemoryStream = New MemoryStream()

Image.Save(stream, _

System.Drawing.Imaging.ImageFormat.Bmp)

Return stream.ToArray()

End Function

Private Sub Button2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button2.Click

If File.Exists(TextBox1.Text) Then

Dim Query As String

Query = "INSERT INTO Album (Foto) VALUES (@Img)"

Dim comando As New SqlCommand(Query, Archivio)

Archivio.Open()

Dim param As SqlParameter = _

New SqlParameter("@Img", SqlDbType.Binary)

param.Value = ImageToStream()

comando.Parameters.Add(param)

comando.ExecuteNonQuery()

comando = Nothing

Archivio.Close()

PictureBox1.Image = Nothing

TextBox1.Text = ""

Else

MessageBox.Show("File inesistente!!", "Test DB Image", _

MessageBoxButtons.OK, MessageBoxIcon.Exclamation, _

MessageBoxDefaultButton.Button1, _

MessageBoxOptions.DefaultDesktopOnly)

End If

End Sub

End Class

Inseriamo ancora un altro Form che chiameremo Visualizza. Inseriamo una Toolstrip con due pulsanti ed una PictureBox per ottenere questo.

Con questo codice:

Imports System

Imports System.IO

Imports System.Data

Imports System.Data.SqlClient

Public Class Visualizza

Dim conta As Integer = 1

Dim Album As New Collection

Dim Query As String

Dim Archivio As SqlConnection

Private Sub Form2_Load(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles MyBase.Load

Archivio = New SqlConnection

Archivio.ConnectionString = "Data Source=(local)\SQLEXPRESS;" _

& "Database=Test;Integrated Security=SSPI;"

Query = "SELECT Foto FROM ALBUM"

Dim cmd As New SqlCommand(Query, Archivio)

Archivio.Open()

Dim I As Integer = 0

Dim reader As SqlDataReader = cmd.ExecuteReader()

Dim Temp As Byte()

While reader.Read

Temp = reader(0)

Album.Add(Temp)

End While

If Album.Count > 0 Then

Temp = CType(Album.Item(conta), Byte())

Dim Img As MemoryStream = New MemoryStream(Temp)

PictureBox1.Image = Image.FromStream(Img)

End If

End Sub

Private Sub ToolStripButton2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles ToolStripButton2.Click

Dim Temp As Byte()

If conta > 1 Then

conta = conta - 1

Temp = CType(Album.Item(conta), Byte())

Dim Img As MemoryStream = New MemoryStream(Temp)

PictureBox1.Image = Image.FromStream(Img)

End If

End Sub

Private Sub ToolStripButton1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Dim Temp As Byte()

If conta < Album.Count Then

conta = conta + 1

Temp = CType(Album.Item(conta), Byte())

Dim Img As MemoryStream = New MemoryStream(Temp)

PictureBox1.Image = Image.FromStream(Img)

End If

End Sub

End Class

A questo punto siamo pronti per testare l’applicazione.

Il risultato dovrebbe essere abbastanza soddisfacente. Infatti se dal form iniziale inseriamo prima un immagine e poi passiamo a visualizzarla dovremmo avere una cosa del genere.

Confido che almeno i soggetti della foto siano diversi! ;)

… sono miei e GUAI A CHI ME LI TOCCA!!

Spero di avervi chiarito un po’ le idee.

Ciao

Ivan

Aprire la finestra di Shutdown di Windows in VB.Net

Ivan Gentile — Tue, 07 Mar 2006 10:50:00 GMT

Sto scoprendo sempre più la forza delle API!!

Riporto il codice che attraverso la shell32.dll mi permette di richiamare la finestra di shutdown del sistema. ... A me è stata utile!!

Public Class Form1

Declare Sub ShutDownDialog Lib "shell32.dll" Alias "#60" (ByVal hwndOwner As Long)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles Button1.Click

Try

ShutDownDialog(Me.Handle)

Exit Try

Catch Ex As Exception

'ERRORE

End Try

End Sub

End Class

Basta aprire un form ed inserirci un pulsante.

Ciao

Ivan

Disabilitare il pulsante "Start" in VB.Net

Ivan Gentile — Sat, 04 Mar 2006 13:17:00 GMT

Può accadere che si abbia la necessità di disabilitare la pressione del pulsante "Start"!

In che caso?? .... Bella domanda!!

Mbhe! Forse accade solo a me!! ... comunque ognuno può usarla quando e come meglio crede.

Apriamo un nuovo form con una Label ed un semplice Button ed inseriamo il seguente codice:

Private Declare Function FindWindowEx Lib "user32" _

Alias "FindWindowExA" (ByVal hWnd1 As Integer, ByVal hWnd2 As Integer, _

ByVal lpsz1 As String, ByVal lpsz2 As String) As Integer

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Integer, _

ByVal fEnable As Integer) As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Label1.Text = "Enabled"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim bEnable As Boolean

If Label1.Text = "Enabled" Then

Label1.Text = "Disabled"

bEnable = False

Else

Label1.Text = "Enabled"

bEnable = True

End If

Dim lHwnd As Integer

lHwnd = FindWindowEx(0&, 0&, "Shell_TrayWnd", vbNullString)

lHwnd = FindWindowEx(lHwnd, 0&, "Button", vbNullString)

Call EnableWindow(lHwnd, bEnable)

End Sub

Ovviamente, come dice il mio amico Brunetti, il linguaggio non ha importanza siamo in .NET!!

Ciao

Ivan

Riconoscere l'utente corrente di windows in VB.Net

Ivan Gentile — Sun, 26 Feb 2006 15:13:00 GMT

Supponiamo di voler collegare l'utente di windows alla nostra applicazione (tipo quel che fa MSN Messenger o molti altri software!!).

Si presenta la necessita di scoprire da codice l'utente corrente.

Quindi questo snippet che riporto di seguito potrebbe servire ad aiutarvi!!

VB.Net

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _

(ByVal lpBuffer As String, ByRef nSize As Integer) As Integer

Private Function Leggi_Utente() As String

Dim Valore As Integer

Dim Utente As String

Utente = New String(CChar(" "), 50)

Valore = GetUserName(Utente, 50)

Leggi_Utente = Utente.Substring(0, Utente.IndexOf(Chr(0)))

End Function

Ciao

Ivan

Aggiungere un link tra i preferiti in VB.Net e C#

Ivan Gentile — Sun, 26 Feb 2006 14:30:00 GMT

In questi giorni abbiamo sviluppato un softwarino che premendo un pulsante si collegava alla pagina web della nostra società. Si è creata così l'esigenza di inserire da codice il link alla nostra Home Page nel menù dei Preferiti.

Così ho pensato che potesse servire anche ad altri e ho inserito di seguito la funzioncina che ho scritto sia in VB.Net che in C#.

VB.NET

Private Sub Add_Preferiti(ByVal Titolo As String, ByVal Url As String)

If (Titolo <> "") And (Url <> "") Then

Dim CartellaFavoriti As String

CartellaFavoriti = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites)

Dim Oggetto As System.IO.StreamWriter=System.IO.File.CreateText(CartellaFavoriti & "\" & _

Titolo & ".url")

Oggetto.WriteLine("[InternetShortcut]")

Oggetto.WriteLine("URL=" & Url)

Oggetto.Close()

Else

MessageBox.Show("Attenzione! Inserire tutti i campi.", "Avviso", MessageBoxButtons.OK, _

MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, _

MessageBoxOptions.DefaultDesktopOnly)

End If

End Sub

private void Add_Preferiti(string Titolo, string Url)

{

if ((Titolo != "") && (Url != ""))

{

string Cartellapreferiti;

Cartellapreferiti = System.Environment.GetFolderPath(Environment.SpecialFolder.Favorites);

System.IO.StreamWriter Oggetto=System.IO.File.CreateText(Cartellapreferiti & "\\" & Titolo & _

".url");

Oggetto.WriteLine("[InternetShortcut]");

Oggetto.WriteLine("URL=" & Url);

Oggetto.Close();

}

else

{

MessageBox.Show("Attenzione! Inserire tutti i campi.", "Avviso", MessageBoxButtons.OK, _

MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1, _

MessageBoxOptions.DefaultDesktopOnly);

}

Ciao

Ivan