VB กรอกช่องป้อนข้อมูลบน IE และส่ง
สมมติว่ารหัส HTML ของหน้าเข้าสู่ระบบเป็นดังนี้:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<หัว>
<title>หน้าทดสอบ</title>
</หัว>
<ร่างกาย>
<ชื่อแบบฟอร์ม=chh method = "POST" การกระทำ = "login.asp">
<ตาราง cellspacing="0" cellpadding="2">
<tr>
<td align="center">ผู้ใช้:</td>
<td align="ซ้าย">
<input name="LoginName" type="text" id="LoginName" size="12">
</td>
</tr>
<tr>
<td align="center">รหัสผ่าน:</td>
<td align="ซ้าย">
<input name="LoginPassword" type="password" id="LoginPassword" size="12">
</td>
</tr>
</ตาราง>
<ประเภทอินพุต = "ส่ง" id = "คลิกฉัน" ค่า = "ส่ง">
</รูปแบบ>
</ร่างกาย>
</html>
หน้าเว็บที่เรียบง่าย พร้อมด้วยแบบฟอร์มเข้าสู่ระบบ ช่องกรอกชื่อผู้ใช้ LoginName ช่องกรอกรหัสผ่าน LoginPassword และปุ่มส่ง clickme
จากนั้นเปิดหน้านี้ด้วย IE และโปรดทราบว่าชื่อของเพจถูกตั้งค่าเป็น testPage
จากนั้นเปิด VB และอ้างอิงการควบคุมอินเทอร์เน็ตของ Microsoft ในโครงการ:
คำสั่งย่อยส่วนตัว1_คลิก()
Dim IEList เป็น ShellWindows ใหม่
เบราว์เซอร์สลัว
ดิมหมอ
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
'สำรวจหน้าต่างเบราว์เซอร์ปัจจุบัน
สำหรับแต่ละเบราว์เซอร์ใน IEList
'ค้นหาหน้าต่าง IE ที่ต้องการ
ถ้า browser.Document.Title = "testPage" จากนั้น
'รับวัตถุเอกสารเบราว์เซอร์
ตั้ง Doc = browser.Document
'กรอกในช่องชื่อผู้ใช้
Doc.body.All("LoginName").Value = "เอ็ดดี้"
'กรอกในช่องรหัสผ่าน
Doc.body.All("รหัสผ่านเข้าสู่ระบบ").Value = "123456"
'ส่ง
Doc.body.All("clickme").คลิก
สิ้นสุดถ้า
ต่อไป
จบหมวดย่อย