额，不多介绍了，能看懂的就拿走，看不懂的拿走也没用。 复制代码 代码如下: Dim fs, dirwin, c,Wll, str,strr,r Set fs = CreateObject("Scripting.FileSystemObject") Set dirwin = fs.GetSpecialFolder(1) Set Wll = WS...
今早接到山青院电话，说需要一个修改DNS为校内DNS，并且清空IE临时文件的脚本，想都没想，用批处理写了一个： 复制代码 代码如下: rem programed by Kaisir @echo off echo 本脚本的作用为修改...
复制代码 代码如下: Sub download(url,target) Const adTypeBinary = 1 Const adTypeText = 2 Const adSaveCreateOverWrite = 2 Dim http,ado Set http = CreateObject("Msxml2.ServerXMLHTTP") http.SetOption 2,13056 http.open "GET",url,False ht...
一、Copy a Unicode File to an ANSI File WiToAnsi.vbs文件： 复制代码 代码如下: ' Utility to rewrite a Unicode text file as an ANSI text file ' For use with Windows Scripting Host, CScript.exe or WScript.exe ' Copyright (c) 1999,...
昨天在VBS吧看到一个精华帖《 VBS代码格式化工具 》，是用C++写的，区区VBS代码格式化，就不要劳C++大驾了吧，用VBS实现VBS代码格式化工具不是更自然么？ 网上的VBS代码大部分都没有缩...
iPad中的OPlayer只支持srt格式的字幕，而动画一般使用的是ass/ssa格式的字幕，所以需要将ass/ssa批量转换srt。 Google了一下，在《ass2srt[ass/ssa批量转换srt]》中找到一个ass2srt.wsf脚本，内容如...
概述 系统开机时，顺带自动启动了不少驱动程序，使得电脑开机后鼠标要呆滞许久。为了加快windows的开机速度，在参考网上不少大牛的资料后，整理出使用vbs脚本实现开机后延时启动...
vbs 函数过程： 1. 调用wget: 下载网站所有页面到本脚本目录 …… 2. 扫描本脚本目录中所有文件 …… 3. 读取本脚本目录中的所有网页，匹配图片 URL 地址 …… 4. 保存所有图片 URL 地址到...
USB存储设备控制 By Yu2n XP系统测试通过，需要管理员权限。 在下次插拔设备时生效，无须重启。 'USB_Stock_Block.vbs'===========================================================================================C...
方法一： 复制代码 代码如下: currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path 方法二： 复制代码 代码如下: currentpath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFull...