31/10/2013

How to configure Hotmail account with MS Outlook?

 Here is the steps to follow to correctly adjust their email account. PS: This is only valid for a Hotmail account. 

In Outlook: 
Tools => Options => Tab "Mail" => Email Accounts ... => New ... 
Choose "Microsoft Exchange, POP3, IMAP or HTTP Enter your name (the one you want) E-mail Address Password Confirm password Check "Manually configure server settings or additional server types" 
Select "Internet Mail" 
Account Type: POP3 Incoming mail server: pop3.live.com Outgoing mail server: smtp.live.com 
Info for connection, retype your email address in "Username" and password associated in the "Password" Check "Remember password" 
Click "More Settings ..." Tab "Outgoing Server" => check "My outgoing server (SMTP) requires authentication => Use same settings as my incoming mail server Tab "Advanced" => Incoming server (POP3): 995 Check "This server requires an encrypted connection (SSL) Outgoing server (SMTP): 25 Use the following type of encrypted connection: Automatic 
Finish your creation through multi-clicks OK - Next - Finish, and voila. 

20/10/2013

How to create a log file in VB.Net?

I was also in search of such vb.net code to create a log file and after lots of google , I got a vb.net code and did some modification to match my requirement and after modification my code is working fine. This code is just a class.
Imports System.IO

Public Class Classlogger
    Private Shared Sub Info(ByVal info As Object)
        'Gets folder & file information of the log file 
        Dim filename As String = "C:\Program Files\abc\log.rtf"
        ' Dim sw As StreamWriter
        Dim portfolioPath As String = My.Application.Info.DirectoryPath

        'Dim s As StreamWriter
        'Dim portfolioPath As String = My.Application.Info.DirectoryPath

        'Check for existence of logger file           
        If File.Exists(filename) Then
            Try
                Dim fs As FileStream = New FileStream(filename, FileMode.Append, FileAccess.Write)
                Dim sw As StreamWriter = New StreamWriter(fs)
                sw.WriteLine(vbCrLf & "--- " + vbCrLf + DateTime.Now + " " + info.ToString)
                sw.Close()
                fs.Close()
            Catch dirEx As DirectoryNotFoundException
                LogInfo(dirEx)
            Catch ex As FileNotFoundException
                LogInfo(ex)
            Catch Ex As Exception
                LogInfo(Ex)
            End Try
        Else
            'If file doesn't exist create one              
            Try

                'Dir = Directory.CreateDirectory("C:\Program Files\IRBn WMS")
                Dim fileStream As FileStream = File.Create(filename)
                Dim sw As StreamWriter = New StreamWriter(fileStream)
                sw.WriteLine(vbCrLf & "--- " + vbCrLf + DateTime.Now + info.ToString)
                sw.Close()
                fileStream.Close()
            Catch fileEx As FileNotFoundException
                LogInfo(fileEx)
            Catch dirEx As DirectoryNotFoundException
                LogInfo(dirEx)
            Catch ex As Exception
                LogInfo(ex)
            End Try
        End If
    End Sub
    Public Shared Sub LogInfo(ByVal ex As Exception)
        Try
            'Writes error information to the log file including name of the file, line number & error message description              
            Dim trace As Diagnostics.StackTrace = New Diagnostics.StackTrace(ex, True)
            Dim fileNames As String = trace.GetFrame((trace.FrameCount - 1)).GetFileName()
            Dim lineNumber As Int32 = trace.GetFrame((trace.FrameCount - 1)).GetFileLineNumber()
            Info(vbCrLf + "Error In: " + fileNames + vbCrLf + "Line Number:" + lineNumber.ToString() + vbCrLf + "Error Message: " + ex.Message)
        Catch genEx As Exception
            Info(ex.Message)
        End Try
    End Sub
    Public Shared Sub LogInfo(ByVal message As String)
        Try
            'Write general message to the log file      
            Info("Message: " + message)
        Catch genEx As Exception
            Info(genEx.Message)
        End Try
    End Sub


End Class

 and I called in a event 

Private Sub BtnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCancel.Click
        Try
          
        Catch ex As Exception
          
           
            Classlogger.LogInfo(ex)
           
        End Try
    End Sub

17/10/2013

Vb.Net code to know the basic information of your computer.

A self explanatory windows form is design to to capture the all the basic details like:

  • Computer Name
  •  UserName
  • Operating System
  • Operating System version.
  • OS Platform
  • Network Connection
  • Monitor Height
  • Monitor width
  • Available physical memory
  • Total Physical Memory etc
Just design the windows form as shown below and writ down the code as show :

Public Class Computer_detail

   

    'declaration of variable
    Dim processName As String
    'declaration of DT variable as Datatable
    Dim DT As New DataTable
    Dim percent As Integer

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim availphyMem As Integer = My.Computer.Info.AvailablePhysicalMemory / 1000000
        Dim totlPhyMem As Integer = My.Computer.Info.TotalPhysicalMemory / 1000000
        Dim totVirtMem As Integer = My.Computer.Info.TotalVirtualMemory / 1000000
        'this line is for the name of computer
        Dim compname As String = My.Computer.Name
        'current username used on the machine
        Dim compuser As String = SystemInformation.UserName
        'display the Operating installedon this machine
        Dim OS As String = My.Computer.Info.OSFullName
        'show the platform of the operating installed
        Dim OSplatform As String = My.Computer.Info.OSPlatform
        'it display the Operating system version
        Dim osversion As String = My.Computer.Info.OSVersion
        'display the height and width of the machine
        Dim HeighMon As Integer = SystemInformation.PrimaryMonitorSize.Height
        Dim WidthMon As Integer = SystemInformation.PrimaryMonitorSize.Width

        'it loops trough all the processes happening running in this machine
        For Each p As Process In Process.GetProcesses
            'it display to the datagridview provided
            'DataGridView1.Rows.Add(p.ProcessName)
        Next
        'it check if the machine is connectd to the network or not
        If My.Computer.Network.IsAvailable Then
            TxtNetworkConnection.Text = "Connected"
        Else
            TxtNetworkConnection.Text = "Not Connected"

        End If
        'it get and set the maximum value of progressbar
        ProgressBar1.Maximum = availphyMem
        ProgressBar1.Value = availphyMem
        'this is the formula to get the percentage
        percent = (ProgressBar1.Value / totlPhyMem) * 100
        'it display the percentage in the label
        blpercent.Text = percent & "%"

        'it assign and display all the data from the variable above
        'and display the corresponding value into the textboxes provided
        txtComputerName.Text = compname
        txtComputerUserName.Text = compuser
        txtos.Text = OS
        txtosplatform.Text = OSplatform
        txtosversion.Text = osversion
        txtTotalMemory.Text = availphyMem & " MB"
        txtAphysicalmemory.Text = totlPhyMem & " MB"
        txtvirtualmemory.Text = totVirtMem & " MB"
        ProgressBar1.Maximum = totlPhyMem
        txtMonitorHeight.Text = HeighMon
        txtMonitorwidth.Text = WidthMon

    End Sub

    Private Sub Computer_detail_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'it starts the timer
        Timer1.Start()
        'create new column named "List of processes"
        DT.Columns.Add("List of Processe")
        'set the datasource of the datagridview to DT
        DataGridView1.DataSource = DT
    End Sub

End Class