+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=21810)
لكل خبير ارجو الحل - Engmtamous - 20-09-17
السلام عليكم ورحمة الله وبركاته
كيفكم اخواني في منتدى فيجوال بيسك لكل العرب...
أنا جديد على المنتدى وجديد ايضا على برنامج الفيجوال بيسك...
أريد معرفة كيف يمكنني التعامل مع برنامج خارجي من خلال الفيجوال واخفاء ذلك البرنامج
, لنفرض انني اريد التحكم بمتصفح جوجل كروم واقوم بالدخول لصفحة معينة وعمل بعض الامور آليا مع امكانية اخفاء المتصفح وعمله بالخلفية...
وشكرا لكم
RE: لكل خبير ارجو الحل - alsouf - 20-09-17
اذا كان قصدك انشاء متصفحك الخاص فطلبك في المرفقات
RE: لكل خبير ارجو الحل - Engmtamous - 20-09-17
(20-09-17, 04:14 PM)alsouf كتب : اذا كان قصدك انشاء متصفحك الخاص فطلبك في المرفقات
شكرا لك اخي الكريم على الاجابة
ولكن انا احتاج كود للتحكم بمتصفح ويكون المتصفح خفي وغير ظاهر اثناء العملية
RE: لكل خبير ارجو الحل - alsouf - 21-09-17
لنفرض انني اريد التحكم بمتصفح جوجل كروم واقوم بالدخول لصفحة معينة
الإجابة:
إذا كان قصدك فتح صفحة انترنت بواسطة برنامج معين فهذا المثال يفي بالغرض
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Diagnostics.Process.Start("chrome.exe", "http://vb4arb.com/vb/")
End Sub
End Class
لفتح اية صفحة ضع الرابط في مكان عنوان المنتدى
و اذا كان الملف على جهازك فضع مكان التخزين المحلي
مثلا: لفتح ملف نصي على جهازي بواسطة المفكرة
Diagnostics.Process.Start("Notepad.exe", "D:/vb4arb.txt")
نكتب اسم البرنامج ثم نحدد اسم و مكان حفظ الملف
اتنى الاستفادة للجميع
ملف مرفق اكثر وضوح
RE: لكل خبير ارجو الحل - Engmtamous - 21-09-17
(21-09-17, 01:33 PM)alsouf كتب : لنفرض انني اريد التحكم بمتصفح جوجل كروم واقوم بالدخول لصفحة معينة
الإجابة:
إذا كان قصدك فتح صفحة انترنت بواسطة برنامج معين فهذا المثال يفي بالغرض
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Diagnostics.Process.Start("chrome.exe", "http://vb4arb.com/vb/")
End Sub
End Class
لفتح اية صفحة ضع الرابط في مكان عنوان المنتدى
و اذا كان الملف على جهازك فضع مكان التخزين المحلي
مثلا: لفتح ملف نصي على جهازي بواسطة المفكرة
Diagnostics.Process.Start("Notepad.exe", "D:/vb4arb.txt")
نكتب اسم البرنامج ثم نحدد اسم و مكان حفظ الملف
تسلم ياطيب ماذا لو اردت اخفاء التطبيق اثناء العملية
RE: لكل خبير ارجو الحل - سعود - 21-09-17
إقتباس :تسلم ياطيب ماذا لو اردت اخفاء التطبيق اثناء العمليةهل تقصد طلب صفحة معينة فقط؟
يمكنك استخدام Webclient او اي تقنية تشبهها.
RE: لكل خبير ارجو الحل - alsouf - 21-09-17
الرجاء توضيح الفكرة ؟
هل القصد اخفاء التطبيق المستخدم في فتح الصفحة او برنامج (VB.Net)
RE: لكل خبير ارجو الحل - Engmtamous - 21-09-17
(21-09-17, 04:11 PM)alsouf كتب : الرجاء توضيح الفكرة ؟
هل القصد اخفاء التطبيق المستخدم في فتح الصفحة او برنامج (VB.Net)
اوك
قل اني اريد فتح المفكرة مثلاً
a.StartInfo.FileName = "C:\Users\eng\Desktop\ss.txt"
a.Start()
ثم اريد ادخال البيانات التالية بالملف وحفظه على الجهاز
Threading.Thread.Sleep(1000)
SendKeys.SendWait("HI vb4arb")
Threading.Thread.Sleep(2000)
SendKeys.SendWait("{ENTER}HI vb4arb")
SendKeys.SendWait(keys:="^s{ENTER}")
الان اريد ان أشغل الفورم ويقوم بكل ما هو مطلوب وانا اشاهد فيديو على اليوتيوب, بمعنى انه يعمل بالخلفية للويندوز
RE: لكل خبير ارجو الحل - alsouf - 21-09-17
يمكنك الاستفادة من هذا المنتدى
http://www.vbforums.com/showthread.php?674817-Threading-Thread-Sleep-or-Timer