2020-02-16 标签:vbs,错误,捕获,用于,内部,并进,手工,处理,初学者,慎用,千万,随便,拿来,掩盖,否则,程序,出现,莫名其妙,问题

但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改 使用完毕要记得关闭错误捕获器on error goto 0 语法如下: ======================================================= on error resume

2020-02-16 标签:vbscript,文件,操作,代码,小结,创建,文本文件,实现,如下,set,objfso,scripting,objfile,c,fso,scriptlog,txt

创建文本文件 实现代码如下：Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 实现代码如下：Set

2020-02-16 标签:vbscript,语句,amp,h,专用,16,进制,数表,原来,使用,符号,用于,字串,连接,应该在,两侧,加上,空格,不加

原来在vbscript语句中“&H”专用于16进制数表示的。在使用“&”这个符号用于字串连接时，应该在两侧加上一个空格，虽然不加空格在多数情况下运行是正常的，但那是不正确的或不规范的写法。在出现以字母“h”开头的字段时，如有这样的语句： sql = "insert into Stud

2020-02-16 标签:vbs,脚本,gui,界面,hta,简明,教程,网络,搜集整理,作者,原来,网页,工具栏,地址栏,以及,菜单

作者：薛靖澜 原来网页中的工具栏、地址栏以及菜单栏在这个窗口里都没有被显示出来，还可以使用html中的绝大多数标签、脚本等，这就给予你对界面设计更多的控制权。（天哪，当我看到这句话的时候，心情是多么的激动，这不是专为vbs脚本设计的gui界面吗？）与普通HTML网页相比，它多了HTA:APPLICA

2020-02-16 标签:vbs,hta,中选,文件夹,对话框,实现,代码,如下,error,resume,n,ext,function,const,computer,h,11,window

实现代码如下：on error resume next SelectFolder function SelectFolder() Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objSh

2020-02-16 标签:vbscript,添加,ip,策略,自动,程序,主要是,读取,网站,iis,日志,分析,其中,地址,安全策略,封闭,vbs,代码,如下

程序主要是读取这个网站的iis日志，分析出其中的IP地址，用安全策略自动封闭。VBS代码如下： 实现代码如下： 　　'代码开始 　　Set fileobj=CreateObject("Scripting.filesystemobject") 　　logfilepath="E:w3logW3SVC23

2020-02-16 标签:不用,防火墙,自动,对付,cc,攻击,防范,vbs,原理,主要是,用来,页面,大家,这样的,经历,访问,论坛,比较,的人,打开

CC攻击原理 　　CC主要是用来攻击页面的.大家都有这样的经历,就是在访问论坛时,如果这个论坛比较大,访问的人比较多,打开页面的速度会比较慢,对不?!一般来说,访问的人越多,论坛的页面越多,数据库就越大,被访问的频率也越高,占用的系统资源也就相当可观,现在知道为什么很多空间服务商都说大家不要上传论坛

2020-02-16 标签:vbs,sendkeys,模拟,击键,操作,问题解决,实现,代码,如下,键盘,2009,07,26,dim,wshshell,set,wscript

实现代码如下：' ====================================== ' VBS 中 SendKeys 模拟键盘击键 ' 2009-07-26 ' 刘林 ' ====================================== Dim WshShell Set Ws

2020-02-16 标签:修改,gateway,dns,vbs,脚本,实现,代码,如下,const,t,网关,newdns,strwinmgmt,winmgmts,impersonate,set

实现代码如下：Const T_GATEWAY = "1.1.1.1" '网关 Const T_NEWDNS1 = "2.2.2.2" 'DNS1 Const T_NEWDNS2 = "3.3.3.3" 'DNS2 strWinMgmt="winmgmts:{impersonationLevel=im

2020-02-16 标签:vbs,asp,代码,转成,一句话,形式,结果,发现,table,不行,类似,xx,yy,脚本,支持,拖放,也可以

结果发现,有TABLE不行 类似if xx=1 then yy=2 的也不行... //此脚本支持拖放,也可以在命令行下使用 cscript change.vbs xx.asp 实现代码如下： On Error Resume Next Set Arg=Wscript.Arguments If Arg