+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ساعدوني ياشباب - اختصار التكرار (/showthread.php?tid=37091)
الصفحات:
1
2
ساعدوني ياشباب - اختصار التكرار - XVIMTO - 02-12-20
سلام عليكم ورحمة الله وبركاته ..
اخواني انا بعاني من مشكلة عدم اختفاء الـ cmd وحليت المشكلة كما ترون في الكود ..
بس مشكلة ... مااعرف اجعل الامر في سطر واحد .. قمت بوضع اكثر من سطر وتغير المتغير ..
وهذه الطريقة متعبة جدا .. بحيث ان الاكواد .. اكثر من اللي في الصورة ..
ارجو من المحترفين مساعدتي في اختصار الاوامر ...
يعني مثلا دمج المتغيرات .. ps1 >> ps2 >> ps3
او اي طريقة تختصر على الشغل . الله يعطيكم العافية .
الكود vb.net >>>
RE: ساعدوني ياشباب - اختصار التكرار - XVIMTO - 02-12-20
ننتظر المساعدة
RE: ساعدوني ياشباب - اختصار التكرار - سعود - 02-12-20
وعليكم السلام ورحمة الله وبركاته
بغض النظر عن الفكرة الاساسية لديك.
ضع الاوامر في مصفوفة وقم باستخدام For لتنفيذ تلك الاوامر.
RE: ساعدوني ياشباب - اختصار التكرار - XVIMTO - 02-12-20
اخوي سعود اشرح لي تكفى
RE: ساعدوني ياشباب - اختصار التكرار - سعود - 02-12-20
اكتب الاوامر بملف نصي وارفعه او اكتبه ضمن المشاركة عشان اجهز مثال
RE: ساعدوني ياشباب - اختصار التكرار - XVIMTO - 02-12-20
(02-12-20, 03:26 PM)سعود كتب : اكتب الاوامر بملف نصي وارفعه او اكتبه ضمن المشاركة عشان اجهز مثال
هذي الاوامر اخوي سعود رفعتها
الاوامـــــــــــــــــــــر
RE: ساعدوني ياشباب - اختصار التكرار - سعود - 02-12-20
عرف متغير على مستوي الفورم
PHP كود :
Dim lst As New List(Of String)
ثم عند تحميل الفورم اكتب الاسنادات:
PHP كود :
lst.Add("/c taskkill.exe /f /t /im tp3helper.dat")
lst.Add("/c taskkill.exe /f /t /im androidemulator.exe")
lst.Add("/c taskkill.exe /f /t /im aow_exe.exe")
PHP كود :
Dim i As Integer
For i = 0 To lst.Count - 1
Dim ps1 As New ProcessStartInfo("cmd.exe", lst(i))
ps1.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(ps1)
Next
تم تحديث المشاركة .
RE: ساعدوني ياشباب - اختصار التكرار - XVIMTO - 02-12-20
(02-12-20, 03:43 PM)سعود كتب : عرف متغير على مستوي الفورم
Dim lst As New List(Of String)
ثم عند تحميل الفورم اكتب الاسنادات:
ثم بحدث زر تكتبPHP كود :
lst.Add("/c taskkill.exe /f /t /im tp3helper.dat")
lst.Add("/c taskkill.exe /f /t /im androidemulator.exe")
lst.Add("/c taskkill.exe /f /t /im aow_exe.exe")
لم اجرب التشغيل لا اظن البرامج لدي والله اعلم لكن باذن الله فيها المطلوب خصوصا انك تود الاختصار فقط.PHP كود :
Dim i As Integer
For i = 0 To lst.Count - 1
Dim ps1 As New ProcessStartInfo("cmd.exe", lst(i))
ps1.WindowStyle = ProcessWindowStyle.Hidden
Process.Start(ps1)
Next
خطأ .. هل يمكن ان ترفق السورس ؟
هذا رابط السورس الخاص بي ... هنا
RE: ساعدوني ياشباب - اختصار التكرار - سعود - 02-12-20
راجع مشاركتي بشكل جيد ففيه خطوتين لم تكتبهم بل كررت خطوة واحدة.
RE: ساعدوني ياشباب - اختصار التكرار - XVIMTO - 02-12-20
(02-12-20, 04:00 PM)سعود كتب : راجع مشاركتي بشكل جيد ففيه خطوتين لم تكتبهم بل كررت خطوة واحدة.
اي صح ي سعود يالبى قلبك ي شيخ ..