收集的一些经典的vbs脚本大全
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| ccess!") EndSub CallChange(StartMenu_Run)''禁用“开始”菜单中的“运行”功能 CallChange(StartMenu_Find)''禁用“开始”菜单中的“查找”功能 CallChange(StartMenu_Close)''禁用“开始”菜单中的“关闭系统”功能 将以上代码保存为ChangeStartMenu.vbs文件，使用时双击即可。 七、执行外部程序 用记事本编辑如下内容： DIMobjShell setobjShell=wscript.createObject("wscript.shell") iReturn=objShell.Run("cmd.exe/Csetvar=world",1,TRUE) 保存为.vbs文件即可。在这段代码中，我们首先设置了一个环境变量，其名为var，而值为world，用户可以使用%Comspec%来代替cmd.exe，并且可以把命令：setvar=world改成其它的命令，这样就可以使它可以运行任意的命令。 八、重新启动指定的IIS服务 用记事本编辑如下内容： ConstADS_SERVICE_STOPPED=1 SetobjComputer=GetObject("WinNT://MYCOMPUTER,computer") SetobjService=objComputer.GetObject("Service","MYSERVICE") If(objService.Status=ADS_SERVICE_STOPPED)Then objService.Start EndIf 将它以startsvc.vbs为名保存在C盘根目录。并通过如下命令执行：cscriptc:\startsvc.vbs。运行后，经你指定的IIS服务项将被重新开启。 最后，我们再说说开篇时提到的VBS脚本病毒的防范方法。VBS病毒的执行离不开WSH，在带给人们便利的同时，WSH也为病毒的传播留下可乘之机。所以要想防范VBS病毒，可以选择将WSH卸载，只要打开控制面板，找到“添加/删除程序”，点选“Windows安装程序”，再鼠标双击其中的“附件”一项，然后再在打开的窗口中将“WindowsScriptingHost”一项的“√”去掉，然后连续点两次“确定”就可以将WSH卸载。或者，你也可以点击“我的电脑”→“查看”→“文件夹选项”，在弹出的对话框中，点击“文件类型”，然后删除VBS、VBE、JS、JSE文件后缀名与应用程序的映射，都可以达到防范VBS脚本病毒的目的。 当最后一项的绝对值小于0.000001时停止计算。 编写如下VBScript程序代码： <HTML> <HEAD><TITLE>计算圆周率π</TITLE></HEAD> <BODY><H3>计算圆周率π</H3><HR> <INPUTTYPE="Button"NAME="Button1"VALUE="计算"> <SCRIPTFOR="Button1"EVENT="onClick"LANGUAGE="VBScript"> k=1:s=1:t=1:m=1 图3-12计算圆周率 WhileAbs(t)>0.0000001 k=k+2 m=-m t=m/k s=s+t Wend MsgBox"圆周率π="&4*s </SCRIPT> </BODY> </HTML> 执行VBScript程序，浏览器显示如图3-12所示。 注意：程序运行时间可能很长。 只有30字节,能写什么? |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于收集的一些经典的vbs脚本大全的所有评论
