1. إستبعاد الملاحظة

مثبـت الموضوع الرسمى مكتبه سورسات البرمجيات حره ( بكل اللغات البرمجيه )

الموضوع في 'منتدى البـرامــج العـامــة' بواسطة black007, بتاريخ ‏أغسطس 20, 2016.

حالة الموضوع:
مغلق
  1. White Man

    White Man خبير فحص ملفات فريق فحص زيزووم للحماية

    إنضم إلينا في:
    ‏فبراير 24, 2014
    المشاركات:
    12,588
    الإعجابات المتلقاة:
    28,724
    نقاط الجائزة:
    1,250
    الجنس:
    ذكر
    الإقامة:
    Egypt,Alex
    برامج الحماية:
    اخرى
    نظام التشغيل:
    Windows8.1
    السورس رقم 20 : التحقق من الوصول إلى الملف

    لغة البرمجة : Autoit


    فائدة السورس : التحقق من الوصول إلى الملف


    كاتب السورس : المبدع / @ihere

    السورس :

    كود PHP:
    #RequireAdmin
    #include <WinAPIDiag.au3>

    ;--------------------------------- [مثال]
    MsgBox($MB_OK''Check_of_Access_to_File(@WindowsDir "\Regedit.exe"))
    ;---------------------------------

    Func Check_of_Access_to_File($Path)
        If 
    Not FileExists($PathThen Return "الملف المطلوب غير موجود"
        
    ;----------
        
    Local $hFile _WinAPI_CreateFileEx($Path$OPEN_EXISTINGBitOR($GENERIC_READ$GENERIC_WRITE), 0$FILE_ATTRIBUTE_NORMAL)
        If 
    $hFile And @error <> 0 Then Return "تم رفض الوصول"
        
    ;----------
        
    _WinAPI_CloseHandle($hFile)
        ;----------
        Return 
    "بإمكانك التحكم في الملف"
    EndFunc   ;==>Check_of_Access_to_File
     
  2. White Man

    White Man خبير فحص ملفات فريق فحص زيزووم للحماية

    إنضم إلينا في:
    ‏فبراير 24, 2014
    المشاركات:
    12,588
    الإعجابات المتلقاة:
    28,724
    نقاط الجائزة:
    1,250
    الجنس:
    ذكر
    الإقامة:
    Egypt,Alex
    برامج الحماية:
    اخرى
    نظام التشغيل:
    Windows8.1
    السورس رقم 21 : إظهار إصدار نظام التشغيل

    لغة البرمجة : Autoit


    فائدة السورس : إظهار إصدار نظام التشغيل


    مثال :

    [​IMG]



    كاتب السورس : المبدع / @ihere

    السورس :

    كود PHP:
    #RequireAdmin
    #include <MsgBoxConstants.au3>


    ;--------------------------------------- [مثال]
    Local $Save_Temp Get_Name_OS()
    If 
    $Save_Temp <> "Error" Then MsgBox($MB_OK''$Save_Temp)
    ;---------------------------------------


    Func Get_Name_OS()
        
    Local $Object ObjGet("winmgmts:{impersonationLevel=impersonate}")
        If @
    error <> 0 Then Return "Error"
        
    ;---------------
        
    Local $Query $Object.ExecQuery("SELECT * From Win32_OperatingSystem"), $i
        
    ;---------------
        For 
    $i In $Query
            
    If Not StringIsSpace($i.CaptionThen Return $i.Caption
        Next
    EndFunc   
    ;==>Get_Name_OS
     
  3. White Man

    White Man خبير فحص ملفات فريق فحص زيزووم للحماية

    إنضم إلينا في:
    ‏فبراير 24, 2014
    المشاركات:
    12,588
    الإعجابات المتلقاة:
    28,724
    نقاط الجائزة:
    1,250
    الجنس:
    ذكر
    الإقامة:
    Egypt,Alex
    برامج الحماية:
    اخرى
    نظام التشغيل:
    Windows8.1
    السورس رقم 22 : إظهار نوع الجهاز المستخدم

    لغة البرمجة : Autoit


    فائدة السورس : إظهار نوع الجهاز المستخدم سواء مكتبي أو لابتوب أو جهاز آخر


    مثال :

    [​IMG]

    ----------

    ملاحظة : في السورس أضفت عنوان صفحة تابعة لمايكروسوفت

    https://msdn.microsoft.com/en-us/library/aa394474(v=vs.85).aspx

    عشان للي يرغب بإضافة المزيد من الأجهزة

    لأن السورس راح يتعرف على الجهاز المكتبي واللابتوب فقط

    وباقي الأجهزة راح يصنفها على أنها أجهزة أخرى
    ----------

    كاتب السورس : المبدع / @ihere

    السورس :

    كود PHP:
    #RequireAdmin[/COLOR][/SIZE][/FONT][/RIGHT]
    [FONT=Arial][SIZE=4][COLOR=#000066]
    [RIGHT]#include <MsgBoxConstants.au3>


    ;--------------------------------------- [مثال]
    Local $Save_Temp Get_Type_Computer()
    If 
    $Save_Temp <> "Error" Then MsgBox($MB_OK''$Save_Temp)
    ;---------------------------------------


    Func Get_Type_Computer()
        
    #cs
            
    لمزيد من أنواع الأجهزة بإمكانك زيارة العنوان التالي
            https
    ://msdn.microsoft.com/en-us/library/aa394474(v=vs.85).aspx
        #ce
        
    ;----------
        
    Local $Object ObjGet("winmgmts:{impersonationLevel=impersonate}")
        If @
    error <> 0 Then Return "Error"
        
    ;----------
        
    Local $Query $Object.ExecQuery("SELECT * From Win32_SystemEnclosure"), $i
        
    ;----------
        For 
    $i In $Query
            
    Switch $i.ChassisTypes[0]
                Case 
    3
                    
    Return "مكتبي"

                
    Case 9
                    
    Return "لابتوب"

                
    Case Else
                    Return 
    "جهاز آخر"
            
    EndSwitch
        
    Next
    EndFunc   
    ;==>Get_Type_Computer

     
  4. format

    format زيزوومي ماسي

    إنضم إلينا في:
    ‏ديسمبر 5, 2008
    المشاركات:
    9,024
    الإعجابات المتلقاة:
    1,484
    نقاط الجائزة:
    1,095
    الجنس:
    ذكر
    الإقامة:
    فلســ الحبيبه ــطين
    برامج الحماية:
    ESET
    نظام التشغيل:
    أخرى
    السورس رقم 23 : التحقق من الويندز اي أصدار

    لغة البرمجة : Autoit

    فائدة السورس : التحقق من الويندز اي أصدار

    كاتب السورس : format

    كود PHP:
    #cs ----------------------------------------------------------------------------

     
    AutoIt Version3.3.14.2
     Author
    :        Hatem Mohsen ALHENAWY

     Script 
    Function:
        
    Check which version of Windows
    التحقق من الويندز اي أصدار
    #ce ----------------------------------------------------------------------------


    If @OSVersion "WIN_XP" Then MsgBox(64"""windows XP")
    If @
    OSVersion "WIN_VISTA" Then MsgBox(64"""windows vista")
    If @
    OSVersion "WIN_7" Then
        
    if @OSArch "X86" Then
            MsgBox
    (64,'','windows 7X86')
        Else
            
    MsgBox(64,'','windows 7X64')
    EndIf
    EndIf
    If @
    OSVersion "WIN_8" Then
        
    if @OSArch "X86" Then
            MsgBox
    (64,'','windows 8X86')
        Else
            
    MsgBox(64,'','windows 8X64')
    EndIf
    EndIf
    If @
    OSVersion "WIN_10" Then
        
    if @OSArch "X86" Then
            MsgBox
    (64,'','windows 10X86')
        Else
            
    MsgBox(64,'','windows 10X64')
    EndIf
    EndIf
     
    آخر تعديل بواسطة المشرف: ‏مارس 7, 2017
    أعجب بهذه المشاركة abu_youssef
حالة الموضوع:
مغلق

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

جاري تحميل الصفحة...