Visual Basic

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        'Start by creating a mail message object
        Dim MyMailMessage As New MailMessage()

        'From requires an instance of the MailAddress type
        MyMailMessage.From = New MailAddress("abc@gmail.com")

        'To is a collection of MailAddress types
        MyMailMessage.To.Add("abc@yahoo.com")

        MyMailMessage.Subject = "GMail Test"
        MyMailMessage.Body = "This is the test text for Gmail email"

        'Create the SMTPClient object and specify the SMTP GMail server
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        SMTPServer.Port = 465
        SMTPServer.Credentials = New System.Net.NetworkCredential("abc", "cba")
        SMTPServer.EnableSsl = True

        Try
            SMTPServer.Send(MyMailMessage)
            MessageBox.Show("Email Sent")
        Catch ex As SmtpException
            MessageBox.Show(ex.Message)
        End Try

    End Sub

Sub ShutDown(sNodes, sAction)
  Dim sNode, oWMI, colOperatingSystems, obj, oOS, iCMD, nERR, objShell
  Const EWX_LOGOFF = 0
  Const EWX_SHUTDOWN = 1
  Const EWX_REBOOT = 2
  Const EWX_FORCE = 4
  Const EWX_POWEROFF = 8

  For Each sNode In Split(sNodes, ",")
    Set oWMI = GetObject("winmgmts:" _
       & "{impersonationLevel=impersonate,(Shutdown)}!\\" & sNode & "\root\cimv2")
  
    Set colOperatingSystems = oWMI.ExecQuery("Select * from Win32_OperatingSystem")
    For Each obj In colOperatingSystems
      Set oOS = obj:   Exit For
    Next

    sAction = LCase(sAction)  
    Select Case sAction
      Case "logoff"
        iCMD = EWX_LOGOFF
      Case "logoff_force"
        iCMD = EWX_LOGOFF + EWX_FORCE
      Case "shutdown"
        iCMD = EWX_SHUTDOWN
      Case "shutdown_force"
        iCMD = EWX_SHUTDOWN + EWX_FORCE
      Case "reboot"
        iCMD = EWX_REBOOT
      Case "reboot_force"
        iCMD = EWX_REBOOT + EWX_FORCE
      Case "poweroff"
        iCMD = EWX_POWEROFF
      Case "poweroff_force"
        iCMD = EWX_POWEROFF + EWX_FORCE
      Case "hybernate"
        On Error Resume Next
        Set objShell = CreateObject("Wscript.Shell")
        objShell.Run "%windir%\System32\rundll32.exe PowrProf.dll,SetSuspendState"
        self.Close
        exit sub
      Case Else      ' Default value
        iCMD = EWX_POWEROFF
    End Select
  Next
  oOS.Win32shutdown cint(iCmd),cint(0)
End Sub