Come notificare a un utente di servizio Terminal su VB.Net

Il linguaggio VB.NET interagisce con Windows per ottenere informazioni sugli utenti connessi al computer di Servizi Terminal. È possibile utilizzare queste informazioni raccolte per ottenere il nome di un utente e inviare una notifica per e-mail a questo utente . Questo tipo di programmazione invia una notifica a un utente se la sua sessione di Terminal Service scade, per esempio, o la sua password è stata modificata . Istruzioni
1

Aprire il file VB.NET che si desidera utilizzare per inviare l'e-mail . Quando si apre il file , Windows apre automaticamente Visual Studio , che è l'editor di VB.NET .
2

Aggiungere il codice che ottiene le informazioni di servizio terminale per l' utente connesso . VB.NET funziona con il sistema interno di Windows per ottenere le informazioni che hai impostato in Active Directory per l'utente. AD è il sistema di sicurezza che controlla tutta la sicurezza di rete di Windows , tra cui Servizi terminal . Il codice seguente ottiene le informazioni :

Dim nome utente Come StringDim email Come Stringusername = Marshal.PtrToStringAnsi ( pAddress ) email = Marshal.PtrToStringAnsi ( nome utente )
3

Invia l' notifica al destinatario. Dopo l'e-mail è ottenuto , è possibile inviare un messaggio al destinatario attraverso le informazioni della sessione di Windows . Aggiungere il seguente codice per inviare un messaggio e-mail :

server di Dim As New SmtpClient ( ) Dim email As New MailMessage ( ) mail = New MailMessage ( ) mail.From = New MailAddress ( " [email protected] " ;) mail.To.Add (e-mail ) mail.Subject = "Mail Notifiche" mail.Body = "Questa è una notifica per la sessione di Servizi terminal " server.Send ( posta ) economici 4

Fare clic sul pulsante "Salva" . Premere il tasto "F5" per compilare il codice ed eseguirlo nel debugger . Il debugger controlla per errori e prove al codice sulla stazione di lavoro .

• Aiuto per VB6 Internet Transfer Control 
• Come sostituire una casella di testo con un'altra che inserisce dati in VB6