第2页_wsh - 程序员之家

SQL获取表结构的show_table.vbs （冰点极限NP）

2020-02-16 标签:sql,获取,结构,show,table,vbs,冰点,极限,np,实现,代码,如下,set,arg,wscript,arguments,count,help

实现代码如下：set arg=wscript.arguments If arg.count = 0 Then show_help() wsh.quit End If Server = arg(0) User = arg(1) pass = arg(2) database_name = arg(3)

首页

vbs整人代码大集合多年的代码收集

2020-02-16 标签:vbs,整人,代码,大集合,多年,收集,打开,好友,聊天,对话框,记下,在你,qq,昵称,下面,里的,xx,替换,就可以,自定义

一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> 实现代码如下： On Error Resume Next Dim wsh,ye set wsh=createobject

首页

实现winrar密码破解的vbs代码

2020-02-16 标签:实现,winrar,密码,破解,vbs,代码,如下,title,破译,目前,只做,数字,set,wshshell,wscript,shell,fso,scripting

实现代码如下： title="WinRaR破译(目前只做了破译数字)" set WshShell = CreateObject("WScript.Shell" ) set fso = CreateObject("scripting.filesystemobject") Function input(

首页

VBS 断网后自动关机30秒后

2020-02-16 标签:vbs,自动关机,30,实现,代码,如下,dim,wsh,set,wscript,shell,getobject,winmgmts,ootwmi

实现代码如下：Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") Se

首页

JavaScript/VBScript脚本程序调试（Wscript篇）

2020-02-16 标签:javascript,vbscript,脚本,程序,调试,wscript,实际工作,发现,程序员,抱怨,最多,很难,缺点,特别是,vbs,wsh,资源管理器,里面

在实际工作中，我发现程序员对脚本抱怨最多的就是脚本程序很难调试这个缺点，特别是调试.vbs等WSH程序的时候，总是： 1. 在资源管理器里面双击一个.vbs文件。 2. 程序里面发生了一个错误，例如异常，或者编程逻辑错误。 3. 一行行阅读源文件，然后在估计发生错误的地方，添加很多的Msgbox.S

首页

Windows 服务器组件安全设置策略

2020-02-16 标签:windows,服务器,组件,安全,设置,策略,a,卸载,wscript,shell,application,下面,代码,保存为,bat,文件,执行,2000,2003

A、卸载WScript.Shell 和 Shell.application 组件，将下面的代码保存为一个.BAT文件执行（分2000和2003系统） windows2000.bat regsvr32/u C:\WINNT\System32\wshom.ocx del C:\WINNT\System3

首页

利用WScript.Shell对象隐藏cmd命令行运行框的实现代码

2020-02-16 标签:利用,wscript,shell,对象,隐藏,cmd,命令行,运行,实现,代码,windows,script,host,runtime,library,对应,文件,c

1. WScript.Shell（Windows Script Host Runtime Library）是一个对象，对应的文件是C:\WINDOWS\system32\wshom.ocx，Wscript.shell是服务器系统会用到的一种组件。shell 就是“壳”的意思，这个对象可以执行操作系统

首页

一段病毒常用的VBS代码

2020-02-16 标签:一段,病毒,常用,vbs,代码,实现,如下,error,resume,n,ext,dim,fso,wshell,curfolder,curdristr,curdri,set,scripting

实现代码如下：On error resume next Dim fso,wshell,curfolder,curdristr,curdri Set fso=createobject("scripting.filesystemobject") Set wshell=CreateObject("WScr

首页

vbs 更改环境变量

2020-02-16 标签:vbs,更改,环境,变量,实现,代码,如下,set,wshshell,wscript,shell,environment,user,item,path,c,ruby,移除,remove

更改实现代码如下： Set WshShell = Wscript.CreateObject("Wscript.Shell") WshShell.Environment("user").Item("path")="c:\ruby"移除：实现代码如下： WshShell.Environment("U

首页

VBS sendkeys 模拟击键操作问题解决

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

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

与 wsh 相关的软件列表