السلام عليكم ورحمة الله وبركاته
اخوتي أريد عمل ترجمة بالوافي
والهدف هو أن المستخدم يدخل نص في تكست بوكس وعند النقر على الزر يقوم البرنامج بنقل النص المدخل إلى الوافي
ثم ترجمته
ثم نسخ النص المترجم العربي إلى تكست بوكس يظهر للمستخدم !!!
لكن لم أوفق في الجزء الأول بعد
وهذا هو الكود.. يفتح برنامج الوافي لكن لا يقوم بعمل أي شي !!!
ProcID = Shell("C:\Program Files\Golden Al-Wafi Translator\Golden Al-Wafi Translator.exe", AppWinStyle.NormalNoFocus)
AppActivate(ProcID)
System.Threading.Thread.Sleep(500)
My.Computer.Keyboard.SendKeys("^n")
My.Computer.Keyboard.SendKeys(TextBox1.Text) 'نسخ النص من التكست بوكس للوافي
'وهو مفتاح الاختصار لعملية الترجمة في الوافيf5 نقر
My.Computer.Keyboard.SendKeys("F5")
أرجو المساعدة ولكم جزيل الشكر