حالة الموضوع:
مغلق
  1. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    632
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    [​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

    Mr. Stephen وضاح! Developer موقوف لمخالفة الشروط

    الأنتساب:
    ‏16 يونيو 2016
    المشاركات:
    120
    الإعجابات المتلقاة:
    33
    نقاط الجائزة:
    28
    احسنت استمر عزيزي بكوري
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  3. حسن هكسور

    حسن هكسور Anti Hacker Developer

    الأنتساب:
    ‏21 يونيو 2016
    المشاركات:
    107
    الإعجابات المتلقاة:
    60
    نقاط الجائزة:
    28
    الجنس:
    ذكر
    الإقامة:
    العراق/واسط
    عشت اخي بكر موضوع رائع جدا
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  4. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    632
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نورت
     
  5. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    632
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نورت
     
  6. فريق الاستغلال

    فريق الاستغلال Developer

    الأنتساب:
    ‏11 فبراير 2016
    المشاركات:
    177
    الإعجابات المتلقاة:
    57
    نقاط الجائزة:
    28
    والله عاشت الايادي حبيبي
     
    أعجب بهذه المشاركة !»°بہًكہًر الہًعہًراقہًي°«!
  7. !»°بہًكہًر الہًعہًراقہًي°«!

    !»°بہًكہًر الہًعہًراقہًي°«! нєℓℓ вσуѕ тєαм V • I • P

    الأنتساب:
    ‏7 فبراير 2015
    المشاركات:
    632
    الإعجابات المتلقاة:
    1,410
    نقاط الجائزة:
    93
    الجنس:
    ذكر
    الوظيفة:
    طالب
    الإقامة:
    العراق\واسط
    نورت
     
  8. αℓɪ αℓɪяαqɪ

    αℓɪ αℓɪяαqɪ Active DeveloPer

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

    -مصطفى الموسوي- :.HackTheBad:. مشرف

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

    !_عبدالله عباس_! DeveloPer Plus

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

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