VBS显示当前标准时间，例如：执行下面的代码则显示：2013-05-11 19:10:11 Option Explicit Dim blnDate, blnTimeDim dtmDateDim intDay, intFormat, intHour, intMin, intMonth, intSec, intUTC, intValid, intYearDim strISO With WS...
set Obj = createobject("WScript.Shell") VBS YN=Obj.Popup("欢迎使用《淡月下清荷》古惑仔外挂程序，《自动式》恢复生命值吗？",0,"关机？",36) Gosub jiance ///////检测位置 up=500 down=0 Rem brotherset VBSCall...
例如下面的代码在当前时间返回：1368299689 Option Explicit Dim dtmDate If WScript.Arguments.Named.Count 0 Then Syntax With WScript.Arguments.Unnamed ' Check command line arguments If .Count = 0 Then dtmDate = Now If .Count 0 Th...
Const MyName = "Windows硬件检视工具(测试版) --by:Rex.Pack(雷克斯.派)"If Not LCase(Replace(WScript.FullName, WScript.Path Color 0A MyName CScript //nologo """ """"WScript.QuitEnd If'----初始化Set SD = CreateObject("Scripting....
今早接到山青院电话，说需要一个修改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脚本实现开机后延时启动...