[XVIMTO]

سلام عليكم ورحمة الله وبركاته ..

اخواني انا بعاني من مشكلة عدم اختفاء الـ cmd  وحليت المشكلة كما ترون في الكود ..
بس مشكلة ... مااعرف اجعل الامر في سطر واحد .. قمت بوضع اكثر من سطر وتغير المتغير ..
وهذه الطريقة  متعبة جدا .. بحيث ان الاكواد .. اكثر من اللي في الصورة ..
ارجو  من المحترفين مساعدتي في اختصار الاوامر ...
يعني مثلا دمج المتغيرات .. ps1 >> ps2 >> ps3
او اي طريقة تختصر على الشغل . الله يعطيكم العافية .


الكود vb.net >>>

[XVIMTO]

ننتظر المساعدة

[سعود]

وعليكم السلام ورحمة الله وبركاته
بغض النظر عن الفكرة الاساسية لديك.
ضع الاوامر في مصفوفة وقم باستخدام For لتنفيذ تلك الاوامر.

[XVIMTO]

اخوي سعود اشرح لي تكفى

[سعود]

اكتب الاوامر بملف نصي وارفعه او اكتبه ضمن المشاركة عشان اجهز مثال

[XVIMTO]

(02-12-20, 03:26 PM)سعود كتب : اكتب الاوامر بملف نصي وارفعه او اكتبه ضمن المشاركة عشان اجهز مثال

هذي الاوامر اخوي سعود رفعتها


الاوامـــــــــــــــــــــر

[سعود]

عرف متغير على مستوي الفورم

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 


لم اجرب التشغيل لا اظن البرامج لدي والله اعلم لكن باذن الله فيها المطلوب خصوصا انك تود الاختصار فقط.

تم تحديث المشاركة .

[XVIMTO]

(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 


لم اجرب التشغيل لا اظن البرامج لدي والله اعلم لكن باذن الله فيها المطلوب خصوصا انك تود الاختصار فقط.

خطأ ..  هل يمكن ان ترفق السورس ؟
هذا رابط السورس الخاص بي ...  هنا

---

[سعود]

راجع مشاركتي بشكل جيد ففيه خطوتين لم تكتبهم بل كررت خطوة واحدة.

[XVIMTO]

(02-12-20, 04:00 PM)سعود كتب : راجع مشاركتي بشكل جيد ففيه خطوتين لم تكتبهم بل كررت خطوة واحدة.

اي صح ي سعود يالبى قلبك ي شيخ ..