-
ฟังก์ชั่น bytes2BSTR(vIn)
strReturn=
สำหรับ i = 1 ถึง LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
ถ้า ThisCharCode < &H80 แล้ว
strReturn = strReturn & Chr(ThisCharCode)
อื่น
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
ฉัน = ฉัน + 1
สิ้นสุดถ้า
ต่อไป
bytes2BSTR = ubb (strReturn)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น dq(คีย์)
XmlHttp สลัว
ตั้งค่า XmlHttp = CreateObject(Microsoft.XMLHTTP)
XmlHttp.Open GET,http://www.baidu.com/s?wd=&key&&pn=&request(pn), เท็จ
XmlHttp.setRequestHeader Content-Type,text/XML
XmlHttp ส่ง
dq = bytes2BSTR(XmlHttp.responseBody)
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น BR(Str)
Str = แทนที่(Str,{br},<br>)
Str = แทนที่(Str,vbcrlf,<br>)
Str = แทนที่(Str,<br> <br>,<br>)
Str = แทนที่(Str,<br><br>,<br>)
Str = แทนที่(Str,<br><br>,<br>)
BR = เซนต์
ฟังก์ชันสิ้นสุด
ฟังก์ชั่น ubb(str)
ถ้า instr(str,找到相关网页) = 0 แล้ว
ubb = 没有搜索到任何内容
ฟังก์ชั่นทางออก
สิ้นสุดถ้า
str = แทนที่ (str,vbcrlf,{br})
str = แทนที่ (str,<br>,{br})
str = แทนที่ (str,</td>,</td>&vbcrlf)
str = แทนที่ (str,<td,vbcrlf&<td)
สลัวอีกครั้ง, แมตช์, แมตช์
set re = RegExp ใหม่
re.Global = จริง
re.IgnoreCase = จริง
re.Pattern=.*/<td class=f>(.*)/<//td>
ตั้งค่าการจับคู่ = re.Execute (str)
สำหรับการแข่งขันแต่ละครั้งในการแข่งขัน
ubb=ubb&BR(Match.value)
ต่อไป
re.Pattern=(/- /<a .[^/<]*>百度快ภาพถ่าย/<//a>)
ubb = แทนที่ใหม่ (ubb,)
re.Pattern=(/<a class=m.[^/<]*>.[^/<]*/<//a>)
ubb = แทนที่ใหม่ (ubb,)
re.Pattern=(/<font color=#008000>.[^/<]*/<//font>)
ubb = re.replace(ubb,<hr>) 'เปลี่ยนใหม่
ubb = แทนที่ (ubb,<td class=f>,)
ubb = แทนที่ (ubb,</td>,)
ubb = BR(ยูบีบี)
re.Pattern=(找到相关网页.*秒)
ตั้งค่าการจับคู่ = re.Execute (str)
ตั้งค่าการแข่งขัน = การแข่งขัน (0)
ubb = ubb & จับคู่ & <br>
str = แทนที่(str,</div>,</div>&vbcrlf)
re.Pattern=/<div class=p>(.*)/<//div>
ตั้งค่าการจับคู่ = re.Execute (str)
ตั้งค่าการแข่งขัน = การแข่งขัน (0)
ดิม เดอะลิงค์
TheLink = แมตช์
re.Pattern=href=s?(.[^>]*)
TheLink = re.replace(TheLink,href=$1)
ubb = ubb และ เดอะลิงค์
ฟังก์ชั่นสิ้นสุด
ถ้า len(request(wd)) > 0 แล้ว
การตอบสนองเขียน dq (คำขอ (wd))
สิ้นสุดถ้า
-
<รูปแบบวิธีการ=โพสต์การดำเนินการ=?>
<ประเภทอินพุต=ชื่อข้อความ=wd> <ประเภทอินพุต=ส่ง>
</แบบฟอร์ม>