مجموعة من الأكواد المتنوعة

• كود معرفة عدد الثواني التي مرت على تشغيل الجهاز 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