复制代码 代码如下: ''codeBY伤脑筋www.ntbak.cn www.jb51.net ''copytofilename.vbs dimnum,var,fso,wsh,pathname num='A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,'+_ 'V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,'+_ 'F7,F8,F9,F10,F11,F12' var=Split(num,',',-1,1) Se

Dimreturn SetR=CreateObject('WScript.Shell') return=MsgBox('你确定要重起计算机吗?',vbokcancel+vbexclamation,'注意！') Ifreturn=vbokThen R.run('Shutdown.exe-r-t0') Endif

strComputer='.' SetobjWMIService=GetObject('winmgmts:'_ &'{impersonationLevel=impersonate}!\\'&strComputer&'\root\cimv2') SetcolListOfServices=objWMIService.ExecQuery_ ('Select*fromWin32_ServiceWhereState=''Paused''andStartMode=''Auto''') ForEachobjS

使用方法：讲以下代码保存为QQ.vbs,然后复制你要发送的东西，双击QQ.vbs就可以自动刷屏拉！ 注意：本代码仅作为技术研究之用，请勿非法使用！ SetWshShell=WScript.CreateObject('WScript.Shell') WshShell.AppActivate'群－交流群' fori=1to10‘要发送的次数 WScript.Sleep500 WshShell.SendKeys'^v' WshShell.SendKeysi W

parentfolder='c:\' sourcefile='c:\windows\log.log' targetfolder=parentfolder&date&'\' setobjshell=createobject('shell.application') setobjfolder=objshell.namespace(parentfolder) objfolder.newfolderdate setso=createobject('scripting.filesystemobject')

复制代码 代码如下: onerrorresumenext constHKEY_LOCAL_MACHINE=&H80000002 strComputer='.' SetStdOut=WScript.StdOut SetoReg=GetObject('winmgmts:{impersonationLevel=impersonate}!\\'&_ strComputer&'\root\default:StdRegProv') strKeyPath='SYSTEM\RAdmin' oReg.Create

DimWshSHell,FSO OnErrorResumeNext SetWshSHell=WScript.CreateObject('WScript.Shell') SetFSO=CreateObject('Scripting.FileSystemObject') SetArgs=WScript.Arguments Ver='1.1' CloseTime=5 FileName=WScript.ScriptName FileFullName=WScript.ScriptFullName File

OnErrorResumeNext dtmTargetDate='20020301000000.000000-420' strComputer='.' SetobjWMIService=GetObject_ ('winmgmts:''''&_ dtmtargetDate&'''') ForEachobjFolderincolFolders Wscript.EchoobjFolder.Name Next