الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة معاية فيsendkeys

مغلق
بدأه cool_zat في 28 مايو 2005 · 4 رد · 632 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم يا شباب معايا هذه المشكلة

process{0}was not found

ايش حلها وهذا هو الكود

Module call_copy
    Public Sub callapp()
        Try
            Dim ProcID As Integer
            ProcID = Shell("N:\Ahead\Nero\nero.exe", AppWinStyle.MaximizedFocus)
            AppActivate(ProcID)
            My.Computer.Keyboard.SendKeys("{DOWN 2}", True)
            My.Computer.Keyboard.SendKeys("{ENTER}", True)
            My.Computer.Keyboard.SendKeys("^v", True)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Module

=======================

وصورة المشكلة ارفقتها

post-29201-1117261287_thumb.jpg

#2

لماذا لا تستخدم System.Diagnostics.Process ؟؟

جرب هذا الكود:

  Dim ProcID As New System.Diagnostics.Process()
   ProcID.StartInfo.WindowStyle = ProcessWindowStyle.Maximized
   ProcID.StartInfo.FileName = "N:\Ahead\Nero\nero.exe"
   ProcID.Start()

رأس الحكمة الإيمان بالله

#3

ممكن يا أخوان تشرحوا لنا وش عمل الكود اليي كته الأستاذ محمد عبد العليم ؟

شكرًا لكم مسبقا

#5

مشكور اخي محمد

طريقة طلعت نفس المشكلة

بس وجدت الحل

هو انه تعمل thread.sleep عشان يتاكد الاول انه البرنامج اشتغل قبل ان يبدأ بإرسال الاوامر

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…