- set ie=createobject("internetexplorer.application")
- ie.visible=false
- ie.navigate "https://shop.ele.me/apps/pc/?t=ls-pc"
- do until ie.readystate=4
- wscript.sleep 100
- loop
- url=ie.document.getelementsbyclassname("pc-download")(0).getelementsbytagname("a")(0).href
-
- Set http = CreateObject("Msxml2.XMLHTTP")
- Set ado = createobject("Adodb.Stream")
- with http
- .open "GET",url,false
- .send
- ado.Type =1
- ado.Open
- ado.Write .responsebody
- ado.SaveToFile "1.exe"
- ado.Close
- end with
- set ws=createobject("wscript.shell")
- ws.run "1.exe"
复制代码 简单粗暴 不动脑子 直接用浏览器找好吧 |