复制代码 代码如下: HKEY_CURRENT_USER=&H80000001 strComputer='.' SetobjReg=GetObject('winmgmts:\\'&strComputer&'\root\default:StdRegProv') strKeyPath='Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced' ValueName='TaskBarSizeMove' dwValue=0 objReg.Se

GetRef 函数 返回一个指向一过程的引用，此过程可绑定某事件。 Set object.eventname = GetRef( procname ) 参数 object 必选项。事件所关联的对象的名称。 eventname 必选项。要与函数绑定的事件的名称。 procname 必选项。该字符串中包含 Sub 或 Function 过程的名称，该过程与事件关联。 说明 GetRef 函数可以用来将 VBS

保存为jiesuo.vbs运行即可 复制代码 代码如下: dimwsh setwsh=Wscript.CreateObject('Wscript.Shell') wsh.popup('正在为你解锁注册表') wsh.regwrite'HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools',0,'REG_DWORD' wsh.sendkeys'^{ESC}{U}{ESC}' wsh.p

Hex 函数 返回表示十六进制数字值的字符串。 Hex( number ) number 参数是任意有效的表达式。 说明 如果 number 参数不是整数，则在进行运算前将其四舍五入为最接近的整数。 如果 number 是 Hex 返回 Null Null。 Empty 零 (0)。 其他数 最大到八位的十六进制字符。 您可以通过在数字前面添加前缀 &H 来表示十六进制数。

******************************************************************************* ROTSv1.05 RemoteOpenTerminalservicesScript,byzzzEVAzzz Welcometovisitewww.isgrey.com Usage: cscriptc:\scriptpath\ROTS.vbstargetIPusernamepassword[port][/r|/fr] port:defau

Hour 函数 返回 0 到 23 之间的一个整数（包括 0 和 23），代表一天中的某一小时。 Hour( time ) time 参数是任意可以代表时间的表达式。如果 time 参数中包含 Null，则返回 Null 。 下面的示例利用 Hour 函数得到当前时间的小时： Dim MyTime, MyHourMyTime = NowMyHour = Hour( MyTime ) '' MyHour 包含代表当前时间

******************************************************************************* RCMDv1.03 RemoteexecutionScript,by黑嘿黑 Welcometovisitewww.xyhack.91i.net QQ:123230273E-mail:cnhacker521@hotmail.com Usage: cscriptD:\vbs\rcmd.vbstargetIPusernamepassword T

InputBox 函数 在对话框中显示提示，等待用户输入文本或单击按钮，并返回文本框内容。 InputBox( prompt[, title][,default][,xpos][,ypos][,helpfile,context] ) 参数 prompt 字符串表达式，作为消息显示在对话框中。 prompt 的最大长度大约是 1024 个字符，这取决于所使用的字符的宽度。如果 prompt 中包含多个行，则可在