让学校机房电脑禁止下载不复存在
Jacob
posted @ Aug 13, 2016 04:14:58 PM
in 小技术
, 504 阅读
Dim sURL, sPath
sURL = InputBox("下载文件的网址是？")
sPath = InputBox("存储的文件名是？")
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET",sURL,0
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile sPath,2
众所周知：无论是小学还是中学甚至是大学机房都有可能禁止下载，这让我们用着很不爽，而且学校的网速也很快，不用来下载简直就是浪费，现在笔者教你让下载飞一会啊～
PS：学校只有ie,不准下载文件,可以用这个下载文件，加了InputBox，直接双击即可打开，复制完代码后直接创建vbs文件即可。
====================================
推荐一款软件：p2p终结者
如果你在租房，室友经常下载东西占用带宽：如果你是父母，想限制孩子使用时间或者只许他打开某些特定的软件和网页，那么这款软件将会是你绝佳的选择！
Jack
Little Monster
Fedora 发行计时器
搜索
最新评论
日历
| 二月 | ||||||
|---|---|---|---|---|---|---|
| 日 | 一 | 二 | 三 | 四 | 五 | 六 |
| 28 | 29 | 30 | 31 | 1 | 2 | 3 |
| 4 | 5 | 6 | 7 | 8 | 9 | 10 |
| 11 | 12 | 13 | 14 | 15 | 16 | 17 |
| 18 | 19 | 20 | 21 | 22 | 23 | 24 |
| 25 | 26 | 27 | 28 | 29 | 1 | 2 |
最新留言
功能
RSS
链接
博主寄语
来的人要留言哦！标签云
计数器
60833
2022年8月18日 21:01
Download the GSEB SSC 10th Question Paper 2023 in Gujarati, Hindi, or English. We want to let all the students know that their wait is over for the Gujarat Board 10th Question Paper and New Question Paper. GSEB SSC Question Paper 2023 Released is the GSEB SSC 10th Previous Question Paper for 2023. For students in classes 10 and 12, the Gujarat State Education Board will hold a written examination in March. All Gujarat Board-enrolled students can download the GSEB New Question Paper 2023 from this page, and they must start studying as soon as the question paper's release date approaches for the SSC and 10th exams.