vbs下载官方免费下载 vbs怎么下载文件

一、vbs怎么下载文件

这个是我下文档时写的一个vbs，你自己照着改吧。我这里考虑了一些出错的情况，实际的内容可远远少于这些代码，原代码来自海洋木马，至于它的从哪来的，就不知道了。

Set xaPost= CreateObject("MSXML2.ServerXMLHTTP")

Set sLog= CreateObject("ADODB.Stream")

sLog.Mode= 3

sLog.Type= 2

sLog.Open()

LogName="log.txt"

Set sGet= CreateObject("ADODB.Stream")

sGet.Mode= 3

sGet.Type= 1

'sGet.Charset='utf-8'

for i=220000 to 999999

'构建要下载的文件名

Name= i

While Len(Name)<> 6

Name="0"& Name

Wend

Name="aa"& Name&"(v=VS.85)"

'发送

xaPost.Open"GET",""& Name&".aspx", False

xaPost.Send()

'根据返回的文件大小来判断文件是否存在

If UBound(xaPost.responsebody)< 9711 Or UBound(xaPost.responsebody)> 9720 then

sGet.Open()

sGet.Write(xaPost.responseBody)

sGet.SaveToFile Name&".html", 2

sGet.Close

'文件名不存在

Else

sLog.WriteText(Name&"")

if sLOg.size> 5000 then

sLog.SaveToFile"log.txt", 2

sLog.position= 0

sLog.SetEos

end if

End If

Next

sLog.Close

Set sLog= Nothing

Set sGet= Nothing

Set xaPost= Nothing

msgbox"ok"

二、火狐浏览器官方下载

《Firefox v92.0.1火狐浏览器官方版》百度网盘资源免费下载:

链接: 提取码: 8dmz

Firefox v92.0.1最新版火狐浏览器是一款免费开源的浏览器，软件小巧，功能强大。它采用新型引擎让浏览更快，占用内存更小，还在隐私浏览模式中附加了跟踪保护功能，实时保护用户安全上网，也能在浏览结束后自动清除浏览记录。更快的页面加载，拦截那些拖慢上网速度的脚本后，页面载入速度快了44%。

三、ie.vbs是什么病毒

你中的是色播病毒,除了你说的现象以外,该病毒还会修改系统文件和qq相关组件,达到盗号目的,并且劫持主页和浏览器

【解决方案】

1.百度搜索【金山顽固木马专杀】,下载第一个连接,打开立即扫描,(如果问题还无法解决,就点击强力网络修复)

2.重启后,然后使用金山网盾的一键修复搞定.在搜索框中输入金山网盾即可找到。

由于该病毒会伴有下载者病毒，所以还会出现其他的大量病毒。进行以上步骤后，建议下载“永久免费”的金山毒霸2011【百度搜索金山毒霸】选择官方下载，安装完以后,点击“全盘查杀”