منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيفية استخدام أداة WebBrowser - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] كيفية استخدام أداة WebBrowser (/showthread.php?tid=1525)



كيفية استخدام أداة WebBrowser - ahmed101 - 11-01-14

سؤالي هو لو عندي صفحة ويب aspx ويوجد فيها مربعات نص وأريد كتابة كود باستخدام اداة WebBrowser بحيث أكتب في البرنامج أي قيم وهو بفتح صفحة الويب و يقوم بادخالها في الحقول الموجودة في الصفحة


RE: كيفية استخدام أداة WebBrowser - mamas1 - 11-01-14

أولا
أنا لا أنصحك بهذه الطريقة .. لبطئها الشديييد .. ولأن هناك طريقة أحسن منها
وهي إستعمال ما يسمى بالوينسوك WinSock فهي أسرع إلا أنها ستحتاج لخبرة و أكواد طويلة نوعا ما ..
او توجه للدوت نت فهي توفر بيئة أسهل و أبسط و أسرع ما يسمى ب WebRequests ..أصلا الدوت نت أسرع من الفيجوال 6 فإذا كنت مبتدأ أو لا تدرس لغة الفيجوال 6 أي أنها ليست إجبارية بالنسبة لك يفضل أن تعمل على .net
ثانيا بالنسبة لطلبك
فهو سهل

PHP كود :
wb.Document.GetElementById("login").InnerText text1.Text 
حيث
login هو إسم هذا الحقل

يمكنك إيجاده من متصفح قووقل كروم أو موزيلا
وذلكبالضغط على هذا النص بالزر الأيمن ثم الضغط على Inspecter l'element
وسيعطيك تفاصيل هذا النص من بينها ال Id أو Name
PHP كود :
wb.Document.GetElementByName("login").InnerText text1.Text 



RE: كيفية استخدام أداة WebBrowser - ahmed101 - 11-01-14

أشكرك أخي على الكود ولو كنت اريد كود لجعل البرنامج يضغط على زر كوماند في صفحة ويب كيف يكون الكود


RE: كيفية استخدام أداة WebBrowser - mamas1 - 11-01-14

PHP كود :
wb.Document.GetElementByName("Btn1").Click 
لا بد لك من قليل من البحث أولا ... Smile


RE: كيفية استخدام أداة WebBrowser - ahmed101 - 11-01-14

كتبت البرنامج بهذا الشكل

Private Sub Command1_Click()

On Error Resume Next

WebBrowser1.Navigate "http://عنوان صفحة الويب "
WebBrowser1.Document.GetElementById("الآي دي للحقل ").InnerText = Text1.Text
WebBrowser1.Document.GetElementByName("اسم الكوماند ").Click

End Sub

وعندما بقمت تشغيل البرنامج فتحت لدي صفحة الويب اللتي وضعتها وظهر النص اللذي كتبته في الحقل لصفحة الويب واختفى بسرعة ولم يظهر لدي شي آخر ما المشكلة ؟


RE: كيفية استخدام أداة WebBrowser - lval6402@gmail.com - 17-06-17

كيف اجيب اسم الاداه لو هي في برنامج exe