مشروع مافكسبي 2003 ب C#

شكرا على هدا الحماس انا لا اطلب المشاركه في الدلفي

اضن ان المشروع واضح في شرحه وان كان هناك سؤال انا هنا .

مراحل المشروع

1- جمع الميتودات الخاصة بتنفيذ API او تعليمات أخرى القائمة أسفله

مثلا

 


        [color= #000000; font-weight: bold;]public Boolean DelFolder[color= #009900;](String iFld[color= #009900;])

        [color= #009900;]{

            try

            [color= #009900;]{[color= #666666; font-style: italic;]// حذف دليل مع كل محتوياته 

                [color= #990000;]System[color= #339933;].IO[color= #339933;].Directory[color= #339933;].Delete[color= #009900;](iFld[color= #339933;], [color= #000000; font-weight: bold;]true[color= #009900;])[color= #339933;];

                [color= #b1b100;]return [color= #000000; font-weight: bold;]true[color= #339933;];

            [color= #009900;]}

            catch [color= #009900;](Exception exc[color= #009900;])

            [color= #009900;]{

                Console[color= #339933;].WriteLine[color= #009900;]([color= #0000ff;]"خطأ لايمكنك الحذف"[color= #339933;], iFld[color= #339933;], exc[color= #339933;].Message[color= #009900;])[color= #339933;];

                [color= #b1b100;]return [color= #000000; font-weight: bold;]false[color= #339933;];

            [color= #009900;]}

        [color= #009900;]}

public Boolean CreatFolder(String iFld)

public Boolean CopyFolder(String FromFld, String ToFld)

public Boolean IsEmptyFolder(String iFld)

public int CopyAllFile(String FromFld, string ToFld)

 

        [color= #000000; font-weight: bold;]public List[color= #339933;]<string[color= #339933;]> WMIListePID[color= #009900;](String iPCName[color= #009900;])

        [color= #009900;]{

            [color= #b1b100;]for [color= #009900;](int j [color= #339933;]= [color= #cc66cc;]0[color= #339933;]; vListPid[color= #339933;].[color= #990000;]Count [color= #339933;]- [color= #cc66cc;]1[color= #339933;]; j[color= #339933;]++[color= #009900;])

            [color= #009900;]{

                WMIStopProcess[color= #009900;](iPCName[color= #339933;], Convert[color= #339933;].ToInt32[color= #009900;](vListPid[color= #009900;][j[color= #009900;]][color= #009900;])[color= #009900;])[color= #339933;];

            [color= #009900;]}

        [color= #009900;]}

 [color= #000000; font-weight: bold;]public Boolean CreatFolder[color= #009900;](String iFld[color= #009900;])

         [color= #009900;]{

             try

             [color= #009900;]{

                 [color= #990000;]System[color= #339933;].IO[color= #339933;].Directory[color= #339933;].CreateDirectory[color= #009900;](iFld[color= #009900;])[color= #339933;];

                 [color= #b1b100;]return [color= #000000; font-weight: bold;]true[color= #339933;];

             [color= #009900;]}

             catch [color= #009900;](Exception exc[color= #009900;]) 

             [color= #009900;]{ 

                 Console[color= #339933;].WriteLine[color= #009900;]([color= #0000ff;]"خطأ لايمكنك انشاء"[color= #339933;], iFld[color= #339933;], exc[color= #339933;].Message[color= #009900;])[color= #339933;]; 

                 [color= #b1b100;]return [color= #000000; font-weight: bold;]false[color= #339933;]; 

             [color= #009900;]}

         [color= #009900;]}

 [color= #000000; font-weight: bold;]public int CopyAllFile[color= #009900;](String FromFld[color= #339933;], string ToFld[color= #009900;])

[color= #009900;]{

try

[color= #009900;]{

int FilesCounter [color= #339933;]= [color= #cc66cc;]0[color= #339933;];

string[color= #009900;][[color= #009900;]] FileCollection [color= #339933;]= [color= #990000;]System[color= #339933;].IO[color= #339933;].Directory[color= #339933;].GetFiles[color= #009900;](FromFld[color= #009900;])[color= #339933;];

 

[color= #b1b100;]foreach [color= #009900;](string FilePath in FileCollection[color= #009900;])

[color= #009900;]{

FilesCounter[color= #339933;]++;

string[color= #009900;][[color= #009900;]] FileName [color= #339933;]= FilePath[color= #339933;].[color= #990000;]Split[color= #009900;]([color= #000000; font-weight: bold;]new char[color= #009900;][[color= #009900;]] [color= #009900;]{ [color= #0000ff;]'[color= #000099; font-weight: bold;]' });

[color= #0000ff;]string DestfileName = System.IO.Directory.GetCurrentDirectory();

[color= #0000ff;]DestfileName += "[color= #000099; font-weight: bold;]" + ToFld + "[color= #000099; font-weight: bold;]" + FileName[1];

[color= #0000ff;]//System.IO.File.Copy(FilePath, FestfileName);

[color= #0000ff;]System.IO.File.Delete(DestfileName);

[color= #0000ff;]System.IO.File.Copy(FilePath, DestfileName);

[color= #0000ff;]}

[color= #0000ff;]return FilesCounter;

[color= #0000ff;]}

[color= #0000ff;]catch (Exception ex)

[color= #0000ff;]{

[color= #0000ff;]//Console.WriteLine("خطأ لايمكنك نسخ الملفات الي", ToFld, exc.Message);

[color= #0000ff;]Console.WriteLine("خطأ لايمكنك نسخ الملفات الي", ToFld, ex.Message);

[color= #0000ff;]return -1; 

[color= #0000ff;]}

[color= #0000ff;]}

  [color= #000000; font-weight: bold;]public Boolean IsEmptyFolder[color= #009900;](String iFld[color= #009900;])

         [color= #009900;]{

             string [color= #009900;][[color= #009900;]]subDirectories [color= #339933;]= [color= #990000;]System[color= #339933;].IO[color= #339933;].Directory[color= #339933;].GetDirectories[color= #009900;](iFld[color= #009900;])[color= #339933;];

             string[color= #009900;][[color= #009900;]] Files [color= #339933;]= [color= #990000;]System[color= #339933;].IO[color= #339933;].Directory[color= #339933;].GetFiles[color= #009900;](iFld[color= #009900;])[color= #339933;];

 

             [color= #b1b100;]if [color= #009900;](subDirectories[color= #339933;].Length [color= #339933;]== [color= #cc66cc;]0 [color= #339933;]&& Files[color= #339933;].Length [color= #339933;]== [color= #cc66cc;]0[color= #009900;])

             [color= #009900;]{

                 [color= #b1b100;]return [color= #000000; font-weight: bold;]false[color= #339933;];

             [color= #009900;]}

             [color= #b1b100;]else

             [color= #009900;]{

                 [color= #b1b100;]return [color= #000000; font-weight: bold;]true[color= #339933;];

             [color= #009900;]}

 

         [color= #009900;]}

   [color= #000000; font-weight: bold;]public Boolean CopyFolder[color= #009900;](String FromFld[color= #339933;], String ToFld[color= #009900;])

        [color= #009900;]{

            try

            [color= #009900;]{

                [color= #990000;]System[color= #339933;].IO[color= #339933;].Directory[color= #339933;].CreateDirectory[color= #009900;](ToFld[color= #009900;])[color= #339933;];

                int [color= #990000;]count [color= #339933;]= CopyAllFile[color= #009900;](FromFld[color= #339933;], ToFld[color= #009900;])[color= #339933;];

 

                string[color= #009900;][[color= #009900;]] subDirectories [color= #339933;]= [color= #990000;]System[color= #339933;].IO[color= #339933;].Directory[color= #339933;].GetDirectories[color= #009900;](FromFld[color= #009900;])[color= #339933;];

                [color= #b1b100;]foreach [color= #009900;](string folder in subDirectories[color= #009900;])

                [color= #009900;]{

                    string[color= #009900;][[color= #009900;]] folderName [color= #339933;]= folder[color= #339933;].[color= #990000;]Split[color= #009900;]([color= #000000; font-weight: bold;]new char[color= #009900;][[color= #009900;]] [color= #009900;]{ [color= #0000ff;]'[color= #000099; font-weight: bold;]' });

[color= #0000ff;]                    string path2 = ToFld + "[color= #000099; font-weight: bold;]" + folderName[folderName.Length - 1];

[color= #0000ff;]                    bool isCopy = CopyFolder(folder, path2);

[color= #0000ff;]                }

[color= #0000ff;]                return true;

[color= #0000ff;]            }

[color= #0000ff;]            catch (Exception ex)

[color= #0000ff;]            {

[color= #0000ff;]                Console.WriteLine("خطأ لايمكنك النسخ", FromFld, ex.Message);

[color= #0000ff;]                return false; 

[color= #0000ff;]            }

 

[color= #0000ff;]        }

ب) - ميتود تعمل على WMI

*-: متود يقوم بغلق كل برامج Office الوارد الاكسل ....الخ

StopProcessOffice(string iPCName);

الهدف : لانستطيع القيام بالغاء التثبيت عندما تكون احد البرامج مشغلة وهذا يحصل غالبا .

الفكرة :

*- استرجاع لائحة البروسس اي قائمة البرامج الموجودة في Task Manager باستعمال الوظيفة

 WMIListePID( string iPCName )

*- البحث عن برامج office اي

- 'NAME = WINWORD.EXE'

- 'NAME = MSACCESS.EXE'

- 'NAME = POWERPNT.EXE'

- 'NAME = EXCEL.EXE'

- 'NAME = POTOED.EXE

- 'NAME = OUTLOOK.EXE'

في هذه القائمة

*- وضعPID لكل برنامج مفتوح في vListPid هي متغيرة من نوع TStringList

*- انشاء حلقة تكرارية لغلق اليرامج الموجود رقمها اي PID في القائمة vListPid

اظن ان الامر واضح

ان كان هناك سؤال انا في الخدمة

علما ان اسم الجهاز نمرره في الحين كمتغيرة وان شاء الله المرة القادمه اوضح كيف استرجاع اسماء الاجهزه المرتبطة بالشبكة عن طريق IP

</br >

        [color= #000000; font-weight: bold;]private string GetPcName[color= #009900;]([color= #009900;])

        [color= #009900;]{

            [color= #990000;]System[color= #339933;].Management[color= #339933;].ManagementObjectSearcher searcher [color= #339933;]= [color= #000000; font-weight: bold;]new [color= #990000;]System[color= #339933;].Management[color= #339933;].Managem
entObjectSearcher[color= #009900;]([color= #0000ff;]"select NAME from win32_processor"[color= #009900;])[color= #339933;];

            [color= #b1b100;]foreach [color= #009900;](ManagementObject name in searcher[color= #339933;].Get[color= #009900;]([color= #009900;])[color= #009900;])

            [color= #009900;]{

                [color= #b1b100;]return [color= #339933;]= [color= #009900;](name[color= #009900;][[color= #0000ff;]"Name"[color= #009900;]][color= #339933;].ToString[color= #009900;]([color= #009900;])[color= #009900;])[color= #339933;];

            [color= #009900;]}

        [color= #009900;]}