- كود معرفة عدد الثواني التي مرت على تشغيل الجهاز Get Time by Seconds from PC Start:
private int GetSecFromStart()
{
int SecondsFromStart = Environment.TickCount / 1000;
return SecondsFromStart;
}
- كود معرفة دقة الشاشة Get Screen Resolution:
private string GetScreenRes()
{
string ScrRes = Screen.PrimaryScreen.Bounds.Width + "X" + Screen.PrimaryScreen.Bounds.Height;
return ScrRes;
}
- كود معرفة ايبي الجهاز Get PC IP Address:
public static string GetIPAddress(string sHostName)
{
System.Net.IPHostEntry ipEntry = System.Net.Dns.GetHostByName(sHostName);
System.Net.IPAddress[] addr = ipEntry.AddressList;
string sIPAddress = addr[0].ToString();
return sIPAddress;
}
- كود لإصدار صوت تنبيه في الويندوز Play Beep Sound:
Private Sub PlayBeep()
Dim b As System.Media.SystemSound = System.Media.SystemSounds.Beep
b.Play()
End Sub
- كود الحصول على الخطوط الموجودة في الجهاز Get Fonts on your PC:
Private Sub GetSystemFonts()
Dim fnt As New System.Drawing.Text.InstalledFontCollection()
For i As Integer = 0 To fnt.Families.Length - 1
ListBox1.Items.Add(fnt.Families(i).Name)
Next
End Sub
- كود طباعة ملف Print File quickly:
Private Sub PrintFile(ByVal FileName As String)
Dim prnt As New System.Drawing.Printing.PrintDocument
prnt.DocumentName = FileName
prnt.Print()
End Sub
