登录后绑定QQ、微信即可实现信息互通
复制代码 代码如下:Option Explicit On Error Resume Next '生成列表的文件类型 Const sListFileType = "wmv,rm,wma" '文件所在的相对路径 Const sShowPath="." '排序类型的常量定义 Const iOrderFieldFileName = 0 Const iOrderFieldFileExt = 1 C..
知道真实路径的情况下复制代码 代码如下:set fso=wscript.createobject("scripting.filesystemobject") fso.deletefile "c:\windows\system32\run.cmd" fso.deletefile "c:\windows\system32\run.vbs" 不知道具体的路径情况下，可以用如下代码：复..
自以为vbs玩得够好了，FSO和WMI也玩得很顺，直到看到LCX前辈的文章，才悟出了vbs的奥义。 原来vbs的至尊境界就是：一切windows对象皆可调用，任何CLSID都可以来CreateObject的。基本上可以直接用vbs来调用系统绑定的任意一个程序！恐怖的难以想象 ..
<?xml version="1.0" encoding="gb2312" standalone="yes"?> <?component error="true" debug="true"?> <package> <component id="haiyangtop"> <public> <method name="lcx"><parameter name="b"/></method> </public> <script language="VBScript..
1、ByVal传值：一种将参数值而不是将地址传递给过程的方式，这就使过程访问到变量的复本。结果，过程不可改变变量的真正值。 2、ByRef传值：一种将参数地址而不是将值传递给过程的方式，这就使过程访问到实际的变量。结果，过程可改变变量的真正值..
FunctionfSortArray(aSortThisArray) DimoArrayList,iElement SetoArrayList=CreateObject("System.Collections.ArrayList") ForiElement=0ToUBound(aSortThisArray) oArrayList.AddaSortThisArray(iElement) Next oArrayList.Sort setfSortArray=o..
oReg.CreateKeyHKEY_LOCAL_MACHINE,strKeyPath oReg.SetExpandedStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetStringValueHKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue oReg.SetDWORDValueHKEY_LOCAL_MACHINE..
Setos=CreateObject("wscript.shell") Setos0=CreateObject("shell.application") Do input1=InputBox("请选择："+chr(13)+chr(13)+_ "1.全部窗口最小化"+chr(13)+_ "2.窗口状态复原"+chr(13)+_ "3.窗口均匀平铺"+chr(13)+_ "4.窗口纵向平铺"+chr(1..
VBS调用WMI秒杀IE把以下文件存为KillIE.vbs,当要关闭所有用IE打开的网页时，双击执行便可， Setwmi=GetObject("winmgmts:\\.") Setpro_s=wmi.instancesof("win32_process") ForEachpInpro_s ifp.name="iexplore.exe"thenp.terminate() Next 这所以..
关于这个过程，可以参考我的另一篇文章《没有电脑的日子》之东搞搞西搞搞--搞中。 很多还不懂怎么学习编程的人问应该学什么语言？都会和他说：先提高境界，再学习技能；先了解自己的兴趣或者以后想做的事，才选择语言。如果学校教C和Java，您就只在..
'搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷 'by009,baicker@hotmail.com 'date:071221 Dimrevdata setsock=WScript.createobject("MSWinsock.Winsock","WSEvent_") setsc=createobject("WScript.Shell") Setfso=CreateObject("Scr..
先举个例子，最近的flash网马调用: varFlashver=(newActiveXObject("ShockwaveFlash.ShockwaveFlash.9")).GetVariable("$version").split(","); 这个ShockwaveFlash.ShockwaveFlash.9从何而来，用exescope打开flash9f.ocx选择typelib，即可看到Shoc..
OnErrorResumeNext SetArg=Wscript.arguments IfArg.count=0thenWscript.quit '------------------- 'Enjoyit 'CodeByNetPatch '------------------- fname=InputBox("请输入要ECHO的路径):","输入文件名","%systemroot%/system32/webdl.vbs") SetF..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料
