Visual Basic

Public Function SendmailUsingSmtpClient(ByVal destinationEmail As List(Of String), ByVal subject As String, ByVal body As String) As Boolean ', ByVal pblnNotify As Boolean) As Boolean
       'Dim Email As New System.Net.Mail.MailMessage
       Dim mailClient As SmtpClient = Nothing
       '    Dim smtp As New System.Net.Mail.SmtpClient(BLLmdlCommon.SmtpServer, BLLmdlCommon.SmtpServerPort)
       Dim cred As NetworkCredential = Nothing
       Dim smtpserver As String = ""
       Dim SendPassword As String = ""
       Dim fromMail As String = ""
       Dim smptServerPort As String = ""
       Dim SendUserName As String = ""
       Try
           SendPassword = System.Configuration.ConfigurationManager.AppSettings("fromemailpassword").ToString()
           fromMail = System.Configuration.ConfigurationManager.AppSettings("FromEmail").ToString()
           smtpserver = System.Configuration.ConfigurationManager.AppSettings("smtpserver").ToString()
           smptServerPort = System.Configuration.ConfigurationManager.AppSettings("SmtpServerPort").ToString()

           mailClient = New SmtpClient(smtpserver, smptServerPort)
           '  mailClient.EnableSsl = True
           mailClient.DeliveryMethod = SmtpDeliveryMethod.PickupDirectoryFromIis
           mailClient.UseDefaultCredentials = False
           cred = New NetworkCredential(fromMail, SendPassword)
           mailClient.Credentials = cred
           For i As Integer = 0 To destinationEmail.Count - 1
               mailClient.Send(fromMail, destinationEmail(i), subject, body)
           Next
           Return True
       Catch ex As Exception
           Throw ex
           Return False
       End Try
   End Function

Declare Function ReadProcessMemory Lib "kernel32" _
                              (ByVal hProcess As Long, _
                              ByVal lpBaseAddress As Long, _
                              lpBuffer As Any, _
                              ByVal nSize As Long, _
                              lpNumberOfBytesRead As Long) As Long

Dim bytearray As String * 65526
Dim GetWindowsFormsID As String

Call ReadProcessMemory(processHandle, bufferMem, ByVal bytearray, size, lp)
GetWindowsFormsID = ByteArrayToString(bytearray, retLength)

Function ByteArrayToString(bytes As String, length As Long) As String
    Dim retValStr As String
    Dim l As Long
    retValStr = String$(length + 1, Chr(0))
    l = WideCharToMultiByte(CP_ACP, 0, bytes, -1, retValStr, length + 1, Null, Null)
    ByteArrayToString = retValStr
End Function