การบรรยายที่ 2: วิธีใช้เว็บเบราว์เซอร์ของ VB เพื่อส่งหน้าเว็บที่มีชื่อผู้ใช้และรหัสผ่าน
คราวที่แล้วเรารู้วิธีเปิดเว็บเพจ วันนี้เรามาดูวิธีก้าวแรกในการทำเงินกัน
ที่นี่เราเริ่มดำเนินการตามขั้นตอน:
1. เปิด VB ก่อนและสร้างโครงการใหม่
2. คลิกขวาที่แถบเครื่องมือแล้วเลือกส่วนประกอบ (ฉันใช้ VB เวอร์ชันภาษาจีน) หรือเลือกเมนูโครงการแล้วคลิกส่วนประกอบ
3. ค้นหา Microsoft Internet Controls เลือกที่ด้านหน้า จากนั้นยืนยัน คุณจะเห็นไอคอนคล้ายโลกเพิ่มเติมบนแถบเครื่องมือ
4. เพิ่ม WebBrowser1 ลงใน Form1 แล้วเพิ่ม command1 ลงใน Form1
5. เพิ่มโค้ดต่อไปนี้ใน Form1: (ข้างต้นทั้งหมดได้กล่าวไว้ในการบรรยายครั้งก่อนของเรา คุณควรจะคุ้นเคย)
'----------เริ่ม-----------
คำสั่งย่อยส่วนตัว1_คลิก()
ติ่ม vDoc, vTag
หรี่ฉันเป็นจำนวนเต็ม
ตั้ง vDoc = WebBrowser1.Document
สำหรับ i = 0 ถึง vDoc.All.length - 1 'ตรวจหาแท็กทั้งหมด
หาก UCase(vDoc.All(i).tagName) = "INPUT" จากนั้น 'ค้นหาแท็กอินพุต
ตั้ง vTag = vDoc.All(i)
หาก vTag.Type = "text" หรือ vTag.Type = "password" จากนั้น 'ดูว่าเป็นสิ่งที่เราต้องการหรือไม่
เลือกกรณี vTag.Name 'ตามชื่อของแท็ก ทำเครื่องหมายถูกการดำเนินการ
กรณี "EMAILADD"
vTag.Value = "[email protected]" 'เขียนอีเมลของคุณที่นี่
กรณี "PASSWD"
vTag.Value = "รหัสผ่าน" 'เขียนรหัสผ่านของคุณที่นี่
สิ้นสุดการเลือก
ElseIf vTag.Type = "submit" และ vTag.Name = "SUB" และ vTag.Value = "Subscribe" จากนั้น
'ค้นหาปุ่มส่ง
vTag เลือก 'คุณสามารถทำได้โดยไม่ต้องทำเช่นนี้'
vTag.คลิก 'คลิกเพื่อส่ง ทุกอย่างเรียบร้อยดี'
สิ้นสุดถ้า
สิ้นสุดถ้า
ถัดไป
จบหมวดย่อย
แบบฟอร์มย่อยส่วนตัว_Load()
เว็บเบราว์เซอร์1.นำทาง "http://dhunter.51.net"
จบหมวดย่อย
'----------เสร็จ-----------
6. แน่นอนว่าเป็นการทดสอบ คลิกปุ่ม run เราจะเห็นว่าเว็บเบราว์เซอร์ของเราเปิด http://dhunter.51.net แล้ว รอจนกระทั่งการดาวน์โหลดหน้าเว็บเบื้องต้นเสร็จสิ้นแล้วจึงคลิกปุ่ม command1 เว็บเบราว์เซอร์ที่น่ารักของเราจะป้อนสิ่งที่เราเพิ่งป้อน อีเมลและรหัสผ่านของคุณถูกส่งไปยังหน้าเว็บแล้ว คุณเห็นไหมว่าการสมัครสมาชิกสำเร็จแล้ว? นั่นคือสัญญาณแห่งชัยชนะ
เอาล่ะ มาเขียนกันซะขนาดนี้ คราวหน้าเราจะมาดูวิธีใช้เว็บเบราว์เซอร์เพื่อค้นหาไฮเปอร์ลิงก์ในหน้าเว็บซึ่งตรงกับลิงก์ทำเงินกัน
ภาคผนวก (ข้อมูลที่เกี่ยวข้อง):
อย่างที่คุณเห็น คราวนี้เราใช้รายชื่อผู้รับจดหมายสมัครสมาชิกบน http://dhunter.51.net นี่คือซอร์สโค้ดของหน้าเว็บนี้:
<รูปแบบวิธีการ = "โพสต์" การกระทำ = "http://ml.xilu.com/cgi-bin/ml/client">
<p align="center"><font size="2">
<input type="hidden" name="USERID" value="dhunter">
อีเมล:
<input type="text" name="EMAILADD" value="your email">
<br>
รหัสผ่าน:
<input type="password" name="PASSWD" value="******">
<br>
</font><font size="2">
<input type="submit" value="สมัครสมาชิก" name="SUB">
<input type="submit" value="ยกเลิกการสมัคร" name="UNSUB">
</font></p>
</แบบฟอร์ม>
แท็กที่มีอินพุตอยู่ภายในจะยอมรับอินพุตทั้งหมด หน้าที่หลักของเราที่นี่คือการค้นหาและดำเนินการกับแท็กเหล่านั้น