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

[White Man]

السورس رقم 20 : التحقق من الوصول إلى الملف

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

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

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

السورس :

#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($Path) Then Return "الملف المطلوب غير موجود"
    ;----------
    Local $hFile = _WinAPI_CreateFileEx($Path, $OPEN_EXISTING, BitOR($GENERIC_READ, $GENERIC_WRITE), 0, $FILE_ATTRIBUTE_NORMAL)
    If $hFile = 0 And @error <> 0 Then Return "تم رفض الوصول"
    ;----------
    _WinAPI_CloseHandle($hFile)
    ;----------
    Return "بإمكانك التحكم في الملف"
EndFunc   ;==>Check_of_Access_to_File

 

[White Man]

السورس رقم 21 : إظهار إصدار نظام التشغيل

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

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

مثال :

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

السورس :

#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.Caption) Then Return $i.Caption
    Next
EndFunc   ;==>Get_Name_OS

​

 

[White Man]

السورس رقم 22 : إظهار نوع الجهاز المستخدم

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

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

مثال :

----------

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

يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي

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

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

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

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

السورس :

#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

​

​

 

[format]

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

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

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

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

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.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