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

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

3 تعليقات

شكرا .. جزاك الله خيرا

لكن لدي طلب ؟

اريد الكود الذي بواسطته تضع كود html
كما في التدوينة هذه

رد

الشرح في الملف التالي:

http://www.vb4arab.com/vb/uploaded/36671/01304441936.rar

رد

لك جزيل الشكر على المواضيع الأكثر من رائعة
كما نتمنى منك المشاركة في دراسة مهمة تعنى بتحليل مدى (تأثير وأهمية المحتوى التقني للمدونات العربية في جسر الفجوة التقنية).
وذلك من خلال تعبئة الاستبانة من خلال هذا الرابط:
https://www.surveymonkey.com/s/9YW83G5
شاكرين لك حسن تعاونك

رد

إرسال تعليق