يقوم VB بملء مربع الإدخال على IE وإرساله
افترض أن كود HTML لصفحة تسجيل الدخول هو كما يلي:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<أتش تي أم أل>
<الرأس>
<العنوان>صفحة الاختبار</title>
</الرأس>
<الجسم>
< اسم النموذج = طريقة chh = إجراء "POST" = "login.asp">
<جدول تباعد الخلايا = "0" خلية الحشو = "2">
<تر>
<td align="center">المستخدم:</td>
<td محاذاة = "يسار">
<اسم الإدخال = "اسم تسجيل الدخول" نوع = "نص" معرف = "اسم تسجيل الدخول" الحجم = "12">
</TD>
</tr>
<تر>
<td align="center">كلمة المرور:</td>
<td محاذاة = "يسار">
<اسم الإدخال = "LoginPassword" type = "كلمة المرور" id = "LoginPassword" size = "12">
</TD>
</tr>
</الجدول>
<نوع الإدخال = "إرسال" المعرف = "انقر فوق" القيمة = "إرسال">
</فورم>
</الجسم>
</html>
صفحة بسيطة جدًا، تحتوي على نموذج تسجيل دخول، ومربع إدخال اسم المستخدم LoginName، ومربع إدخال كلمة المرور LoginPassword، وزر إرسال Clickme
ثم افتح هذه الصفحة باستخدام IE ولاحظ أنه تم تعيين عنوان الصفحة على testPage.
ثم افتح VB وقم بالإشارة إلى عناصر تحكم الإنترنت الخاصة بـ Microsoft في المشروع:
أمر فرعي خاص1_Click()
قائمة IEList الخافتة كـ ShellWindows الجديد
متصفح خافت
وثيقة خافتة
على خطأ استئناف التالي
"اجتياز نافذة المتصفح الحالية."
لكل متصفح في IEList
"ابحث عن نافذة IE المطلوبة."
إذا browser.Document.Title = "testPage" إذن
"احصل على كائن مستند المتصفح."
تعيين Doc = browser.Document
"املأ حقل اسم المستخدم."
Doc.body.All("اسم تسجيل الدخول").القيمة = "إيدي"
'املأ حقل كلمة المرور
Doc.body.All("كلمة مرور تسجيل الدخول").القيمة = "123456"
'يُقدِّم
Doc.body.All("clickme").انقر
نهاية إذا
التالي
نهاية الفرعية