تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تشغيل برنامج خارجي أو فتح ملف مرتبط ببرنامج معين من ضمن كود فيجول بايزيك دوت نيت
#1
كاتب الموضوع : samerselo

مقدمة
كنا أيام VB6 نستخدم الأمر Shell لتشغيل برنامج خارجي فمثلا لتشغيل الآلة الحاسبة كنا نستخدم الكود

كود :
Shell("calc.exe")
ولكن مع تطور لغة البايزك ومع قدوم الدوت نيت تم تقديم طريقة جديدة لتشغيل برنامج خارجي عن طريق Process.Start حيث يمكننا تشغيل الآلة الحاسبة باستخدام الوظيفة الجديدة وبكود مكافئ للكود السابق

كود :
Process.Start("calc.exe")
إضافة إلى أن الأمر Shell موجود ضمن مجال الأسماء Microsoft.VisualBasic الموجود بغرض التوافقية المرجعية مع VB6 ولاينصح باستخدام الأوامر الموجودة في مجال الأسماء المذكور وذلك لتوفر بدائل أفضل وأكثر قوة عن تلك الموجودة فيه إضافة إلى أننا لانضمن متى تقوم مايكروسوفت بإلغاء دعم التوافقية مع VB6
ولكن ماذا لو احتجنا لتنفيذ سطر أوامر طويل أو معقد بالطبع ستقولون لي بأنه من الصعب تنفيذه باستخدام أي من الكودين السابقين لهذا أتت الوظيفة Process.Start بعدة أشكال وذلك لتلبية متطلبات المبرمج المختلفة وفيما يلي بعض الأمثلة عن الوظيفة Start

كود :
' Start Internet Explorer. Defaults to the home page.
Process.Start("IExplore.exe")

' Start a Web page using a browser associated with .html and .asp files.
Process.Start("IExplore.exe", "C:\myPath\myFile.htm")

' Open web site using IE
Process.Start("IExplore.exe", "www.aya.sy")

' OpenWithStartInfo()
Dim startInfo As New ProcessStartInfo("IExplore.exe")
startInfo.WindowStyle = ProcessWindowStyle.Minimized
Process.Start(startInfo)
startInfo.Arguments = "www.northwindtraders.com"
Process.Start(startInfo)
نلاحظ من المثال الأول أننا قمنا بتمرير اسم البرنامج فقط للوظيفة حتى يتم تشغيله وفي المثال الثاني نريد تمرير ملف للمتصفح ليفتحه فقمنا بتمرير اسم الملف التنفيذي لمتصفح الانترنت في المحدد الأول للوظيفة وفي المحدد الثاني نضع محددات سطر الأوامر الخاصة بالبرنامج الذي نريد تشغيله – متصفح الانترنت - وفي مثالنا هنا اسم الملف الذي نريد فتحه مع مساره الكامل وقد نريد فتح موقع انترنت محدد فعندها نضبط قمية المحدد الثاني إلى عنوان ذلك الموقع كما في المثال الثالث وفي المثال الأخير قمنا بتمرير متغير من النوع ProcessStartInfo للوظيفة Start كمحدد وحيد وذلك بعد ضبط الخصائص المناسبة فقد تم تمرير اسم البرنامج كمحدد للباني ثم تم تحديد قيمة الخاصية WindowStyle إلى Minimized وذلك يؤدي إلى تشغيل البرنامج بنافذة مصغرة وتم تحديد قيمة الخاصية Arguments التي تستخدم لتمرير محددات سطر الأوامر إلى التطبيق المراد تشغيله إلى عنوان الموقع الذي نريد فتحه
الفئة ProcessStartInfo
تستخدم هذه الفئة لتحديد خصائص العملية التي نريد تشغيلها وهي تمتلك العديد من الخصائص المفيدة التي تساعدنا على القيام بالمهام المختلفة التي يتطلبها تشغيل عملية – برنامج – ما وفيما يلي استعراض لأهم خصائص هذه الفئة
نبدأ أولا بباني الفئة الذي يأتي بثلاثة صيغ

كود :
ProcessStartInfo()
ProcessStartInfo(String)
ProcessStartInfo(String, String)
فالصيغة الأولى تستخدم لإنشاء متغير من النوع ProcessStartInfo دون أن يتم تمرير أي قيمة لها والثانية يتم تمرير قيمة نصية وحيدة لها هي عبارة عن اسم العملية أو الملف التنفيذي للتطبيق المراد تشغيله والصيغة الأخيرة يتم تمرير محددين نصيين لها الأول عبارة عن اسم العملية أو الملف التنفيذي للتطبيق والمحدد الثاني عبارة عن محددات سطر الأوامر الخاصة بالتطبيق المراد تشغيله. وفيما يلي سرد لأهم خصائص الفئة ProcessStartInfo
• Arguments تحمل قيمة نصية تمثل محددات سطر الأوامر للتطبيق الذي نريد تشغيله
• CreateNoWindow هي قيمة منطقية تشير إلى هل يجب أن يتم تشغيل التطبيق في نافذة جديدة وتكون قيمتها الافتراضية False
• ErrorDialog وهي عبارة عن قيمة منطقية تحدد وجوب إظهار رسالة خطأ في حالة عدم التمكن من تشغيل العملية
• FileName وهي قيمة نصية تحدد اسم ملف البرنامج أو الوثيقة التي سيتم تشغيلها
• LoadUserProfile وهي قيمة منطقية تحدد فيما إذا كان يجب أن يتم تحميل التشكيل الجانبي للمستخدم من سجل النظام
• Password وهي سلسلة نصية تحوي على كلمة السر المستخدمة لبدء العملية
• UserName وهي قيمة نصية تحوي اسم المستخدم المستخدم لبدء العملية
• UseShellExecute وهي قيمة منطقية تحدد فيما إذا كان سيتم استخدام قشرة النظام System Shell لبدء العملية وقيمتها الافتراضية True
• Verb وهي قيمة نصية تحدد العمل الذي سيتم تنفيذه عند بدء العملية والقيمة الافتراضية سلسلة نصية فارغة وفي حالة كونها فارغة يتم تنفيذ العمل الافتراضي المرتبط بذلك الملف
• Verbs وهي عبارة عن مصفوفة قيم نصية تشكل قائمة بالأعمال المرتبطة مع الملف المحدد في الخاصية FileName
• WindowStyle وهي تحمل قيمة ProcessWindowStyle تحدد كيف سيتم إظهار النافذة ويكون لها إحدى القيم Normal أو Hidden أو Minimized أو Maximized
• WorkingDirectory وهي سلسلة نصية تتضمن مسار مجلد العمل الخاص بالتطبيق الذي سيتم تشغيله
ويمكنك الإطلاع على باقي خصائص الفئة ProcessStartInfo من مكتبة MSDN المرفقة مع فيجول ستوديو أو من موقع MSDN الخاص بمايكروسوفت
استخدام ProcessStartInfo مع Process.Start عمليا
لطباعة مستند نصي مثلا إلى الطابعة يمكننا استخدام الكود التالي الذي نحدد فيه الخاصية FileName إلى اسم ملف نصي متواجد في مكان ما على القرص ونحدد الخاصية Verb إلى القيمة Print ثم نستدعي Process.Start

كود :
Dim Psi As New ProcessStartInfo
With Psi
.FileName = "D:\Temp\UNTITLED.TXT"
.Verb = "print"
End With
Process.Start(Psi)
ولإظهار الأعمال المرتبطة بهذا الملف

كود :
For Each ve In Psi.Verbs
MsgBox(ve.ToString)
Next
ولفتح الملف عوضا عن طباعته نغير قيمة الخاصية Verb في الكود السابق إلى Open كما يلي

كود :
Dim Psi As New ProcessStartInfo
With Psi
.FileName = "D:\Temp\UNTITLED.TXT"
.verb = "open"
End With
Process.Start(Psi)
ولفتح ملف نصي باستخدام المفكرة وجعل نافذة المفكرة في وضع التكبير نستخدم الكود التالي

كود :
Dim Psi As New ProcessStartInfo
With Psi
.FileName = "Notepad.exe"
.Arguments = "D:\Temp\UNTITLED.TXT"
.WindowStyle = ProcessWindowStyle.Maximized
End With
Process.Start(Psi)
حيث حددنا اسم الملف التنفيذي للتطبيق – المفكرة هنا – في الخاصية FileName وحددنا اسم الملف الذي نريد فتحه في الخاصية Arguments الخاصة بمحددات سطر الأوامر للتطبيق المذكور اسمه في الخاصية FileName ثم حددنا أن المفكرة يجب أن يتم تشغيلها في وضع تكبير النافذة للحد الأقصى وذلك بضبط الخاصية WindowStyle إلى القيمة ProcessWindowStyle.Maximized ثم قمنا ببدء التطبيق – المفكرة – وذلك باستدعاء الوظيفة Process.Start ممررا لها محددا وحيدا هو Psi الذي عرفناه من النوع ProcessStartInfo
وفيما يلي مثال آخر قد يبدو معقدا قليلا ولكن يمكن شرحه بسهولة باستخدام المعلومات الواردة هنا فقد دار بيني وبين أحد الإخوة نقاش حول بناء الملف التنفيذي للمشروع دون الاعتماد على بيئة التطوير وكان الحل هو باستخدام الأمر MSBuild الذي يأتي مع الفريموورك وهذا الأمر له العديد من محددات بدء التشغيل ونريد أن نقوم بالتنفيذ بشكل مخفي ثم نقوم بإظهار ملف نتيجة عملية البناء بعد إنتهائها وهذا هو الكود مدعما ببعض التعليقات باللغة العربية

كود :
' جلب مجلد الويندوز
Dim windir = System.Environment.ExpandEnvironmentVariables("%SYSTEMROOT%")

' تحديد متغير معلومات بدء تشغيل العملية
Dim pri As New ProcessStartInfo
With pri
' تحديد مجلد العمل
.WorkingDirectory = "D:\Temp\DisksArchive"
' تحديد الأمر الذي نود تنفيذه
.FileName = windir & "\Microsoft.NET\Framework\v3.5\MSBuild.exe"
' تحديد محددات سطر الأوامر من إنشاء ملف بالنتيجة وتحديد اسم المشروع الذي ستتم ترجمته
.Arguments = "/l:FileLogger,Microsoft.Build.Engine;logfile=ActivityLog.txt DisksArchive.sln"
' تحديد أن نافذة التشغيل ستكون مخفية كي لايرى المستخدم نافذة الكونسول
.WindowStyle = ProcessWindowStyle.Hidden
End With
' بدء تشغيل العملية
Dim pr = Process.Start(pri)
' انتظار العملية حتى يكتمل تنفيذها وتخرج
pr.WaitForExit()
' تغيير المحددات كي نظهر ملف النتائج
With pri
' تحديد أن البرنامج الذي سينفذ هو المفكرة
.FileName = Environment.SystemDirectory & "\notepad.exe"
' تحديد اسم الملف الذي نود فتحه
.Arguments = "ActivityLog.txt"
' تحديد أن النافذة يجب أن تظهر بالوضع الطبيعي
.WindowStyle = ProcessWindowStyle.Normal
End With
' بدء تشغيل العملية
Process.Start(pri)
النقطة الوحيدة في هذا الكود الغير مشروحة هنا هو أن الوظيفة Process.Start عند نجاحها في بدء تشغيل العملية تعيد قيمة من النوع System.Diagnostics.Process حيث نضع هذه القيمة في متغير يمكننا من الاستفادة من خصائص الفئة Process المعادة وهنا استخدمنا الوظيفة WaitForExit التي توقف تنفيذ الكود حتى تنتهي العملية من التنفيذ وتخرج وبعدها يتم معاودة تنفيذ باقي أسطر الكود كما يمكننا الاستفادة من العديد من الخصائص الأخرى للفئة Process مثل ExitCode التي تعيد القيمة المعادة من العملية عند انتهائها
}}}}
تم الشكر بواسطة:
#2

أمثلة إضافية


إذا أردنا فتح موقع على الويب باستخدام المتصفح الافتراضي

باستخدام Process.start يمكننا عمل ذلك مباشرة

كود :
Process.Start("www.aya.sy")
وبطريقة ProcessStartInfo

كود :
Process.Start(New ProcessStartInfo("www.aya.sy"))
والسبب في ذلك أن الوظيفة Process.Start ذكية بحيث يمكنها تشغيل أي ملف - وثيقة وورد مثلا أو عنوان موقع انترنت - باستخدام البرنامج الافتراضي المرتبط به مباشرة
فلكي نقوم بفتح ملف docx مثلا باستخدام البرنامج الافتراضي المرتبطه به وهو في هذه الحالة Word 2007 يكفي أن نمرر اسم الملف مع المسار الكامل له

كود :
Process.Start("C:\Users\SamerSelo\Documents\أطباق متنوعة.docx")
إذا أردنا إرسال بريد الكتروني لبريد ما مثلا "info@aya.sy" يمكننا عمل ذلك أيضا باستخدام Process.Start الذي يفتح لنا محرر البريد الالكتروني الافتراضي عند تمرير عنوان البريد الالكتروني لتلك الوظيفة مثال

كود :
Process.Start("mailto:info@aya.sy")
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] شرح انشاء برنامج لتسجيل الدخول للمنتدى CLARO 2 439 27-10-16, 04:03 PM
آخر رد: rafaag777
  طباعة بيانات موجودة في برنامج على ( 2003 Microsoft Office Word ) abulayth 1 281 11-09-16, 07:20 AM
آخر رد: أبووسم
Information تحميل برنامج الفيجوال بيسك 2010 download visual basic 2010 mohamed atef2018 0 263 09-07-16, 08:30 PM
آخر رد: mohamed atef2018
  العلاقات بين الجداول-الاضافة و الحذف و التعديل-برنامج لحفظ مصادر الموقع ابو ليلى 10 889 23-06-16, 01:13 PM
آخر رد: yasser_72
  شرح انشاء برنامج تحويل صيغ الملفات الصوتيه CLARO 9 327 02-06-16, 11:13 AM
آخر رد: CLARO
  [مشروع] مشروع برنامج لتشغيل ملفات mp3 alking-0999 1 395 01-06-16, 10:20 PM
آخر رد: CLARO
  شرح انشاء برنامج دردشة بسيط CLARO 0 252 28-05-16, 02:24 PM
آخر رد: CLARO
  طريقة تشغيل كريستال ريبورت بجميع ادارات فيجول نت abdhassan 2 328 28-05-16, 02:16 PM
آخر رد: CLARO
  [درس فيديو] تشغيل اوامر Run من البرنامج & مثال غلق الويندوز بعد وقت محدد باستخدام VB.net أحمد النجار 1 543 23-12-15, 04:26 AM
آخر رد: الماجيك مسعد
Wink عمل برنامج فك الضغط alking-0999 0 302 20-12-15, 06:32 PM
آخر رد: alking-0999

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم