1. الملاحظات
    عزيزي زائر تم اطلاق الموقع الرسمي لبرنامج الاختراق Spy-Note
    إستبعاد الملاحظة
الكاتب : Yousuf.Oscar | المشاهدات : 276 | الردود : 6
  1. Yousuf.Oscar DeveloPer Plus

    الأنتساب:
    ‏22 يوليو 2015
    المشاركات:
    163
    الإعجابات المتلقاة:
    1
    نقاط الجائزة:
    50
    الإقامة:
    العراق
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    [​IMG]


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


    اسعد الله اوقاتكم اينما كنتم


    اليوم موضوعي على اكواد فيجوال بيسك


    اكواد مهمه تحتاجها وقد تفيد المبتدئين


    اليوم جمعت افضل الاكواد:{2!}:
    [​IMG]


    كود رسالة نصية 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)


    انشاء الله استفتدم من الاكواد


    في امان الله !
    [​IMG]
     
    1 person likes this.
  2. جـعـفـر الـشـمـري DeveloPer Plus

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    526
    الإعجابات المتلقاة:
    9
    نقاط الجائزة:
    50
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: اكواد مهمه في الفيجوال بيسك

    اكثر من روعة



    تم الوشم بالخماسي :!."
     
  3. سكيورتي ارهابي ExpErt DeveloPer

    الأنتساب:
    ‏1 سبتمبر 2014
    المشاركات:
    718
    الإعجابات المتلقاة:
    52
    نقاط الجائزة:
    435
    الوظيفة:
    ماكسي مول
    الإقامة:
    دوله العراق العظيم
    نظام التشغيل:
    Linux
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: اكواد مهمه في الفيجوال بيسك

    احسنت بارك الله بيك حبيبي


    :lolًٌُ:ٌ​
     
  4. عـقرب الـنجف DeveloPer Plus

    الأنتساب:
    ‏5 يونيو 2015
    المشاركات:
    299
    الإعجابات المتلقاة:
    171
    نقاط الجائزة:
    105
    الجنس:
    ذكر
    الوظيفة:
    programmer
    الإقامة:
    العراق
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد مهمه في الفيجوال بيسك

    بارك الله فيك
     
  5. A-R Developer

    الأنتساب:
    ‏2 يوليو 2015
    المشاركات:
    347
    الإعجابات المتلقاة:
    7
    نقاط الجائزة:
    50
    الإقامة:
    العراق العظيم
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد مهمه في الفيجوال بيسك

    عاشت ايدك على الاكواد شكرا


    تقبل مروري​
     
  6. M o H a N a D مشرف

    الأنتساب:
    ‏1 أغسطس 2015
    المشاركات:
    241
    الإعجابات المتلقاة:
    8
    نقاط الجائزة:
    50
    الجنس:
    ذكر
    الإقامة:
    عٍاٌلِـمِـ لِـاٌ يٌـسُكُنه غَيٌـرُيٌـ
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    رد: اكواد مهمه في الفيجوال بيسك

    رؤوعـة ,,
    أاحسنت أاستمر ,,
     
  7. ahmednajeh98 Developer

    الأنتساب:
    ‏16 أكتوبر 2015
    المشاركات:
    111
    الإعجابات المتلقاة:
    0
    نقاط الجائزة:
    40
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    رد: اكواد مهمه في الفيجوال بيسك

    شكرا لك اكواد مهمه
     

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