01-10-12, 05:21 PM
كاتب الموضوع : zager
بسم الله الرحمن الرحيم وبة نستعين
السلام علـيكم
حبيـت الـيوم اشرح لكم طريقة تصميم برنامج لتغـيير خـلفية المجلدات داخل نظام الويندوز
وانا كنت شرحتها قبل كدة بالفيجوال 6
لكن يوم ما حبيـت انتقل للـ Net. قلت اشرح الطريقة بة
اول شـيىء فكرة الكود بسيطة جدآ راح اكتب الكود كلة وبعدين اشرحـة جزء جزء
نبدأ بأسـم الله
طيب نبدأ بالشرح ونتوكل على الله
اولا هذا مثال فقط للطريقة ثانيى انا لسا مبتدىء فى الدوت نت
فلو فى اخطاء او اختصارات افضل للكود تقدروا تتطورها معاى لو تحبوا
بداية عليك بإضافة
6 >> TextBox
Button << 6
لاحظ الصورة
__
اعد تسميت الـ Text(s)
asب
إلى التالى..
1 -- PathD_OpJct
وهى التى سيتم حفظ مسار المجلد المراد تغييرة بداخلـها
2 -- ImagD_OpJct
وهى التى سيتم حفظ مسار الصورة المارد جعلـها خلفية
3 -- ToColorD_OpJct
وهى التى يتم حفظ قيم لون الخط (لأسماء الملفات) وتكون قيمة (Hex)
IcoF_OpJct --4
وهى التى سيتم حفظ مسار ايـقونة المجلد المختارة بداخلـها .
5 -- InfoTipD_OpJct
وهـى التى سيتم حفظ المعلومات الخاصة بالمجلد
6-- CFNoW.Text
هنا هنكتب الكود الخاص بالبرنامج (لُـب الموضوع)
__
بعدين نضيف اداة FolderBrowserDialog
ونسميـها FBD
ونضيف ايضآ اداة OpenFileDialog
ونسميـها FOF
طيب طلوقتى نبدأ بشرح الكود
هنا عرفنا كل المتغيرات دى على انها من نوع نص ..
هنا بنقول انة يحذف الملف DeskTop.ini من مسار المجلد المطلوب
لأن برنامجنا يعتمد على اضافة الملف دة داخل المجلد المطلوب
هنا بنفتح صندوق المجلدات علشان يختار المستخدم المجلد المطلوببسم الله الرحمن الرحيم وبة نستعين
السلام علـيكم
حبيـت الـيوم اشرح لكم طريقة تصميم برنامج لتغـيير خـلفية المجلدات داخل نظام الويندوز
وانا كنت شرحتها قبل كدة بالفيجوال 6
لكن يوم ما حبيـت انتقل للـ Net. قلت اشرح الطريقة بة
اول شـيىء فكرة الكود بسيطة جدآ راح اكتب الكود كلة وبعدين اشرحـة جزء جزء
نبدأ بأسـم الله
كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]Public [/color][color=#0000bb]ImagD[/color][color=#007700], [/color][color=#0000bb]ToColorD[/color][color=#007700], [/color][color=#0000bb]IcoF[/color][color=#007700], [/color][color=#0000bb]InfoTipD[/color][color=#007700], [/color][color=#0000bb]PathD[/color][color=#007700], [/color][color=#0000bb]PDelD[/color][color=#007700], [/color][color=#0000bb]Z[/color][color=#007700], [/color][color=#0000bb]A[/color][color=#007700], [/color][color=#0000bb]G[/color][color=#007700], [/color][color=#0000bb]E[/color][color=#007700], [/color][color=#0000bb]R [/color][color=#007700]As [/color][COLOR=#0000bb]String
Sub FouD[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000bb]On Error Resume Next
PDelD [/COLOR][color=#007700]= [/color][color=#0000bb]PathD_OpJct[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][COLOR=#dd0000]"/DeskTop.ini"
[/COLOR][color=#0000bb]SetAttr[/color][color=#007700]([/color][color=#0000bb]PDelD[/color][color=#007700], [/color][color=#0000bb]FileAttribute[/color][color=#007700].[/color][color=#0000bb]Normal[/color][COLOR=#007700])
[/COLOR][color=#0000bb]Kill[/color][color=#007700]([/color][color=#0000bb]PDelD[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]End Sub
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button6_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles FolSelD[/color][color=#007700].[/color][COLOR=#0000bb]Click
FPd[/COLOR][color=#007700].[/color][color=#0000bb]ShowDialog[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]Z [/color][color=#007700]= [/color][color=#0000bb]FPd[/color][color=#007700].[/color][COLOR=#0000bb]SelectedPath
PathD_OpJct[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#0000bb]Z
End Sub
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub Button2_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles ImaSelD[/color][color=#007700].[/color][COLOR=#0000bb]Click
FoF[/COLOR][color=#007700].[/color][color=#0000bb]ShowDialog[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]A [/color][color=#007700]= [/color][color=#0000bb]FoF[/color][color=#007700].[/color][COLOR=#0000bb]FileName
ImagD_OpJct[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#0000bb]A
End Sub
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub IcoSelD_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles IcoSelD[/color][color=#007700].[/color][COLOR=#0000bb]Click
FoF[/COLOR][color=#007700].[/color][color=#0000bb]ShowDialog[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]G [/color][color=#007700]= [/color][color=#0000bb]FoF[/color][color=#007700].[/color][COLOR=#0000bb]FileName
IcoF_OpJct[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#0000bb]G
End Sub
[/COLOR][color=#007700]Private [/color][color=#0000bb]Sub BeGAAAAAAN_Click[/color][color=#007700]([/color][color=#0000bb]ByVal sender [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Object[/color][color=#007700], [/color][color=#0000bb]ByVal e [/color][color=#007700]As [/color][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]EventArgs[/color][color=#007700]) [/color][color=#0000bb]Handles BeGAAAAAAN[/color][color=#007700].[/color][COLOR=#0000bb]Click
[/COLOR][COLOR=#dd0000]'##############################
ImagD = ImagD_OpJct.Text
ToColorD = ToColorD_OpJct.Text
IcoF = IcoF_OpJct.Text
InfoTipD = InfoTipD_OpJct.Text
PathD = PathD_OpJct.Text
'[/COLOR][COLOR=#ff8000]##############################
[/COLOR][color=#0000bb]CFNoW[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#dd0000]"' Zager Chenged v4.3 ReCodeed ().NeT ,,,ADُs BY ZAGER" [/color][color=#007700]& [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][color=#dd0000]"' CodeEd In EgYpt" [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"' ---------------------"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"[ExtShellFolderViews]"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"[{BE098140-A513-11D0-A3A4-00C04FD706EC}]"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"Attributes=1"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"IconArea_Image="[/color][color=#007700]) & ([/color][color=#0000bb]ImagD[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"IconArea_Text=0x"[/color][color=#007700]) & ([/color][color=#0000bb]ToColorD[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"[.ShellClassInfo]"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"IconFile="[/color][color=#007700]) & ([/color][color=#0000bb]IcoF[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"IconIndex=0"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"InfoTip="[/color][color=#007700]) & ([/color][color=#0000bb]InfoTipD[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"ConfirmFileOp=0"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"[Generator]"[/color][COLOR=#007700])
[/COLOR][color=#0000bb]Call FouD[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]FileSystem[/color][color=#007700].[/color][color=#0000bb]FileOpen[/color][color=#007700]([/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]PathD [/color][color=#007700]& [/color][color=#dd0000]"\DeskTop.ini"[/color][color=#007700], [/color][color=#0000bb]OpenMode[/color][color=#007700].[/color][color=#0000bb]Output[/color][COLOR=#007700])
[/COLOR][color=#0000bb]FileSystem[/color][color=#007700].Print([/color][color=#0000bb]1[/color][color=#007700], ([/color][color=#0000bb]CFNoW[/color][color=#007700].[/color][color=#0000bb]Text[/color][COLOR=#007700]))
[/COLOR][color=#0000bb]FileSystem[/color][color=#007700].[/color][color=#0000bb]FileClose[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]SetAttr[/color][color=#007700]([/color][color=#0000bb]PDelD[/color][color=#007700], [/color][color=#0000bb]FileAttribute[/color][color=#007700].[/color][color=#0000bb]Hidden [/color][color=#007700]+ [/color][color=#0000bb]FileAttribute[/color][color=#007700].[/color][color=#0000bb]System [/color][color=#007700]+ [/color][color=#0000bb]FileAttribute[/color][color=#007700].[/color][color=#0000bb]ReadOnly[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]End Sub
[/COLOR][/COLOR]
طيب نبدأ بالشرح ونتوكل على الله
اولا هذا مثال فقط للطريقة ثانيى انا لسا مبتدىء فى الدوت نت
فلو فى اخطاء او اختصارات افضل للكود تقدروا تتطورها معاى لو تحبوا
بداية عليك بإضافة
6 >> TextBox
Button << 6
لاحظ الصورة
__
اعد تسميت الـ Text(s)
asب
إلى التالى..
1 -- PathD_OpJct
وهى التى سيتم حفظ مسار المجلد المراد تغييرة بداخلـها
2 -- ImagD_OpJct
وهى التى سيتم حفظ مسار الصورة المارد جعلـها خلفية
3 -- ToColorD_OpJct
وهى التى يتم حفظ قيم لون الخط (لأسماء الملفات) وتكون قيمة (Hex)
IcoF_OpJct --4
وهى التى سيتم حفظ مسار ايـقونة المجلد المختارة بداخلـها .
5 -- InfoTipD_OpJct
وهـى التى سيتم حفظ المعلومات الخاصة بالمجلد
6-- CFNoW.Text
هنا هنكتب الكود الخاص بالبرنامج (لُـب الموضوع)
__
بعدين نضيف اداة FolderBrowserDialog
ونسميـها FBD
ونضيف ايضآ اداة OpenFileDialog
ونسميـها FOF
طيب طلوقتى نبدأ بشرح الكود
كود :
[color=#000000][COLOR=#007700]Public [/color][color=#0000bb]ImagD[/color][color=#007700], [/color][color=#0000bb]ToColorD[/color][color=#007700], [/color][color=#0000bb]IcoF[/color][color=#007700], [/color][color=#0000bb]InfoTipD[/color][color=#007700], [/color][color=#0000bb]PathD[/color][color=#007700], [/color][color=#0000bb]PDelD[/color][color=#007700], [/color][color=#0000bb]Z[/color][color=#007700], [/color][color=#0000bb]A[/color][color=#007700], [/color][color=#0000bb]G[/color][color=#007700], [/color][color=#0000bb]E[/color][color=#007700], [/color][color=#0000bb]R [/color][color=#007700]As [/color][COLOR=#0000bb]String
[/COLOR][/COLOR]
هنا عرفنا كل المتغيرات دى على انها من نوع نص ..
كود :
[color=#000000][COLOR=#0000bb] Sub FouD[/color][COLOR=#007700]()
[/COLOR][COLOR=#0000bb]On Error Resume Next
PDelD [/COLOR][color=#007700]= [/color][color=#0000bb]PathD_OpJct[/color][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]& [/color][COLOR=#dd0000]"/DeskTop.ini"
[/COLOR][color=#0000bb]SetAttr[/color][color=#007700]([/color][color=#0000bb]PDelD[/color][color=#007700], [/color][color=#0000bb]FileAttribute[/color][color=#007700].[/color][color=#0000bb]Normal[/color][COLOR=#007700])
[/COLOR][color=#0000bb]Kill[/color][color=#007700]([/color][color=#0000bb]PDelD[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]End Sub
[/COLOR][/COLOR]
هنا بنقول انة يحذف الملف DeskTop.ini من مسار المجلد المطلوب
لأن برنامجنا يعتمد على اضافة الملف دة داخل المجلد المطلوب
كود :
[color=#000000][COLOR=#0000bb] FPd[/color][color=#007700].[/color][color=#0000bb]ShowDialog[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]Z [/color][color=#007700]= [/color][color=#0000bb]FPd[/color][color=#007700].[/color][COLOR=#0000bb]SelectedPath
PathD_OpJct[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#0000bb]Z
[/COLOR][/COLOR]
كود :
[color=#000000][COLOR=#0000bb] FoF[/color][color=#007700].[/color][color=#0000bb]ShowDialog[/color][COLOR=#007700]()
[/COLOR][color=#0000bb]A [/color][color=#007700]= [/color][color=#0000bb]FoF[/color][color=#007700].[/color][COLOR=#0000bb]FileName
ImagD_OpJct[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][COLOR=#0000bb]A
[/COLOR][/COLOR]
هنا ليختار المستخدم الصورة المطلوب , طبعـا تقدر تمنع اختيار اى ملف غير صورة jpg
جميل ندخل فى تنفيذ الكود
كود :
[COLOR=#000000][COLOR=#dd0000]'##############################
ImagD = ImagD_OpJct.Text
ToColorD = ToColorD_OpJct.Text
IcoF = IcoF_OpJct.Text
InfoTipD = InfoTipD_OpJct.Text
PathD = PathD_OpJct.Text
'[/COLOR][COLOR=#ff8000]##############################
[/COLOR][/COLOR]
هنـا بنقول ان المـتغير ImagD = ImagD_OpJct.Text
وهكذا ....
كود :
[COLOR=#000000][COLOR=#0000bb]
CFNoW[/COLOR][color=#007700].[/color][color=#0000bb]Text [/color][color=#007700]= [/color][color=#dd0000]"' Zager Chenged v4.3 ReCodeed ().NeT ,,,ADُs BY ZAGER" [/color][color=#007700]& [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][color=#dd0000]"' CodeEd In EgYpt" [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"' ---------------------"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][/COLOR]
هنا هنكتب النص اقتباس:
[TABLE="width: 100%"]
[TR]
[TD="class: alt2"]Zager Chenged v4.3 ReCodeed ().NeT ,,,ADُs BY ZAGER[/TD]
[/TR]
[/TABLE]
فى التكست وهو فقط لتعريف البرنامج وان هذا الملف خاص بتغيير خلفية المجلد
حتى لا يقوم المستخدم بحذفة وراح نخلية مخفى لكن بعدين المهم
كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]([/color][color=#dd0000]"[ExtShellFolderViews]"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"[{BE098140-A513-11D0-A3A4-00C04FD706EC}]"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"Attributes=1"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][/COLOR]
هنا بداية الكود
هنا نستدعى الكائن الخاص بالـ FolderViews
كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]([/color][color=#dd0000]"IconArea_Image="[/color][color=#007700]) & ([/color][color=#0000bb]ImagD[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"IconArea_Text=0x"[/color][color=#007700]) & ([/color][color=#0000bb]ToColorD[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][/COLOR]
هنا بنقول ان IconArea_Image وهى الخالصة بالصورة = ImagD المتغير الى عرفناة ..
وان IconArea_Text=0x و ToColorD المتغيير اللى عرفناة بس فى ملاحظة
هنا كتـبنا 0x مضافة إلى الكائن الخاص ببون الخط ليسهل عليـنا وضع الالوان بعد ذلك
طبعـآ مفتاح الهيكس هذا 0x وتيجى بعدها قيمة اللون
كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][color=#007700]([/color][color=#dd0000]"[.ShellClassInfo]"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"IconFile="[/color][color=#007700]) & ([/color][color=#0000bb]IcoF[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"IconIndex=0"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"InfoTip="[/color][color=#007700]) & ([/color][color=#0000bb]InfoTipD[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"ConfirmFileOp=0"[/color][color=#007700]) & [/color][color=#0000bb]vbCrLf [/color][color=#007700]& [/color][COLOR=#0000bb]_
[/COLOR][color=#007700]([/color][color=#dd0000]"[Generator]"[/color][COLOR=#007700])
[/COLOR][/COLOR]
هنا نستدعى الكائن ClassInfo
لنتمكن من الخصائص التالية
الايقونة
ومعلوماغت الملف (يعنى لما يجيى يقف بالفارة على المجلد تظهر المعلومات)
وبنقول ان
IconFile=IcoF
وهو المتغيير اللى عرفناة انة يساوى مسار الايقونة
InfoTip= InfoTipD
اعتقد واضح
وبكدة
كود :
[color=#000000][COLOR=#0000bb]Call FouD[/color][COLOR=#007700]()
[/COLOR][/COLOR]
لأستدعاء الامر .
كود :
[COLOR=#000000][COLOR=#0000bb]
FileSystem[/COLOR][color=#007700].[/color][color=#0000bb]FileOpen[/color][color=#007700]([/color][color=#0000bb]1[/color][color=#007700], [/color][color=#0000bb]PathD [/color][color=#007700]& [/color][color=#dd0000]"\DeskTop.ini"[/color][color=#007700], [/color][color=#0000bb]OpenMode[/color][color=#007700].[/color][color=#0000bb]Output[/color][COLOR=#007700])
[/COLOR][color=#0000bb]FileSystem[/color][color=#007700].Print([/color][color=#0000bb]1[/color][color=#007700], ([/color][color=#0000bb]CFNoW[/color][color=#007700].[/color][color=#0000bb]Text[/color][COLOR=#007700]))
[/COLOR][color=#0000bb]FileSystem[/color][color=#007700].[/color][color=#0000bb]FileClose[/color][COLOR=#007700]()
[/COLOR][/COLOR]
هنا نفتح ملف ونكتب فية المعلومات الى فى الـCFNoW.Text
ونسمية بــ DeskTop.ini
كود :
[color=#000000][COLOR=#0000bb] SetAttr[/color][color=#007700]([/color][color=#0000bb]PDelD[/color][color=#007700], [/color][color=#0000bb]FileAttribute[/color][color=#007700].[/color][color=#0000bb]Hidden [/color][color=#007700]+ [/color][color=#0000bb]FileAttribute[/color][color=#007700].[/color][color=#0000bb]System [/color][color=#007700]+ [/color][color=#0000bb]FileAttribute[/color][color=#007700].[/color][color=#0000bb]ReadOnly[/color][COLOR=#007700])
[/COLOR][/COLOR]
هنا نخلـى الملف مخفـى ...
طيب تعال نجرب ونشوف
نختار المجلد او الديسك
وبعد كتابة الملف بداخل المجلد المطلوب راح يكون مخفى وبة كل المعلومات بتاعتنا
وراح تلاقى ان المجلد اتغير على حسب اعدادتنا
الان اظهر الملفات اغلمخفية الخاصة بالنظام راح تلاقى الملف بتاعنا داخل المجلد بإسم
DeskTop.ini
افتحة راح تلاقى المعلومات التالية
كود :
[COLOR=#000000][COLOR=#0000bb]
[/COLOR][COLOR=#dd0000]' Zager Chenged v4.3 ReCodeed ().NeT ,,,ADُs BY ZAGER
' [/COLOR][color=#0000bb]CodeEd In EgYpt [/color][COLOR=#007700]---------------------
[[/COLOR][color=#0000bb]ExtShellFolderViews[/color][COLOR=#007700]]
{[/COLOR][color=#0000bb]BE098140[/color][color=#007700]-[/color][color=#0000bb]A513[/color][color=#007700]-[/color][color=#0000bb]11D0[/color][color=#007700]-[/color][color=#0000bb]A3A4[/color][color=#007700]-[/color][color=#0000bb]00C04FD706EC[/color][color=#007700]}={[/color][color=#0000bb]BE098140[/color][color=#007700]-[/color][color=#0000bb]A513[/color][color=#007700]-[/color][color=#0000bb]11D0[/color][color=#007700]-[/color][color=#0000bb]A3A4[/color][color=#007700]-[/color][color=#0000bb]00C04FD706EC[/color][COLOR=#007700]}
[{[/COLOR][color=#0000bb]BE098140[/color][color=#007700]-[/color][color=#0000bb]A513[/color][color=#007700]-[/color][color=#0000bb]11D0[/color][color=#007700]-[/color][color=#0000bb]A3A4[/color][color=#007700]-[/color][color=#0000bb]00C04FD706EC[/color][COLOR=#007700]}]
[/COLOR][color=#0000bb]Attributes[/color][color=#007700]=[/color][COLOR=#0000bb]1
IconArea_Image[/COLOR][color=#007700]=[/color][color=#0000bb]E[/color][color=#007700]:[/color][color=#0000bb]pictKoRaBiKaZageR[/color][color=#007700].[/color][COLOR=#0000bb]jpg
IconArea_Text[/COLOR][color=#007700]=[/color][COLOR=#0000bb]0x000000F0
[/COLOR][color=#007700][.[/color][color=#0000bb]ShellClassInfo[/color][COLOR=#007700]]
[/COLOR][color=#0000bb]IconFile[/color][COLOR=#007700]=
[/COLOR][color=#0000bb]IconIndex[/color][color=#007700]=[/color][COLOR=#0000bb]0
InfoTip[/COLOR][color=#007700]=[/color][COLOR=#0000bb]zager
ConfirmFileOp[/COLOR][color=#007700]=[/color][COLOR=#0000bb]0
[/COLOR][color=#007700][[/color][color=#0000bb]Generator[/color][COLOR=#007700]]
[/COLOR][/COLOR]
اتمنى يكون الشرح واضح
وأى سؤال انا حاضر بإذن الله
فى امان الله