批处理之家 - Powered by Discuz! Board

' ***************以下为代码
'****************
'****************
option explicit
dim ie,doc,box,button,flag,uls,ul
Set ie=CreateObject("InternetExplorer.Application") '新建浏览器对象实例
ie.Visible=True
ie.Navigate "http://www.chihaode.com"
Do While ie.ReadyState<>4 '判断是否加载完毕,否则等待
WScript.Sleep 1000
Loop
set doc=ie.Document '设置IE文档对象
set box=doc.getElementById("text_food") '找到输入框对象
box.value="豆腐" '输入框赋值
set button=doc.getElementById("submit_rel")
button.click '点击按钮
WScript.Sleep 1000
'以下为验证
flag=-1
set uls=doc.getElementsByTagName("ul")
For Each ul In uls '需求的<ul class=""foodlists"">节点
If instr(1,ul.className,"foodlists")>0 Then
flag=0
End If
Next
if flag<>-1 then '判断是否找到
MsgBox "找到需求的<ul class=""foodlists"">节点!测试通过!" '输出信息
else
MsgBox "未找到需求的<ul class=""foodlists"">节点!测试不通过!"
end if