VBScript：dom 学习笔记

1、window.document.write("hello, how are you")
2、window.open()
url: 后面必须有"http://“ 和  "/"
例如 window.open("http://www.baidu.com/")

public Function checkdel
set Table1=browser("搜狐畅游客服专区").Page("搜狐畅游客服专区").Frame("mainFrame_2").Object.getElementById("showTable")
set Font1 = Table1.getElementsByTagName("font")
'deltext= Font1(0).innertext
'msgbox deltext
Font1(0).click
wait 3
If Browser("搜狐畅游客服专区").Page("搜狐畅游客服专区").Frame("mainFrame").WebFile("addimage").Exist(3)Then
msgbox "删除ok"
'可以将其结果输出至excel或txt，后续再优化
End If
End Function


Set oIE =createobject("InternetExplorer.Application")
oIE.Visible=True
oIE.Navigate "http://www.baidu.com"
While oIE.Busy: Wend
Set oWebEdit=oIE.Document.getElementbyID("kw")
oWebEdit.value="xiaozhi"
Set oWebEdit=oIE.Document.getElementbyID("su")
oWebEdit.click
oIE.Quit
Set oWebEdit = Nothing
Set oIE =Nothing