联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
'来个VBS,保存成download.vbs可以直接在命令行中执行 'On Error Resume Next Dim fso, s, FileName, URL, HTML, cdo URL = "http://www.cn-dos.net" '需要下载的页面路径 FileName = "C:\test\" & CStr(Year(Now) & Month(Now) & Day(Now)) & ".mht" '保存的文件名 Set cdo = CreateObject("cdo.Message") cdo.CreateMHTMLBody URL, 31 Set s = cdo.GetStream s.SaveToFile FileName, 2 s.Close msgbox("完成")