vbs获取辽工大教务在线获取成绩列表

Posted 2020-10-27 code -ss

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,1420010303,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