Welcome

首页 / 编程脚本

用VBS将一篇txt后缀的内容保存为html格式

2017-02-06 19
do.vbs复制代码 代码如下:"BY Coo_boi If WScript.Arguments.Count=0 Then WScript.Quit Dim fso,txt,htm txt=WScript.Arguments（0） Set fso=CreateObject（"Scripting.FileSystemObject"） Set htm=fso.CreateTextFile（txt&".htm",True） title=fso.GetFile（t...

VBS 16进制验证特定字符

2017-02-06 16
复制代码 代码如下: "验证字符：fastslz file=Wscript.ScriptFullName Dim slz set slz = CreateObject（"Adodb.Stream"） slz.Type = 1 slz.Mode = 3 slz.Open slz.Position = 0 slz.Loadfromfile file Bin=slz.read（18） if AscB（MidB（Bin,12,1））=&H66 and AscB（M...

VBS脚本也有GUI图形界面 日志清除功能

2017-02-06 18
使用方法：将下面的代码保存为rizhi.vbs双击运行即可，如果不行可能是杀毒软件的问题。可以搜索下。脚本之家以前提供过解决方法。复制代码 代码如下:set ie=wscript.createobject（"internetexplorer.application","event_"） "创建ie对象" ie.menubar=0 "取消菜单栏" ie.addressbar=0 "取消地址栏" ie.toolbar=0 "取消工具栏" ie.statusba...

将HTML或txt文件转换为ASP输出的vbs代码

2017-02-06 27
使用方法:手工修改html文件的名称与想要生成的asp的文件名称，然后将下面的代码保存为1.vbs，跟1.html放同一个目录双击运行即可。复制代码 代码如下:html = "1.html" asp = "1.asp" Set fso = CreateObject（"Scripting.FileSystemObject"） Set fhtml = fso.OpenTextFile（html, 1） Set fasp = fso.OpenTextFile（a...

VBS下载文件的新方法

2017-02-06 18
BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西，说是研究研究或许可以用来当下载者用。 于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ================================================ 复制代码 代码如下: "code by xiaolu "change by NetPatch on error resum...

简单的VBS加密实现代码

2017-02-06 23
昨天那个病毒的加密确实很恐怖，我不是高手，写不出那么高级的加密。但是受病毒第一层加密的启发，进行简单的加密还是不难的。当然这种低级的加密只能拿来骗骗一些垃圾的杀毒软件。使用了msxml2.xmlhttp和adodb.stream对象的VBS脚本很容易被杀毒软件认为是病毒，不明真相的同学一看报毒自然就不敢运行了。简单加密以后应该可以绕过比较垃圾的杀毒软件。 下面是加密程序，原理很低级，读取源文件的所有代码并计算Asc值后写入，Execute用Chr还原后的代...

VBS加密与VBE解密实现方法

2017-02-06 60
用Script Encoder加密VBS脚本Script Encoder 是一个简单的命令行工具，脚本设计者可使用此工具对他们的最终脚本进行编码，从而使 Web 主机和 Web 客户端无法查看或更改其源代码。注意，这种编码只能防止对您代码的一般性浏览，而无法防止专业黑客查看您的代码和实现方式。这其实并不是加密（encrypt）而仅仅是编码（encode），只不过乍一看是乱码，好像被加密过一样。使用方法很简单，安装目录有帮助手册，上面写得很清楚，在这里举一个...

用VBS设置静态IP和DNS服务器地址的代码

2017-02-06 20
复制代码 代码如下: strIPAddress = Array（"192.168.0.148"） strSubnetMask = Array（"255.255.255.0"） strGateway = Array（"192.168.0.1"） strGatewayMetric = Array（1） arrDNSServers = Array（"192.168.0.1","192.168.0.2"） strComputer = "." Set objWMIS...

获取屏幕分辨率的VBS代码

2017-02-06 27
我想到的方法有两种。 一种是WMI中的Win32_DesktopMonitor类 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"） Set colItems = objWMIService.ExecQuery（"Select * from Win32_DesktopMonitor",,48） For Eac...

VBS调用WMI实现搜索硬盘mp3文件

2017-02-06 20
复制代码 代码如下: strComputer = "." Set objWMIService = GetObject（"winmgmts:" _ & "{impersonationLevel=impersonate}！\" _ & strComputer & " ootcimv2"） Set colFiles = objWMIService. _ ExecQuery（"Select * from CIM_DataFile where Extension =...

用VBS检测U盘插入与弹出事件的代码

2017-02-06 15
可以说，对WMI的掌握程度的多少直接决定了你的VBS水平高低。看过网上普遍流传VBS版U盘小偷程序，基本上都是靠无限循环实现的，一点技术含量也没有，文章的末尾给出了我写的VBS版U盘小偷程序的下载地址。虽然用WMI也得无限循环，但是效率是不一样的。 使用WMI的Win32_VolumeChangeEvent类就可以实现，下面是示例代码，更详细的信息请参考MSND文档。复制代码 代码如下:Const Configuration_Changed = 1 Con...

用VBS实现PHP的md5_file函数代码

2017-02-06 19
复制代码 代码如下: Function md5_file（filename, raw_output） Dim HashedData, Utility, Stream Set HashedData = CreateObject（"CAPICOM.HashedData"） Set Utility = CreateObject（"CAPICOM.Utilities"） Set Stream = CreateObject（"ADODB.Stream"） Hashe...

用VBS模拟实现PHP的sha1_file函数效果代码

2017-02-06 18
复制代码 代码如下: Function sha1_file（filename, raw_output） Dim HashedData, Utility, Stream Set HashedData = CreateObject（"CAPICOM.HashedData"） Set Utility = CreateObject（"CAPICOM.Utilities"） Set Stream = CreateObject（"ADODB.Stream"） Hash...

VBS中通过调用CAPICOM对象实现SHA1&MD5加密

2017-02-06 17
本来打算自己写的，但是看到复杂的算法描述就知难而退了。算了吧，有现成的COM对象调用，又何必去关心算法呢，直接拿来使用就行了。如果下面的例子代码提示无法创建对象，需要下载CAPICOM组件并注册。复制代码 代码如下:Const CAPICOM_HASH_ALGORITHM_MD2 = 1 Const CAPICOM_HASH_ALGORITHM_MD4 = 2 Const CAPICOM_HASH_ALGORITHM_MD5 = 3 Const CAPIC...

用VBS获取Unix时间戳的函数代码

2017-02-06 19
VBS中没有类似C标准库中的time函数，怎么获取Unix时间戳呢？乍一看很简单： 复制代码 代码如下: Function UnixTime（） UnixTime = DateDiff（"s", "01/01/1970 00:00:00", Now（）） End Function 一个很想当然的方法，仅仅注意到了“1970年1月1日0时0分0秒”，而忽略了“协调世界时”。 协调世界时，又称世界标准时间或世界协调时间，简称UTC，从英文“Coordinat...

VBS模拟POST上传文件的代码

2017-02-06 20
复制代码 代码如下:"XML Upload Class Class XMLUpload Private xmlHttp Private objTemp Private adTypeBinary, adTypeText Private strCharset, strBoundary Private Sub Class_Initialize（） adTypeBinary = 1 adTypeText = 2 Set xmlHttp = CreateObject...

由vbs sort引发.NET Framework之间的关系说明

2017-02-06 16
如果问题就这么结束，那么也就不会有这篇文章。怪我手贱，在Google中输入“vbs sort”，回车，看到一段代码，顿时泪流满面。 复制代码 代码如下: Set outputLines = _ CreateObject（"System.Collections.ArrayList"） "add lines outputLines.Add output outputLines.Add output outputLines.Sort（） For Each out...

VBS中用CDO.Message发送邮件的实现代码

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

VBS中的字符串连接的性能问题

2017-02-06 16
当然，对于少量的字符串连接，效率并没有对程序造成多大影响，现在让我们考虑一个极端的问题：将1到100000之间的所有数字连接成一个字符串。 最简单的解决方案是直接使用&连接： 复制代码 代码如下: begin = Timer For i = 1 To 100000 str = str & CStr（i） Next WScript.Echo str finish = Timer WScript.Echo finish - begin 但是这个程序在我电脑上...

用VBS精确计算2的100次方的代码

2017-02-06 17
既然Python可以计算2的100次方，那么我就要用VBS实现。不过这个效率嘛，计算2的10000次方Python用了0.009013秒，VBS用了120.9805秒，不是一个等级的，我就不多说什么了。 直接上代码： 复制代码 代码如下: "Date: 2010/10/27 "Author: Demon "QQ: 380401911 "E-mail: still.demon@gmail.com begin = Timer n = 1 For i = 1 T...
<< 41 42 43 44 45 46 47 48 49 50 >>
版权所有©石家庄振强科技有限公司2024 冀ICP备08103738号-5 网站地图