vbs获取html内容

1Dim content,name,password,arr,pos
2
3msg1="请输入ip和端口号地址"&chr(13)&chr(10)&"如http://10.21.24.120:11182/newacademic/..."&chr(13)&chr(10)&"则输入10.21.24.120:11182"
4msg2="10.21.24.120:11182,1230010303,123456"
5
6content=InputBox(msg1, "请输入", msg2)
7
8If content = "" Then
9WScript.Quit
10Else
11arr=split(content,",")
12'MsgBox arr(0)
13End If
14
15Set html = CreateObject("htmlfile")
16Set http = CreateObject("Msxml2.ServerXMLHTTP")
17
18'html.designMode = "on" ' 开启编辑模式
19
20http.open "GET", "http://"&arr(0)&"/newacademic/j_acegi_security_check?j_username="&arr(1)&"&j_password="&arr(2), False
21http.send
22
23
24http.open "GET", "http://"&arr(0)&"/newacademic/student/queryscore/queryscore.jsdo", False
25http.send
26strHtml = http.responseText
27
28html.write strHtml ' 写入数据
29
30Set post_list = html.getElementsByTagName("table")(2)
31for each r in post_list.rows
32  'WScript.Echo r.style.display
33  If r.style.display="none" Then
34    WScript.Echo r.innerText
35End If
36  
37next