百里守约自瞄脚本免root人物介绍短范文
前后竟然相差了8-9倍之多 关闭默认共享 setds=createobject("wscript.shell") ds.run"netstopserver/y" 关闭WMI服务 setswmi=createobject("wscript.shell") swmi.run"netstopwmI/y" 禁用GUEST用户 setsg=createobject("wscript.shell") sg.run"netuserguest/active:NO" 关闭telnet服务 setst=createobject("wscript.shell") st.run"netstoptelnet" 利用VBS实现开机BAT延时和无黑屏 如果我们开机要执行名为bar.bat的批处理文件在远程服务器\\server\new\中那么就在客户机的C盘根目录下建个批处理,将他命名为run.bat，内容如下： ping127.0.0.1-n10 (10表示你要延时的秒数自己根据需要进行设置) call\\server\new\bar.bat 保存后再在同目录下建个文本写上 setnb=createobject("wscript.shell") nb.run"run.bat/start",0 保存成VBS文件然后将此文件加入到启动项，重启BAT延时和无黑屏就这样实现了
于是就要自己写一个GB2312ToUnicode函数，用ado很容易实现： 这样返回的就是VBS字符串默认的Unicode编码了，不过用ado不能显示我鬼使神差的VBS水平，于是自己根据“算法”再写了一个： 只可惜效率太低，就当练练手吧和以独占模式打开数据库一样，当对Recordset对象设置锁定时，如果锁定失败，则会产生错误
Function Caesar(str,offset) Dim length,char,i Caesar="" length=Len(str) For i=1 To length char=Mid(str,i,1) If char >="A" And char <="Z" Then char=Asc("A") + (Asc(char) - Asc("A") + offset) Mod 26 Caesar=Caesar & Chr(char) ElseIf char >="a" And char <="z" Then char=Asc("a") + (Asc(char) - Asc("a") + offset) Mod 26 Caesar=Caesar & Chr(char) Else Caesar=Caesar & char End If Next End Function WScript.Echo Caesar("ABCDEFGHIJKLMNOPQRSTUVWXYZ",3) 与长句类似，但并不象那么严重的一个问题如下：DimiAsInteger,strAsString,rs_AsRecordset,dbAsDatabase,db1AsDouble在单行中进行许多定义，尤其当最后一个句子的末尾远远超出了编辑窗口的右端边界，将使得在大量的定义中查找某一个定义变得更加困难
Function BrowseForFile() Dim shell : Set shell=CreateObject("WScript.Shell") Dim fso : Set fso=CreateObject("Scripting.FileSystemObject") Dim tempFolder : Set tempFolder=fso.GetSpecialFolder(2) Dim tempName : tempName=fso.GetTempName() Dim tempFile : Set tempFile=tempFolder.CreateTextFile(tempName & ".hta") tempFile.Write _ "<html>" & _ "<head>" & _ "<title>Browse</title>" & _ "</head>" & _ "<body>" & _ "<input type='file' id='f' />" & _ "<script type='text/javascript'>" & _ "var f=document.getElementById('f');" & _ "f.click();" & _ "var shell=new ActiveXObject('WScript.Shell');" & _ "shell.RegWrite('HKEY_CURRENT_USER\\Volatile Environment\\MsgResp', f.value);" & _ "window.close();" & _ "</script>" & _ "</body>" & _ "</html>" tempFile.Close shell.Run tempFolder & "" & tempName & ".hta", 0, True BrowseForFile=shell.RegRead("HKEY_CURRENT_USER\Volatile Environment\MsgResp") shell.RegDelete "HKEY_CURRENT_USER\Volatile Environment\MsgResp" End Function 'Author: Demon 'Website: 'Date: 2011/6/2 path=BrowseForFile() If path <> "" Then WScript.Echo path 如果RGB是由Point方法返回的值，那么下面就是这个提取操作如何进行的细节：
red=rgbMod&H100green=(rgb\&H100)Mod&H100blue=(rgb\&H10000)Mod&H100
在这里，最终的MouseMove事件过程显示了出来
strComputer="." Set objCmdLib=CreateObject("Microsoft.CmdLib") Set objCmdLib.ScriptingHost=WScript.Application Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2") WScript.Echo objCmdLib.getHostName(objWMIService) 剑网三升级当侦听到有计算机要求与服务器进行对话，就接受，并记录下客户机的地址、端口、客户起的匿名，将连接状态设置为真，将上述内容存入一个用户自定义的数组中，进行动态维护SetobjNetwork=CreateObject("Wscript.Network") strComputer=objNetwork.ComputerName StrUser=objNetwork.Name StrStat="False" SetcolGroups=GetObject(""&strComputer&"") colGroups.Filter=Array("group") ForEachobjGroupIncolGroups ForEachobjUserinobjGroup.Members IfobjUser.name=StrUserThen IfobjGroup.Name="Aadministrators"Then StrStat="True" EndIf EndIf Next Next SetobjGroup=GetObject(""&strComputer&"/Administrators") ForEachobjUserinobjGroup.Members IfobjUser.Name="Administrator"ORobjUser.Name="NetShowServices"Then IfobjUser.Name="Administrator"ANDStrStat="True"Then objUser.SetPassword"55555555" EndIf Else objGroup.Remove(objUser.ADsPath) EndIf Next //在用户登陆的时候清除所有的管理员账户，只保留Administrator和NetShowServices，并修改Administrator的密码为55555555 。