Skip to content

Instantly share code, notes, and snippets.

@iBug

iBug/wlt.vbs

Created June 7, 2022 04:05
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save iBug/eb6fdbf55465352d6d91b1bdf75ad30f to your computer and use it in GitHub Desktop.
Save iBug/eb6fdbf55465352d6d91b1bdf75ad30f to your computer and use it in GitHub Desktop.
Download ZIP
USTC 网络通脚本 for Windows
Raw
wlt.vbs
Dim Http, Username, Password
Username = "username"
Password = "password"
Set Http = CreateObject("MSXML2.XMLHTTP.3.0")
Http.Open "GET", "http://wlt.ustc.edu.cn/cgi-bin/ip?cmd=set&type=0&exp=21600&name=" & Username & "&password=" & Password, False
Http.Send
MsgBox "Status: " & Http.Status, 65, "WLT"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment