2020-02-16 标签:vbs,通过,wmi,获取,cpu,使用率,代码,python,固然,强大,调用,比较,正宗,实现,如下,error,resume,next,strcomputer,set

Python固然强大，但是调用WMI还是用VBS比较“正宗”。 实现代码如下： On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\r

2020-02-16 标签:vbs,通过,wmi,监视,注册表,变动,代码,google,top,一模一样,出处,hey,scripting,guy,blog,一篇,名为,i

Google一下“VBS监视注册表”，TOP 5都是一模一样的代码，我查了一下，出处是Hey, Scripting Guy! Blog上一篇名为《How Can I Monitor Changes to a Registry Key?》的文章，真是厚颜无耻。 文章我没时间翻译了，贴一下代码： 实现代

2020-02-16 标签:vbs,控制,鼠标,实现,代码,获取,坐标,移动,单击,双击,右击,模拟,左键,右键,网上,搜到,答案,普遍,无法,或者是

怎么用VBS模拟鼠标左键单击、左键双击、右键单击？…… 网上搜到的答案普遍是VBS无法实现，或者是要用第三方COM（ActiveX？）组件。我对第三方组件是很反感的，使用第三方组件毫无可移植性可言，因为别人的系统中不一定注册了这个组件。我的建议是，尽量不要在VBS代码中调用第三方组件，除非你的程序只

2020-02-16 标签:较为,全面,asp,cc,攻击,代码,分享,实现,如下,dim,info,strinfo,strtemp,session,cclog,txt,日志

实现代码如下： "" Then If InStr(strInfo,CC_Info(1)) = 0 Then strTemp = CC_Info(1) & vbCrLf If InStr(strInfo,CC_Info(2)) = 0 Then strTemp = strTemp &

2020-02-16 标签:txt,htm,html,转网,vbs,实现,代码,众多,文本,编辑器,microsoft,word,功能,很强,大的,况且,xp,pro

在众多文本编辑器中，Microsoft的Word是功能很强大的。况且XP PRO本身支持VBS调用Word文档对象，那么使用VBS是最好不过的了。思路如下：VBS打开Word，Word打开TXT，另存为网页，退出。 1. VBS调用Word.Application组件 如果电脑中安装了Word，那么

2020-02-16 标签:asp,activex,创建,scripting,对象,解决办法,今天,遇到,问题,网站,生成,静态,页面,时报,microsoft,vbscript,运行时,错误

今天遇到个问题，一个ASP网站生成静态页面时报错： Microsoft VBScript 运行时错误 错误 '800a01ad' ActiveX 部件不能创建对象: 'Scripting.FileSystemObject' 其实这个问题比较常见，报错原因是服务器不支持FSO组件。像风讯、科汛、动易这

2020-02-16 标签:vbs,基础,视频,教程,批处理,之家,broly,出品,每一,讲的,主题,介绍,相关,第二,数据,类型,变量,注释,第三

每一讲的主题：第一讲：VBS介绍和相关第二讲：数据类型和变量、注释第三讲：基本的流程控制语句第四讲：过程与函数第五讲：对象的介绍和调用第六讲：文件和文件夹的操作第七讲：WSH脚本宿主第八讲：正则表达式第九讲：类和面向对象第十讲：WMI的使用------------------------------

2020-02-16 标签:vbs,中用,cdo,message,发送,邮件,实现,代码,使用,对象,就可以,示例,演示,的是,gmail,文本,附件

使用CDO.Message对象就可以实现，示例代码演示的是gmail发送纯文本并带附件的邮件，至于其他的电子邮箱，需要修改代码中对应的smtp服务器和端口，原理也是一样的，就不举例了。贴出来的代码没有写注释，需要看注释的请下载源码。 实现代码如下： Const Email_From = "still

2020-02-16 标签:vbs,tli,遗忘,com,组件,曾经,很好,vbsedit,代码,自动,补全,实现,现在看来,大约,的确,用的,比如,我想

曾经一直很好奇VbsEdit的代码自动补全是怎么实现的，现在看来，大约的确用的就是这个COM。 比如我想知道scrrun.dll（提供fso对象的dll）这个COM组件提供了哪些接口，可以用下面的代码： 实现代码如下： Set tli = CreateObject("TLI.TLIApplicati

2020-02-16 标签:批处理,获取,ip,生成,txt,文本,bat,代码,方法,实现,如下,echo,off,f,tmp,vbs,cscript

第一种方法:实现代码如下：@echo off tmp.vbs cscript //NoLogo /e:vbscript tmp.vbs %1>ip.txt echo >nul && del tmp.vbs goto:eof set oDOM = WScript.GetOb