-
TXT转HTM、HTML「TXT转网页」的vbs实现代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：120
在众多文本编辑器中，Microsoft的Word是功能很强大的。况且XP PRO本身支持VBS调用Word文档对象，那么使用VBS是最好不过的了。思路如下：VBS打开Word，Word打开TXT，另存为网页，退出。 1. VBS调用Word.Application组件 如果电脑中安装了Word，那么用VBS打开[详细]
-
VBS通过WMI获取CPU使用率的代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：85
Python固然强大，但是调用WMI还是用VBS比较“正宗”。 复制代码 代码如下: On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" strComputer "rootcimv2") Set colItems = objWMIService.ExecQuery("Select * from Win3[详细]
-
Msxml2.XMLHTTP Msxml2.ServerXMLHTTP与缓存
所属栏目：[Asp教程] 日期：2016-12-03 热度：84
在大部分情况下，Msxml2.XMLHTTP 能够很好地完成工作，因为它是有缓存的。比如，我们用 Msxml2.XMLHTTP 发送 HTTP POST 请求模拟登陆了某个网站，它会把登陆时的 Cookie 和 Session 缓存下来，当我们想获取网站的数据时直接 HTTP GET 就行了，不需要人工发[详细]
-
VBS打开选择文件对话框代码（Win7）
所属栏目：[Asp教程] 日期：2016-12-03 热度：71
相信很多人都看过“嗨，Scripting Guy[详细]
-
VBS变量名Wsh等于WScript对象？
所属栏目：[Asp教程] 日期：2016-12-03 热度：138
复制代码 代码如下: set wsh = createobject("wscript.shell") wscript.sleep 15 * 60 * 1000 wsh.run "shutdown /s /t 0" 双击运行，居然弹出个错误对话框 复制代码 代码如下: Line: 1 Char: 1 Error: Wrong number of arguments or invalid property ass[详细]
-
VBS中获取系统本次及上次开关机时间的代码(WinXP/win2003/Win7兼
所属栏目：[Asp教程] 日期：2016-12-03 热度：198
复制代码 代码如下: If (Lcase(Right(Wscript.FullName,11)) = "wscript.exe") Then CreateObject("WScript.Shell").Run("%Comspec% /C " Chr(34)"mode con cols=100Cscript.exe //NoLogo "Chr(34) Wscript.ScriptFullName Chr(34)"(Echo 此窗口40秒后自动[详细]
-
在VBS中定义字节数组Byte()介绍
所属栏目：[Asp教程] 日期：2016-12-03 热度：129
晚上在 QQ 上看到昵称为“乱码”的好友回答了搜搜问问里一个问题： 在VBS中有办法定义字节数组么？ 在VBS中有办法定义字节数组么？就是字节子类型数组（VarType是8209的那种）注意不是VB！ 但是回答实在是不堪入目，连别人问什么都没搞懂，而且那人居然还满[详细]
-
用VBS实现的发送带Cookie的HTTP请求的代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：74
为了方便测试，先写一个回显Cookie的简单的PHP程序： 复制代码 代码如下: lt;?php foreach($_COOKIE as $key =gt; $value) echo "$key =gt; $valuern"; ?gt; 然后分别用ServerXMLHTTP和XMLHTTP测试： 复制代码 代码如下: Dim http Set http = CreateObjec[详细]
-
QWERTY密码：加密与解密vbs版
所属栏目：[Asp教程] 日期：2016-12-03 热度：67
昨天在做Arthur's Online Riddle的时候有这么一道题目： If QWERTY = ABCDEF then, OLSQFR = ? Qwerty 是各国使用的基于拉丁字母的标准的打字机和计算机键盘。QWERTY 是键盘第一行的前六个字母。键的安排顺序由克里斯多福·萧尔斯（Christopher Sholes）设[详细]
-
用VBS读写二进制文件的另一种方法分享
所属栏目：[Asp教程] 日期：2016-12-03 热度：165
之前写的那篇给出的方法虽然不错，但是当文件过大时（其实很小，也就几M），对应的数组也会很大，然后会出现运行时错误，提示内存耗尽，为此我郁闷了好久。 最近在博客的流量记录中发现百度关键字“一些很恶作剧的vbs程序”（看来现在的年轻人很喜欢玩这口[详细]
-
VBS For Next循环的陷阱分享
所属栏目：[Asp教程] 日期：2016-12-03 热度：120
昨天写《QWERTY密码：加密与解密》的时候，为了得到26个字母的字符串，写了这样一个 For Next 循环： 复制代码 代码如下: 'Author: Demon 'Website: http://demon.tw 'Date: 2012/2/10 For i = 65 To (i + 25) s = s Chr(i) Next WScript.Echo s 运行后却发[详细]
-
VBS For Next循环的一些细节
所属栏目：[Asp教程] 日期：2016-12-03 热度：199
For Next 语句的基本结构为： 复制代码 代码如下: For counter = start To end [Step step] [statements] [Exit For] [statements] Next 当 For Next 循环开始时，Visual Basic Scripting Edition (VBScript) 将 start 赋值给 counter。在运行循环中的语句[详细]
-
用VBS修改（设置）系统时间和日期的代码
所属栏目：[Asp教程] 日期：2016-12-03 热度：91
那天跟别人聊到 Y2K38 问题，于是想到一个恶作剧：用 VBS 把系统的时间修改到2038年1月19日3时14分07秒之后，这样某些依赖于 Unix 时间戳的程序就会出问题。那么怎样用 VBS 修改系统的时间呢？ 最简单也是最没有技术含量的方法就是调用 cmd 的 date 和 time[详细]
-
邪恶的eval和new Function使用介绍
所属栏目：[Asp教程] 日期：2016-12-03 热度：174
代码： 复制代码 代码如下: // 友善提醒：为了你的手指安全，请在Chrome下运行 'alert("hello")'.replace(/.+/, eval); 'alert("hello")'.replace(/.+/, function(m){new Function(m)();}); var i = 0; eval(new Array(101).join('alert(++i);')); var i =[详细]
-
WScript.Shell对象SpecialFolders属性未公开文档分享
所属栏目：[Asp教程] 日期：2016-12-03 热度：148
特殊文件夹名称用于索引该集合以检索所需的特殊文件夹，文档中列出了下面的特殊文件夹： AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup Desktop Favorites Fonts MyDocuments NetHood PrintHood Programs Recent SendTo StartMenu S[详细]
-
廊坊等地将承接北京地区数据中心需求
所属栏目：[Asp教程] 日期：2016-11-24 热度：103
中国IDC圈10月8日报道，近日，记者从北京市数据中心产业发展布局工作会上获悉，北京市数据中心产业做出新布局，该市将结合京津冀一体化战略，推动数据中心产业转移。未来，廊坊等地将承接更多的北京地区数据中心的需求。 据了解，今年7月，北京市政府正式[详细]
-
国内首个大数据天使投资平台将上线
所属栏目：[Asp教程] 日期：2016-11-23 热度：122
海燕天使盟近日宣布，国内首个针对天使投资项目的天使投资项目披露版平台将于10月上旬正式上线，该平台的创新在于将传统的基于线下的风险投资模式，升级为借助大数据思维的线上交易模式。 海燕天使盟创始人闫新程告诉南都记者，平台的一端对接的是天使投资[详细]
-
网宿科技前三季业绩预增105%至135%
所属栏目：[Asp教程] 日期：2016-11-23 热度：191
中国IDC圈10月16日报道，网宿科技10月14日晚间披露三季报业绩预告，公司预计今年前三季业绩将增长105%135%. 公司称，2014年前三季度，公司净利润继续保持较快增长，主要原因在于公司凭借领先的技术实力、高标准的服务水平以及丰富的运营经验继续推进业务发[详细]
-
铁塔公司回应招聘非市场化质疑:初期为方便工作
所属栏目：[Asp教程] 日期：2016-11-23 热度：145
作者 吴丰恒 10月16日报道：铁塔公司表示，公司筹备期工作基本完成，即将进入正式运营阶段。今年7月，铁塔公司揭牌成立，进入公司组建阶段，启动从总部到省市分公司人员招聘。 铁塔公司一成立就被打上电信改革、市场化改革标签，不仅剥离运营商铁塔资产，[详细]
-
中国铁塔总经理佟吉禄：新建能力是吃饭的本钱
所属栏目：[Asp教程] 日期：2016-11-23 热度：155
中国IDC圈10月20日报道：中国铁塔股份有限公司总经理佟吉禄在河北省分公司调研时表示， 铁塔的新建能力就是竞争力，是吃饭的本钱，要着重提升新建能力。 铁塔河北省分公司总经理范福州向佟吉禄做了工作汇报。公司自9月25日完成中国铁塔股份有限公司河北省[详细]
-
腾讯上海数据中心建成
所属栏目：[Asp教程] 日期：2016-11-23 热度：59
中国IDC圈10月22日报道，作为腾讯公司数据中心布局的重要一环，腾讯上海云数据中心已经完成园区和土建建设，成功交付给合作伙伴上海电信。腾讯公司高级执行副总裁卢山和中国电信上海分公司总经理马益民出席了交付仪式。 腾讯上海云数据中心位于上海青浦经[详细]
-
中国联通宽带公司总监周志祥：发挥法治规范网络行为的主导作用
所属栏目：[Asp教程] 日期：2016-11-23 热度：159
全面推进网络空间法治化，是发挥法治对引领和规范网络行为的主导性作用，引导网民遵法守法，做中国好网民。 在今后的工作中，中国联通将进一步增强大局意识和信息安全观念，坚持在重大事件和公益活动中的正确舆论导向，努力使手机媒体成为大众获取各类有益[详细]
-
新疆电信申建离岸数据中心
所属栏目：[Asp教程] 日期：2016-11-23 热度：53
中国IDC圈10月20日报道，日前，记者从中国电信新疆公司获悉，该公司正在与相关机构一起申请在乌鲁木齐建立离岸数据中心，为境内外客户提供面向境外的互联网应用平台业务。 据中国电信新疆公司相关责任人透露，离岸数据中心可以在国内直接向境内外客户提供[详细]
-
大变革 新生态 IDC产业大典开幕在即
所属栏目：[Asp教程] 日期：2016-11-23 热度：134
近两年来，在移动互联网的大潮驱动下，IDC行业也发生了根本性的变化。市场规模每年都在以20%的速度递增，2013年中国IDC市场规模已达262.5亿元人民币，增速达到了24.7%。到今年以后，增速还将持续。另据《云计算白皮书》数据显示，2013年国内IaaS云市场增速[详细]
-
中国铁塔入驻两江新区 手机宽带费未来有望下降
所属栏目：[Asp教程] 日期：2016-11-23 热度：97
昨天，中国铁塔股份有限公司重庆市分公司在两江新区正式揭牌成立。它标志着我市信息通信基础设施建设进入新的发展阶段，因为今后移动、联通、电信三家的手机基站等通信基础设施建设，都将陆续交由该公司负责，以避免三家运营商通信设施重复建设。 据了解，[详细]
浙公网安备 33038102330576号