تمت الإجابة استدعاء وتشغيل ملف بعد فتره من تشغيل البرنامج

تم تحميل الصفحة في 0,2061416 ثانية
استدعاء وتشغيل ملف بعد فتره من تشغيل البرنامج
الحالة
مغلق و غير مفتوح للمزيد من الردود.
إنضم
7 أكتوبر 2013
المشاركات
1,354
الإعجابات
1,377
النقاط
113
الإقامة
أ‌أµأ،أ“أ²أکأµأأ¤ ~
اريد كود

استدعاء ملف و تشغيله بعد فترة عند تشغيل البرنامج مباشرة


مثال

"

Private Sub Button2_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Dim psi As New _
System.Diagnostics.ProcessStartInfo("C:\listfiles.bat")
psi.RedirectStandardOutput = True
psi.WindowStyle = ProcessWindowStyle.Hidden
psi.UseShellExecute = False
Dim listFiles As System.Diagnostics.Process
listFiles = System.Diagnostics.Process.Start(psi)
Dim myOutput As System.IO.StreamReader _
= listFiles.StandardOutput
listFiles.WaitForExit(2000)
If listFiles.HasExited Then
Dim output As String = myOutput.ReadToEnd
Debug.WriteLine(output)
End If
End Sub

"

ولكن هذا المثال يقوم باستدعاء الملف وتشغيله عند الضغط على " button "

انا اريد نفس الكود ولكن يعمل عند تشغيل البرنامج تلقائياً
وشكراً
 
إنضم
8 سبتمبر 2013
المشاركات
7,971
الإعجابات
11,895
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
اريد كود

استدعاء ملف و تشغيله بعد فترة عند تشغيل البرنامج مباشرة


مثال

"

Private Sub Button2_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Dim psi As New _
System.Diagnostics.ProcessStartInfo("C:\listfiles.bat")
psi.RedirectStandardOutput = True
psi.WindowStyle = ProcessWindowStyle.Hidden
psi.UseShellExecute = False
Dim listFiles As System.Diagnostics.Process
listFiles = System.Diagnostics.Process.Start(psi)
Dim myOutput As System.IO.StreamReader _
= listFiles.StandardOutput
listFiles.WaitForExit(2000)
If listFiles.HasExited Then
Dim output As String = myOutput.ReadToEnd
Debug.WriteLine(output)
End If
End Sub

"

ولكن هذا المثال يقوم باستدعاء الملف وتشغيله عند الضغط على " button "

انا اريد نفس الكود ولكن يعمل عند تشغيل البرنامج تلقائياً
وشكراً
تتكلم جد ..!!؟

انسخ الكود نفسة من الـButton و حطه في الـForm1 .. يشتغل مباشرة مع تشغيل البرنامج
 
إنضم
20 أكتوبر 2017
المشاركات
608
الإعجابات
405
النقاط
63
مبين انك مبتدئ
انسخ الكود وضعة في form1
ويشتغل مع تشغيل البرنامج
او اذا بتريد
ضع بعد كود
me.hide
لاخفاء البرنامج وتشغيل البرنامج المستدعي
 

IRizerX

.:: مُشرف أقسام البرمجة ::.
rankrank
إنضم
25 مايو 2017
المشاركات
378
الإعجابات
558
النقاط
93
kنفس ماقالو لك الاخوه انسخ الكود وضعه في الفورم لود
واذا تبي الفورم يتأخر في الظهور وتنفيذ الكود تقدر تستخدم مكتبة System.Threading
واستدعاء فنكشن Thrad.Sleep(عدد الثواني)
قبل الكود

كل 1000 تعني ثانيه واحدة

بالتوفيق
 

kasp3r

ExpErt DeveloPer
rankrankrankrank
إنضم
15 أغسطس 2017
المشاركات
1,190
الإعجابات
1,029
النقاط
198
تتكلم جد ..!!؟

انسخ الكود نفسة من الـButton و حطه في الـForm1 .. يشتغل مباشرة مع تشغيل البرنامج
مبين انك مبتدئ
انسخ الكود وضعة في form1
ويشتغل مع تشغيل البرنامج
او اذا بتريد
ضع بعد كود
me.hide
لاخفاء البرنامج وتشغيل البرنامج المستدعي
ما انتو كنت مكانه شوي شوي على الرجال
هههههههههههههه
 
إنضم
8 سبتمبر 2013
المشاركات
7,971
الإعجابات
11,895
النقاط
168
الإقامة
Live.IQ(JO => JO.AMMAN)
يا اخوان صح اني مبتدئ بس الشغلة بدهااش ذكاء لحتى اعرف

جربت وطلع خطأ وما عرفت الحل
ففكرت الكود ما بزبط او ناقص شي
اكتب في الاخير End Class
 
إنضم
20 أكتوبر 2017
المشاركات
608
الإعجابات
405
النقاط
63
إنضم
20 أكتوبر 2017
المشاركات
608
الإعجابات
405
النقاط
63

Ahmed Al'jabari

إداري أقسام البرمجة
rankrankrankrank
إنضم
24 يونيو 2017
المشاركات
1,773
الإعجابات
1,545
النقاط
123
الإقامة
iraq
كود:
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim thread4 As New System.Threading.Thread(New Threading.ThreadStart(AddressOf ahmed))
        thread4.Start()
    End Sub
    
    public sub ahmed
    system.threading.thread.sleep(1000)
    '1000 = 1 Sec
    'Your Code
    end sub
 
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل