jyswjjgdwtdtj

为什么不用internet.application?起码现在的网页还是支持ie11的吧

jyswjjgdwtdtj

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"COPY

简单粗暴 不动脑子 直接用浏览器找好吧

jyswjjgdwtdtj

实测可用
绝对好用 速度也不慢

jyswjjgdwtdtj

回复 16# idwma


    这个不能用额

jyswjjgdwtdtj

回复 20# idwma


    你不去搞个xp或者2000应该没大问题吧……我也不知道
我在mshta（ie7）试了一下 卡了好久才报错……

jyswjjgdwtdtj

回复 26# mzzyb


    ie支持自动化