2020-02-16 标签:vbs,修改,远程桌面,端口,代码,实现,如下,checkos,检查,操作系统,版本,检查程序,运行,状态,main,执行,主程序,sub

实现代码如下： '=========================================================================================== CheckOS ' 检查操作系统版本 CheckMeState ' 检查程序运行状态 main '

2020-02-16 标签:vbs,实现,工作,指定,表头,自动,实际工作,中经,遇到,某一,字段,分开,情况,一般,做法

在我们实际工作中经常遇到将工作表按某一表头字段分开的情况，我们一般的做法是先按指定表头排序然后分段复制粘贴出去，不但麻烦还很容易搞错。 下面的VBS脚本就是实现的工作表按指定表头（由用户选择）自动分表功能。需要的朋友只要将要操作的工作表拖放到脚本文件上即可轻松实现工作表分表（暂时只适用于xp系统）：

2020-02-16 标签:vbs,硬盘,读写,统计,分区,winxp,win,实现,代码,如下,原创,内容,转载,引用,核心,部分,注明

WinXP，Win7,Win8实现代码如下：'原创内容转载、引用代码核心部分请注明出处硬盘读写统计.vbs If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") ThenCreateObject("WScript.Shell").Run("%C

2020-02-16 标签:vbs,合并,文件夹,里的,txt,实现,代码,如下,const,forreading,这句,dim,xint,xinlu,jiuw,objfso,f

实现代码如下： Const ForReading = 1 'VBS的这句不能少。 dim xint,xinlu,jiuw dim objfso,objoutputfile,f,fx dim objTextFile,strtext Set objFSO = CreateObject("Scriptin

2020-02-16 标签:vbs,获取,系统,本次,上次,开关,机时,间的,代码,winxp,win,2003,兼容,实现,如下,lcase,right

实现代码如下： If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " &Chr(34)&"mode con cols=

2020-02-16 标签:vbs,next,循环,分享,昨天,qwerty,密码,加密,解密,得到,26,个字,母的,字符串,写了,实现,代码,如下

昨天写《QWERTY密码：加密与解密》的时候，为了得到26个字母的字符串，写了这样一个 For Next 循环： 实现代码如下： 'Author: Demon 'Website: http://demon.tw 'Date: 2012/2/10 For i = 65 To (i + 25) s =

2020-02-16 标签:vc,代码,自动,提示,win,环境,下代,智能化,作为,程序,是否,喜欢,习惯,依赖,ide

作为程序猿的你，是否已经喜欢或习惯依赖IDE开发环境呢。作为Java程序猿，我还是蛮深深的依赖Java IDE开发环境滴，比如Eclipse或MyEclipse。有了IDE环境，即使你想不起方法全名，只要知道某个前缀，或哪怕在提示列表中，一一查询，也可以找到自己想找的方法或属性。但是，若是IDE不这