1. أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
    إستبعاد الملاحظة
الكاتب : !»°بہًكہًر الہًعہًراقہًي°«! | المشاهدات : 501 | الردود : 31
حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    [​IMG]
    كيف الحال اعضاء وزوار ومشرفين وادارين عراق تيم

    عسا ان
    تكونوا بصحه وعافيه

    اما بعد

    [​IMG]
    اقدم لكم كود بلغه vb.net
    لمنع تشغيل برنامجك داخل الانظمه الوهميه

    لا اطيل عليكم الكود واضح وسهل ولا يحتاج الى كلام مطول
    [​IMG]
    الكود
    كود:
    Imports System.Management
    Public Class Form1
        'Types of Virtual Machines
        'Xen, Hyper-V, LynxSecure, Oracle VM Server for SPARC, VMware ESX/ESXi, Adeos, XtratuM, z/VM, KVM, L4Linux, Mac-on-Linux, Mac-on-Mac, Microsoft Virtual Server, Parallels Workstation, Parallels Desktop for Mac, Parallels Server for Mac, PearPC, QEMU, VirtualBox, Virtual Iron, Virtual Machine Manager, VMware Fusion, VMware Player, VMware Server, VMware Workstation, Windows Virtual PC, Win4Lin
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            'example usage
            Select Case True
                Case PointingDevice(), DiskDrive(), BaseBoard()
                    End
            End Select
        End Sub
        Private Function PointingDevice() As Boolean
            Dim wqlQuery As WqlObjectQuery
            wqlQuery = New WqlObjectQuery("Select * from Win32_PointingDevice")
    
            Dim searcher As ManagementObjectSearcher
            searcher = New ManagementObjectSearcher(wqlQuery)
    
            Dim mouse As ManagementObject
            For Each mouse In searcher.Get()
                If mouse("Caption").ToString().Contains("VMware") Then Return True
                If mouse("Description").ToString().Contains("VMware") Then Return True
                If mouse("HardwareType").ToString().Contains("VMware") Then Return True
                If mouse("InfSection").ToString().Contains("VMware") Then Return True
                If mouse("Manufacturer").ToString().Contains("VMware") Then Return True
                If mouse("Name").ToString().Contains("VMware") Then Return True
                If mouse("Manufacturer").ToString().Contains("Microsoft") Then Return True
            Next
            Return False
        End Function
        Private Function DiskDrive() As Boolean
            Dim wqlQuery As WqlObjectQuery
            wqlQuery = New WqlObjectQuery("Select * from Win32_DiskDrive")
    
            Dim searcher As ManagementObjectSearcher
            searcher = New ManagementObjectSearcher(wqlQuery)
    
            Dim disk As ManagementObject
            For Each disk In searcher.Get()
                If disk("Caption").ToString().Contains("Virtual") Then Return True
                If disk("Model").ToString().Contains("Virtual") Then Return True
                If disk("Caption").ToString().Contains("VMware") Then Return True
                If disk("Model").ToString().Contains("VMware") Then Return True
            Next
            Return False
        End Function
        Private Function BaseBoard() As Boolean
            Dim wqlQuery As WqlObjectQuery
            wqlQuery = New WqlObjectQuery("Select * from Win32_BaseBoard")
    
            Dim searcher As ManagementObjectSearcher
            searcher = New ManagementObjectSearcher(wqlQuery)
    
            Dim motherboard As ManagementObject
            For Each motherboard In searcher.Get()
                If motherboard("Manufacturer").ToString().Contains("Microsoft") Then Return True
                If motherboard("Product").ToString().Contains("Virtual") Then Return True
            Next
            Return False
        End Function
    End Class
    *=== تحديد كود ===*
    [​IMG]
    ارجو ان اكون قد وفقت
    واخيرا
    ان وفقت فمن الله
    وان اخطائت فمن نفسي والشيطان
    [​IMG]
    [​IMG]
    امير ايكل
    مستر جوكر
    السفاح
    علي العراقي
    جوني العراقي
    ولك انت اخي الكريم
    [​IMG]
    [​IMG]


     
  2. Mr. Stephen وضاح! Developer

    الأنتساب:
    ‏16 يونيو 2016
    المشاركات:
    120
    الإعجابات المتلقاة:
    33
    نقاط الجائزة:
    75
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Perl
    Facebook:
    احسنت استمر عزيزي بكوري
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  3. حسن هكسور H A S S A N Developer

    الأنتساب:
    ‏21 يونيو 2016
    المشاركات:
    127
    الإعجابات المتلقاة:
    73
    نقاط الجائزة:
    75
    الجنس:
    ذكر
    الإقامة:
    العراق/واسط
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    عشت اخي بكر موضوع رائع جدا
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  4. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    نورت
     
  5. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    نورت
     
  6. مہٰسہٰتر ذو الہٰفہٰقہٰار مشرف

    الأنتساب:
    ‏11 فبراير 2016
    المشاركات:
    211
    الإعجابات المتلقاة:
    82
    نقاط الجائزة:
    75
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    والله عاشت الايادي حبيبي
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  7. !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм مراقب عآم

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    638
    الإعجابات المتلقاة:
    1,416
    نقاط الجائزة:
    515
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    نورت
     
  8. αℓɪ αℓɪяαqɪ آداريً شؤون الأعضًاء

    الأنتساب:
    ‏30 يونيو 2015
    المشاركات:
    164
    الإعجابات المتلقاة:
    38
    نقاط الجائزة:
    75
    نظام التشغيل:
    windows 7
    اللغة البرمجية:
    Perl
    Facebook:
    YouTube:
    عاشت ايدك شريك دائما مواضيعك مميزه
    استمر ولا تحرمنا من جديدك
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  9. -مصطفى الموسوي- :.HackTheBad:. مشرف

    الأنتساب:
    ‏26 أغسطس 2015
    المشاركات:
    129
    الإعجابات المتلقاة:
    59
    نقاط الجائزة:
    75
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    Visual Basic
    Facebook:
    YouTube:
    يعطيك العافية
    ولكن هذا لتخطي الـ
    اVMware
    فقط
    لو اردنا تخطي virtualbox
    نقوم فقط بالتعديل على الاكواد
    مثلا بدل من اVMware نضع virtualbox
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  10. !_عبدالله عباس_! DeveloPer Plus

    الأنتساب:
    ‏13 نوفمبر 2015
    المشاركات:
    420
    الإعجابات المتلقاة:
    381
    نقاط الجائزة:
    155
    نظام التشغيل:
    windows 8.1
    اللغة البرمجية:
    C#
    عاشت يدك بكوري
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
حالة الموضوع:
مغلق

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