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

[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

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

مثال :

----------

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

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

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

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

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

كاتب السورس : المبدع / @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