Dim content,name,password,arr,pos
msg1="请输入ip和端口号地址"&chr(13)&chr(10)&"如http://10.21.24.120:11182/newacademic/..."&chr(13)&chr(10)&"则输入10.21.24.120:11182"
msg2="10.21.24.120:11182,1230010303,123456"
content=InputBox(msg1, "请输入", msg2)
If content = "" Then
WScript.Quit
Else
arr=split(content,",")
'MsgBox arr(0)
End If
Set html = CreateObject("htmlfile")
Set http = CreateObject("Msxml2.ServerXMLHTTP")
'html.designMode = "on" ' 开启编辑模式
http.open "GET", "http://"&arr(0)&"/newacademic/j_acegi_security_check?j_username="&arr(1)&"&j_password="&arr(2), False
http.send
http.open "GET", "http://"&arr(0)&"/newacademic/student/queryscore/queryscore.jsdo", False
http.send
strHtml = http.responseText
html.write strHtml ' 写入数据
Set post_list = html.getElementsByTagName("table")(2)
for each r in post_list.rows
'WScript.Echo r.style.display
If r.style.display="none" Then
WScript.Echo r.innerText
End If
next
vbs获取html内容
点赞
收藏