Alexander Max2
04-13-2009, 08:27 AM
السلام عليكم ورحمة الله وبركاته
أقدم لكم اليوم ملف OCX من برمجتي ، وقد إختصرت فيها العديد من
الأوامر البرمجية في الفيجول بيزك ، وهذه المكتبة تحتوي على الكثير
من الأوامر المختصرة ، التي تهم مبرمجي هذه اللغة وروادها .
إستخدامها بسيط جداً: .
1 - أولا قم بتحميل هذه الأداة ، وقم بنسخ الملف TA_Scrpt1.ocx إلى الـ Sysytem32
2 - قم بإضافة هذه الأداة لمشروعك من خلال Ctrl + T ثم قم بتحديد الأداة من خلال Browse ...
وهذه الأوامر هي على الترتيب :
1 - كود المرآة : وهذا الكود يستخدم لجعل الأدوات التي لا تحتوي الخاصية RightToLeft تقبل تحويل الجهة :
TA_Scrpt1.ContolsMirror Controls
Controls : هو اسم الأدة التي تريد تحويلها .
2 - نسخ ملف :
TA_Scrpt1.CopyFile SourcePath, Destination
3- نسخ مجلد :
TA_Scrpt1.CopyFolder SourcePath, Destination
4 - وكذلك نقل ملف :
TA_Scrpt1.MoveFile SourcePath, Destination
5 - نقل مجلد :
TA_Scrpt1.MoveFolder SourcePath, Destination
6 - حذف ملف :
TA_Scrpt1.DeleteFile FilePath
7 - حذف مجلد :
TA_Scrpt1.DeleteFolder FolderPath
8 - التحقق من وجود بارتشن ، مثلاً:
If TA_Scrpt1.DriveExists("C:\") = True Then MsgBox "OK"
9 - التحقق من وجود ملف، مثلاً :
If TA_Scrpt1.FileExists("C:\boot.ini") = True Then MsgBox "OK"
10- التحقق من وجود مجلد :
If TA_Scrpt1.FolderExists("C:\Windows") = True Then MsgBox "OK"
11- جلب خصائص ملف (مخفي ، أو أرشفة أو للقرائة فقط .....) أو مجلد ، مثلاً :
Me.Caption = TA_Scrpt1.GetAttributes("C:\Boot.ini")
12 - تطبيق خاصية على ملف أو مجلد (مثلاً مخفي ، أو للقراءة أو ...) :
TA_Scrpt1.SetAttributes "C:\Boot.ini", vbNormal
13- جلب اسم الملف الأساسي أي بدون لواحق ومسارات :
Me.Caption = TA_Scrpt1.GetBaseName("C:\Boot.ini")
14 - جلب عدد الأعمدة (أو الأحرف) لسطر ضمن ملف نصي :
Me.Caption = TA_Scrpt1.GetColumnsFromTextFile("C:\Boot.ini", 2)
15 - معرفة نوع الفورمات لبارتشن ما :
Me.Caption = TA_Scrpt1.GetDriveFileSystem("C:\")
16 - معرفة التسمية لبارتشن ما :
Me.Caption = TA_Scrpt1.GetDriveName("C:\")
17 - معرفة المساحة الفارغة ضمن بارتشن ما بالبايت :
Me.Caption = TA_Scrpt1.GetDriveOFFreeSpace("C:\")
18 - معرفة المساحة الكلية لبارتشن بالبايت :
Me.Caption = TA_Scrpt1.GetDriveTotalSize("C:\")
19 - معرفة نوع البارتشن (هل هو صلب (2) أو قابل للإزالة (1) أو سواقة سي دي (4)) :
Me.Caption = TA_Scrpt1.GetDriveType("C:\")
20 - تحديد لاحقة ملف :
Me.Caption = TA_Scrpt1.GetExtensionName("C:\boot.ini")
21 - تحديد نوع ملف ما :
Me.Caption = TA_Scrpt1.GetFileType("C:\AUTOEXEC.BAT")
22 - معرفة إصدار ملف تنفيذي (الفيرجن) :
Me.Caption = TA_Scrpt1.GetFileVersion("C:\WINDOWS\system32\calc.exe")
23 - تحديد عدد الأسطر ضمن ملف نصي :
Me.Caption = TA_Scrpt1.GetLinesFromTextFile("C:\boot.ini")
24 - معرفة أسم ملف لمسار موجود :
Me.Caption = TA_Scrpt1.GetName("C:\boot.ini")
25 - معرفة مسار المجلد الأب لمجلد أو ملف ما :
Me.Caption = TA_Scrpt1.GetParentFolderName("C:\Windows\System32\Calc.exe")
26 - معرفة الإسم المختصر لملف أو مجلد ما :
Me.Caption = TA_Scrpt1.GetShortName("C:\Windows\System32\Calc.exe")
27 - معرفة المسار المختصر لملف أو مجلد ما :
Me.Caption = TA_Scrpt1.GetShortPath("C:\Program Files\Internet Explorer")
28 - معرفة حجم ملف أو مجلد ما :
Me.Caption = TA_Scrpt1.GetSize("C:\Program Files\Internet Explorer")
29 - معرفة مسار المجلدات الرئيسية
(System32 = SystemFolder) ، (TemporaryFolder = Temp) ، (WindowsFolder= Windows) :
Me.Caption = TA_Scrpt1.GetSpecialFolder(SystemFolder)
30 - قراءة سطر ما من ملف نصي :
Me.Caption = TA_Scrpt1.ReadLineFromTextFile("C:\Boot.ini", 4)
31 - قراءة ملف نصي ما بالكامل :
Label1.Caption = TA_Scrpt1.ReadTextFile("C:\Boot.ini")
32 - كتابة سطر في ملف نصي موجود في مسار معين :
TA_Scrpt1.WriteLineInTextFile "C:\TA.txt", "In The name Of Allah"
33 - كتابة نص داخل ملف نصي :
TA_Scrpt1.WriteInTextFile "C:\TA.txt", "In The name Of Allah " & vbNewLine & "123"
34 - إغلاق برنامج مفتوح :
مثلاً شغل النوتباد ، وأستخدم الكود التالي :
TA_Scrpt1.Terminate "NotePad.exe"
والآن رابط التحميل :
TA_Scrpt1 On MediaFire (http://www.mediafire.com/file/qdzchrnnzne/TA_Scrpit1.rar)
أو
TA_Scrpt1 On 4Shared (http://www.4shared.com/file/96730485/c87a3057/TA_Scrpit1.html)
وأخيراً لا تنسونا من صالح الدعاء .....
بالتوفيق للجميع ...........
أقدم لكم اليوم ملف OCX من برمجتي ، وقد إختصرت فيها العديد من
الأوامر البرمجية في الفيجول بيزك ، وهذه المكتبة تحتوي على الكثير
من الأوامر المختصرة ، التي تهم مبرمجي هذه اللغة وروادها .
إستخدامها بسيط جداً: .
1 - أولا قم بتحميل هذه الأداة ، وقم بنسخ الملف TA_Scrpt1.ocx إلى الـ Sysytem32
2 - قم بإضافة هذه الأداة لمشروعك من خلال Ctrl + T ثم قم بتحديد الأداة من خلال Browse ...
وهذه الأوامر هي على الترتيب :
1 - كود المرآة : وهذا الكود يستخدم لجعل الأدوات التي لا تحتوي الخاصية RightToLeft تقبل تحويل الجهة :
TA_Scrpt1.ContolsMirror Controls
Controls : هو اسم الأدة التي تريد تحويلها .
2 - نسخ ملف :
TA_Scrpt1.CopyFile SourcePath, Destination
3- نسخ مجلد :
TA_Scrpt1.CopyFolder SourcePath, Destination
4 - وكذلك نقل ملف :
TA_Scrpt1.MoveFile SourcePath, Destination
5 - نقل مجلد :
TA_Scrpt1.MoveFolder SourcePath, Destination
6 - حذف ملف :
TA_Scrpt1.DeleteFile FilePath
7 - حذف مجلد :
TA_Scrpt1.DeleteFolder FolderPath
8 - التحقق من وجود بارتشن ، مثلاً:
If TA_Scrpt1.DriveExists("C:\") = True Then MsgBox "OK"
9 - التحقق من وجود ملف، مثلاً :
If TA_Scrpt1.FileExists("C:\boot.ini") = True Then MsgBox "OK"
10- التحقق من وجود مجلد :
If TA_Scrpt1.FolderExists("C:\Windows") = True Then MsgBox "OK"
11- جلب خصائص ملف (مخفي ، أو أرشفة أو للقرائة فقط .....) أو مجلد ، مثلاً :
Me.Caption = TA_Scrpt1.GetAttributes("C:\Boot.ini")
12 - تطبيق خاصية على ملف أو مجلد (مثلاً مخفي ، أو للقراءة أو ...) :
TA_Scrpt1.SetAttributes "C:\Boot.ini", vbNormal
13- جلب اسم الملف الأساسي أي بدون لواحق ومسارات :
Me.Caption = TA_Scrpt1.GetBaseName("C:\Boot.ini")
14 - جلب عدد الأعمدة (أو الأحرف) لسطر ضمن ملف نصي :
Me.Caption = TA_Scrpt1.GetColumnsFromTextFile("C:\Boot.ini", 2)
15 - معرفة نوع الفورمات لبارتشن ما :
Me.Caption = TA_Scrpt1.GetDriveFileSystem("C:\")
16 - معرفة التسمية لبارتشن ما :
Me.Caption = TA_Scrpt1.GetDriveName("C:\")
17 - معرفة المساحة الفارغة ضمن بارتشن ما بالبايت :
Me.Caption = TA_Scrpt1.GetDriveOFFreeSpace("C:\")
18 - معرفة المساحة الكلية لبارتشن بالبايت :
Me.Caption = TA_Scrpt1.GetDriveTotalSize("C:\")
19 - معرفة نوع البارتشن (هل هو صلب (2) أو قابل للإزالة (1) أو سواقة سي دي (4)) :
Me.Caption = TA_Scrpt1.GetDriveType("C:\")
20 - تحديد لاحقة ملف :
Me.Caption = TA_Scrpt1.GetExtensionName("C:\boot.ini")
21 - تحديد نوع ملف ما :
Me.Caption = TA_Scrpt1.GetFileType("C:\AUTOEXEC.BAT")
22 - معرفة إصدار ملف تنفيذي (الفيرجن) :
Me.Caption = TA_Scrpt1.GetFileVersion("C:\WINDOWS\system32\calc.exe")
23 - تحديد عدد الأسطر ضمن ملف نصي :
Me.Caption = TA_Scrpt1.GetLinesFromTextFile("C:\boot.ini")
24 - معرفة أسم ملف لمسار موجود :
Me.Caption = TA_Scrpt1.GetName("C:\boot.ini")
25 - معرفة مسار المجلد الأب لمجلد أو ملف ما :
Me.Caption = TA_Scrpt1.GetParentFolderName("C:\Windows\System32\Calc.exe")
26 - معرفة الإسم المختصر لملف أو مجلد ما :
Me.Caption = TA_Scrpt1.GetShortName("C:\Windows\System32\Calc.exe")
27 - معرفة المسار المختصر لملف أو مجلد ما :
Me.Caption = TA_Scrpt1.GetShortPath("C:\Program Files\Internet Explorer")
28 - معرفة حجم ملف أو مجلد ما :
Me.Caption = TA_Scrpt1.GetSize("C:\Program Files\Internet Explorer")
29 - معرفة مسار المجلدات الرئيسية
(System32 = SystemFolder) ، (TemporaryFolder = Temp) ، (WindowsFolder= Windows) :
Me.Caption = TA_Scrpt1.GetSpecialFolder(SystemFolder)
30 - قراءة سطر ما من ملف نصي :
Me.Caption = TA_Scrpt1.ReadLineFromTextFile("C:\Boot.ini", 4)
31 - قراءة ملف نصي ما بالكامل :
Label1.Caption = TA_Scrpt1.ReadTextFile("C:\Boot.ini")
32 - كتابة سطر في ملف نصي موجود في مسار معين :
TA_Scrpt1.WriteLineInTextFile "C:\TA.txt", "In The name Of Allah"
33 - كتابة نص داخل ملف نصي :
TA_Scrpt1.WriteInTextFile "C:\TA.txt", "In The name Of Allah " & vbNewLine & "123"
34 - إغلاق برنامج مفتوح :
مثلاً شغل النوتباد ، وأستخدم الكود التالي :
TA_Scrpt1.Terminate "NotePad.exe"
والآن رابط التحميل :
TA_Scrpt1 On MediaFire (http://www.mediafire.com/file/qdzchrnnzne/TA_Scrpit1.rar)
أو
TA_Scrpt1 On 4Shared (http://www.4shared.com/file/96730485/c87a3057/TA_Scrpit1.html)
وأخيراً لا تنسونا من صالح الدعاء .....
بالتوفيق للجميع ...........