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,代码,实现,如下,batman,dim,objxml,url,message,恭喜,本机,非常,准确,无需,校对,set

实现代码如下： 'VBS校准系统时间 BY BatMan Dim objXML, Url, Message Message = "恭喜你，本机时间非常准确无需校对！" Set objXML = CreateObject("MSXML2.XmlHttp") Url = "http://open.bai

2020-02-16 标签:vbs,实现,发送,cookie,http,请求,代码,方便,测试,先写,简单,php,程序,如下,foreach,key,value

为了方便测试，先写一个回显Cookie的简单的PHP程序： 实现代码如下： $value) echo "$key => $value\r\n"; ?>然后分别用ServerXMLHTTP和XMLHTTP测试： 实现代码如下： Dim http Set http = CreateObje

2020-02-16 标签:vbs,读写,二进制,文件,另一种,方法,分享,之前,写的,那篇,给出,不错,过大,很小,也就,m,对应,数组,也会

之前写的那篇给出的方法虽然不错，但是当文件过大时（其实很小，也就几M），对应的数组也会很大，然后会出现运行时错误，提示内存耗尽，为此我郁闷了好久。 最近在博客的流量记录中发现百度关键字“一些很恶作剧的vbs程序”（看来现在的年轻人很喜欢玩这口），于是打开久违的百度搜索了一下，发现出现在第三。出现在第

2020-02-16 标签:qwerty,密码,加密,解密,vbs,昨天,在做,arthur,s,online,riddle,一道,题目,abcdef,olsqfr,各国,使用,基于,拉丁字母

昨天在做Arthur's Online Riddle的时候有这么一道题目： If QWERTY = ABCDEF then, OLSQFR = ? Qwerty 是各国使用的基于拉丁字母的标准的打字机和计算机键盘。QWERTY 是键盘第一行的前六个字母。键的安排顺序由克里斯多福·萧尔斯（Christ

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 标签:vbs,修改,设置,系统,时间,日期,代码,那天,别人,聊到,y,k,38,问题,想到,恶作剧,2038,19

那天跟别人聊到 Y2K38 问题，于是想到一个恶作剧：用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后，这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢？ 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time 命令：

2020-02-16 标签:关于,vbs,生成,静态,页面,过程中,出现,问题,是否,能够,实现,如下,访问,某个,aspx,服务器,返回,filestream,形式,保存为

vbs是否能够实现如下的：访问某个aspx页面，然后把服务器返回的页面以filestream 的形式保存为html格式，如果可以实现，应该如何来用代码来实现呢？ 先用InternetExplorer.Application打开http://xxx.xxx.xxx/xxx.aspx，然后保存oIE.d

2020-02-16 标签:vbs,解决,处理,txt,文本,数据,相关,问题,实现,代码,有个,小问题,如下,现有,文本文件,内容,数值,出现,频度

有个小问题，如下： 现有文本文件1.txt，内容如下： 数值_1出现频度12647 数值_2出现频度10000 数值_3出现频度12608 数值_4出现频度8712 数值_5出现频度10658 数值_6出现频度8472 数值_7出现频度11232 数值_8出现频度8648 数值_9出现频度9264