Get Device Info vb.net

Get Process ID ,MAC Address ,Volume Serial No.,Mother Board ID

Imports System.Management

Private Function GetProcessorId() As String
Dim strProcessorId As String = String.Empty
Dim query As New SelectQuery("Win32_processor")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject

For Each info In search.Get()
strProcessorId = info("processorId").ToString()
Next
Return strProcessorId
End Function

Private Function GetMACAddress() As String
Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim MACAddress As String = String.Empty
For Each mo As ManagementObject In moc
If (MACAddress.Equals(String.Empty)) Then
If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
mo.Dispose()
End If
MACAddress = MACAddress.Replace(":", String.Empty)
Next
Return MACAddress
End Function



Private Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
disk.Get()
Return disk("VolumeSerialNumber").ToString()
End Function
Private Function GetMotherBoardID() As String
Dim strMotherBoardID As String = String.Empty
Dim query As New SelectQuery("Win32_BaseBoard")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strMotherBoardID = info("SerialNumber").ToString()
Next
Return strMotherBoardID
End Function


Convert text to Image in vb.net


Imports System.Drawing
Imports System.Drawing.Bitmap
Imports System.Drawing.Graphics
Imports System.Drawing.Drawing2D
Imports System.Drawing.Imaging
Imports System.Drawing.Image


Private Sub a()
Dim Text As String = "Rajiv Ranjan"
Dim FontColor As Color = Color.Red
Dim FileName As String = "Image1"
Dim objBitmap As New Bitmap(Width, Height)
Dim objGraphics As Graphics = Graphics.FromImage(objBitmap)
Dim objColor As Color
Dim objFont As New Font(FontName, FontSize)

Dim objBrushForeColor As New SolidBrush(FontColor)
Dim objBrushBackColor As New SolidBrush(BackColor)

objGraphics.FillRectangle(objBrushBackColor, 0, 0, Width, Height)
objGraphics.DrawString(TextBox1.Text.ToString, objFont, objBrushForeColor, objPoint)
objBitmap.Save(Application.StartupPath & FileName & ".JPG", ImageFormat.Jpeg)



How to Delete Shortcut


Private Sub DeleteShortCut()
Dim fso As New Scripting.FileSystemObject
Dim DPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Try
fso.DeleteFile(DPath & "\ABC.lnk", True)
Catch ex As Exception
Try
dpath = Strings.Left(dpath, 26)
fso.DeleteFile(DPath & "All Users\Desktop\ABC.lnk", True)
Catch
End Try
End Try
end Sub


Some Namespaces and their use

Some Namespaces and their use:
System: Includes essential classes and base classes for commonly used data types, events, exceptions and so on(Base Class of all)

System.XML: Includes classes for XML support

System.Windows.Forms: Includes classes for creating Windows based forms

System.IO: Includes classes for data access with Files(Input and Output Operation)

System.Data.OleDb: Includes classes that support the OLEDB .NET

System.Data.SqlClient: Includes classes that support the SQL Server .NET provider

How to create a function

How to create a function
public function functionname(argument ) returntype

end function