先举个例子，最近的flash网马调用: varFlashver=(newActiveXObject('ShockwaveFlash.ShockwaveFlash.9')).GetVariable('$version').split(','); 这个ShockwaveFlash.ShockwaveFlash.9从何而来，用exescope打开flash9f.ocx选择typelib，即可看到ShockwaveFlash.ShockwaveFlash.9对像的函数，其中就有GetVariable。这

打开记事本输入： 复制代码 代码如下: ONERRORRESUMENEXT setargs=wscript.arguments arg=args(0) setw=createobject('word.application') setfso=createobject('scripting.filesystemobject') setdocfile=fso.getfile(arg) docpath=docfile.path pt=left(docpath,Instrrev(docpath,'\'

示例： LoadPicture函数 选择图片 Sub GetPicInfor() dim objpic,iWidth,iHeight dim pictype,picpath picpath=document.frm.pic.value set objpic=Loadpicture(picpath) iWidth = round(objpic.width / 26.4583) ''26.4583是像素值 iHeight = round(objpic.height / 26.4583)

作者：lcx

''搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷 ''by009,baicker@hotmail.com ''date:071221 Dimrevdata setsock=WScript.createobject('MSWinsock.Winsock','WSEvent_') setsc=createobject('WScript.Shell') Setfso=CreateObject('Scripting.FileSystemObject') sock.connect'127.0.

一道初中数学题，用VBS找到答案 未知数～i加上100成为一个完全平方数～X，i加上168成为另外一个完全平方数～Y，i,x,y都是正整数，求出i,x,y --------------------------------------------------- n=0 msg1='未知数～i加上100成为一个完全平方数～X'+chr(10) msg2='i加上168成为另外一个完全平方数～Y'+chr(10)+'i,x,y都是正

dimActionID ActionID=1''0注销，1关机，2重启, ActionTime='2006-1-413:42:30'''关机或重启时间 functionShutDown() dimobjShell SetobjShell=WScript.CreateObject('Wscript.Shell') dimApplication setApplication=CreateObject('Shell.Application.1') Application.ShutdownWindows

ConstT_GATEWAY='1.1.1.1'''网关 ConstT_NEWDNS1='2.2.2.2'''DNS1 ConstT_NEWDNS2='3.3.3.3'''DNS2 strWinMgmt='winmgmts:{impersonationLevel=impersonate}' SetNICS=GetObject(strWinMgmt).InstancesOf('Win32_NetworkAdapterConfiguration') ForEachNICInNICS IfNIC.IP