idwma

win7试试这个ai给的方法

#@&cls&powershell "type '%~f0'|out-string|iex"&pause&exit
$wc = New-Object System.Net.WebClient
$wc.DownloadString('https://nr.ele.me/eleme_nr_bfe_retail/eb_download/config/download') -match 'http[^"]+'
$sourceStream = $wc.OpenRead($matches[0])
$targetStream = new-object System.IO.FileStream(("$pwd\"+($matches[0]-replace'.+/')), [System.IO.FileMode]::Create)
$gzipStream = new-object System.IO.Compression.GZipStream($sourceStream, [System.IO.Compression.CompressionMode]::Decompress)

$buffer = new-object byte[](1024)
while($true)
{
  $read = $gzipStream.Read($buffer, 0, 1024)
  if($read -le 0){ break }
  $targetStream.Write($buffer, 0, $read)
}

$gzipStream.Close()
$targetStream.Close()
$sourceStream.Close()
复制代码

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"
复制代码

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

jyswjjgdwtdtj

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

jyswjjgdwtdtj

回复 16# idwma


    这个不能用额

idwma

回复 19# jyswjjgdwtdtj


    可能不通用吧

q9339

win7试试这个ai给的方法
idwma 发表于 2023-4-23 18:53

    这个文件下载 在哪里的啊？   运行了  按了 回车 最后好像 什么都没。。

idwma

回复 21# q9339


下在当前目录，没有就不知道什么原因了

jyswjjgdwtdtj

回复 20# idwma


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

q9339

windows下 curl就是一个单文件exe 你放到同级目录里面就可以了

@echo off
setlocal enabledelayedexpansion
curl -k "https://nr.ele.me/eleme_nr_bfe_retail/eb_download/config/download" -o "elme.txt"
for /f tokens^=16^ delims^=^" %%i in (elme.txt) do bitsadmin /transfer n "%%i" "D:\elme.exe"
del elme.txt
pause

把curl和这个BAT放到同一个目录下运行bat就行

77七

回复 24# q9339


  

@echo off
for /f tokens^=16delims^=^" %%a in ('curl "https://nr.ele.me/eleme_nr_bfe_retail/eb_download/config/download"') do (
        curl -O "%%a"
)
pause
复制代码

mzzyb

为什么不用internet.application?起码现在的网页还是支持ie11的吧
jyswjjgdwtdtj 发表于 2023-4-23 18:24

    域服务器更新域成员的客户端好像，不然为什么要求用cmd来写下载更新客户端，只是1台电脑，点几下都完成了~~~

jyswjjgdwtdtj

回复 26# mzzyb


    ie支持自动化