1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : ٍSecurity.Alsha3b | المشاهدات : 859 | الردود : 15
الوسوم:
  1. ٍSecurity.Alsha3b Developer

    الأنتساب:
    ‏10 يوليو 2014
    المشاركات:
    15
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    15
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    [​IMG]

    السلام عليكم
    اليووم جبت الكم اكواد مهمة في الدوت نت )4:"
    تابع ..

    | - - - - - - - - - - - - - - - - - - - - - - - - |

    كود رسالة نصية Msgbox

    Msgbox (" ")



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    فتح ملف

    PROCESS.START("مسار الملف في الجهاز")




    | - - - - - - - - - - - - - - - - - - - - - - - - |
    فتح ملف من الجهاز بواسطة OpenFlileDialog

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim Security As New OpenFileDialog
    With Security
    .Title = ("اختر ملف ")
    .Filter = ("كل الملفات|*.*")
    .ShowDialog()
    End With
    End Sub
    End Class



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    الحصول على المدخلات من خلال الدالة Inputbox وعرضها في الـ TEXTBOX

    Dim Security As String
    Security = InputBox("ادخل اسم")
    TextBox1.Text = Security



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    معرفة حجم ملف عنطريق OpenFileDialog و Label

    OpenFileDialog1.ShowDialog()
    Dim myFile As New FileInfo(Me.OpenFileDialog1.FileName)
    Label1.Text = "size : " & myFile.Length / 1024



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    معرفة حالة النت اذا كان متصل ام لا

    If My.Computer.Network.IsAvailable Then
    Label1.ForeColor = Color.Green
    Label1.Text = "Network Status : Working"
    Else
    Label1.ForeColor = Color.Red
    Label1.Text = "Network Status : Not Connected"
    End If



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    حفظ المحتوى في Textbox الى ملف Text

    System.IO.File.WriteAllText("E:\letters.txt", TextBox1.Text)



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    حذف ملف

    If IO.File.Exists("مسار الملف") = True Then
    IO.File.Delete("مسار الملف")



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    نسخ ملف ُ;)ًٌُ

    My.Computer.FileSystem.CopyFile("مسار الملف", True)



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    معرفة اسم الجهاز #:"

    Dim Security_Alshab As String
    Security_Alshab = System.Environment.UserName
    MsgBox(Security_Alshab)



    | - - - - - - - - - - - - - - - - - - - - - - - - |
    وانشاء الله في مواضيع قادم اطرح الكثر من الاكواد !:"
    كان معكم محبكم دوماأأ bye1~`
    سكيورتي الشعب
     
  2. علي القناص <span style="font-weight: bold; text-shadow: #BBBB V • I • P

    الأنتساب:
    ‏6 مارس 2014
    المشاركات:
    359
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    نظام التشغيل:
    windows 8
    رد: اكواد مهمة vb.net :$

    وعليكم السلام ورحمة الله وبركاتو

    عاشت ايدك حب اكواد مهمة


    وان شاء الله نشوف مشرف قسم الدوت نت عن قريب :{17}::{17}:


    واحلة تقييم ووشم خماسي
     
  3. ٍSecurity.Alsha3b Developer

    الأنتساب:
    ‏10 يوليو 2014
    المشاركات:
    15
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    15
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: اكواد مهمة vb.net :$

    نورت حبي علاوي :{8}:
     
  4. Dr.H4CkEr DeveloPer Plus

    الأنتساب:
    ‏3 أكتوبر 2011
    المشاركات:
    209
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    50
    الإقامة:
    بلآد الحرمين .. الريآض ..
    رد: اكواد مهمة vb.net :$

    [​IMG]
     
  5. иαѕѕєя Active DeveloPer

    الأنتساب:
    ‏19 يوليو 2012
    المشاركات:
    80
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    20
    الوظيفة:
    موضف صيانة
    الإقامة:
    الأردن
    رد: اكواد مهمة vb.net :$

    يعطيكك العآفية بطل , دمت بخير
     
  6. AlaaGost DeveloPer Plus

    الأنتساب:
    ‏14 يوليو 2014
    المشاركات:
    135
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    50
    الوظيفة:
    طالب
    الإقامة:
    {-{ ًٍIًًٍِrٍaًٍQ }-}
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    HTML
    Facebook:
    رد: اكواد مهمة vb.net :$

    [​IMG]
    رمضان كريم على عيونك اخوي الكريم
    وماشاء الله اكواد لها اهميتها
    i:q^: i:q^: i:q^: دومك متالق i:q^: i:q^: i:q^:
     
  7. ٍSecurity.Alsha3b Developer

    الأنتساب:
    ‏10 يوليو 2014
    المشاركات:
    15
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    15
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: اكواد مهمة vb.net :$

    نورتو اخواني الاعزاء )5:"
    ...
     
  8. ‏‎Blåċk Ðệvỉl Developer

    الأنتساب:
    ‏15 يوليو 2014
    المشاركات:
    1
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    5
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: اكواد مهمة vb.net :$

    طكووووووو بيت شناوه تقييم خماسي ؛ah^؛؛ah^؛ !:"
     
  9. TeePlow V • I • P

    الأنتساب:
    ‏12 مارس 2014
    المشاركات:
    401
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    50
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد مهمة vb.net :$

    السلام عليكم
    مشكور على الطرح الرائع واصل )5:"
     
  10. ٍSecurity.Alsha3b Developer

    الأنتساب:
    ‏10 يوليو 2014
    المشاركات:
    15
    الإعجابات المتلقاة:
    2
    نقاط الجائزة:
    15
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    رد: اكواد مهمة vb.net :$

    نوتو اخواني الاعزاء
    فديتكم :{12}:
     

مشاركة هذه الصفحة