2020-02-16 标签:vbs,字符串,操作,效率,分析,总结,根本,类似于,这样的,东东,哥们,想办法,优化,正文,写了,几段,代码,做了

可vbs根本就没有类似于StringBuilder这样的东东，所以咱哥们只能自己想办法优化了。正文: 我写了几段代码做了测试，得出以下结果： '普通字符串连接 StringLinkTest1() '性能最差，大约耗时20秒(最要命的是在这20秒内，整个CPU几乎是100%满负荷在运行) '普通字符串

2020-02-16 标签:vbs,uac,用户,帐户,控制,实现,代码,很多人,功能,鸡肋,角度,来看,多多少少,有点,用的,限制,直接,双击,文件,只能在

虽然很多人觉得这个功能很鸡肋，但是以VBS的角度来看，UAC还是多多少少有点用的。在UAC的限制下，直接双击VBS文件只能在标准用户权限下运行，很多事情是做不了的，比如复制自身到windows文件夹，或者写入注册表的开机启动项等等。在XP下非常猖獗的暴风一号病毒，放到Win7下也就只能改改文件夹属性

2020-02-16 标签:vbs,shell,application,获取,图片,分辨率,简单,google,未果,发邮件,请教,很快,就有,回复,实现,代码,如下,path,c,test

简单Google了一下，未果，于是发邮件请教了一下，很快就有了回复。 实现代码如下： Path = "C:\test.jpg" arr = Split(Path,"\") FileName = arr(Ubound(arr)) FolderPath = Left(Path, Len(Path) -

2020-02-16 标签:vbs,调用,windows,api,函数,代码,那天,无意中,搜索,一篇,wincc,利用,excel,文章,不知道,是什么,google,好像,西门子,自动化

那天无意中搜索到一篇《WinCC VBS利用EXCEL调用Windows API函数》的文章，不知道WinCC是什么，Google了一下好像跟西门子自动化有关。WinCC是什么并不重要，重要的是这篇文章提供了VBS调用Windows API的一种思路——EXCEL VBA，一种传说比VB还要VB的语

2020-02-16 标签:vbs,字符串,连接,性能,问题,少量,效率,并没有,程序,造成,多大,影响,现在,让我们,考虑,极端,100000,之间,数字

当然，对于少量的字符串连接，效率并没有对程序造成多大影响，现在让我们考虑一个极端的问题：将1到100000之间的所有数字连接成一个字符串。 最简单的解决方案是直接使用&连接： 实现代码如下： begin = Timer For i = 1 To 100000 str = str &

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

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

2020-02-16 标签:vbs,模拟,post,上传,文件,代码,实现,如下,xml,upload,class,xmlupload,private,xmlhttp,objtemp,adtypetext,strcharset,strboundary,sub

实现代码如下：'XML Upload Class Class XMLUpload Private xmlHttp Private objTemp Private adTypeBinary, adTypeText Private strCharset, strBoundary Private Sub

2020-02-16 标签:vbs,调用,wmi,实现,搜索,硬盘,mp,文件,代码,如下,strcomputer,set,getobject,winmgmts,impersonate,root,cimv

实现代码如下： strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cim

2020-02-16 标签:vbs,下载,文件,新方法,blog,备份,脚本,发现,cdo,message,访问,网络,东西,说是,研究,或许,用来,当下

BLOG备份脚本时发现 CDO.MESSAGE可以访问网络下载东西，说是研究研究或许可以用来当下载者用。 于是研究了一会。写出个粗糙的DEMO。 exe2hex.vbs //xiaolu写的exe2vbs ，我修改成直接拖放,转成十六进制 ==============================

2020-02-16 标签:vbs,脚本,也有,gui,图形,界面,日志,清除,功能,使用方法,下面,代码,保存为,rizhi,双击,运行,即可,不行,可能是,杀毒软件

使用方法：将下面的代码保存为rizhi.vbs双击运行即可，如果不行可能是杀毒软件的问题。可以搜索下。以前提供过解决方法。set ie=wscript.createobject("internetexplorer.application","event_") '创建ie对象' ie.menubar=